Noi scriem un keylogger pe Delphi 7

Descriere: funcția GetAsyncKeyState (Cheie: Integer): Integer;
Determină starea cheii virtuale.
Parametri: Cheie: Codul cheii virtuale.
Valoarea returnată: Dacă este setat cel mai vechi octet, este apăsată tasta Cheie și, dacă este mai mică, tasta Key a fost apăsată după apelul anterior al funcției.







De asemenea, avem nevoie de funcția GetForegroundWindow - returnează descriptorul ferestrei de prioritate (fereastra cu care utilizatorul lucrează în prezent). Sistemul atribuie o prioritate puțin mai mare firului care creează fereastra de prioritate decât cea pe care o acordă altor fire.

Cred că acest lucru este suficient pentru o înțelegere de bază a modului în care vom implementa întregul lucru. Să trecem la crearea formularului și scrierea codului.

Să începem în ordine: deschide rezerva Delphi în avans proiectul nostru, du-te la tratare a evenimentului a filei Evenimente formular și pentru a găsi eveniment OnShow clic de două ori pe butonul din stânga al mouse-ului pe eveniment și scrie codul.

Apoi, dăm clic pe evenimentul OnCreate, acest eveniment este sunat când programul este deschis, în care scriem următoarele.

De asemenea, nu uitați după această comandă în utilizarea proiectului pentru a adăuga RegisTry și, de asemenea, adăugați în prealabil și ShellApi va veni la îndemână în viitor.

Ne întoarcem acum la cele mai interesante și Kinema pe formularul Memo nostru din fila Componente Standart al cărui nume va fi creat automat Memo1 precum și cu aceeași filă Kinema sub forma a două BUTTON1 și Button2 numele componentelor Butonul trece în tab-ul și componentele sistemului Kinema sub forma a două componente temporizator cu numele Timer1 și Timer2 și vom arunca ultima componentă a etichetei din fila componentelor Standart numite Label1 și acum este deja posibil să începeți scrierea codului.







Selectăm componenta Timer1 pe formularul și în fila Proprietăți Object Inspector expune interval de acolo costă 1000 (de exemplu, 1 secundă) și vom pune 1, și accesibilitate Enabled automat acolo expuse adevărat și se lasă, du-te acum în fila Evenimente, iar apoi există doar un singur eveniment OnTimer , faceți clic pe el de două ori cu butonul stâng al mouse-ului și scrieți codul.

De fapt, am implementat apăsările de la tastatură, acum trebuie să facem evenimentul atunci când apăsăm tastele, pentru că avem nevoie de un al doilea cronometru. Faceți clic pe formularul de pe componenta Timer2 și configurați-l la fel ca primul cronometru, setați intervalul la 1, faceți clic pe evenimentul OnTimer și scrieți codul.

Evenimente pentru butoane, am făcut-o, iar acum există încă un pic pe forma unui dublu clic pe butonul stâng al mouse-ului pe componente Button2 si ne deschide automat butonul evenimentului OnClick, apoi scrie cod pentru a procesa de ieșire, în prezent în centrul atenției.

Există o atingere finală: trebuie să scriem textul scris din Memo1 într-un document text, pe care îl implementăm acum, pe formularul pe care îl dăm clic pe componenta Button1, pe evenimentul OnClick și scriind codul.

Asta este de fapt tot ce am implementat o interceptare globală a tastaturii, este absolut impermeabil la vrăji de orice software antivirus, cu toate acestea, după cum vom vedea, de captare numai într-o configurație de tastatură rusă, dar este mult mai bine decât folosind un dll care apucă gâtul fiecărui antivirus.

Îmi exprim mulțumirea față de administratorii acestei resurse pentru posibilitatea de a împărtăși experiența și cunoștințele lor în acest domeniu și, de asemenea, doresc să le mulțumesc tuturor oamenilor dragi și dragi pentru înțelegerea lor.







Trimiteți-le prietenilor: