Преобразование Delphi в C++

[PRONAX]

procedure FindPlayerInfo;
begin
PPointer(Cardinal(@PushAddrPattern) + 1)^ := Mem_FindPattern(CLBase, CLBase_End, @PlayerInfoString, StrLen(PlayerInfoString), 0);
PlayerInfo := Mem_FindPattern(CLBase, CLBase_End, @PushAddrPattern, 5, 6);
if FarProc(PlayerInfo, CLBase, CLBase_End) then
 MsgAPI.Error('Couldn''t find ^cs_player_info_t pointer.');
PlayerInfo := Pointer(PCardinal(PlayerInfo)^ + 8 + Cardinal(Protocol = 47) * SizeOf(Cardinal));
if FarProc(PlayerInfo, CLBase, CLBase_End) then
 MsgAPI.Error('Couldn''t find ^cs_player_info_t pointer.');
end;
MsgAPI.Error(inttohex(DWORD(PlayerInfo),8));
end.

PushAddrPattern: array[0..4] of Byte = ($68, $00, $00, $00, $00);

PlayerInfoString: array[0..20] of Char = 'cl_career_difficulty';

Объясните пожалуйста как работает эта структура? И как ее собсно реализовать на C++
Если нужно больше информации, напишите - приложу.

[500mhz]

Это КонтерСтрайк бот а не дельфи )

[Dark Koder]

это кусок кода из Аима. Довольно старый и на новых версиях (почти) не рабочий..

[PRONAX]

это кусок кода из Аима. Довольно старый и на новых версиях (почти) не рабочий..

Это кусок кода из базы от ratwayer, но это не суть, мне просто нужно понять как эта процедура работает, перекинуть на си я думаю смогу сам.

[500mhz]

char PlayerInfoString[20]="cl_career_difficulty";

[PRONAX]

byte PushAddrPattern[] = {0x68, 0x00, 0x00, 0x00, 0x00};
  char PlayerInfoString[] = "cl_career_difficulty";

  *(DWORD *)((char *)&PushAddrPattern + 1) = MEM_FindPattern(ClBase, ClSize, (BYTE*)PlayerInfoString, (char*)strlen(PlayerInfoString));


  DWORD Result = MEM_FindPattern(ClBase,ClSize,(BYTE*)PlayerInfoString,(char*)sizeof(PlayerInfoString));

  if (!Result)
  {
   //Result = MEM_FindPattern(ClBase,ClSize,strold,0);
   if (!Result)
    MessageBox(0,"error...","msg", MB_OK);
  }

  return (HANDLE)Result;

Вот кое что наговнокодил, но работать отказывается. Что думаете?

[500mhz]

Телепаты в отпуске - MEM_FindPattern() как должна работать?

[m0r1]

можно предположить, что примерно так:
-базовый адрес для поиска(откуда)
-размер памятки для поиска
-байты, которые ищем
-размер байтов, которые ищем

[Dark Koder]

500mhz, сабж [Delphi] BaseHook v2.01

HIDE

---

BaseHook - "урезанный" чит, который можно использовать как основу для создания своих читов.
По сути, этот BaseHook представляет собой практически полностью урезанный FPTHook v2.09.
Чит представляет собой *.DLL-файл, который требуется подгрузить в Counter-Strike.
Для подгрузки вы можете использовать как *.asi-файл, так и XFPT (FPTHook Native Loader).

Особенности:
- автоматическое нахождение указателей
- поддержка как форсированной подгрузки, так и с использованием *.asi-подгрузчика
- работает на всех версиях Counter-Strike (Non-Steam/Steam)

Возможности:
- сообщение в консоли при подгрузке чита
- регистрация команды "fpt_debug", при вводе данной команды в консоль чит выведет ответное сообщение

Предупреждение: Для успешного написания своего чита вы должны владеть достаточным опытом разработки программ в Delphi, а не только уметь расставлять компоненты да картинки на фон добавлять, от которых я лично не вижу никакой пользы. Уж простите, но именно из-за этого я не качаю ваши норекоилы и антискрины.

Источник: http://mmoru.com/board/showthread.php?t=59077