Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Запустить программу вторым потоком под Windows 7, одна программа запускает другую  
:(
    Опции темы
ConstantinXXX
Дата 15.7.2011, 17:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 246
Регистрация: 27.5.2006
Где: U.S.A. :-)

Репутация: нет
Всего: 0



Всем доброго времени суток ))

надо запустить один исполняемый файл exe внутри другой программы вторым потоком. Сразу напешу это надо не для троянов и т.п., надо в своей программе запустить вторым потоком свою же программу. Это надо для разработки программы протектора. Дело в том, что для XP и Vista программу написал, но для Windows 7 тот же код не работает. :( это наверное связано с защитой внедренной с семеркой.

привожу кусок кода:

Код

    ZeroMemory(@InfoStart, SizeOf(StartupInfo));
    ZeroMemory(@CText, SizeOf(TContext));

    CreateProcess(nil, pchar(ParamStr(0)), nil, nil, False, CREATE_SUSPENDED, nil, nil, InfoStart, InfoProc);
    CText.ContextFlags := Context_FULL;
    GetThreadContext(InfoProc.hThread, CText);

    ReadProcessMemory(InfoProc.hProcess, pointer(CText.Ebx + 8), @AddressBase, 4, BytesCode);
    VirtualAllocEx(InfoProc.hProcess, pointer(HeaderImage.OptionalHeader.ImageBase), SizeInject, MEM_RESERVE or MEM_COMMIT, PAGE_EXECUTE_READWRITE);

    WriteProcessMemory(InfoProc.hProcess, pointer(HeaderImage.OptionalHeader.ImageBase), MemoryInject, SizeInject, BytesCode);
    WriteProcessMemory(InfoProc.hProcess, pointer(CText.Ebx + 8), @HeaderImage.OptionalHeader.ImageBase, 4, BytesCode);
    CText.Eax := HeaderImage.OptionalHeader.ImageBase + HeaderImage.OptionalHeader.AddressOfEntryPoint;
    SetThreadContext(InfoProc.hThread, CText);

// вот эта функция походу не поддерживается семеркой (вернее не совместима с ней):
    ResumeThread(InfoProc.hThread);


может кто знает что можно сделать? 
--------------------
Как вы относитесь к девушкам, которые курят сигареты?Как не ослепнуть за компьютером© ORENCODE.info
PM MAIL WWW   Вверх
Snowy
Дата 15.7.2011, 19:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484



Ну раз обе программы свои, то можно создать во второй отдельную функцию для запуска и экспортировать ее.
А в первой программе подключить вторую, как dll, создать отдельный тред и запустить в нем на выполнение стартовую функцию.
PM MAIL   Вверх
ConstantinXXX
Дата 15.7.2011, 22:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 246
Регистрация: 27.5.2006
Где: U.S.A. :-)

Репутация: нет
Всего: 0



вторая программа зашифрована, она расшифровывается первой программой и по идеи должна запуститься вторым потоком в первой же программе... Тут возникает проблема в том, что до расшифровки запустить стартовую функцию не получиться. :( 
--------------------
Как вы относитесь к девушкам, которые курят сигареты?Как не ослепнуть за компьютером© ORENCODE.info
PM MAIL WWW   Вверх
Snowy
Дата 15.7.2011, 23:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484



Можно расшифровать в память и подключить уже из памяти.
Где-то на форуме пробегали решения, как подключить dll из памяти.
Вот тут есть класс TFakeDll. Там уже все реализовано. Нужно только предварительно расшифровать файл в память.
PM MAIL   Вверх
ConstantinXXX
Дата 16.7.2011, 14:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 246
Регистрация: 27.5.2006
Где: U.S.A. :-)

Репутация: нет
Всего: 0



Snowy, спасибо большое smile посмотрел, правда не понял как запустить программу когда подключаешь её как dll. По идеи стартовой функцией в программе должна быть TForm1.FormCreate? И еще небольшая проблема в том, что моя программа (которую подключаю как dll) будет в конечном результате накрыта другим протектором и скорее всего там нельзя будет найти начальную функцию по имени, может есть какие то идет? )) 

вообще я использую последний протектор сделанный на базе вот этого: http://www.delphibasics.info/home/delphiba...encrypterbyp0ke

это как бы и есть первая программа в которую засовываю другую. Проблема, что он не работает на windows 7 :( 

нашел обсуждение этой проблемы на одном забугорном форуме http://www.opensc.ws/delphi-help/13352-hel...sumethread.html

они там пишут, что это из - за того, что win 7 x 64 и упоминается ссылка на якобы решение проблемы вот эта:  http://www.delphibasics.info/home/delphiba...in7x64bytestest

только вот я не совсем понял как это можно использовать... :( 
--------------------
Как вы относитесь к девушкам, которые курят сигареты?Как не ослепнуть за компьютером© ORENCODE.info
PM MAIL WWW   Вверх
Snowy
Дата 18.7.2011, 10:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484



Стартовую функцию ты должен написать сам и проэкспортировать ее.
В качестве содержимого можно тупо скопировать из dpr.
Чем она там закрыта - не важно. Секцию экспорта шифровать никто не станет.
Да и вообще лучше переделать ее в dll - напрямую все равно запускать никто не будет.
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »


 




[ Время генерации скрипта: 0.0799 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.