Vbs tilltag #1 (1 / 2 steg)
Steg 1: Själva filen
Öppna Anteckningar, och ange detta:
sätta wshshell = wscript. CreateObject("wScript.Shell")
x = inputbox ("Ange numret till din favorit att vinna ett pris! (Inte alltför stor eller systemet fungerar inte) ")
z = x + x - 5
ABC = z * x + z - x
en = MsgBox ("ett fel har uppstått. Felkod: "& abc &". Försök igen?", 4 + 16,"Fel")
WScript.Sleep z
en = MsgBox ("tillgång till" C: / Windows/System32 "har beviljats.", 0 + 16, "")
y = z - x + 5
WScript.Sleep y
en = MsgBox ("är du säker du vill ta bort ' C: / Windows/System32 '?", 4 + 16, "")
WshShell.Runshutdown.exe "Anteckningar"
WScript.Sleep 400
WshShell.SendKeys "din dator har blivit hackad. Så mycket för priset..."
WScript.Sleep 4000
WshShell.SendKeys" 01011001011011110111010100100000011000010111001001100101001000000110010001101111011011110110110101100101011001000010000100100000001110100101000000001101000010100101100101101111011101010010000001100001011100100110010100100000011001000110111101101111011011010110010101100100001000010010000000111010010100000000110100001010010110010110111101110101001000000110000101110010011001010010000001100100011011110110111101101101011001010110010000100001001000000011101001010000000011010000101001011001011011110111010100100000011000010111001001100101001000000110010001101111011011110110110101100101011001000010000100100000001110100101000000001101000010100101100101101111011101010010000001100001011100100110010100100000011001000110111101101111011011010110010101100100001000010010000000111010010100000000110100001010"
Spara det som [något] .vbs. VBS är avgörande.
Se till att det är också i "Alla filer".