Stap 1: De code
* Ik ben niet verantwoordelijk voor het gebruik van deze code *
Klik op de downloadlink en opslaan is als "fakevirus.vbs"
of gewoon kopiëren en patse.
x = msgbox ("waarschuwing!: Virus dreiging gedetecteerd!", 4112,"Windows Error #80073")
x = msgbox ("waarschuwing!: Windows firewall... voor de geïnfecteerde bestanden scannen", 4112,"Windows Error #80073")
x = msgbox ("waarschuwing!: Windows firewall is uitgeschakeld!", 4112,"Windows Error #80073")
x = msgbox ("waarschuwing!: wenst u alle systeembestanden verwijderen", 4100,"Windows Error #80073")
Als x = vbyes then
MsgBox "waarschuwing!: aanvraag is mislukt. Probeer het opnieuw? ", 4112,"Windows Error #80073"
elseif x = vbno then
MsgBox "Het verwijderen van alle systeembestanden", 4112, "Windows Error #80073"
eind als
x = msgbox ("waarschuwing!: Trojan besmetting niet voorkomen konden worden", 4112,"Windows Error #80073")
x = msgbox ("waarschuwing!: extern systeem overmatige rit ingeschakeld", 4112,"Windows Error #80073")
set wshshell = wscript. CreateObject("wscript.shell")
Set objShell = CreateObject("WScript.Shell")
WScript. Slaap 1000
Wshshell.Run "Notepad.Exe", 1
Wscript.Sleep 900
Wshshell.Sendkeys '(laden)'
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 "^ een"
Wshshell.Sendkeys "{bs}"
Wshshell.Sendkeys "Virus geladen"
Wscript.Sleep 900
Wshshell.Sendkeys "^ een"
Wshshell.Sendkeys "{bs}"
Wshshell.Sendkeys "% {f4}"
WshShell.run "cmd"
WScript.Sleep 2000
WshShell. AppActivate "cmd"
WshShell.SendKeys "cls"
WshShell.SendKeys "{Voer}"
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")
Instellen van textfile = objFile.CreateTextFile ("venster vergissing rapport.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("...")
Geniet van