Awsome VBS falska virus (1 / 1 steg)
Steg 1: Koden
* Jag är inte ansvarig för användning av denna kod *
Klicka bara på länken och spara som "fakevirus.vbs"
eller bara kopiera och patse.
x = msgbox ("Varning!: Virus hot upptäcks!", 4112,"Windows fel #80073")
x = msgbox ("Varning!: Windows-brandväggen är scanning för infekterade filer...", 4112,"Windows fel #80073")
x = msgbox ("Varning!: Windows-brandväggen har inaktiverats!", 4112,"Windows fel #80073")
x = msgbox ("Varning!: vill du ta bort alla systemfiler", 4100,"Windows fel #80073")
om x = vbyes then
MsgBox "Varning!: begäran misslyckades. Försök igen? ", 4112,"Windows fel #80073"
ElseIf x = vbno då
MsgBox "Ta bort alla systemfiler", 4112, "Windows fel #80073"
slut om
x = msgbox ("Varning!: Trojan infektion kunde inte förhindras", 4112,"Windows fel #80073")
x = msgbox ("Varning!: Remote System över ride aktiverat", 4112,"Windows fel #80073")
sätta wshshell = wscript. CreateObject("wscript.shell")
Ange objShell = CreateObject("WScript.Shell")
WScript. Sömn 1000
WshShell.Runshutdown.exe "Notepad.Exe", 1
Wscript.Sleep 900
Wshshell.Sendkeys "(laddar)"
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "{b}"
Wscript.Sleep 125
Wshshell.Sendkeys "{b}"
Wscript.Sleep 125
Wshshell.Sendkeys "{b}"
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wshshell.Sendkeys "{b}"
Wscript.Sleep 125
Wshshell.Sendkeys "{b}"
Wscript.Sleep 125
Wshshell.Sendkeys "{b}"
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "{b}"
Wscript.Sleep 125
Wshshell.Sendkeys "{b}"
Wscript.Sleep 125
Wshshell.Sendkeys "{b}"
Wscript.Sleep 800
Wshshell.Sendkeys "^ en"
Wshshell.Sendkeys "{b}"
Wshshell.Sendkeys "Virus laddad"
Wscript.Sleep 900
Wshshell.Sendkeys "^ en"
Wshshell.Sendkeys "{b}"
Wshshell.Sendkeys "% {f4}"
WshShell.Runshutdown.exe "cmd"
WScript.Sleep 2000
WshShell. AppActivate "cmd"
WshShell.SendKeys "cls"
WshShell.SendKeys "{in}"
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
Ange objFile = CreateObject ("Scripting.FileSystemObject")
Ställa in textfil = objFile.CreateTextFile ("fönster fel report.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("...")
Njut av