Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Если пример как на D6 записать свой код в PE-EXE файл [D6, D7, Win95/98, WinME, NT4, Win2k, WinXP]


Scained ©   (2005-01-14 18:32:00) 

СРАЗУ СКАЖУ НЕ ДЛЯ ВИРУСОВ!

Сам ассемблер плохо знаю хотя есть исходники
ну я там что-то понимаю что-то не понимаю

КТО НЕ БУДЬ ЭТИМ ЗАНИМАЛСЯ!
ПОДСКАЖИТЕ ЧТО И КАК!
ИЛИ ИСХОДНИК СКИНЬТЕ (Хотябы не доделаный)

ВОТ ДЕЛАЮ ПРОГУ ДЛЯ ЗАЩИТЫ OC ТИПА WinLock! но мощнее!

ЕСЛИ НАДО БУДЕТ МОГУ ИСХО... СКИНУТЬ!


panov   (2005-01-14 19:28:00) [1]

>Scained ©   (14.01.05 18:32)
На сякий случай почитай правила.


Kerk   (2005-01-14 19:25:00) [2]

Scained ©   (14.01.05 18:32)
писать такие вирусы на делфи - это извращение для полоумных. или ищи другое решение или пиши на асме.


Scained   (2005-01-14 19:16:00) [3]

Зачем ассемблер?
Без ассемблера никак нельзя писать в файлы?

ПРОСТО Я СМОТРЕЛ КАК ЭТО ДЕЛАЮТ ВИРУСЫ
Например Win95cih А там я плохо понил!
И ЕСЛИ ЕСТЬ НА ДЕЛЬФИЙ МОЖНО ПОЖАЛУСТА!

ВСЕ ЭТО ДЛЯ МОЕЙ ПРОГИ! ADMIN >>> Аналог WinLock и даже больше!


Anatoly Podgoretsky   (2005-01-14 19:00:00) [4]

Scained ©   (14.01.05 18:32)  
Зачем ассемблер?
Без ассемблера никак нельзя писать в файлы?


Scained   (2005-01-14 18:48:00) [5]

записать точно так же как что-нибудь другое в любой другой файл

НЕ ЧТО-ТО НЕ ТО!
МНЕ НАДО СВОЮ ПРОГУ ЗАПИСАТЬ ТАКИМ ОБРАЗОМ
ЧТО БЫ ОН В НУТРИ ДРУГОГО НАХОДИЛСЯ
НАПРИМЕР В EXPLORER.EXE!

Я СОЗДАЛ ТАКОЙ МОДУЛЬ ДУМАЮ ОН ОТКРОЙТ ДВЕРЬ! ЧТО Я ХОЧУ!

{Открытия (PE) файла}
Function OpenPeFile(FileName:STRING):BOOL;
{Чтение заголовка файла (DOS+PE)}
Procedure ReadHdr;
{Запись заголовка файла (DOS+PE)}
Procedure WriteHdr;
{Проверка секций + переход на секцию}
Function  IsSection(Section:String):Bool;
{Чтение секций}
Function  ReadSection(Section:Byte):Bool;
{Запись секций}
Function  WriteSection(Section:Byte):Bool;
{Закрытия (PE) файла}
Procedure ClosePeFile;


Kerk   (2005-01-14 18:33:00) [6]

записать точно так же как что-нибудь другое в любой другой файл


Наверх

Титульная страница Поиск, карта сайта Написать письмо