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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Перехват API 
:(
    Опции темы
<Spawn>
Дата 11.6.2003, 17:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Око кары:)
****


Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64



Ну тогда не знаю) Остается один выход - детально изучить заголовок файла и пытаться, пытаться, пытаться...


--------------------
"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.
PM MAIL ICQ   Вверх
<Spawn>
Дата 11.6.2003, 17:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Око кары:)
****


Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64



Вот, кстати, как это реализуется на Си, в одной похожей рабочей проге -

Код
void SocketHookSet::install()
{
   DWORD oldProtect;

   DWORD image_base = (DWORD)GetModuleHandle(NULL);
   IMAGE_DOS_HEADER *idh = (IMAGE_DOS_HEADER *)image_base;
   IMAGE_FILE_HEADER *ifh = (IMAGE_FILE_HEADER *)(image_base +
       idh->e_lfanew + sizeof(DWORD));
   IMAGE_OPTIONAL_HEADER *ioh = (IMAGE_OPTIONAL_HEADER *)((DWORD)(ifh) +
       sizeof(IMAGE_FILE_HEADER));
   IMAGE_IMPORT_DESCRIPTOR *iid = (IMAGE_IMPORT_DESCRIPTOR *)(image_base +
       ioh->DataDirectory[IMAGE_DIRECTORY_ENTRY_IMPORT].VirtualAddress);

   VirtualProtect((LPVOID)(image_base +
       ioh->DataDirectory[IMAGE_DIRECTORY_ENTRY_IAT].VirtualAddress),
       ioh->DataDirectory[IMAGE_DIRECTORY_ENTRY_IAT].Size, PAGE_READWRITE,
       &oldProtect);

   while(iid->Name)
   {
       for(ImportDescriptorHook * dhook = desc_hooks; dhook->name != 0; dhook++)
           if(stricmp(dhook->name, (char *)(image_base + iid->Name)) == 0)
           {
               //trace_printf("Found descriptor: %s\n", dhook->name);
               IMAGE_THUNK_DATA * pThunk = (IMAGE_THUNK_DATA *)
                   ((DWORD)iid->OriginalFirstThunk + image_base);
               IMAGE_THUNK_DATA * pThunk2 = (IMAGE_THUNK_DATA *)
                   ((DWORD)iid->FirstThunk + image_base);
               while(pThunk->u1.AddressOfData)
               {
                   char * name = 0;
                   int ordinal;
                   // Imported by ordinal only:
                   if(pThunk->u1.Ordinal & 0x80000000)
                       ordinal = pThunk->u1.Ordinal & 0xffff;
                   else    // Imported by name, with ordinal hint
                   {
                       IMAGE_IMPORT_BY_NAME * pname = (IMAGE_IMPORT_BY_NAME *)
                           ((DWORD)pThunk->u1.AddressOfData + image_base);
                       ordinal = pname->Hint;
                       name = (char *)pname->Name;
                   }
                   for(ImportEntryHook * ehook = dhook->entries; ehook->name != 0; ehook++)
                   {
                       if(name != 0 && strcmp(name, ehook->name) == 0)
                       {
                           //trace_printf("Found entry name: %s\n", ehook->name);
                           pThunk2->u1.Function = (PDWORD)ehook->hook_func;
                       }
                       else if(ordinal == ehook->ordinal)
                       {
                           //trace_printf("Found entry ordinal: %s\n", ehook->name);
                           pThunk2->u1.Function = (PDWORD)ehook->hook_func;
                       }
                   }
                   pThunk++;
                   pThunk2++;
               }
           }
       iid++;
   }
}



--------------------
"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.
PM MAIL ICQ   Вверх
<Spawn>
Дата 8.7.2003, 21:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Око кары:)
****


Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64



Все дело было в том, что при подключении к чужому процессу я указывал в роли hInstance стандартную переменную, а нужно было сделать GetModuleHandle(nil) ))))


--------------------
"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

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

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

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


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

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


 




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


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

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