Ĺadny brzuch
Witam
Mam zamiar stworzyć taki program, co pobiera klawisze i zapisuje je do pliku tekstowego (coś jak keylogger, ALE nie to mam na myśli :P). Wiem, że jest komponent "KeySpyXP", ale jest on wykrywalny jako keylogger, a ja nie chce tego, gdyż program ma być edukacyjny i nie do tych celów ;) Ktoś mi wysłał taki link. Tylko teraz nie wiem jak się do tego zastosować? :( Nic z tej strony nie rozumiem :( Wiem jedynie, że ten sposób nie jest wykrywalny... Nie potrzebuje jakiś skomplikowanych procedur, chcę tylko aby mi klawisze przechwytywało do memo czy pliku .txt.
Z góry dzięki za pomoc.
http://4programmers....Rozdzia%C5%82_5 - Zakładanie globalnego hooka, etc..
http://4programmers....Rozdzia%C5%82_5 - Zakładanie globalnego hooka, etc..
No fakt ;) Dzięki za stronkę :P Sprawdziłem - działa ;) Tylko teraz pojawia się pytanie... co z tymi znakami? Bo są same duże litery, no i nie obsługuje polskich znaków i takich jak ": , . ' " * & % itd. Nie wie ktoś jak to zmienić?
W miejscu, gdzie masz:
case Key of 13: Memo.Lines.Add(''); 8: Memo.Text := Memo.Text + '[backspace]'; 27: Memo.Text := Memo.Text + '[esc]'; else Memo.Text := Memo.Text + Chr(Key); end;
przed else Memo.Text := Memo.Text + Chr(Key); dodaj jeszcze na przykład:
58: Memo.Text := Memo.Text + ':';
Ta linijka odpowiada za dwukropek. To 58 to kod ASCII znaku ':'. Jak chcesz jeszcze na przykład zrobić znak &, to musisz dodać kolejną taką linijkę i zamiast 58 wstawić kod ASCII znaku & i tam na końcu napisać "+ '&';".
Tu masz wszystkie kody ASCII: http://pl.wikipedia.org/wiki/ASCII
W miejscu, gdzie masz:
case Key of 13: Memo.Lines.Add(''); 8: Memo.Text := Memo.Text + '[backspace]'; 27: Memo.Text := Memo.Text + '[esc]'; else Memo.Text := Memo.Text + Chr(Key); end;
przed else Memo.Text := Memo.Text + Chr(Key); dodaj jeszcze na przykład:
58: Memo.Text := Memo.Text + ':';
Ta linijka odpowiada za dwukropek. To 58 to kod ASCII znaku ':'. Jak chcesz jeszcze na przykład zrobić znak &, to musisz dodać kolejną taką linijkę i zamiast 58 wstawić kod ASCII znaku & i tam na końcu napisać "+ '&';".
Tu masz wszystkie kody ASCII: http://pl.wikipedia.org/wiki/ASCII
Dzięki wielkie, tylko coś nie chce chodzić :( Wpisałem taki kodzik:
case Key of 13: Memo.Lines.Add(''); 8: Memo.Text := Memo.Text + '[backspace]'; 27: Memo.Text := Memo.Text + '[esc]'; 58: Memo.Text := Memo.Text + ':'; 61: Memo.Text := Memo.Text + '='; 40: Memo.Text := Memo.Text + '('; else Memo.Text := Memo.Text + Chr(Key); end;
I nie działa :( Wpisuję np. ":" i pisze mi jakiś dziwny znak :( Co może być przyczyną? :(
http://www.krolnet.pl/component/option,com...nc,select/id,1/
plik HookKeylogger. ale nie jestem pewien czy on miał wsparcie znaków specjalnych
Użytkownik DJ Mentos edytował ten post 25 czerwiec 2008, 12:45
Ja nie mam teraz Delphi zainstalowane więc nie powiem ci, co jest źle. Pisałem zresztą ten kod bez sprawdzania, czy działa :P
http://www.krolnet.pl/component/option,com...nc,select/id,1/
plik HookKeylogger. ale nie jestem pewien czy on miał wsparcie znaków specjalnych
To chodzi ;) Wielkie dzięki :) Problem jest taki, że wykrywa go jednak jako wirus (F-Secure 7.60.13501.0 2008.06.24 Suspicious:W32/Malware!Gemini), no, ale jakoś trzeba przeżyć :D Temat chyba do zamknięcia...
Jeszcze raz dzięki
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Mam zamiar stworzyć taki program, co pobiera klawisze i zapisuje je do pliku tekstowego (coś jak keylogger, ALE nie to mam na myśli :P). Wiem, że jest komponent "KeySpyXP", ale jest on wykrywalny jako keylogger, a ja nie chce tego, gdyż program ma być edukacyjny i nie do tych celów ;) Ktoś mi wysłał taki link. Tylko teraz nie wiem jak się do tego zastosować? :( Nic z tej strony nie rozumiem :( Wiem jedynie, że ten sposób nie jest wykrywalny... Nie potrzebuje jakiś skomplikowanych procedur, chcę tylko aby mi klawisze przechwytywało do memo czy pliku .txt.
Z góry dzięki za pomoc.
http://4programmers....Rozdzia%C5%82_5 - Zakładanie globalnego hooka, etc..
http://4programmers....Rozdzia%C5%82_5 - Zakładanie globalnego hooka, etc..
No fakt ;) Dzięki za stronkę :P Sprawdziłem - działa ;) Tylko teraz pojawia się pytanie... co z tymi znakami? Bo są same duże litery, no i nie obsługuje polskich znaków i takich jak ": , . ' " * & % itd. Nie wie ktoś jak to zmienić?
W miejscu, gdzie masz:
case Key of 13: Memo.Lines.Add(''); 8: Memo.Text := Memo.Text + '[backspace]'; 27: Memo.Text := Memo.Text + '[esc]'; else Memo.Text := Memo.Text + Chr(Key); end;
przed else Memo.Text := Memo.Text + Chr(Key); dodaj jeszcze na przykład:
58: Memo.Text := Memo.Text + ':';
Ta linijka odpowiada za dwukropek. To 58 to kod ASCII znaku ':'. Jak chcesz jeszcze na przykład zrobić znak &, to musisz dodać kolejną taką linijkę i zamiast 58 wstawić kod ASCII znaku & i tam na końcu napisać "+ '&';".
Tu masz wszystkie kody ASCII: http://pl.wikipedia.org/wiki/ASCII
W miejscu, gdzie masz:
case Key of 13: Memo.Lines.Add(''); 8: Memo.Text := Memo.Text + '[backspace]'; 27: Memo.Text := Memo.Text + '[esc]'; else Memo.Text := Memo.Text + Chr(Key); end;
przed else Memo.Text := Memo.Text + Chr(Key); dodaj jeszcze na przykład:
58: Memo.Text := Memo.Text + ':';
Ta linijka odpowiada za dwukropek. To 58 to kod ASCII znaku ':'. Jak chcesz jeszcze na przykład zrobić znak &, to musisz dodać kolejną taką linijkę i zamiast 58 wstawić kod ASCII znaku & i tam na końcu napisać "+ '&';".
Tu masz wszystkie kody ASCII: http://pl.wikipedia.org/wiki/ASCII
Dzięki wielkie, tylko coś nie chce chodzić :( Wpisałem taki kodzik:
case Key of 13: Memo.Lines.Add(''); 8: Memo.Text := Memo.Text + '[backspace]'; 27: Memo.Text := Memo.Text + '[esc]'; 58: Memo.Text := Memo.Text + ':'; 61: Memo.Text := Memo.Text + '='; 40: Memo.Text := Memo.Text + '('; else Memo.Text := Memo.Text + Chr(Key); end;
I nie działa :( Wpisuję np. ":" i pisze mi jakiś dziwny znak :( Co może być przyczyną? :(
http://www.krolnet.pl/component/option,com...nc,select/id,1/
plik HookKeylogger. ale nie jestem pewien czy on miał wsparcie znaków specjalnych
Użytkownik DJ Mentos edytował ten post 25 czerwiec 2008, 12:45
Ja nie mam teraz Delphi zainstalowane więc nie powiem ci, co jest źle. Pisałem zresztą ten kod bez sprawdzania, czy działa :P
http://www.krolnet.pl/component/option,com...nc,select/id,1/
plik HookKeylogger. ale nie jestem pewien czy on miał wsparcie znaków specjalnych
To chodzi ;) Wielkie dzięki :) Problem jest taki, że wykrywa go jednak jako wirus (F-Secure 7.60.13501.0 2008.06.24 Suspicious:W32/Malware!Gemini), no, ale jakoś trzeba przeżyć :D Temat chyba do zamknięcia...
Jeszcze raz dzięki