Гость Vl4dislaV Опубликовано 6 июня, 2016 Поделиться Опубликовано 6 июня, 2016 Я хотел сделать трейнер для интернет игры. Через 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; Ссылка на комментарий Поделиться на другие сайты Поделиться
krocki Опубликовано 7 июня, 2016 Поделиться Опубликовано 7 июня, 2016 Насчёт кода Delphi 7 не знаю, а вот... Может над инструкцией mov [ecx+24],eax есть такой код dec eax или inc eax или sub eax,...хз какая рега, тебе видней в отладчике. Если есть попробуй её затереть nop'ом (90). Ссылка на комментарий Поделиться на другие сайты Поделиться
Рекомендуемые сообщения