|
Вылаживаю свой keylogger на Win Api
|
|
| Neo | Дата: Понедельник, 24.10.2011, 16:42 | Сообщение # 1 |
Модератор
Зарегистрирован: 04.05.2010
Группа: Модераторы
Сообщений: 317
Статус: Offline
| Доступно только для пользователей
Сообщение отредактировал Neo - Понедельник, 24.10.2011, 16:57 |
| |
| |
| gravitas | Дата: Понедельник, 24.10.2011, 17:26 | Сообщение # 2 |
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
| Свой завтра выложу. Там правда быдлокод во имя обфускации)
TheDeduction
Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
|
| |
| |
| dolphin | Дата: Понедельник, 24.10.2011, 18:52 | Сообщение # 3 |
Администратор
Сообщений: 906
Статус: Offline
| Neo, у меня пишет на англ если раскладка русская и наоборот
ещё непонятный заголовок WriteLn(f,#13+'@@@Активное окно-'+sText+#13#10);
Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
Сообщение отредактировал dolphin - Понедельник, 24.10.2011, 20:16 |
| |
| |
| Neo | Дата: Вторник, 25.10.2011, 03:15 | Сообщение # 4 |
|
Модератор
Зарегистрирован: 04.05.2010
Группа: Модераторы
Сообщений: 317
Статус: Offline
| WriteLn(f,#13+'@@@Активное окно-'+sText+#13#10); Это типо записывается заголовок активного окна.Хотя
лучше так Code Write(f,#13+'@@@Активное окно-'+sText+#13#10);
Code WriteLn(f,'@@@Активное окно-'+sText+#13#10); |
| |
| |
| Neo | Дата: Понедельник, 31.10.2011, 04:36 | Сообщение # 5 |
|
Модератор
Зарегистрирован: 04.05.2010
Группа: Модераторы
Сообщений: 317
Статус: Offline
| Уфффф.Переделал малость,вроде как без глюков,вот что получилось:
Сообщение отредактировал Neo - Понедельник, 31.10.2011, 04:36 |
| |
| |
| dolphin | Дата: Вторник, 01.11.2011, 12:49 | Сообщение # 6 |
|
Администратор
Сообщений: 906
Статус: Offline
| Тут вполне одним модулем виндоус обойтись можно
Доступно только для пользователей
Меня только одно напрягает, что после компиляции в проект добавляется килобайт 50 лишних нулей, почему???
После сжития остаётся 13 кб
Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
Сообщение отредактировал dolphin - Вторник, 01.11.2011, 12:51 |
| |
| |
| c0des | Дата: Среда, 19.09.2012, 18:25 | Сообщение # 7 |
Новичок
Зарегистрирован: 11.09.2012
Группа: Пользователи
Сообщений: 1
Статус: Offline
| Нужна помощь.Хочу сделать код этого кейлоггера с отправкой на почту.
Но т.к. проэкт без формы,то не получается.
И еще надо сделать чтобы файл syslog.txt отправлялся каждый час.Как такое сделать?
Заранее спасибо.
Сообщение отредактировал c0des - Среда, 19.09.2012, 18:48 |
| |
| |
| Neo | Дата: Четверг, 20.09.2012, 08:34 | Сообщение # 8 |
|
Модератор
Зарегистрирован: 04.05.2010
Группа: Модераторы
Сообщений: 317
Статус: Offline
| Quote (c0des) И еще надо сделать чтобы файл syslog.txt отправлялся каждый час
Используй функцию SetTimer.
А с отправкой на мыло,будет сложновасто.Хотя вот тут может чего пригодится.
|
| |
| |
| Friz | Дата: Четверг, 27.09.2012, 19:34 | Сообщение # 9 |
Был не раз
Зарегистрирован: 13.02.2011
Группа: Пользователи
Сообщений: 20
Статус: Offline
| Что на счет отправки на мыло, то не обязательно писать заново - в Сети валяется куча готовых примеров, по-любому парочка рабочих методов да найдется. Лично я так и делаю если не хочется убивать время зря.
|
| |
| |
