Stap 1: Het bestand zelf
Open Kladblok en typ het volgende:
set wshshell = wscript. CreateObject("wScript.Shell")
x = inputbox ("Enter uw favoriete nummer om een prijs te winnen! (Niet te groot of het systeem zal niet werken) ")
z = x + x - 5
ABC = z * x + z - x
een = MsgBox ("is een fout opgetreden. Foutcode: "& abc &". Nieuwe poging?", 4 + 16,"Fout")
WScript.Sleep z
een = MsgBox ("toegang tot ' C: / Windows/System32" is verleend. ", 0 + 16," ")
y = z - x + 5
WScript.Sleep y
een = MsgBox ("weet u zeker dat u permanent wilt verwijderen ' C: / Windows/System32"? ", 4 + 16," ")
WshShell.run "Kladblok"
WScript.Sleep 400
WshShell.SendKeys "uw computer is gehackt. So much voor de prijs..."
WScript.Sleep 4000
WshShell.SendKeys" 01011001011011110111010100100000011000010111001001100101001000000110010001101111011011110110110101100101011001000010000100100000001110100101000000001101000010100101100101101111011101010010000001100001011100100110010100100000011001000110111101101111011011010110010101100100001000010010000000111010010100000000110100001010010110010110111101110101001000000110000101110010011001010010000001100100011011110110111101101101011001010110010000100001001000000011101001010000000011010000101001011001011011110111010100100000011000010111001001100101001000000110010001101111011011110110110101100101011001000010000100100000001110100101000000001101000010100101100101101111011101010010000001100001011100100110010100100000011001000110111101101111011011010110010101100100001000010010000000111010010100000000110100001010"
Opslaan als [iets] .vbs. De VBS is van cruciaal belang.
Zorg ervoor dat er ook in "Alle bestanden".
