Kamis, November 08, 2007

Teknik membobol keamanan warnet windows


huh, kadang kala di warnet semua akses di tutup,
mulai dari Run, find/search, Control Panel, dll. gimana ya caranya menjebolnya…?..
mode side 2 layer 2 aktif. let’s go!!!
buka notepad,
(bener2 keterlaluan kalo notepad aja di blok!!!)
cut n paste script berikut:

–start–

On error resume next
Dim Reg
Set Reg = CreateObject(”WScript.Shell”)

if msgbox(”Kembalikan menu Run ?” , VbOkCancel) = VbOK then
Reg.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”, “0″, “REG_DWORD”
end if

if msgbox(”Enable Registry Tool ?” , VbOkCancel) = VbOK then
Reg.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”, “0″, “REG_DWORD”
end if

if msgbox(”Perlihatkan file hidden” , VbOkCancel) = VbOK then
Reg.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden”, “1″, “REG_DWORD”
end if

if msgbox(”Kembalikan menu Find” , VbOkCancel) = VbOK then
Reg.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”, “0″, “REG_DWORD”
end if

if msgbox(”Kembalikan menu Option” , VbOkCancel) = VbOK then
Reg.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”, “0″, “REG_DWORD”
end if

if msgbox(”Enable Taskmanager” , VbOkCancel) = VbOK then
Reg.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”, “0″, “REG_DWORD”
end if

if msgbox(”Disable File Extensi” , VbOkCancel) = VbOK then
Reg.RegWrite “HKEY_CURRENT_USER\software\microsoft\windows\currentversion\explorer\advanced\HideFileExt”, “0″, “REG_DWORD”
end if

if msgbox(”Perlihatkan Log Off” , VbOkCancel) = VbOK then
Reg.RegWrite “HKEY_CURRENT_USER\software\microsoft\windows\currentversion\explorer\advanced\StartMenuLogoff”, “1″, “REG_DWORD”
end if

MsgBox”Registry kamu berhasil di optimasi, silakan logOff”, vbinformation,”Selamat”
MsgBox”creat3d bY channells1edp.blogspot.com”,
vbinformation,”Selamat”

—end–

nah nih untuk membuka/enable
run, hide file ext, dll.
simpan dengan .vbs
dan klik untuk mengeksekusi.
welcome to your imagine!!!!
by Channells1edp

3 komentar:

suwanto mengatakan...

Cara simpan script dengan .vbs, itu gimana caranye..karena aku coba file type cuma 2 pilihan all files dan .txt, tidak ada yang lainnye..caranye gimana donk ?

channells edp mengatakan...

Mas Suwanto Yth..
setelah edit pake notepad.. pilih save as ( di tab FILE )
lalu save as type = all files
selanjutnya di kolom file name langsung di beri ekstensi .vbs aja ( .txt nya di hilangkan )
( mis = virus.vbs ) tekan save.. beres deh

Anonim mengatakan...

expected statement!
Maksudnya apa?
Gimana Cara memperbaikinya supaya tidak Expexted Statement?