Mengganti Password DeepFreeze

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