Требуется организовать просмотр входящих пакетов рфки. Язык - делфи.
Снимаю хуки фрост-протектора (frostprotector.dll).
Внедряю свою либу вот такой функцией:

PHP код:

function LoadLibrary_Ex(ProcessID:DWORD;LibName:PChar):boolean;
var
  pLL,pDLLPath:Pointer;
  hProcess,hThr:THandle;
  LibPathLen,_WR,ThrID:DWORD;
begin
  Result:=False;
  LibPathLen:=Length(string(LibName));
  hProcess:=OpenProcess(PROCESS_ALL_ACCESS,false,ProcessID);
  if hProcess=0 then exit;
  pDLLPath:=VirtualAllocEx(hProcess,0,LibPathLen+1,MEM_COMMIT,PAGE_READWRITE);
  if DWORD(pDLLPath)=0 then exit;
  pLL:=GetProcAddress(GetModuleHandle(kernel32),'LoadLibraryA');
  WriteProcessMemory(hProcess,pDLLPath,LibName,LibPathLen+1,_WR);
  hThr:=CreateRemoteThread(hProcess,0,0,pLL,pDLLPath,0,ThrID);
  if hThr=0 then exit;
  Result:=CloseHandle(hProcess);
end; 


Подгружается либа, далее ставлю хук:

PHP код:

@recvNextHook:=GetProcAddress(GetModuleHandle('gameShieldDll.dll'), 'frostRecv');
SetCodeHook(@recvNextHook, @mioRecv, RestoreDATA); 


Хукаю вот таким сплайсингом, который у меня работает в других приложениях:

PHP код:

function SetCodeHook(ProcAddress, NewProcAddress: pointer; RestoreDATA:pointer):boolean;
var
  OldProtect, JMPValue:DWORD;
begin
  Result:=False;
  if not VirtualProtect(ProcAddress,5,PAGE_EXECUTE_READWRITE,OldProtect) then exit;
  JMPValue := DWORD(NewProcAddress) - DWORD(ProcAddress) - 5;
  val1:= Byte(ProcAddress^);
  val2:= DWORD(Pointer(DWORD(ProcAddress)+1)^);
  Address:=ProcAddress;
  byte(ProcAddress^):=$E9;
  DWORD(Pointer(DWORD(ProcAddress)+1)^):=JMPValue;
  Result:=VirtualProtect(ProcAddress,5,OldProtect,OldProtect);
end; 


Перенаправляю на обработчик, который имеет такой вид:

PHP код:

function mioRecv (s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;
begin
// какой-то код, записываю содержимое в txt файл
 result:= RecvNextHook (s, Buf, len, flags); // вызов оригинальной функции
end; 


При установке хука рфка падает, выводит ошибку "Программа RFOnline.bin не работает" и закрывается.

Пробовал перед установкой хука делать SuspendThread всем потокам рфки, а потом размораживать, результат тот же.


Я нуб в этом деле, люди знающие, подскажите, как решить задачу.

ап темы