[Помогите!] Чтение Ассемблера в игре.

[VeTaL_UA]

Цитата: Проблема, я не знаю как код выглядит :/

var
  i: integer;
  { ... }
begin
  i := 0;
    while i < $100 do  //TODO: insert correct value
      begin
        //TODO: Read value from process memory
        inc(i);
      end;
  i := 0;
    repeat
      //TODO: Read value from process memory
      inc(i);
    until
      i = $100;  //TODO: insert correct value
    for i := 0 to $100 do  //TODO: insert correct value
      begin
        //TODO: Read value from process
      end;
end;

Выше примеры трёш цыклов. Выбирай любой.

[Foreworld]

:/ Эти циклы увеличивают значение " i " от 0 до 100.
Не совсем понимаю каким образом он будет находить истину(правильное значение " i ")

Я каждый раз использую таков вид подключения и считывания к процессору:

Цитата: var ... KlientWindow:HWND; ProcessId:Integer; hProcess:Integer; ...

Цитата: procedure TForm1.Button1Click(Sender: TObject); begin KlientWindow := FindWindow(nil, PChar('Perfect World')); GetWindowThreadProcessId(KlientWindow,@ProcessId); hProcess := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId); if hProcess <> 0 then begin Label1.Caption :='Игра запущена!'; Timer1.Enabled := True; end else Label1.Caption :='Игра не запущена!'; end;

Цитата: begin try ReadProcessMemory (hProcess, Pointer($C38B6C), @WHP, sizeof(WHP), NoB); ReadProcessMemory (hProcess, Pointer(WHP+$1C), @WHP, sizeof(WHP), NoB); ReadProcessMemory (hProcess, Pointer(WHP+$34), @WHP, sizeof(WHP), NoB); ReadProcessMemory (hProcess, Pointer(WHP+$4A8), @WHP, sizeof(WHP), NoB)

i:Integer;
begin
For i :=0 to $100 do
begin
...
end;
ReadProcessMemory (hProcess, Pointer(WHP+(i*4)), @WHP, 4, NoB);

Что еще нужно добавить? Я просто плохо знаю Delphi

[VeTaL_UA]

Цитата: от 0 до 100.

от 0 до 255

Цитата: ReadProcessMemory (hProcess, Pointer(WHP+(i*4)), @WHP, 4, NoB);

внутри цыкла

Цитата: Я просто плохо знаю Delphi

дак пиши на том, что знает лучше, разницы нету.

[Foreworld]

Цитата: i:Integer; begin For i :=0 to $100 do begin ReadProcessMemory (hProcess, Pointer(WHP+(i*4)), @WHP, 4, NoB); end;

Таким обрахом он может мне выдать любое значение, а мне нужно правильное.

[VeTaL_UA]

Цитата: Таким обрахом он может мне выдать любое значение, а мне нужно правильное.

255-ое значение оно тебе выдаст.

[Foreworld]

Но зачем 255-ое значение. i меняется каждый раз, когда (захожу в инвентарь, захожу в другую локацию и т.д)
Вот например я найду в cheating engine, что i = 5. Я умножу 5*4 и получу структуру равную 14. Перезайду и бац i будет равно другому значения. А этим кодом i будет равно 255-му значению. Я не врубаюсь каким образом цепочка будет работать??? o_O

[VeTaL_UA]

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

[Foreworld]

Я не понимаю что мне тогда делать...

[VeTaL_UA]

Цитата: Я не понимаю что мне тогда делать...

Учить основы, а не лезть в дебри реверсинга

[Foreworld]

Может все же научишь?))) Основу я знаю Delphi, но опыт написания кодинга очень мал...

[VeTaL_UA]

Цитата: Может все же научишь?)))

Я не настолько пацифист, чтобы бесплатно проводить лекции, да ещё и в таком объёме. Изучение ассемблера, даже основ, занимает не один месяц времени.

Цитата: Основу я знаю Delphi

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

[Foreworld]

DD ну хотяб дай ссылки или подскажи названия книг, где ты учился)))
Не я в правду знаю слегка Delphi. Первый раз когда смотрел код в Delphi думал что это за кракозябры. А сейчас спокойно понимаю, что выполняет код.)

[RenatPro]

Цитата: Сообщение от Foreworld DD ну хотяб дай ссылки или подскажи названия книг, где ты учился))) Не я в правду знаю слегка Delphi. Первый раз когда смотрел код в Delphi думал что это за кракозябры. А сейчас спокойно понимаю, что выполняет код.)

Я думаю не так все просто тебе надо определить хотя бы часть значения на которое заканчивается или начинается нужное значение. (офсет)