:: |
Autor |
Poruka |
Doktor ~Sanjicino*slculence~
![~Sanjicino*slculence~ ~Sanjicino*slculence~](/images/ranks/stars_orange.gif)
![](images/avatars/1176565723449c4a8bc1d54.jpg) |
Godine: 38
Datum registracije: 17 Nov 2005 Poruke: 4264 Mesto: Novi Sad
![blank.gif](images/flags/blank.gif)
|
|
Ovaj kod vam omogućava da izvučete startnu komandu instaliranog mail-klijenta. Ova komanda se koristi kako bi se startovao mail klijent. Hakeri često koriste ovaj kod (integrisan u neki spy) da bi na kompjuteru-meti aktivirali mail klijent i „u pozadini“ slali povratne informacije o „žrtvi“ (ova rutina nije ovde prikazana niti će biti). Takodje upotreba ove rutine je velika jer je koristi mnogo programa kako bi vam automatizovali slanje nekih podataka na svoje servere ili gde je već to potrebno.
Ovaj kod koristi modul Registry koji morate dodati u Uses listu vaše aplikacije.
Code: |
uses
Registry;
function GetMailClientOpenCommand(AMailClient: string): string;
const
RegClientsRoot = '\SOFTWARE\Clients';
RegClientsMail = '\Mail';
RegClientsOpenCmd = '\shell\open\command';
var
reg: TRegistry;
begin
Result := '';
reg := TRegistry.Create;
try
with reg do
begin
CloseKey;
RootKey := HKEY_LOCAL_MACHINE;
if OpenKeyReadOnly(RegClientsroot + RegClientsMail +
'\' + AMailClient +
RegClientsOpenCmd) then
Result := reg.ReadString('');
end;
finally
if Assigned(reg) then reg.Free;
end;
end;
|
|
_________________ ~*~Vojim svoje srculence najvise na svetu ~*~ :322:
![](http://www.domaci.de/sanjica_021/doktor/banner.gif) |
|
|
|
![](templates/subDomaci/images/spacer.gif) |
|
|
Vi ne možete otvarati nove teme u ovom forumu Vi ne možete odgovarati na teme u ovom forumu Vi ne možete menjati Vaše poruke u ovom forumu Vi ne možete brisati Vaše poruke u ovom forumu Vi ne možete glasati u anketama u ovom forumu Vi ne možete postavljati fajlove u ovom forumu Vi ne možete preuzeti fajlove sa ovog foruma
|
|