[Помогите!] Считать оффсеты с файла

[STIL23]

Всем привет , решил сделать так,чтобы программа читала оффсеты с ini файла . Все читает отлично перса находит . Но 1 проблема вот эта функци отказывается воспринимать оффсеты считанные с файла.

procedure PacketCall(aPParams:PParams); stdcall;
var
CallAddress,pPacket:Pointer;
Len:DWord;
begin
CallAddress:=Pointer(SendPacket);
Len:=aPParams^.Param1;
pPacket:=@aPParams^.Packet;
 asm
 pushad
 mov ecx, dword ptr [BaseAdress]
 mov ecx, dword ptr [ecx+$20]
 push Len
 push pPacket
 call CallAddress
 popad
 end;
end;

Если они прописанны в const , то все хорошо ,а если пытаюсь считать таким способом

procedure TForm1.FormCreate(Sender: TObject);
 var
   ini: TIniFile;
   Path:String;
   function ReadAddr(Section, Ident: string; Default: DWORD): DWORD;
  begin
    Result := StrToInt64Def('$' + ini.ReadString(Section, Ident, IntToHex(Default, 8)), Default);
    // запись на случай если значение не описано в файле
    ini.WriteString(Section, Ident, IntToHex(Result, 8));
  end;
begin
       Path:=Application.ExeName;
  Path:=ExtractFileDir(Path);
  if Path[Length(Path)]<>'\' then Path:=Path+'\';
  ini:=TIniFile.Create(Path+'offset.ini');
  base_addr := ReadAddr('Offset', 'BaseAdress',$A571E0);
  PK_addr := ReadAddr('Offset', 'BaseAdress',$63DB70);
   BaseAdress:=base_addr;
   SendPacket:=PK_addr;
end;

Подскажите в чем проблема и как ее исправить . Другие функции типа поиска ID персонажа или имени работают со считыванием из файла,а эта нет

[krukovis]

Цитата: Сообщение от STIL23 Но 1 проблема вот эта функци отказывается воспринимать оффсеты считанные с файла.

Потому что нужно сначала помещать значение в регистр, а затем с ним работать.

procedure PacketCall(aPParams:PParams); stdcall;
var
CallAddress,pPacket:Pointer;
Len:DWord;
begin
CallAddress:=Pointer(SendPacket);
Len:=aPParams^.Param1;
pPacket:=@aPParams^.Packet;
 asm
 pushad
 mov ecx, BaseAdress
 mov ecx, dword ptr [ecx]
 mov ecx, dword ptr [ecx+$20]
 push Len
 push pPacket
 call CallAddress
 popad
 end;
end;

[STIL23]

Цитата: Сообщение от krukovis Потому что нужно сначала помещать значение в регистр, а затем с ним работать. procedure PacketCall(aPParams:PParams); stdcall; var CallAddress,pPacket:Pointer; Len:DWord; begin CallAddress:=Pointer(SendPacket); Len:=aPParams^.Param1; pPacket:=@aPParams^.Packet; asm pushad mov ecx, BaseAdress mov ecx, dword ptr [ecx] mov ecx, dword ptr [ecx+$20] push Len push pPacket call CallAddress popad end; end;

Все равно при попытке отправить пакет выкидывает с клиента .

[dwa83]

Потому что код выполняется в клиенте, а BaseAdress - пкркменная в вашей программе. Разве клиент имеет доступ к памяти процесса вашей программы, чтобы считать значение переменной? А с константами работает потому, что при компиляции в функции уже готовое значение подставляется вместо BaseAdress. Прямо в функции обьявите переменную бейсадрес наряду с уже обьявленными
CallAddress,pPacket:Pointer;
LenWord;
А значение BaseAddress передавайте через aPParams

[STIL23]

Цитата: Сообщение от dwa83 Потому что код выполняется в клиенте, а BaseAdress - пкркменная в вашей программе. Разве клиент имеет доступ к памяти процесса вашей программы, чтобы считать значение переменной? А с константами работает потому, что при компиляции в функции уже готовое значение подставляется вместо BaseAdress. Прямо в функции обьявите переменную бейсадрес наряду с уже обьявленными CallAddress,pPacket:Pointer; LenWord; А значение BaseAddress передавайте через aPParams

procedure PacketCall(aPParams:PParams); stdcall;
var
CallAddress,pPacket:Pointer;
Len:DWord;
  aParams: TParams;
SendPacket1,BaseAdress1:dword;
begin
  aParams.Param2 := BaseAdress;
  aParams.Param3 := SendPacket;
   SendPacket1 := aPParams^.Param3;
     BaseAdress1:=aPParams^.Param2;
CallAddress:=Pointer(SendPacket1);
Len:=aPParams^.Param1;
pPacket:=@aPParams^.Packet;
 asm
 pushad
 mov ecx, BaseAdress1
 mov ecx, dword ptr [ecx]
 mov ecx, dword ptr [ecx+$20]
 push Len
 push pPacket
 call CallAddress
 popad
 end;
end;

Вот так ничего не выходит . В чем ошибка?

[krukovis]

Цитата: Сообщение от STIL23 Вот так ничего не выходит . В чем ошибка?

А как ты вызываешь сие чудо? И зачем столько лишних строк? Самому ж не понятно наверно.

[STIL23]

Цитата: Сообщение от krukovis А как ты вызываешь сие чудо? И зачем столько лишних строк? Самому ж не понятно наверно.

А как можно вызвать ? Ну вроде понятно

[fds255]

Цитата: Сообщение от STIL23 aParams.Param2 := BaseAdress; aParams.Param3 := SendPacket;

Попробуй эти присвоения сделать там же где было aParams.Param1:=...

[STIL23]

Цитата: Сообщение от fds255 Попробуй эти присвоения сделать там же где было aParams.Param1:=...

Не работает

[krukovis]

Цитата: Сообщение от STIL23 А как можно вызвать ? Ну вроде понятно

Ну ты же как то вызываешь эту функцию? Покажи как? И прошу причесать код.

[STIL23]

Ну вот так получается

procedure PacketCall(aPParams:PParams); stdcall;
var
CallAddress,pPacket:Pointer;
Len:DWord;
begin
CallAddress:=Pointer(Sendpacket);
Len:=aPParams^.Param1;
pPacket:=@aPParams^.Packet;
 asm
 pushad
 mov ecx, dword ptr [BA]
 mov ecx, dword ptr [ecx+$20]
 push Len
 push pPacket
 call CallAddress
 popad
 end;
end;



procedure Packet(Packet:string);
var
aParams:TParams;
hProcess:DWord;
begin
hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,FID[form2.ComboBox15.ItemIndex]);
StrToByte(Packet,aParams);
InjectFunc(hProcess,@PacketCall,@aParams,sizeof(aParams));
CloseHandle(hProcess);
end;

[krukovis]

Цитата: Сообщение от STIL23 Ну вот так получается

Вот, что значат эти слова? Типо так работает? Если хочешь помощи - постарайся писать развернуто.
У меня опускаются руки когда я вижу подобный неадекват...
Ты осознаешь, что вот это :

procedure PacketCall(aPParams:PParams); stdcall;
var
CallAddress,pPacket:Pointer;
Len:DWord;
begin
CallAddress:=Pointer(Sendpacket);
Len:=aPParams^.Param1;
pPacket:=@aPParams^.Packet;
 asm
 pushad
 mov ecx, dword ptr [BA]
 mov ecx, dword ptr [ecx+$20]
 push Len
 push pPacket
 call CallAddress
 popad
 end;
end;

В корне отличается от этого:

procedure PacketCall(aPParams:PParams); stdcall;
var
CallAddress,pPacket:Pointer;
Len:DWord;
  aParams: TParams;
SendPacket1,BaseAdress1:dword;
begin
  aParams.Param2 := BaseAdress;
  aParams.Param3 := SendPacket;
   SendPacket1 := aPParams^.Param3;
     BaseAdress1:=aPParams^.Param2;
CallAddress:=Pointer(SendPacket1);
Len:=aPParams^.Param1;
pPacket:=@aPParams^.Packet;
 asm
 pushad
 mov ecx, BaseAdress1
 mov ecx, dword ptr [ecx]
 mov ecx, dword ptr [ecx+$20]
 push Len
 push pPacket
 call CallAddress
 popad
 end;
end;

А я спрашивал как ты запускаешь второй в этом топике вариант, а не то что ты выложил в последний раз. и видимо запускал в первый.

[fds255]

krukovis, Хорошо, тогда подскажи где косяк здесь

procedure AutoRouteCall(aPParams:PParams); stdcall;
var
 cmd,addr: Pointer;
  araddr:dword;
begin
araddr:=aPParams^.Param3;
cmd:=@aPParams^.buf;
addr :=pointer(araddr);
  asm
    pushad
    mov eax, dword ptr [$00A571E0]
    mov eax, dword ptr [eax +$001c]
    mov ecx, dword ptr [eax +$0034]
    push cmd
    call addr
    popad
  end;
 end;

возможно тип araddr не верный т.к. не срабатывает call addr, сразу выбивает. Если в этом дело подскажи какой тип нужно присваивать araddr.

[STIL23]

Блин я не понял просто , что ты хочешь чтобы я скинул
Читаю из файла так

procedure TForm1.FormCreate(Sender: TObject);
 var
   ini: TIniFile;
   Path:String;
   function ReadAddr(Section, Ident: string; Default: DWORD): DWORD;
  begin
    Result := StrToInt64Def('$' + ini.ReadString(Section, Ident, IntToHex(Default, 8)), Default);
    // запись на случай если значение не описано в файле
    ini.WriteString(Section, Ident, IntToHex(Result, 8));
  end;
begin
       Path:=Application.ExeName;
  Path:=ExtractFileDir(Path);
  if Path[Length(Path)]<>'\' then Path:=Path+'\';
  ini:=TIniFile.Create(Path+'offset.ini');
  base_addr := ReadAddr('Offset', 'BaseAdress',$A571E0);
  PK_addr := ReadAddr('Offset', 'BaseAdress',$63DB70);
   BaseAdress:=base_addr;
   SendPacket:=PK_addr;
end;

Сую сюда

procedure PacketCall(aPParams:PParams); stdcall;
var
CallAddress,pPacket:Pointer;
Len:DWord;
  aParams: TParams;
SendPacket1,BaseAdress1:dword;
begin
  aParams.Param2 := BaseAdress;
  aParams.Param3 := SendPacket;
   SendPacket1 := aPParams^.Param3;
     BaseAdress1:=aPParams^.Param2;
CallAddress:=Pointer(SendPacket1);
Len:=aPParams^.Param1;
pPacket:=@aPParams^.Packet;
 asm
 pushad
 mov ecx, BaseAdress1
 mov ecx, dword ptr [ecx]
 mov ecx, dword ptr [ecx+$20]
 push Len
 push pPacket
 call CallAddress
 popad
 end;
end;

Вылетает пв , хотя перса и его имя находит

[krukovis]

Цитата: Сообщение от STIL23 Блин я не понял просто , что ты хочешь чтобы я скинул Читаю из файла так

Ты опять не понял что я хочу. Я хочу чтобы ты показал, как ты вызываешь функцию PacketCall, какие значения туда передаются. Дело в том, что ты сказал, что если вызывать так как ты написал в последний раз то ничего не происходит. Это значит что сама функция правильно загрузилась, а вот пакет или еще что то не правильно. Вот и нужно понять что не правильно.

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

Цитата: Сообщение от fds255 mov ecx, dword ptr [eax +$0034]

Если это функция вызова пакета - то ошибка тут - должно быть +$20. Если что то другое - то хз. Я вроде как не телепат. И вообще люблю развернутые вопросы. С пояснениями.