تغيير قيمة معينة فى ملف عن طريق دالة معينة

PHP كود :

procedure MemoryPatch(sExecutableFilePath :string; Patch: Byte; BaseAddress: Integer; nSize, BytesCount: Cardinal);
var
  ProcessInfo: TProcessInformation;
  StpInfo: TStartupInfo;
  buf: PChar;
begin
  FillChar(StpInfo,SizeOf(TStartupInfo), #0);
  FillChar(ProcessInfo,SizeOf(TProcessInformation), #0);

  if not CreateProcess(PChar(sExecutableFilePath),
                       Nil, Nil, Nil, False, CREATE_SUSPENDED,
                       Nil, Nil, StpInfo, ProcessInfo)
  then
    MessageBox(0, 'Program not found!', '', MB_OK + MB_ICONWARNING)
  else
  begin
    GetMem(buf, 1);
    buf^ := Chr(Patch);
    WriteProcessMemory(ProcessInfo.hProcess, Ptr(BaseAddress), buf, nSize, BytesCount);
    FreeMem(buf);
    ResumeThread(ProcessInfo.hThread);
  end;
end;

PHP كود :

function Offset2Rva (pAddrOfFile: Pointer; dwRva : dword ):dword;
type
   IMAGE_SECTION_HEADER = packed record
    Name            : packed array [0..IMAGE_SIZEOF_SHORT_NAME-1] of Char;
    PhysicalAddress : DWORD;
    VirtualAddress  : DWORD;
    SizeOfRawData   : DWORD;
    PointerToRawData : DWORD;
    PointerToRelocations : DWORD;
    PointerToLinenumbers : DWORD;
    NumberOfRelocations : WORD;
    NumberOfLinenumbers : WORD;
    Characteristics : DWORD;
  end;
  PIMAGE_DOS_HEADER = ^IMAGE_DOS_HEADER;
  PIMAGE_NT_HEADERS = ^IMAGE_NT_HEADERS;
  PIMAGE_SECTION_HEADER = ^IMAGE_SECTION_HEADER;

var
  i : byte;
  sectionh : PIMAGE_SECTION_HEADER;
  dosh : PIMAGE_DOS_HEADER;
  peh : PIMAGE_NT_HEADERS;
begin
  if dwRva = 0 then
  begin
    result:=dwRva;
    exit;
  end;
  dosh     := PIMAGE_DOS_HEADER(pAddrOfFile);
  peh      := PIMAGE_NT_HEADERS(Longword(dosh) + Longword(dosh._lfanew));
  Sectionh := PIMAGE_SECTION_HEADER(peh);
  inc(pimage_nt_headers(Sectionh));
  // dwRva := dwRva - peh.OptionalHeader.ImageBase;
  for i:=peh.FileHeader.NumberOfSections Downto 1 do
  begin
    if (dwRva >= Sectionh.VirtualAddress) and
      (dwRva < (Sectionh.VirtualAddress + Sectionh.PhysicalAddress))
    then break;
    inc(sectionh);
  end;
  Result := dwRva + peh.OptionalHeader.ImageBase + sectionh.VirtualAddress - sectionh.PointerToRawData;
end;