Оффсет для SkillCall в переменной

[Zo_Om4eG]

Такая проблема: вынес оффсеты в ини файл, при чтении их из ини и использовании проблем не возникает, читает память с помощью них нормально, но вот использование функции SkillInject с переменной, где лежит оффсет SkillCall, приводит к крашу клиента, также как и PackCall. Никто не подскажет как исправить? Оффсеты правильные.

Без переменных, без краша:

procedure SkillCall(aPParams:PParams); stdcall;
var CallAddress:pointer;
    P1:DWord;
begin
CallAddress:=Pointer($00492A90);
P1:=aPParams^.Param1;
 asm
  pushad
  mov ecx, dword ptr [$00A571E0]
  mov ecx, dword ptr [ecx+$1C]
  mov ecx, dword ptr [ecx+$34]
  push $FFFFFFFF
  push $00
  push $00
  mov edx, P1
  push edx
  call CallAddress
  popad
 end;
end;

С переменными, с крашем:

procedure SkillCall(aPParams:PParams); stdcall;
var CallAddress:pointer;
    P1:DWord;
begin
CallAddress:=Pointer(PWSkillCall);
P1:=aPParams^.Param1;
 asm
  pushad
  mov ecx, dword ptr [PWBA]
  mov ecx, dword ptr [ecx+PWHPS1]
  mov ecx, dword ptr [ecx+PWHPS2]
  push $FFFFFFFF
  push $00
  push $00
  mov edx, P1
  push edx
  call CallAddress
  popad
 end;
end;

[krukovis]

Цитата: Сообщение от Zo_Om4eG Без переменных, без краша:

Это стандартная проблема. Значения сначала нужно помещать в регистр, а потом их использовать.
Например:
сначала помещаем в регистр:
mov ecx, PWBA
затем используем:
mov ecx, dword ptr [ecx]

[Zo_Om4eG]

krukovis, Честно говоря, не очень понятно, можно ли более подробно разжевать? И что где заменить?

[Goooooogle]

procedure SkillCall(aPParams:PParams); stdcall;
var CallAddress:pointer;
    P1:DWord;
begin
CallAddress:=Pointer(PWSkillCall);
P1:=aPParams^.Param1;
mov ecx, PWBA
mov ecx, dword ptr [ecx]
 asm
  pushad
  mov ecx, dword ptr [PWBA]
  mov ecx, dword ptr [ecx+PWHPS1]
  mov ecx, dword ptr [ecx+PWHPS2]
  push $FFFFFFFF
  push $00
  push $00
  mov edx, P1
  push edx
  call CallAddress
  popad
 end;
end;

[Zo_Om4eG]

Goooooogle, Краш клиента.

[vladoscom93]

procedure SkillCall(aPParams:PParams); stdcall;
var CallAddress:pointer;
    P1:DWord;
begin
CallAddress:=Pointer(PWSkillCall);
P1:=aPParams^.Param1;
 asm
  pushad
  mov ecx, PWBA
  mov ecx, dword ptr [ecx]
  mov ecx, dword ptr [ecx+PWHPS1]
  mov ecx, dword ptr [ecx+PWHPS2]
  push $FFFFFFFF
  push $00
  push $00
  mov edx, P1
  push edx
  call CallAddress
  popad
 end;
end;

[Zo_Om4eG]

vladoscom93, Ну, вообщем-то я так и записывал, вызывает краш клиента.

[vladoscom93]

если будет всеравно слетать попробуй повторить подобное, что я сделал с PWBA с этими строчками:

  mov ecx, dword ptr [ecx+PWHPS1]
  mov ecx, dword ptr [ecx+PWHPS2]

гугл ты меня просто убил) как можно помещать данные в регистр до команды asm

Добавлено через 5 минут
должно получится наверн так:

mov ecx, ecx+PWHPS1
mov ecx, dword ptr [ecx]
mov ecx, ecx+PWHPS2
mov ecx, dword ptr [ecx]

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

[Goooooogle]

Цитата: Сообщение от vladoscom93 гугл ты меня просто убил) как можно помещать данные в регистр до команды asm

Сам только потом заметил =)

[Zo_Om4eG]

vladoscom93, Проверил каждый из способов, результат один - краш.

[vladoscom93]

попробуй все переменные писать так dword(PWBA), которые внутри asm'a

[krukovis]

Робятки, вы хоть пытайтесь че нить сами то узнавать. Гугл он нафига ж создавался?? Это же Корпорация Добра - она всем помгает, если спрашивать. Да и на форуме выкладывал 100500 раз как подобные проблемы решать:

procedure SkillCall(aPParams:PParams); stdcall;
var CallAddress:pointer;
    P1:DWord;
begin
CallAddress:=Pointer(PWSkillCall);
P1:=aPParams^.Param1;
 asm
  pushad
  mov ecx, PWBA //помещаем в регистр ecx константу PWBA
  mov ecx, dword ptr [ecx] //прочитать значение указателя, на который указывает [ecx]
  mov eax, PWHPS1 //Помещаем в eax константу PWHPS1 
  mov ecx, dword ptr [ecx+eax] //прочитать значение указателя, на который указывает [ecx+eax]
  mov eax, PWHPS2 //Помещаем в eax константу PWHPS2
  mov ecx, dword ptr [ecx+eax]
  push $FFFFFFFF //asm на делфи не примиает параметр -1 ? Зачем писать push $ffffffff ?
  push $00
  push $00
  mov edx, P1
  push edx
  mov eax, CallAddress //помещаем в eax, константу CallAddress
  call eax
  popad
 end;
end;

Регистр eax в данном случае выступил просто временным хранилищем для всех констант.
Это нужно делать всегда, если вы константы подгружаете откуда то извне.
Запись mov ecx, dword ptr [CONSTANTA1] не сработает, т.к. ASM работает с адресами и указателями, а он не сможет получить ссылку на константу из какой либо другой процедуры.

Кстати, этих проблем лишен класс ASM - который я выложил совместно с PW FrameWork 2.0.
Там все просто и удобно переводится в байт код и этот байт-код инжектится. Что убирает проблему со считыванием данных из каких либо мест и т.д.

[Zo_Om4eG]

krukovis, Ну уже и не знаю что делать, проверил твою процедуру, все равно идет краш клиента.

Цитата: procedure SkillCall(aPParams:PParams); stdcall; var CallAddress: pointer; P1: DWord; begin CallAddress:=Pointer(PWSkillCall); P1:=aPParams^.Param1; asm pushad mov ecx, PWBA mov ecx, dword ptr [ecx] mov eax, PWHPS1 mov ecx, dword ptr [ecx+eax] mov eax, PWHPS2 mov ecx, dword ptr [ecx+eax] push $FFFFFFFF push $00 push $00 mov edx, P1 push edx mov eax, CallAddress call eax popad end; end;

Цитата: procedure Skill(SkillID: DWord); var aParams:TParams; begin aParams.Param1:=SkillID; InjectFunc(hProcessGlob,@SkillCall,@aParams,SizeOf (aParams)); end;

Skill(1097);

[[phallic]]

А ты поставь бряк, посмотри чему равны PWBA, PWHPS1, PWHPS2, PWSkillCall
У меня:

  const  BA = $00A571E0;
...
  mov ecx, dword ptr [BA]

Все нормально работает

[Zo_Om4eG]

[phallic],

var PWBA, PWHPS1, PWHPS2:dword;
begin
PWSkillCall:=StrToInt('$'+Ini.ReadString('Offsets', 'SkillCall', '492A90'));
PWHPS1:=StrToInt('$'+Ini.ReadString('Offsets', 'HostPlayerStructure1', '1C'));
PWHPS2:=StrToInt('$'+Ini.ReadString('Offsets', 'HostPlayerStructure2', '34'));
end;

Таким образом задаются оффсеты, перепроверил несколько раз, выводил в ShowMessage, они верны.