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

[GoldFinch]

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

где этот код в клиенте?

поставь бряк на ws2_32.recv и увидишь где

[xkor]

destructor, только в клиенте руофа бряк на recv можешь не стараться ставить, не срабатывает...

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

Блин, чет на дельфях невыходит сделать :\ неужели ни у кого нету хотя бы самых простых исходников? Помогите плз

что именно сделать не выходит?

[Fertis]

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

Функцию экспортирую так, но чую что неправильно :-]:
function GetUser(ID: integer): User; stdcall; external 'Engine.dll' name 'GetUser';

Так же ГолдФинч давал вот это, я так и не понял как этим пользоватся ><
function foo(obj:TObj , arg1:T1, arg2:T2);stdcall;
asm
pop eax //адрес возврата, временно сохраняем в eax
pop ecx //аргумент obj, записываем в ecx как того требует __thiscall
push eax //записываем сохраненный адрес возврата
jmp [foo] //вызываем метод
end;

[xkor]

Fertis, импорт ты не не допонял а вообще не понял ничего кроме того что он должен быть...

[Fertis]

не... да я уже много че и как перепробывал... нужно экспортировать функцию и описать класс User, не? У меня голова просто уже совсем не варит. Или я походу вообще делаю что то не так, выложите лучше пример чтоли, как использовать хоть одну функцию... а то надоело все наугад делать :\

[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 соглашению

[Fertis]

пасиба, щас поковыряюсь )

[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;
};

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