Создание плагинов

Данный элементарнейший плагин делался в Delphi. Примеров, ответов, вопросов на этот язык превышает на все остальные вместе взятые... в 6 раз! (c) Мегамозг Гы-гы

. Вот поэтому-то и на нём

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

В данном случае, плаг меняет скорость перемещения в трейдлэйнах с 2500 на 3440.Его исходник с комментариями, где только имеет смысл:

Cкрытый текст (кликните здесь для просмотра)

Code:

library Project1;

uses
System.SysUtils,
System.Classes,
windows,
PsAPI,
tlhelp32;

var
WndHandle : THandle;

const //секция константных значений
AddressReload = $0639F3CC; //Это адрес в памяти где лежит скорость трейдлейнов. Если в artmoney, в реадкторе памяти перейти на этот адрес(в чистом фриле), то можно увидеть байты 00 40 1C 45 . Это float значение, на нормальный язык это 2500.

PatchReload : Array[0..3] of byte = ($00,$0A,$57,$45); //Это байты, которыми заменим оригинальные в памяти. 00 5A 57 45 (если перевести с float это 3440,625). Т.е. в игре скорость трейдлэйнов вместо 2500 станет грубо 3440

{$R *.res}

Function WriteIt(pAddress: Pointer; Bytes: Array of Byte): Boolean; //Функция записи. Просто функция и её код, мы будем обращатся к ней, чтобы пропачтить память, она знает что делать: записать там, где мы укажем, и самое главное что записать
var
OldProtect, DummyProtect: DWord;
begin
if VirtualProtect(pAddress, SizeOf(Bytes), PAGE_EXECUTE_READWRITE, @OldProtect) then
begin
Move(Bytes, pAddress^, Length(Bytes));
VirtualProtect(pAddress, SizeOf(Bytes), OldProtect, @DummyProtect);
Result := True
end
else
Result := False;
end;

procedure DllEntry(dwReason: DWORD); //Процедура загрузка библиотеки.
label again;
begin
case dwReason of //Эта варианты для нашей dll при загрузки. Что делать когда "прилепимся к игре", что делать когда "отлепимся от игры" и ещё два(мне неизвестных).
DLL_PROCESS_ATTACH: //В случае аттача к процессу
begin //начало кода наших действий
WriteIt(ptr(AddressReload),PatchReload); //Непосредственно пачтим. Мы вызываем функцию WriteIt, далее указатель на AddressReload, в который, в секции констант указан адрес, по которому пачтить. PatchReload - что именно записывать в память. В константах PatchReload равен Array[0..3] of byte = ($00,$0A,$57,$45), "пачка байтов" так сказать.
end; //завершение кода наших манипуляций
DLL_PROCESS_DETACH:
begin
end;
DLL_THREAD_ATTACH:
begin
end;
DLL_THREAD_DETACH: //В случае если игра закрывается
begin
FreeLibrary(WndHandle); //Выгрузить библиотеку из памяти. Если не будет этого кода, фрил-то вы закроете, он также будет висеть в процессах. Точнее сгусток игры и нашей инжектированной dll.
end;
end;

end;

begin
@DllProc := @DllEntry;
DllEntry(DLL_PROCESS_ATTACH);
end.

Адрес, где находится скорость трейдлэйнов в памяти был взят из сорсов Адоксы. Я в этом не очень разбираюсь пока, но принципе, если ida осилил, то и артмани можно осилить.