Перейти к содержанию

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


Рекомендуемые сообщения

Я хотел сделать трейнер для интернет игры. Через 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;

 

 

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

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

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

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

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

×
×
  • Создать...

Важная информация

Находясь на нашем сайте, Вы автоматически соглашаетесь соблюдать наши Условия использования.