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

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

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

Cкрытый текст   (кликните здесь для просмотра) Код: 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 осилил, то и артмани можно осилить.

Код:

...... const Addr_Trl_Speed = $0639F3CC; PatchReload  : Array[0..3] of byte = ($00,$00,$7A,$44);    // = 1000 PatchReload2 : Array[0..3] of byte = ($00,$00,$C8,$42);    // = 100 ...... ...... procedure set_drunk_speed; //Процедура "пьяная скорость" begin while 1= 1 do  //До тех пор пока 1 равен 1-му(гениально! XD) делать следующее:  begin          WriteIt(ptr(Addr_Trl_Speed),PatchReload2); //Записать скорость 100   sleep(2000);                               //Ждать 2 секунды   WriteIt(ptr(Addr_Trl_Speed),PatchReload);  //Записать скорость 1000   sleep(2000);                               //Ждать 2 секунды  end; end; procedure NewThread;  //Создания потока var ThreadID: Cardinal; begin  CreateThread(nil, 0, @set_drunk_speed, nil, 0, ThreadID); //Какую процедуру запихнуть в этот поток: set_drunk_speed. end; procedure DllEntry(dwReason: DWORD); begin   case dwReason of     DLL_PROCESS_ATTACH: //Приатачивание плагина       begin        NewThread;  //Выполнить процедуру NewThread.       end;     DLL_PROCESS_DETACH:      begin       FreeLibrary(WndHandle);       end;     DLL_THREAD_ATTACH:      begin       end;     DLL_THREAD_DETACH:      begin        FreeLibrary(WndHandle);       end;   end; end; begin   @DllProc := @DllEntry;   DllEntry(DLL_PROCESS_ATTACH); end.

Код:

library Project1; { Important note about DLL memory management: ShareMem must be the   first unit in your library's USES clause AND your project's (select   Project-View Source) USES clause if your DLL exports any procedures or   functions that pass strings as parameters or function results. This   applies to all strings passed to and from your DLL--even those that   are nested in records and classes. ShareMem is the interface unit to   the BORLNDMM.DLL shared memory manager, which must be deployed along   with your DLL. To avoid using BORLNDMM.DLL, pass string information   using PChar or ShortString parameters. } uses   ShareMem,   windows,   PsAPI,   tlhelp32; var WndHandle : THandle; const Addr_Trl_Speed = $0639F3CC; PatchReload  : Array[0..3] of byte = ($00,$00,$7A,$44); PatchReload2 : Array[0..3] of byte = ($00,$00,$C8,$42); {$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 set_drunk_speed; begin while 1= 1 do begin  WriteIt(ptr(Addr_Trl_Speed),PatchReload2);  sleep(2000);  WriteIt(ptr(Addr_Trl_Speed),PatchReload);  sleep(2000); end; end; procedure NewThread; var ThreadID: Cardinal; begin  CreateThread(nil, 0, @set_drunk_speed, nil, 0, ThreadID); end; procedure DllEntry(dwReason: DWORD); begin   case dwReason of     DLL_PROCESS_ATTACH:       begin        NewThread;       end;     DLL_PROCESS_DETACH:      begin       FreeLibrary(WndHandle);       end;     DLL_THREAD_ATTACH:      begin       end;     DLL_THREAD_DETACH:      begin        FreeLibrary(WndHandle);       end;   end; end; begin   @DllProc := @DllEntry;   DllEntry(DLL_PROCESS_ATTACH); end.

Код:

library Project1; uses   ShareMem,   System.SysUtils,   windows,   PsAPI,   tlhelp32; var WndHandle : THandle; const Addr_Trl_Speed = $0639F3CC; //Адрес скорости tradelanes Addr_Money = $00673364;   //Адрес кол-ва денег( визуальное представление) {$R *.res} ///////////////////////////Functions section////////////////////////////////////// function ByteToStr(bytes: array of byte): string;           //Преобразование array of byte в строку const   BytesHex: array[0..15] of char =     ('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F'); var   i, len: integer; begin   len := Length(bytes);   SetLength(Result, len * 2);   for i := 0 to len - 1 do begin     Result[i * 2 + 1] := BytesHex[bytes[i] shr 4];     Result[i * 2 + 2] := BytesHex[bytes[i] and $0F];   end; end; function ReadAdress(pAddress:Pointer; size:dword):string;     //Чтение 4-х байт в памяти var   HP:THandle;   wread:SIZE_T;   bb:array [0..3]of byte;   PID:cardinal; begin HP:=FindWindow('Freelancer',nil); GetWindowThreadProcessId(HP, @PID); HP := OpenProcess(PROCESS_VM_READ,False,PID); ReadProcessMemory(HP,pAddress,@bb,4,wread); Result:=bytetostr(bb); end; function ReverseFloatBytes(s:string):string;                   //Реверсирование результата прочитанных 4 байтов, begin                                                           //а то в памяти все задом наперед   Result:=Result+Copy(s,7,2)+Copy(s,5,2)+Copy(s,3,2)+Copy(s,1,2); end; 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; function ReadIt(addr:pointer):integer; begin Result:=StrToInt('$'+ ReverseFloatBytes(ReadAdress(addr,4))); end; function GetNewSpeed(addr:pointer):single; //Вычисление  новой скорости на основе кол-ва кредитов var                                        // 2500 x (Cr/1000000)% + 2500; j:single; begin j:=ReadIt(ptr(Addr_Money));             //Ложим в j кредиты Result:=Trunc((j/100000000)*2500+2500); //Проводим операции и округляем результат до целых end; ///////////////////////////Procedures section////////////////////////////////////// procedure New_Speed; //Новая скорость, больше денег было насчету больше скорость var new_speed:array [0..3] of byte; float_value:single; begin while 1=1 do  begin   float_value:=GetNewSpeed(ptr(addr_money));    //Вычисляем новую скорость   Move(float_value, new_speed[0], 4);           //Превращаем в байты   WriteIt(ptr(Addr_Trl_Speed),new_speed);       //Записываем   end;  end; procedure Thread_NewSpeed; //Поток для процедуры New_Speed var ThreadID: Cardinal; begin  BeginThread(nil, 0, @New_Speed, nil, 0, ThreadID); end; procedure DllEntry(dwReason: DWORD); begin   case dwReason of     DLL_PROCESS_ATTACH:       begin         Thread_NewSpeed;       end;     DLL_PROCESS_DETACH:      begin       FreeLibrary(WndHandle);       end;     DLL_THREAD_ATTACH:      begin       end;     DLL_THREAD_DETACH:      begin       end;   end; end; begin   @DllProc := @DllEntry;   DllEntry(DLL_PROCESS_ATTACH); end.