[Помогите!] Чтение из файла

[Unheilig))]

Подскажите, почему если


const
BA=$00C38B6C;
CALLADDR=$6F55E0;

то

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

работает, а если

BA,CALLADDRWORD

BA:=StrToInt64 ('$'+IniFile.ReadString('ofset','BA','00C38B6C'));
CALLADDR:=StrToInt64 ('$'+IniFile.ReadString('ofset','CALLADDR','6F55E0 '));

то не работает? и как это исправить.

[Dinmaite]

Потому что в папке с игрой нет этого инишника. Потому что ты не описал вызов функции strtoint64. Это основные причины.

[fds255]

Unheilig)),

Поможет объявление переменных BA и CALLADDR в процедуре PacketCall и передача значений через PParams:
CALLADDR:=aPParams^.SendPacket;
BA:=aPParams^.BaseAddr;

[Unheilig))]

Цитата: Сообщение от Dinmaite Потому что в папке с игрой нет этого инишника. Потому что ты не описал вызов функции strtoint64. Это основные причины.

ну так то я упрощенно написал - инишник у меня указан и все описано . суть в том что если ba и calladdr объявлять как константу то все работает а если как переменную то нет

Добавлено через 39 минут
Вот не хочет работать, и все тут. а если BA CALLADDR указать как константы то отлично работает(.

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Gauges, ExtCtrls, Buttons, XPMan, IniFiles,mmsystem;
type
    PParams = ^TParams;
    TParams = packed record
       Packet: array [0..100] of byte;
       PacketParam,baseaddr,calladdr:dword;
end;
...
Var
BA,CALLADDR:DWORD;

procedure TForm1.FormCreate(Sender: TObject);
var
IniFile : TIniFile;
begin
inifile := TIniFile.Create(ExtractFilePath(Application.Exename)+'settings.ini');
BA:=StrToInt64 ('$'+IniFile.ReadString('ofset','BA','00C38B6C'));
CALLADDR:=StrToInt64 ('$'+IniFile.ReadString('ofset','CALLADDR','6F55E0'));
IniFile.Free;
end;

procedure InjectFunc(ProcessID: Cardinal; Func, aParams: Pointer; aParamsSize: DWord);
  ...
//-------------------------------------------------------------------
procedure StrToByte(Packet:string; var aParams:TParams);
...
//-------------------------------------------------------------------
procedure PacketCall(aPParams:PParams); stdcall;
var
  CallAddress,pPacket:pointer;
  Len,base:DWord;
begin
  base:= aPParams^.baseaddr;
  CallAddress:=Pointer(aPParams^.calladdr);   // PackCall
  Len:=aPParams^.PacketParam;
  pPacket:=@aPParams^.Packet;
  asm
    pushad
    mov ecx, dword ptr [base]     //BA
    mov ecx, dword ptr [ecx+$20]
    push Len
    push pPacket
    call CallAddress
    popad
  end;
end;


procedure SendPacket(Packet:string);
var
  AParams:Tparams;
 HexID,s:String;
 tt:integer;
begin
   aParams.baseaddr:=ba;
 aParams.calladdr:=CALLADDR;
    StrToByte(Packet,aParams);
    InjectFunc(hProcess,@PacketCall,@aParams,sizeof(aParams));
end;

procedure TForm1.btn5Click(Sender: TObject);
begin
 SendPacket('030001');
end;
end.

[Dinmaite]

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

[Unheilig))]

Ладно, зададим вопрос так - вот обычно когда указываем ва в константах то не указываем тип. и все работает. Знает кто нибудь, какой тип надо указать чтоб с ним работали инжекты?

[Dinmaite]

Ответим на вопрос так - вот обычно тип зависит от того как именно построен инжектируемый код.
Что может быть проще проверки по факту?
Подключил отладчик, к инжектируемому коду дописал int 3. Запустил, проверил что именно не так.

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

[Unheilig))]

про int3 не знал) такссс. теперь получается, что какой тип данных не задавай, BA он передает как 45EEA4 (очень милый зеленый цвет в цветовой палитре, между прочим))) нормально передает только если тип совсем не задавать.

PUSHAD
INT3
MOV ECX,DWORD PTR DS:[45EEA4]
MOV ECX,DWORD PTR DS:[ECX+20]
PUSH DWORD PTR SS:[EBP-4]
PUSH DWORD PTR SS:[EBP-8]
CALL DWORD PTR SS:[EBP-C]
POPAD

procedure InjectFunc(ProcessID: Cardinal; Func, aParams: Pointer; aParamsSize: DWord);
  var
    hThread: THandle;
    lpNumberOfBytes: DWord;
    ThreadAddr, ParamAddr: Pointer;
begin
if ProcessID <> 0 then
 begin
  try
  // ---- ???????? ????? ? ?????? ????????, ? ?????????? ???? ???? ???????
  ThreadAddr := VirtualAllocEx(ProcessID, nil, 256, MEM_COMMIT, PAGE_READWRITE);
  WriteProcessMemory(ProcessID, ThreadAddr, Func, 256, lpNumberOfBytes);

  // ---- ????? ??????? ????????? ? ???
  ParamAddr := VirtualAllocEx(ProcessID, nil, aParamsSize, MEM_COMMIT, PAGE_READWRITE);
  WriteProcessMemory(ProcessID, ParamAddr, aParams, aParamsSize, lpNumberOfBytes);

  // ---- ??????? ?????, ? ??????? ??? ??? ????? ???????????.
  hThread := CreateRemoteThread(ProcessID, nil, 0, ThreadAddr, ParamAddr, 0, lpNumberOfBytes);

  // ---- ??????? ?????????? ???????
  WaitForSingleObject(hThread, INFINITE);

  // ---- ????????? ?? ?????
  CloseHandle(hThread);
  VirtualFreeEx(ProcessID, ParamAddr, 0, MEM_RELEASE);
  VirtualFreeEx(ProcessID, ThreadAddr, 0, MEM_RELEASE);
  except end;
 end
end;
//-------------------------------------------------------------------
procedure StrToByte(Packet:string; var aParams:TParams);
var
  i:integer;
begin
 try
 i:=(length(Packet) div 2)-1;
 aParams.PacketParam:=i+1;
 for i:=0 to i do
 aParams.Packet[i]:=strtoint('$'+Packet[i*2+1]+Packet[i*2+2]);
 except end;
end;
//-------------------------------------------------------------------
procedure PacketCall(aPParams:PParams); stdcall;
var
  CallAddress,pPacket,base:pointer;
  Len:DWord;
begin
 // lbl4.caption:= (TypeInfo(ba));
 // base:=Pointer (BA);
  CallAddress:=Pointer(CALLADDR);   // PackCall
  Len:=aPParams^.PacketParam;
  pPacket:=@aPParams^.Packet;
  asm
    pushad
      Int 3
    mov ecx, dword ptr [BA]     //BA
    mov ecx, dword ptr [ecx+$20]
    push Len
    push pPacket
    call CallAddress
    popad

  end;
end;

Добавлено через 12 часов 44 минуты
Разобрался
немного поменял асм код+ я накосячил с privat,public.

asm
pushad
mov ecx, BA
mov ecx, dword ptr [ecx]
mov ecx, dword ptr [ecx+$20]
push Len
push pPacket
call CallAddress
popad
end;