mov esi, dword ptr [eax+$34]

gurin · 22.04.2012, 23:02

Доброе время суток.

возникла необходимость вынести константы инжекта движения в файл, все хорошо, но при попытке использовать вместо

mov esi, dword ptr [eax+$34]

mov esi, dword ptr [eax+ofs]

клиент вылетает.

Переменная объявлена внутри процедуры тип dword, присваивается там же, до объявления asm.

Не подскажете как решить проблему? Был бы премного благодарен.

dwa83 · 23.04.2012, 00:06

Я в отдельном файле прописываю оффсеты вот так:
#define OFFSET 0x34
подключаю файл к проекту и в программе уже пишу
mov esi, dword ptr [eax+OFFSET]
в делфи наверное есть тоже аналог #define

BritishColonist · 23.04.2012, 00:10

gurin, переменная объявлена внутри процедуры и инициализируется там же?
Значит в там же и открывается файл? Но ведь эта процедура выполняется в игре, а не в программе : D

gurin · 23.04.2012, 10:13

Цитата:

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


	Я в отдельном файле прописываю оффсеты вот так: #define OFFSET 0x34 подключаю файл к проекту и в программе уже пишу mov esi, dword ptr [eax+OFFSET] в делфи наверное есть тоже аналог #define

Такой метод не подойдёт

Я хочу сделать так, что бы программу не надо было перекомпилировать под новые оффсеты.

Добавлено через 6 минут

Цитата:

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


	gurin, переменная объявлена внутри процедуры и инициализируется там же? Значит в там же и открывается файл? Но ведь эта процедура выполняется в игре, а не в программе : D

Нет, файл открывается в моём приложении, данные передаются через параметры. Значения параметров верные. Внутри процедуры локальным переменным присваиваются значения переданные параметрами.

Вот собственно код

так работает:

Код:

type
  PWalkParams = ^TWalkParams;

  TWalkParams = packed record
    Packet: array [0 .. 100] of Byte;
    BaseAddr, GameAddr, CallAddress1, CallAddress2, CallAddress3: Pointer;
    x, y, z: single;
    flying: DWord;
    ofs1, ofs2, ofs3, ofs4, ofs5, ofs6, ofs7, ofs8: DWord;
    Param4: array [1 .. 72] of widechar;
  end;

procedure WalkCall(aPParams: PWalkParams); Stdcall;
var
  GameAddr, CallAddress1, CallAddress2, CallAddress3: Pointer;
  ofs1, ofs2, ofs3, ofs4, ofs5, ofs6, ofs7, ofs8: dword;
  x, y, z: single;
  flying: DWord;
begin
  GameAddr := aPParams.GameAddr;
  CallAddress1 := aPParams.CallAddress1;
  CallAddress2 := aPParams.CallAddress2;
  CallAddress3 := aPParams.CallAddress3;
  {
    ofs1 := aPParams.ofs1;
    ofs2 := aPParams.ofs2;
    ofs3 := aPParams.ofs3;
    ofs4 := aPParams.ofs4;
    ofs5 := aPParams.ofs5;
    ofs6 := aPParams.ofs6;
    ofs7 := aPParams.ofs7;
    ofs8 := aPParams.ofs8;
  }
  x := aPParams.x;
  y := aPParams.y;
  z := aPParams.z;
  flying := aPParams.flying;
  asm
    pushad
    mov eax, GameAddr
    mov eax, dword ptr [eax]
    mov esi, dword ptr [eax+$34]
    mov ecx, dword ptr [esi+$1050]
    push 1
    call CallAddress1
    mov edi, eax
    lea eax, dword ptr [esp+$18]
    push eax
    push flying
    mov ecx, edi
    call CallAddress2
    mov ecx, dword ptr [esi+$1050]
    push 0
    push 1
    push edi
    push 1
    call CallAddress3
    mov eax, GameAddr
    mov eax, dword ptr [eax]
    mov eax, dword ptr [eax+$34]
    mov eax, dword ptr [eax+$1050]
    mov eax, dword ptr [eax+$30]
    mov ecx, dword ptr [eax+$4]
    mov eax, x
    mov dword ptr[ecx+$20], eax
    mov eax, z
    mov dword ptr[ecx+$24], eax
    mov eax, y
    mov dword ptr[ecx+$28], eax
    popad
  end;
end;

function Walk(x, y, z: single; WalkMode: Byte): Boolean;
var
  aParams: TWalkParams;
begin
  if WalkMode = 0 then
    aParams.flying := 0
  else
  begin
    aParams.flying := 1;
  end;
  aParams.BaseAddr := Pointer(_base_addr);
  aParams.GameAddr := Pointer(_game_addr);
  aParams.CallAddress1 := Pointer(walkX_inject_addr);
  aParams.CallAddress2 := Pointer(walkY_inject_addr);
  aParams.CallAddress3 := Pointer(walkZ_inject_addr);
  aParams.ofs1 := walk_ofs1;
  aParams.ofs2 := walk_ofs2;
  aParams.ofs3 := walk_ofs3;
  aParams.ofs4 := walk_ofs4;
  aParams.ofs5 := walk_ofs5;
  aParams.ofs6 := walk_ofs6;
  aParams.ofs7 := walk_ofs7;
  aParams.ofs8 := walk_ofs8;
  aParams.x := x;
  aParams.y := y;
  aParams.z := z;
  Result := (aParams.CallAddress1 <> nil) and (aParams.CallAddress2 <> nil) and
    (aParams.CallAddress3 <> nil) and (aParams.BaseAddr <> nil) and
    (aParams.GameAddr <> nil);
  if Result then
    InjectFunc(_hProcess, @WalkCall, @aParams, SizeOf(aParams));
end;

так вышибает клиента

Код:

type
  PWalkParams = ^TWalkParams;

  TWalkParams = packed record
    Packet: array [0 .. 100] of Byte;
    BaseAddr, GameAddr, CallAddress1, CallAddress2, CallAddress3: Pointer;
    x, y, z: single;
    flying: DWord;
    ofs1, ofs2, ofs3, ofs4, ofs5, ofs6, ofs7, ofs8: DWord;
    Param4: array [1 .. 72] of widechar;
  end;

procedure WalkCall(aPParams: PWalkParams); Stdcall;
var
  GameAddr, CallAddress1, CallAddress2, CallAddress3: Pointer;
  ofs1, ofs2, ofs3, ofs4, ofs5, ofs6, ofs7, ofs8: dword;
  x, y, z: single;
  flying: DWord;
begin
  GameAddr := aPParams.GameAddr;
  CallAddress1 := aPParams.CallAddress1;
  CallAddress2 := aPParams.CallAddress2;
  CallAddress3 := aPParams.CallAddress3;
  
    ofs1 := aPParams.ofs1;
    ofs2 := aPParams.ofs2;
    ofs3 := aPParams.ofs3;
    ofs4 := aPParams.ofs4;
    ofs5 := aPParams.ofs5;
    ofs6 := aPParams.ofs6;
    ofs7 := aPParams.ofs7;
    ofs8 := aPParams.ofs8;
  
  x := aPParams.x;
  y := aPParams.y;
  z := aPParams.z;
  flying := aPParams.flying;
  asm
    pushad
    mov eax, GameAddr
    mov eax, dword ptr [eax]
    mov esi, dword ptr [eax+ofs1]
    mov ecx, dword ptr [esi+ofs2]
    push 1
    call CallAddress1
    mov edi, eax
    lea eax, dword ptr [esp+ofs3]
    push eax
    push flying
    mov ecx, edi
    call CallAddress2
    mov ecx, dword ptr [esi+ofs2]
    push 0
    push 1
    push edi
    push 1
    call CallAddress3
    mov eax, GameAddr
    mov eax, dword ptr [eax]
    mov eax, dword ptr [eax+ofs1]
    mov eax, dword ptr [eax+ofs2]
    mov eax, dword ptr [eax+ofs4]
    mov ecx, dword ptr [eax+ofs5]
    mov eax, x
    mov dword ptr[ecx+ofs6], eax
    mov eax, z
    mov dword ptr[ecx+ofs7], eax
    mov eax, y
    mov dword ptr[ecx+ofs8], eax
    popad
  end;
end;

function Walk(x, y, z: single; WalkMode: Byte): Boolean;
var
  aParams: TWalkParams;
begin
  if WalkMode = 0 then
    aParams.flying := 0
  else
  begin
    aParams.flying := 1;
  end;
  aParams.BaseAddr := Pointer(_base_addr);
  aParams.GameAddr := Pointer(_game_addr);
  aParams.CallAddress1 := Pointer(walkX_inject_addr);
  aParams.CallAddress2 := Pointer(walkY_inject_addr);
  aParams.CallAddress3 := Pointer(walkZ_inject_addr);
  aParams.ofs1 := walk_ofs1;
  aParams.ofs2 := walk_ofs2;
  aParams.ofs3 := walk_ofs3;
  aParams.ofs4 := walk_ofs4;
  aParams.ofs5 := walk_ofs5;
  aParams.ofs6 := walk_ofs6;
  aParams.ofs7 := walk_ofs7;
  aParams.ofs8 := walk_ofs8;
  aParams.x := x;
  aParams.y := y;
  aParams.z := z;
  Result := (aParams.CallAddress1 <> nil) and (aParams.CallAddress2 <> nil) and
    (aParams.CallAddress3 <> nil) and (aParams.BaseAddr <> nil) and
    (aParams.GameAddr <> nil);
  if Result then
    InjectFunc(_hProcess, @WalkCall, @aParams, SizeOf(aParams));
end;

Добавлено через 8 минут
разница только в том что я заменил

mov esi, dword ptr [eax+$34]

на

mov esi, dword ptr [eax+ofs]

в связи с чем собственно и вопрос

BritishColonist · 23.04.2012, 10:42

А все эти "ofs" инициализируются для передаваемой в функцию записи PWalkParams?

Добавлено через 33 минуты
Ладно, вот годный вариант.
До внедрения кода процедура находится в памяти приложения. В ней смещения и BA указаны статически (не переменными). Читаем из основной программы INI-конфиг, чтобы получить новые значения для BA и оффсетов, патчим код процедуры. Для этого понадобится определить точное смещение от начала процедуры до нужных оффсетов, следовательно, процедуру нужно правильно составить для частного случая (для определённых оффсетов), а затем исследовать в отладчике, чтобы получить смещения до оффсетов.
Уже пропатченный код можно внедрять (при этом патч придётся поставить лишь один раз - при считывании конфига).

dwa83 · 23.04.2012, 18:45

Проверял ли значения параметров ofs перед инжектом? Может считываются не правильно?

gurin · 23.04.2012, 20:54

Цитата:

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


	До внедрения кода процедура находится в памяти приложения. В ней смещения и BA указаны статически (не переменными). Читаем из основной программы INI-конфиг, чтобы получить новые значения для BA и оффсетов, патчим код процедуры. Для этого понадобится определить точное смещение от начала процедуры до нужных оффсетов, следовательно, процедуру нужно правильно составить для частного случая (для определённых оффсетов), а затем исследовать в отладчике, чтобы получить смещения до оффсетов. Уже пропатченный код можно внедрять (при этом патч придётся поставить лишь один раз - при считывании конфига).

О_О, эээмммм.... написать патч для собственного приложения? И как понимаю ни в коем случае не менять там ничего, а то не дай бог смещения поедут... Не, вариант с перекомпиляцией лучше. Во всяком случае надежнее.

Цитата:

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


	Проверял ли значения параметров ofs перед инжектом? Может считываются не правильно?

да, конечно, значения верные.

BritishColonist · 23.04.2012, 21:11

gurin, а в чём проблема установки патча в собственное приложение?
Просто при запуске берутся оффсеты и производится запись по некоторым адресам. Это несложно.
Я имел в виду "самопатч", чтобы программа изменила несколько байтов собственного кода. Этот код в любом случае будет выполнен не в самой программе, а в клиенте игры.

gurin · 23.04.2012, 22:20

Цитата:

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


	gurin, а в чём проблема установки патча в собственное приложение? Просто при запуске берутся оффсеты и производится запись по некоторым адресам. Это несложно. Я имел в виду "самопатч", чтобы программа изменила несколько байтов собственного кода. Этот код в любом случае будет выполнен не в самой программе, а в клиенте игры.

Мне кажется подобный путь еще больше проблем доставит. Все-таки хотелось бы понять как данные из переменных использовать в asm-коде. Там что-то простое, только вот что... знать бы

silk · 24.04.2012, 00:42

Цитата:

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


	я заменил mov esi, dword ptr [eax+$34] на mov esi, dword ptr [eax+ofs] в связи с чем собственно и вопрос

патамуушта - сюрприз - ofs трактуется как адрес, а не как значение по этому адресу.

mov esi, dword ptr [ofs] - загружает значение переменной ofs
mov esi, dword ptr [eax+ofs] - загружает что?
ПОтому что не умеет оно в одной такой команде обращаться к двум адресам памяти сразу.

**krukovis** · 24.04.2012, 07:59

Цитата:

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


	разница только в том что я заменил mov esi, dword ptr [eax+$34] на mov esi, dword ptr [eax+ofs] в связи с чем собственно и вопрос

Чтобы корректно заработало нужно значение переменной в регистр сначала поместить, а потом уже пользоваться:

Код:

mov esi, ofs
mov esi, dword ptr [eax + esi]

gurin · 04.05.2012, 16:15

Цитата:

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


	Чтобы корректно заработало нужно значение переменной в регистр сначала поместить, а потом уже пользоваться:

пробовал, но видимо не всеми регистрами можно пользоваться - вышибает клиента
понятно что пользовался не теми, что используются тут же, за исключением случаев, когда они там же и инициализировались

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

krysun · 24.05.2012, 05:34

#define в delphi нет. в XE тоже не появилось...
Аналога также нет)))
Да и include нормального няма) Всё клёвенько))))

vogel · 24.05.2012, 22:53

у меня как-то так :

Код:

unit uPWGlobals;

interface

Uses
  Windows, SysUtils;

Const


  PW_BASE_ADDRESS   = $00A571E0; 
  PW_DYNAMIC_BASE_OFFSET = $001c;       // [base] + 1c = CECGameRun
  PW_ROLE_BASE_OFFSET = $0034;          // [base] + 1c + 34

  FlyAddress        = $00477010; //

.......

Код:

unit uPWInjectCodes;

interface

Uses Windows, uPWGlobals;

procedure FlyOrFallCall(aPParams: PParams); stdcall;


implementation

procedure FlyOrFallCall(aPParams: PParams); stdcall;
var
  AddrCall : pointer;
begin
  AddrCall :=Pointer(FlyAddress);
  asm
    pushad
    mov ecx, dword ptr [PW_BASE_ADDRESS]
    mov ecx, dword ptr [ecx + PW_DYNAMIC_BASE_OFFSET]
    mov ecx, dword ptr [ecx + PW_ROLE_BASE_OFFSET]
    push 1
    call AddrCall
    popad
  end;
end;

и всё отличненько работает.

gurin70 · 03.08.2012, 23:59

Цитата:

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


	#define в delphi нет. в XE тоже не появилось... Аналога также нет))) Да и include нормального няма) Всё клёвенько))))

include в delphi нормальный - полный аналог С++, даже лучше, т.к. без всяких условностей, аналога define не знаю, т.к. не требовалось столь жестко поступать, боюсь что он там есть и объявляется также, но не уверен, const вполне достаточно для моих целей

Цитата:

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


	и всё отличненько работает.

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

решение тут пока вижу только одно

Цитата:

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


	Чтобы корректно заработало нужно значение переменной в регистр сначала поместить, а потом уже пользоваться:

но неиспользуемых регистров не хватает

mov esi, dword ptr [eax+$34]

Общение разработчиков