[Обсуждение] Aion & Delphi

[mars2107]

Как-то давно грезил о своем чите, но руки дошли только до считывания памяти.

В архиве две версии исходного кода:
1. В виде DLL'ки, инжектится в процесс.
2. Обычный EXE'шник.

Чтоб не пылился, делюсь для общего пользования.
Пример кода, что в архиве.

function GetModuleAddress(iProcId: Cardinal; DllName: String): NativeUInt;
var
  hSnap: THandle;
  cModule: ModuleEntry32;
  begin
    Result := 0;
    hSnap := CreateToolHelp32Snapshot(TH32CS_SNAPMODULE, iProcId);
    cModule.dwSize := SizeOf(cModule);
    if Module32First(hSnap, cModule) then
    begin
      while Module32Next(hSnap, cModule) do
      if cModule.szModule = DllName then
      Result := Cardinal(cModule.modBaseAddr);
    end;
  CloseHandle(hSnap);
end;

// Ник
  ZeroMemory(@name[0], sizeof(name));
  address := $10A490C;
  HandleWindow := FindWindow(nil, WindowTitle);
  GetWindowThreadProcessId(HandleWindow,@ProcessId);
  HandleProc := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
  BaseAddress := GetModuleAddress(ProcessId, 'Game.dll');
  ReadProcessMemory(HandleProc, Ptr(BaseAddress + Address), @name[0], sizeof(name), readwrite);
  label1.caption := (WideCharToString(@name[0]));
// ХП
  ZeroMemory(@name[0], sizeof(name));
  address := $10ADAF8{10A4B44} ;
  HandleWindow := FindWindow(nil,WindowTitle);
  GetWindowThreadProcessId(HandleWindow,@ProcessId);
  HandleProc := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
  BaseAddress := GetModuleAddress(ProcessId, 'Game.dll');
  ReadProcessMemory(HandleProc, Ptr(BaseAddress + Address), @b, 4, readwrite);
  label2.Caption := (inttostr(b));

Offsets сами найдете для своего сервера. Заменять в переменной address := $10A490C;


[Ссылки могут видеть только зарегистрированные пользователи. ]

[-Emp-]

А зачем перед ХП выделенную память под ник снова заполняешь нулями?

[mars2107]

Чтобы быть уверенным, что в памяти (куда указывает переменная) не осталось данных от предыдущего использования. Хотя на деле - это лишний вызов.

[-Emp-]

Я понимаю, просто ты второй раз затираешь память по адресу, где name, но этот учвсток уже не используешь. Тогда уж затирал бы участок по адресу переменной b. А вообще перед числами (байт, 2, 4, 8 и т.д.) я думаю этого делать нет смысла. Ну это лично мое мнение)