Опрос
	Каким антивирусом вы пользуетесь? TrendMicro BitDefender NOD32 Kasperski Другой Microsoft DrWeb Avast Norton Avira Panda AVG Anti-Virus ZoneAlarm McAfee Не пользуюсь! Результаты \| Архив опросов Всего ответов: 784

Главная » Файлы » Delphi Исходники » PE файлы

Добавление своего кода в exe файлы

5.5 Kb	07.11.2009, 16:52
Исходник программы, показывающей пример добавления произвольного кода в бинарные файлы на примере добавления функции Beep в EXE файл (функция срабатывает при старте программы)
1 2 3 4 5 Категория: PE файлы \| Добавил: dolphin
Просмотров: 5150 \| Загрузок: 799 \| Комментарии: 5 \| Рейтинг: 2.3/3

Всего комментариев: 5
Порядок вывода комментариев: 0 Спам 5 MAS • 17:37, 17.08.2013 а как добавить мой код, например на запуск другого фаила хотябы, что бы я понял заражон файл или нет, не врубаюсь в ети внедрения я 0 Спам 4 dolphin • 14:24, 03.05.2011 Работоспособность кода примерно 90% 0 Спам 3 XDXDXD • 19:54, 23.04.2011 После испытаний на моём компе этого виря у мя полетел EXPLORER.EXE хотя я его не заражал так что несоветую испытывать его на своих компах 0 Спам 2 rotormega • 02:38, 21.05.2010 Code TSect = packed record Name: Array [0..7] of Byte; //Имя секции. S_VSiz: DWORD; //Виртуальный размер. S_RVA: DWORD; //Виртувльное смещение. S_FSiz: DWORD; //Размер в файле. S_FOfs: DWORD; //Смещение в файле. S_Res: Array [0..11] of Byte; //Не используем. S_Flag: DWORD; //Флаг секции. end; Code NewSect.Name[0]:= ord('.'); NewSect.Name[1]:= ord('N'); NewSect.Name[2]:= ord('e'); NewSect.Name[3]:= ord('w'); //Имя секции (произвольное). NewSect.Name[4]:= ord('S'); NewSect.Name[5]:= ord('e'); NewSect.Name[6]:= ord('c'); NewSect.Name[7]:= ord('t'); Решение для CodeGear2009 -1 Спам 1 rotormega • 01:46, 21.05.2010 у меня проблема, при компиляции кода в кодегеаре2009 подопытный файл перестает работать, однака при компиляции 7 все куль робит. форточка седьмая. Спс огр автору. помогло контролить юзверей, а то раньше они умудрялись закрывать процесс другой проги, а тут они никак сообразить не могут, в нокауте сразу и обойти еще долго не смогут.

Профиль

Поиск

Наша кнопка

Статистика
	Статистика материалов Файлов: 457 Форум: 1165/8118 Коментариев: 770 Новостей: 29 Статистика пользователей Всего: 379 За неделю: 1 Вчера: 0 Сегодня: 0 Всего онлайн: 1 Гостей: 1 Пользователей: 0