Из С+ в Delphi, Требуется небольшая помощь

Нам нужно найти в памяти kernelbase.dll, просканировать таблицу импорта, найти адрес импортируемой функции CsrClientCallServer и подменить его новым указателем на заранее подготовленную функцию CsrClientCallServer, которая всегда будет возвращать «успех».

Натисніть, щоб розгорнути...

ULONG NewCsrClientCallServer(PVOID Arg1, PVOID Arg2, ULONG Arg3, ULONG Arg4)
{
       *( DWORD *)(( BYTE *)Arg1 + 0x20 ) = 0;
       return 0; 
}

...
DWORD ImportAddress, OriginalCsrClientCallServer, OldProtect;
  ImportAddress = GetImportAddressFromIat(GetModuleHandle("kernelbase.dll"), "CsrClientCallServer");
  VirtualProtect(( VOID *) ImportAddress, sizeof(DWORD), PAGE_EXECUTE_READWRITE, &OldProtect);
  OriginalCsrClientCallServer = *(DWORD*)ImportAddress;
  *(DWORD*)ImportAddress=(DWORD)NewCsrClientCallServer;
...

mikepit81 сказав(ла):

которая всегда будет возвращать «успех».

Код:Копіювати в буфер обміну

       return 0;

Натисніть, щоб розгорнути...

зачем тебе нужно перехватывать CsrClientCallServer? трояна чтоли на Delphi пишешь?

Натисніть, щоб розгорнути...

mikepit81 сказав(ла):

Я хочу таким способом проинжектиться к процессу в windows 7. А это цитаты с статьи, которую я нашел.

Натисніть, щоб розгорнути...

Klez сказав(ла):

Это как лечить зуб через задницу, с помощью отбойного молотка.

Для указанной задачи есть OpenProcess/VirtualAllocEx/WriteProcessMemory/CreateRemoteThread, есть хуки, и еще дохуя разных способов. Но такого извращенного я еще не встречал

Ты в курсе что параметры функции которую ты пытаешься перехватить зависят даже от билда операционной системы?

Натисніть, щоб розгорнути...

caballero сказав(ла):

тогда уж cbuilder бери - как минимум родной для таких штук С++

Натисніть, щоб розгорнути...

mikepit81 сказав(ла):

К сожалению те функции, которые были описаны не подходят для решения данной задачи, т.к. они не работают в висте и семерке (точнее работают, но функция "CsrClientCallServer" проверяет процесс чужой или свой. и если процесс чужой - то инжекта не происходит. можно инжектиться только в свой процесс с помощью этих функций). А про параметры функции - это уже отдельный разговор, который не представляет никакой проблемы.


пока это самый лучший предложенный вариант

Натисніть, щоб розгорнути...

mikepit81 сказав(ла):

К сожалению те функции, которые были описаны не подходят для решения данной задачи, т.к. они не работают в висте и семерке

Натисніть, щоб розгорнути...

mikepit81 сказав(ла):

спасибо, посмотрю

Натисніть, щоб розгорнути...