Paso 1: El archivo de
Abrir Bloc de notas, luego introduce esto:
Set wshshell = wscript. CreateObject("wScript.Shell")
x = inputbox ("escriba su número favorito para ganar un premio! (No demasiado grande o el sistema no funcionará) ")
z = x + x - 5
ABC = z * x + z - x
a = MsgBox ("ha ocurrido un error. Código de error: "& abc &". Reintentar?", 4 + 16,"Error")
Wscript.Sleep z
a = MsgBox ("acceso a ' C: / Windows/System32 ' le ha otorgado.", 0 + 16, "")
y = z - x + 5
y Wscript.Sleep
a = MsgBox ("¿confirma que desea eliminar permanentemente ' C: / Windows/System32 '?", 4 + 16, "")
WshShell.Run "Notepad"
Wscript.Sleep 400
WshShell.SendKeys "el ordenador ha sido hackeado. Tanto para el premio..."
Wscript.Sleep 4000
WshShell.SendKeys" 01011001011011110111010100100000011000010111001001100101001000000110010001101111011011110110110101100101011001000010000100100000001110100101000000001101000010100101100101101111011101010010000001100001011100100110010100100000011001000110111101101111011011010110010101100100001000010010000000111010010100000000110100001010010110010110111101110101001000000110000101110010011001010010000001100100011011110110111101101101011001010110010000100001001000000011101001010000000011010000101001011001011011110111010100100000011000010111001001100101001000000110010001101111011011110110110101100101011001000010000100100000001110100101000000001101000010100101100101101111011101010010000001100001011100100110010100100000011001000110111101101111011011010110010101100100001000010010000000111010010100000000110100001010"
Guardarlo como VBS [nada]. El VBS es crucial.
Asegúrese de que está también en "Todos los archivos".
