Проблемы с delphi 7

[bestful]

Три дня назад мы поспорили с другом кто создаст сильнее вирус backdoor.
Дан срок неделя.Я должен сделать вирус backdoor который не палится.
Сперва я скачал программу hidden administrator сервер и pe explorer.Закриптовал эту программу и изменил entry point так что сперва находило из 40 антивирусов половина а закриптованый и где поменяна точка нашло только 2 и тем более не самых популярных.
Когда уже была готова первая часть я начал раздумывать.Где то наверно в реестре есть адрес где запускается explorer.exe.Порылся немножко и нашёл такой адрес.Далее я придумал подменить такой адрес и добавить туда вирус который запускает explorer.exe и оболочку вируса.
Далее я скачал neobook и пытался сделать программу. Сперва я создал защитную оболочку вируса который запускает 4 копии и сканирует свои процессы.Если одного нет то он пишет ошибку и перегружает винду.
Далее я скопировал свой проэкт и добавил туда ha server и его файлы и вирус protect.Когда я всё скомпилировал я был удивлён.Мой вирус который запускает explorer.exe и оболочку вируса в скрытом режиме процес вируса запустился но не исполняет команды.Я был очень огорчён. и тем более я его случайно удалил
Далее я вспомнил что где то у меня притаилась старая delphi 7.Но я нечего не знал , кроме что program это имя программы и uses используют модуль и что программа начинается на begin и заканчивается на end.Но под моей рукой был интернет
И на конец я решил не огорчатся и попытаться создать это на дельфи.
Я начал сперва разрабатывать вирус protect.
Сперва я внедрил туда procedure перезагрузки и в uses добавил windows tlhelp32 shellapi psapi.Далее мне нужна функция проверки процесса и искал и гуглил и вот что нашел - find window- не подходит - какой то код - не для моей дельфи и наконец в одном форуме надыбал один код.Но только он проверяет имя процесса а не его путь.
И вот я хотел задать вот такие вопроссы
1. Можно ли изменить вот этот код

program protect ;


uses
  TlHelp32,Windows, ShellAPI;

function GetProcessByEXE(exename: string): THandle;
var
  hSnapshoot: THandle;
  pe32: TProcessEntry32;
begin
  Result:= 0;
  hSnapshoot:= CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if (hSnapshoot = 0) then Exit;
  pe32.dwSize:= SizeOf(TProcessEntry32);
  if (Process32First(hSnapshoot, pe32)) then
    repeat
      if (pe32.szExeFile = exename) then
      begin
        Result:= pe32.th32ProcessID;
        exit;
      end;
    until not Process32Next(hSnapshoot, pe32);
end;


begin
  if GetProcessByEXE('explorer.exe') = 0 then
    WinExec( 'explorer.exe', SW_HIDE );


end.

чтобы искало не по имени процесса а по пути и чтобы функция проверки выгляделя так

  if GetProcessByEXE('C:\WINDOWS\explorer.exe') = 0 then
    WinExec( 'explorer.exe', SW_HIDE );

2.Возможны ли вложения в программу.Если да то как из запустить.
3.Как скачивать файл чтобы вирус НЕ ПАЛИЛ.
4.Возможно ли как нибудь усоверешенствовать вирус.
Пожалуйста модераторы не удаляйте и не закрывайте тему так как я не распространяю вирусы я просто спрашиваю у людей помощь в разработке программы.
И пожалуйста не пишите подобное поищи в гугл
и не критикуйте меня мне всего лишь 13 лет.
Всем спасибо.

[Stilet]

а по пути

Нет. Этот способ меньше всего подходит для получения полного пути запушенного процесса.

я не распространяю вирусы я просто спрашиваю

P.S. Вообще-то у нас не принято обсуждать вирусологию. Сначала ты учишся изобретать а потом бац... Новый Опенгеймер появился...

[bestful]

Сообщение от Stilet

Нет. Этот способ меньше всего подходит для получения полного пути запушенного процесса.

P.S. Вообще-то у нас не принято обсуждать вирусологию. Сначала ты учишся изобретать а потом бац... Новый Опенгеймер появился...

Слушай а ты можешь мне помочь изменить этот код

[SERG1980]

Есть такое пример в статьях DelphiWorld

[Stilet]

bestful

Нет. Я не собираюсь помогать еще одному новоиспеченному ломателю.

[bestful]

Сообщение от SERG1980

Есть такое пример в статьях DelphiWorld

Так дай ссылку (если определяется процесс по пути)

[bestful]

А кстате на delphiworld статья с кодом не работает (выдаёт какие то ошибки)

[bestful]

Чо все молчат?

[Kotofff]

Кнопка "Правка" - чудная вещь такая для того и придуманная чтобы не превращать форум в чат с самим собой !!!

[vovk]

Сообщение от bestful

Чо все молчат?

Наверное "Всем" не интерестно обсуждать с вами тему "хочу чтото сломать, но не знаю как- дайте мне код"