Радар своими руками

[xkor]

Fertis, ок, вот так хукаю функцию UNetworkHandler::AddNetworkQueue

HookProc('engine.dll','?AddNetworkQueue@UNetworkHandler@@UAEHPAUNetworkPacket@@@Z',
           @UNetworkHandler_AddNetworkQueue_Hook,@UNetworkHandler_AddNetworkQueue_Original);

в результате при вызове клиентом AddNetworkQueue сначала вызывается моя UNetworkHandler_AddNetworkQueue_Hook:

procedure UNetworkHandler_AddNetworkQueue_Hook(NetworkPacket: Pointer); stdcall;
asm
  push    ecx
  push    [ebp+8]
  push    ecx
  call    UNetworkHandler_AddNetworkQueue_New
  pop     ecx
end;

которая собсно всего лишь прослойка к полноценной функции UNetworkHandler_AddNetworkQueue_New:

procedure UNetworkHandler_AddNetworkQueue_New(unh: Integer; np: PNetworkPacket); stdcall;
begin
  // тут код для логирования того что пришло в функцию

  // сохраняем указатель на объект UNetworkHandler
  nh:=Pointer(unh);

  // Вызываем клиентскую UNetworkHandler::AddNetworkQueue
  UNetworkHandler_AddNetworkQueue_Call(np);
end;

ну просто для импорта достаточно засунуть в UNetworkHandler_AddNetworkQueue_Original указатель на UNetworkHandler::AddNetworkQueue и вызвать UNetworkHandler_AddNetworkQueue_Call, короче примерно так:

var
  nh: Pointer; // <-- в эту переменную надо засунуть указатель на объект UNetworkHandler
  UNetworkHandler_AddNetworkQueue_Original: procedure(NetworkPacket: Pointer); stdcall;

procedure UNetworkHandler_AddNetworkQueue_Call(NetworkPacket: Pointer); stdcall;
asm
    mov     ecx, nh
    mov     esp, ebp
    pop     ebp
    jmp     [UNetworkHandler_AddNetworkQueue_Original]
end;

begin
  UNetworkHandler_AddNetworkQueue_Original:=GetProcAddress('engine.dll','?AddNetworkQueue@UNetworkHandler@@UAEHPAUNetworkPacket@@@Z');
  
  // вызываем импортированную функцию
  UNetworkHandler_AddNetworkQueue_Call(параметр);
end.

Добавлено через 4 минуты
UNetworkHandler_AddNetworkQueue_Hook и UNetworkHandler_AddNetworkQueue_Call прослойки нужные для того чтоб перейти от thiscall к stdcall соглашению

[Cooper85]

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

NetworkPacket: Pointer

А кто-то может поделится примерной структурой этого дела ?
А-ля ПХ на мой взгляд не подходит.

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

Структура NetworkPacket содержит отдельно ID пакета, размер данных пакета (без ID), данные пакета (без ID).

Это читал.

Добавлено через 10 часов 0 минут
DWORD - id пакета (id+sub id пакета), незанятые байты - мусор
DWORD - длина данных пакета без id и без длины

[ratvier]

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

DWORD - id пакета (id+sub id пакета), незанятые байты - мусор

по сути - мусор, но всё же это выравнивание

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

DWORD - длина данных пакета без id и без длины

последний раз, когда я там ковырялся, под длину выделялся WORD, а оставшиеся 2 байта - выравниевание O_o

а после этого шёл указатель на "тело" пакета, как-то так:

#pragma pack(push,1)
struct NetworkPacket
{
    char ID;
    char u1;
    char u2;
    char u3;
    short length;
    char u4;
    char u5;
    char* data;
};
#pragma pack(pop)

_______________________________________________
in pivo veritas %)) и пофиг что не правда %))))

[Cooper85]

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

struct NetworkPacket
{
    char ID;
    char u1; //subid
    char u2;
    char u3;
    short length;
    char u4; //=0
    char u5; //=0
    char* data;
};

Как-то так у меня получается...
Офф, здешний тестовый сервер.

[brat]

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

NetworkPacket: Pointer
А кто-то может поделится примерной структурой этого дела ?

PNetworkPacket = ^TNetworkPacket;
TNetworkPacket = packed record
    id: byte;  // ID пакета
    res: byte; // тут ничего нужного нет
    id2: Smallint; // второй ID если есть
    size: Cardinal; // размер данных
    data: Pointer; // указатель на данные
  end;

[CodeMonkey]

xkor выше писал, как он переходит в Delphi от thiscall к stdcall, примерно так, код работает:

procedure UNetworkHandler_AddNetworkQueue_Call(Packet:PNetworkPacket);stdcall;
asm
  mov ecx,UNetworkHandler
  mov esp,ebp
  pop ebp
  jmp [UNetworkHandler_AddNetworkQueue_Original]
end;

procedure UNetworkHandler_AddNetworkQueue_New(unh:integer;Packet:PNetworkPacket);stdcall;
begin
  UNetworkHandler:=Pointer(unh);
  UNetworkHandler_AddNetworkQueue_Call(Packet);
end;

procedure UNetworkHandler_AddNetworkQueue_Hook(Packet:PNetworkPacket);stdcall;
asm
  push ecx
  push [ebp+8]
  push ecx
  call UNetworkHandler_AddNetworkQueue_New
  pop ecx
end;

а если вместо функций методы класса? что-то у меня не получается.

TUNetworkHandler = class
private
    UNetworkHandler:pointer;
    AddNetworkQueue_Original: procedure (Packet:PNetworkPacket);stdcall;
    FOnRecievePacket:TRecievePacketEvent;
    procedure AddNetworkQueue_Hook(Packet:PNetworkPacket);stdcall;
    procedure AddNetworkQueue_Call(Packet:PNetworkPacket);stdcall;
    procedure AddNetworkQueue_New(unh:integer;Packet:PNetworkPacket);stdcall;
    procedure SetOnRecievePacket(const Value: TRecievePacketEvent);
  public
    property OnRecievePacket:TRecievePacketEvent read FOnRecievePacket write SetOnRecievePacket;
end;

procedure TUNetworkHandler.AddNetworkQueue_Call(Packet: PNetworkPacket);stdcall;
{
тут хз как делать, запутался уже
при переходе к оригинальной функции в стеке:
значение Packet
указатель на объект TUNetworkHandler
адрес возврата
}
var
  p:pointer;
  fnc:pointer;
begin
  p:=UNetworkHandler;
  fnc:=@AddNetworkQueue_Original;
  asm
    mov eax,fnc
    mov ecx,p
    mov esp,ebp   
    pop ebp  
    jmp eax
  end;
end;


procedure TUNetworkHandler.AddNetworkQueue_Hook(Packet: PNetworkPacket);stdcall;
asm
  push ecx
  push [ebp+12]
  push ecx
  push Self // указатель на объект
  call AddNetworkQueue_New
  pop ecx
end;

procedure TUNetworkHandler.AddNetworkQueue_New(unh: integer;
  Packet: PNetworkPacket);stdcall;
begin
  UNetworkHandler:=Pointer(unh);
  if Assigned(FOnRecievePacket) then FOnRecievePacket(Packet);
  AddNetworkQueue_Call(Packet);
end;

помогите, пожалуйста. уже мозг кипит

[Yegor]

CodeMonkey, может на с++ сделаешь и не будеш мучать мозг?

Если пытаешся что то сделать для руооффа, то у тебя дальше возникнет проблемма совсем другого плана.