Vl4dislaV

При замене байтов через программы игра вылетает. Но при этом когда меняю через CE, то всё нормально.

2 сообщения в этой теме

Я хотел сделать трейнер для интернет игры. Через CE всё ок, но когда делаю тоже самое, только через трейнер, то игра вылетает с ошибкой.

Трейнер делал на Delphi 7.

Вот код.

Скрытый текст

procedure TForm1.sCheckBox1Click(Sender: TObject);
var
Search: TMemorySearch;
begin
if sCheckBox1.Checked then begin
FreeAndNil(SearchResult);
if SearchEngine <> nil then
begin
Search := SearchEngine.NewSearch('89 41 24 8D 9B 98 02 00 00 89 5D A8 8D 55 B0 8B');
try
Search.OPT_READPAGE_EXECUTEREADWRITE := True;
Search.OPT_READPAGE_READWRITE := True;
Search.OPT_READPAGE_EXECUTEREAD := True;
Search.OPT_READPAGE_READONLY := True;

if Search.Next then begin
SearchResult := Search.GetFindedAddressObject;
SearchResult.WriteHEX(0, '90 90 90 8D 9B 98 02 00 00 89 5D A8 8D 55 B0 8B');
 MessageDlg('Активировано!',mtInformation,[mbOK],0);
end
else
  MessageDlg('Ошибка!',mtError,[mbOK],0);
finally
Search.Free;
end;
end
else
MessageDlg ('Браузер не выбран!',mtError,[mbOK],0);
end
else
if sCheckBox1.Checked = False then begin
if SearchResult <> nil then
begin
if not SearchResult.WriteHEX(0, '89 41 24 8D 9B 98 02 00 00 89 5D A8 8D 55 B0 8B') then
end;
end;
end;

 

 

0

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

Насчёт кода  Delphi 7 не знаю, а вот...

Может над инструкцией mov [ecx+24],eax есть такой код dec eax или inc eax или sub eax,...хз какая рега, тебе видней в отладчике.

Если есть попробуй её затереть nop'ом (90).

0

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

Создайте аккаунт или войдите для комментирования

Вы должны быть пользователем, чтобы оставить комментарий

Создать аккаунт

Зарегистрируйтесь для получения аккаунта. Это просто!


Зарегистрировать аккаунт

Войти

Уже зарегистрированы? Войдите здесь.


Войти сейчас