Virus falso Awsome VBS (1 / 1 paso)

Paso 1: El código

* no soy responsable por el uso de este código *
Haga clic en el enlace de descarga y guardar como "fakevirus.vbs"
o solo copia y patse.

x = msgbox ("ADVERTENCIA!: Virus amenaza detectada!", 4112,"Windows Error #80073")
x = msgbox ("ADVERTENCIA!: firewall de Windows está buscando los archivos infectados...", 4112,"Windows Error #80073")
x = msgbox ("ADVERTENCIA!: se ha desactivado el firewall de Windows!", 4112,"Windows Error #80073")
x = msgbox ("ADVERTENCIA!: desea borrar todos los archivos de sistema", 4100,"Windows Error #80073")
Si x = vbyes then
MsgBox "Aviso!: petición fallada. Intentarlo de nuevo? ", 4112,"Windows Error #80073"
elseif x = vbno then
MsgBox "Eliminar todos los archivos de sistema", 4112, "Windows Error #80073"
terminar si
x = msgbox ("ADVERTENCIA!: no podría prevenir la infección Trojan", 4112,"Windows Error #80073")
x = msgbox ("ADVERTENCIA!: remoto sistema exceso paseo habilitado", 4112,"Windows Error #80073")
Set wshshell = wscript. CreateObject("wscript.shell")
Set objShell = CreateObject("WScript.Shell")

Wscript. Sueño 1000
Wshshell.Run "Notepad.Exe", 1
Wscript.Sleep 900
Wshshell.Sendkeys "(carga)"
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 800
Wshshell.Sendkeys "^ a"
Wshshell.Sendkeys "{bs}"
Wshshell.Sendkeys "Virus cargado"
Wscript.Sleep 900
Wshshell.Sendkeys "^ a"
Wshshell.Sendkeys "{bs}"
Wshshell.Sendkeys "% {f4}"
WshShell.Run "cmd"
Wscript.Sleep 2000
WshShell. AppActivate "cmd"
WshShell.SendKeys "cls"
WshShell.SendKeys "{enter}"
WScript.Sleep 500
WshShell.SendKeys "HA"
WScript.Sleep 500
WshShell.SendKeys "HA"
WScript.Sleep 500
WshShell.SendKeys "HA"
WScript.Sleep 500
WshShell.SendKeys "!"
WScript.Sleep 500
WshShell.SendKeys "Yo"
WScript.Sleep 500
WshShell.SendKeys "u"
WScript.Sleep 500
WshShell.SendKeys "Ha"
WScript.Sleep 500
WshShell.SendKeys "ve"
WScript.Sleep 500
WshShell.SendKeys "B"
WScript.Sleep 500
WshShell.SendKeys "ee"
WScript.Sleep 500
WshShell.SendKeys "n"
WScript.Sleep 500
WshShell.SendKeys "Ha"
WScript.Sleep 500
WshShell.SendKeys "ck"
WScript.Sleep 500
WshShell.SendKeys "ed"
WScript.Sleep 500
Set objFile = CreateObject ("Scripting.FileSystemObject")
Establecer el archivo de texto = objFile.CreateTextFile ("ventana Error report.txt")
textfile.WriteLine("...")
textfile.WriteLine("lkajhfla83r388838alhlakdjhalfhlakjjhERRORlkjasfkjhs")
textfile.WriteLine("auhr4liuhalkfhalkhfla8yr98wyrwfkhawluyhfrqfy7432897")
textfile.WriteLine("ksiiiejaisudusuusddjjhfsfshufuarawiurawuhflkjdhflks")
textfile.WriteLine("388838alhlakdjhalfhlakjjhERRORlkjasfkjhsuuueiijjwkj")
textfile.WriteLine("valuehalfuwieuhrlieuheriuhlhalhlahkeerorlkajhfla83r")
textfile.WriteLine("lksauhr4liuhalkfhalkhfla8yr98wyrwfkhawluyhfrqfy7477")
textfile.WriteLine ("kjksiiiewpoieyweoiuryaiuuuaaid Luarawiurawuhflkjdhf")
textfile.WriteLine("3r388838alhlakdjhalfhlakjjhERRORlkjasfkjhsuuueiijjw")
textfile.WriteLine("77valuehalfuwieuhrlieuheriuhlhalhlahkeerorlkajhfla8")
textfile.WriteLine("hflksauhr4liuhalkfhalkhfla8yr98wyrwfkhawluyhfrqfy74")
textfile.WriteLine("iijjwkjksiiieLkjsadhaksdjfsi839883uarawiurawuhflkjd")
textfile.WriteLine("hfla83r388838alhlakdjhalfhlakjjhERRORlkjasfkjhsuuue")
textfile.WriteLine("qfy7477valuehalfuwieuhrlieuheriuhlhalhlahkeerorlkaj")
textfile.WriteLine("flkjdhflksauhr4liuhalkfhalkhfla8yr98wyrwfkhawluyhfr")
textfile.WriteLine("kjasfkjhsuuueiijjwkjksiiiejlskjfgdsufaduarawiurawuh")
textfile.WriteLine("lahkeerorlkajhfla83r388838alhlakdjhalfhlakjjhERRORl")
textfile.WriteLine("rwfkhawluyhfrqfy7477valuehalfuwieuhrlieuheriuhlhalh")
textfile.WriteLine("Luarawiurawuhflkjdhflksauhr4liuhalkfhalkhfla8yr98wy")
textfile.WriteLine("...")

disfrutar de