Etape 1: Le fichier lui-même
Ouvrez le bloc-notes, puis entrez ceci :
Set wshshell = wscript. CreateObject("wScript.Shell")
x = inputbox ("Entrez votre numéro préféré de gagner un prix ! (Pas trop grand ou que le système ne fonctionnera pas) ")
z = x + x - 5
ABC = z * x + z - x
un = MsgBox ("une erreur est survenue. Code d’erreur: "& abc &". Réessayer?", 4 + 16,"Erreur")
WScript.Sleep z
un = MsgBox ("accéder à" C: / Windows/System32 ' a été accordé. ", 0 + 16," ")
y = z - x + 5
WScript.Sleep y
un = MsgBox ("Etes-vous sûr de vouloir supprimer définitivement" C: / Windows/System32 '? », 4 + 16, "")
WshShell.Run « Bloc-notes »
WScript.Sleep 400
WshShell.SendKeys "votre ordinateur a été piraté. Tant pis pour le prix..."
WScript.Sleep 4000
WshShell.SendKeys" 01011001011011110111010100100000011000010111001001100101001000000110010001101111011011110110110101100101011001000010000100100000001110100101000000001101000010100101100101101111011101010010000001100001011100100110010100100000011001000110111101101111011011010110010101100100001000010010000000111010010100000000110100001010010110010110111101110101001000000110000101110010011001010010000001100100011011110110111101101101011001010110010000100001001000000011101001010000000011010000101001011001011011110111010100100000011000010111001001100101001000000110010001101111011011110110110101100101011001000010000100100000001110100101000000001101000010100101100101101111011101010010000001100001011100100110010100100000011001000110111101101111011011010110010101100100001000010010000000111010010100000000110100001010"
Enregistrez-le sous [rien] .vbs. La VBS est crucial.
Assurez-vous qu’il est aussi en « All Files ».