Paso 1: El código...
aleatorizar
Set objShell = CreateObject("WScript.Shell")
objshell.Run ("winword.exe") (o powerpnt.exe o lo que sea)
Wscript.Sleep 20000
hacer
typesleep = rnd * 1000
Dec = rnd * 100
random1 = rnd * 5000
random2 = rnd * 5000
Wscript.Sleep random1
Si dec > 99 o dec < 2 entonces
MsgBox "Y 0u jv$ t g0t PwNEd!", 4096, "0wN M
Wscript.Quit
terminar si
Si dec < 10 entonces
Wscript.Sleep random2
objshell.SendKeys "wx$ va9qy %u? p"
terminar si
Si > 10 dec y dec < 20 entonces
Wscript.Sleep 10000
objshell.SendKeys "de aQ7vB #x
terminar si
Si > 20 dec y dec < 30 entonces
Wscript.Sleep 10000
objshell.SendKeys "oPbt0 & je9o < \"
terminar si
Si dec > 30 y dec < 40 entonces
Wscript.Sleep 8000
objshell.SendKeys "he1p im @ bu9!"
terminar si
Si > 40 dec y dec < 50 entonces
Wscript.Sleep random1
objshell.SendKeys "{entrar} Toodloo... Soy outta aquí! "
terminar si
Si dec > 50 y dec < 60 entonces
Wscript.Sleep 20000
objshell.SendKeys "presione cualquier tecla para continuar..."
terminar si
Si dec > 60 y dec < 70 entonces
objshell.SendKeys "{bs} hijklmnop123456"
terminar si
Si dec > 70 y dec < 80 entonces
Wscript.Sleep 30000
objshell.SendKeys "Boinga Woinga!"
terminar si
Si dec > 80 y dec < 90 entonces
Wscript.Sleep random2
objshell.SendKeys "alerta de Virus!! Se ha detectado un virus. {entrar} ADVERTENCIA. Virus detectado!"
terminar si
Si dec > 90 y dec < 100 entonces
objshell.SendKeys "actualización del sistema. 10101100101101011001101010! cambio de registro detectado! ¿eliminar cmd.exe? Medidas... Programa solicitando acceso a internet".
terminar si
