Etape 1: Le code...
Randomize
Définissez objShell = CreateObject("WScript.Shell")
objShell.Run ("winword.exe") (ou powerpnt.exe ou autre)
WScript.Sleep 20000
faire
typesleep = rnd * 1000
DEC = rnd * 100
random1 = rnd * 5000
RANDOM2 = rnd * 5000
WScript.Sleep random1
Si dec > 99 ou dec < 2 alors
MsgBox "Y 0u jv$ t g0t PwNEd!", 4096, « M 0wN
WScript.Quit
fin si
Si dec < 10 puis
WScript.Sleep random2
objShell.SendKeys "wx$ va9qy %u? p"
fin si
Si dec > 10 AND dec < 20 puis
WScript.Sleep 10000
objShell.SendKeys "d’aQ7vB #x
fin si
Si dec > 20 AND dec < 30 puis
WScript.Sleep 10000
objShell.SendKeys "oPbt0 & je9o < \"
fin si
Si dec > 30 et dec < 40 puis
WScript.Sleep 8000
objShell.SendKeys « he1p im @ bu9! »
fin si
Si dec > 40 et dec < 50 puis
WScript.Sleep random1
objShell.SendKeys "{enter} Toodloo... I'm outta here ! "
fin si
Si dec > 50 et dec < 60 puis
WScript.Sleep 20000
objShell.SendKeys "Appuyez sur une touche pour continuer..."
fin si
Si dec > 60 et dec < 70 puis
objShell.SendKeys "{b} hijklmnop123456"
fin si
Si dec > 70 et dec < 80 puis
WScript.Sleep 30000
objShell.SendKeys « Boinga Woinga! »
fin si
Si dec > 80 et dec < 90 puis
WScript.Sleep random2
objShell.SendKeys "Virus alert ! Un virus a été détecté. {enter} Mise en garde. Virus détecté!"
fin si
Si dec > 90 et dec < 100 puis
objShell.SendKeys "mise à jour système ! 10101100101101011001101010 ! changement de Registre détecté ! supprimer cmd.exe ? Reformatage... Programme de demande d’accès à internet."
fin si