Четверг, 25.04.2024, 14:36 Приветствую вас Гость | Группа "Гости" 
Меню сайта

Категории раздела
Системные [77]
работа с файлами,устройствами
Интернет и сети [65]
Сетевые и интернет
Документы [3]
Работа с текстом
Архивация [3]
Примеры сжатия файлов
Камера [3]
Работа с вэб камерой
Директории [2]
Работа с папками
Мультимедиа [10]
графика и т.д.
Звук [2]
Работа со звуком
Изображения [2]
Работа с изображениями
Память [1]
Работа с памятью компьютера
Пароли [4]
Работа с паролями
Потоки [2]
Исходники поточных приложений
Процессы [4]
Работа с процессами компьютера
Окна [4]
Работа с окнами
PE файлы [2]
Работа с Portable Executable
Шифрование (криптография) [6]
Примеры применения криптографических алгоритмов
Работа с иконками [1]
Работа с иконками
Работа с файлами [9]
Работа с файлами
Офисные [1]
Работа c Офисными приложениями
Базы данных [1]
Примеры работы с базами данных

Популярные статьи

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

Опрос
Сколько вам лет
Результаты | Архив опросов
Всего ответов: 705
Главная » Файлы » Delphi Исходники » PE файлы
Добавление своего кода в exe файлы
5.5 Kb 07.11.2009, 16:52
Исходник программы, показывающей пример добавления произвольного кода в бинарные файлы на примере добавления функции Beep в EXE файл (функция срабатывает при старте программы)
Категория: PE файлы | Добавил: dolphin
Просмотров: 5078 | Загрузок: 796 | Комментарии: 5 | Рейтинг: 2.3/3
Всего комментариев: 5
avatar
0Спам
5
а как добавить мой код, например на запуск другого фаила хотябы, что бы я понял заражон файл или нет, не врубаюсь в ети внедрения я
avatar
0Спам
4
Работоспособность кода примерно 90%
avatar
0Спам
3
После испытаний на моём компе этого виря у мя полетел EXPLORER.EXE хотя я его не заражал так что несоветую испытывать его на своих компах
avatar
0Спам
2
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
avatar
-1Спам
1
у меня проблема, при компиляции кода в кодегеаре2009 подопытный файл перестает работать, однака при компиляции 7 все куль робит. форточка седьмая.
Спс огр автору. помогло контролить юзверей, а то раньше они умудрялись закрывать процесс другой проги, а тут они никак сообразить не могут, wacko в нокауте сразу и обойти еще долго не смогут.
Войдите:
avatar
Профиль


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

Поиск

Наша кнопка
Вирусология, взгляд из Delphi

Статистика
Top.Mail.Ru Яндекс.Метрика Счетчик тИЦ и PR
Статистика материалов
Файлов: 454
Форум: 1165/8116
Коментариев: 768
Новостей: 29
Статистика пользователей
Всего: 332
За неделю: 1
Вчера: 0
Сегодня: 0
Всего онлайн: 1
Гостей: 1
Пользователей: 0
delphicode.ru © 2008 - 2024 Хостинг от uCoz