Проблема с DLL

[alumium]

В общем, мне поступил заказ сделать авто-чит (плагин DLL) для игры World of Warcraft.
Появилась проблема с функцией изменения доступа к диапазону(карте) памяти VirtualProtect.
Она просто не срабатывает в DLL (VirtualProtect), но через EXE (VirtualProtectEx) работает. Были попытки через DLL вызвать VirtualProtectEx, эффекта не дало.

Эта DLL функция должна изменять массив байт в памяти процесса, куда была внедрена библиотека.

procedure WriteBytes(Addr:Cardinal; const Bytes:Array of Byte);
var i,OldPageProtection:cardinal;
begin
   VirtualProtect(@Addr,Length(Bytes),PAGE_EXECUTE_READWRITE,OldPageProtection); // не работает
   for i:= 0 to Length(Bytes)-1 do PByte(Addr+i)^:=Bytes[i]; // Работает если разблокировать карту памяти вручную через Cheat Engine
   VirtualProtect(@Addr,Length(Bytes),OldPageProtection,OldPageProtection); // тоже не работает
end;

Такая же функция для EXE (в DLL библиотеке разблокировка не работает, пробовал получать Handle через GetCurrentProcess).

procedure memWriteHex(Addr: cardinal; const Bytes: Array of Byte);
var
  BytesWritten: Dword;
  ProcessId,AppHandle,OldPageProtection: Cardinal;
begin
  ProcessId := GetPidExe('Wow.exe');
  AppHandle := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
  VirtualProtectEx(AppHandle, @Addr, Length(Bytes), PAGE_EXECUTE_READWRITE, OldPageProtection);
  WriteProcessMemory(AppHandle, @Addr, @Bytes[0], Length(Bytes), BytesWritten);
  VirtualProtectEx(AppHandle, @Addr, Length(Bytes), OldPageProtection, OldPageProtection);
end;

Полный исходный код библиотеки, запись не происходит из-за доступа:

library DllThief2;

uses
  windows, shellapi, sysutils, ShareMem;

const ExeName:String='Wow.exe';

procedure WriteBytes(Addr:Cardinal; Bytes:Array of Byte);
var i,OldPageProtection:cardinal;
    error:bool;
begin
  error:=VirtualProtect(@Addr,Length(Bytes),PAGE_EXECUTE_READWRITE,OldPageProtection);
  for i:= 0 to Length(Bytes)-1 do PByte(Addr+i)^:=Bytes[i];
  error:=VirtualProtect(@Addr,Length(Bytes),OldPageProtection,OldPageProtection);
end;

procedure TestWrite;
begin
  WriteBytes($004D95FF,[$01,$02,$03,$04,$05,$06,$07,$08,$09,$10]);
end;

exports
  TestWrite;

begin
end.

Ход работы после внедрение DLL в процесс и запуска нужной функции:

[Пепел Феникса]

логируйте результаты функций в файл.

[Kix.IV]

Попробуй дебагером пройтись или выложи код.

[alumium]

Все выложил

[Пепел Феникса]

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

VirtualProtect(Pointer(Addr),Length(Bytes),PAGE_EXECUTE_READWRITE,OldPageProtection);

странно что в exe работало.

[alumium]

Спасибо, все заработало, держи плюс)))