[Скрипт] "Патчер памяти" или "Пишем флайхак" [Delphi]

[НЕТилиДа]

Цитата: Сообщение от Nitrosgen НЕТилиДА, это просто руководство, для тех, кто хочет разобраться в клиенте пв, для тех, кто хочет научиться писать программы под него но не знает что и как оно показывает пример программирования на делфи

Аааа ясно
Но тогда еще один вопрос, кто играет на малазийском или американсом.
Есть ли там флайхак или нет ? Просто интересно, смогли ли обойти эту защиту

[Dinmaite]

Специально для НЕТилиДА:
На Интернациональном нет, китайский я не знаю.

Через часок почищу тему.

[Sergiuz]

Цитата: Сообщение от Dinmaite потому что оффсет имени [ba]+$1C+$20+$608+$0

Результат пустая строка

[Dinmaite]

Напиши сюда базовый адрес, который используешь.

[Sergiuz]

Цитата: Сообщение от Dinmaite Напиши сюда базовый адрес, который используешь.

тот который у тебя в примере: $009C0E6C

[Dinmaite]

В аттаче таблица для CE, в ней указанный мною путь к адресу ника.
Ник читается. А раз ник читается, значит что-то ты неверно делаешь.

[Sin Aiko]

Цитата: В аттаче таблица для CE

А что за программа CE и где её скачать? Простите за нубство.

[Dinmaite]

Цитата: Сообщение от Sin Aiko А что за программа CE и где её скачать? Простите за нубство.

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

[Sergiuz]

Цитата: Сообщение от Dinmaite В аттаче таблица для CE, в ней указанный мною путь к адресу ника. Ник читается. А раз ник читается, значит что-то ты неверно делаешь.

В СЕ все проходит на Ура. Когда пытаюсь отобразить через программу получаю вот это:
[Ссылки могут видеть только зарегистрированные пользователи. ]

Сам код:

procedure TForm2.Button1Click(Sender: TObject);
var
buft:array [0..16] of WideChar;
buf:byte;
ipbuf: dword;
s: string;
begin
  WndHndl:=findwindow('ElementClient Window',nil);
  GetWindowThreadProcessId(WndHndl, @PID);
  hProcess:=OpenProcess(PROCESS_ALL_ACCESS, False, PID);
  if hProcess <> 0 then
  begin

    Memo1.Lines.clear;

    ReadProcessMemory(hProcess, ptr(BaseCall_Address), @ipbuf, sizeof(ipbuf), BytesCount);
    ReadProcessMemory(hProcess, ptr(ipbuf+$1C), @ipbuf, sizeof(ipbuf), BytesCount);
    ReadProcessMemory(hProcess, ptr(ipbuf+$20), @ipbuf, sizeof(ipbuf), BytesCount);

    ReadProcessMemory(hProcess, ptr(ipbuf+Lvl_offset), @buf, sizeof(buf), BytesCount);
    Memo1.Lines.Add('LVL: '+inttostr(buf));


    ReadProcessMemory(hProcess, ptr(ipbuf+DEX_offset), @buf, sizeof(buf), BytesCount);
    Memo1.Lines.Add('DEX: '+inttostr(buf));


    ReadProcessMemory(hProcess, ptr(ipbuf+MAG_offset), @buf, sizeof(buf), BytesCount);
    Memo1.Lines.Add('Mag: '+inttostr(buf));

    ReadProcessMemory(hProcess, ptr(ipbuf+MAxHP_offset), @buf, sizeof(buf), BytesCount);
    Memo1.Lines.Add('MaxHP: '+inttostr(buf));

    ReadProcessMemory(hProcess, ptr(ipbuf+Name_offset+$0), @buft, 16, BytesCount);
    s:=WideCharToString(buft);
    Memo1.Lines.Add('Name: '+buft+'  -  '+s);
 
  end
  else showmessage ('not login');
end;

Оффсеты забиты константами

const
    Unfreeze_Address=$9C1984;
    Base_Address=$9C1514;
    BaseCall_Address=$009C0E6C;
    Pet_Offset=$FF8;
    Jump_Offset=$BF4;
    CastID_Offset=$6C4;
    State_Offset=$668;
    Class_Offset=$610;
    Name_Offset=$608;
    CHI_Offset=$53C;
    MaxCHI_Offset=$524;
    MaxMP_OffSet=$4A8;
    MaxHP_Offset=$4A4;
    DEX_Offset=$4A0;
    STR_Offset=$49C;
    MAG_Offset=$498;
    VIT_Offset=$494;
    Spirit_Offset=$478;
    EXP_Offset=$474;
    MP_Offset=$470;
    HP_Offset=$46C;
    Culti_Offset=$468;
    LVL_Offset=$464;
    CharID_Offset=$458;
    TargetID_Offset=$384;
    Fly_Offset=$668;

Теперь самое интересное:
СЕ ХП и Имя персонажа отображает правильно:
[Ссылки могут видеть только зарегистрированные пользователи. ]

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

Где я ошибся???

П.С.: Юзаю Delphi 2010+Windows 7
Проверить на других тачках нет возможности (

[Dinmaite]

ReadProcessMemory(hProcess, ptr(ipbuf+Name_offset+$0), @buft, 16, BytesCount);

Тут в пору ставить
ты везде читал структуры +n+n по очереди, а почему тут решил сразу?
Верный код
ReadProcessMemory(hProcess, ptr(ipbuf+Name_offset), @ipbuf, 4, BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuf+0), @buft, 32, BytesCount);
Важно!! именно 32, так как строки в формате юникод, а 1 символ юникода занимает 2 байта.

[Corel]

Аналогичная проблема - в СЕ всепоказывается верно, программа же показывает непонятное значение хп, мп и экспы. Еще не получилось пихнуть туда же антифриз(

procedure TForm1.Button1Click(Sender: TObject);
var
buf:byte;
WndHndl:THandle;
ipbuf,PID,hProcess,BytesCount:dword;
begin
  buf:=1;
  writeprocessmemory(hProcess,ptr($9C1984),@buf,1,BytesCount);
end;

ReadProcessMemory(hProcess, ptr(BaseCall_Address), @ipbuf, sizeof(ipbuf), BytesCount);
    ReadProcessMemory(hProcess, ptr(ipbuf+$1C), @ipbuf, sizeof(ipbuf), BytesCount);
    ReadProcessMemory(hProcess, ptr(ipbuf+$20), @ipbuf, sizeof(ipbuf), BytesCount);
    ReadProcessMemory(hProcess, ptr(ipbuf+MaxHP_offset), @buf, sizeof(buf), BytesCount);
    maxhp:=inttostr(buf);
    ReadProcessMemory(hProcess, ptr(ipbuf+HP_offset), @buf, sizeof(buf), BytesCount);
    hp:=inttostr(buf);
    hplab.Caption:=hp+'/'+maxhp;
    ReadProcessMemory(hProcess, ptr(ipbuf+Maxmp_offset), @buf, sizeof(buf), BytesCount);
    maxmp:=inttostr(buf);
    ReadProcessMemory(hProcess, ptr(ipbuf+mp_offset), @buf, sizeof(buf), BytesCount);
    mp:=inttostr(buf);
    mplab.Caption:=mp+'/'+maxmp;
    ReadProcessMemory(hProcess, ptr(ipbuf+exp_offset), @buf, sizeof(buf), BytesCount);
    explab.Caption:=inttostr(buf);

В чем загвостка то?

UPD. На начальных уровнях никаких трабл не возникает все отлично работает, но на более менее высоких начинается бред. из 2013 показывает 235 причем снимаю шлем +35 хп становится 1978 а в проге 200. И если не секрет как заставить компонент sendkeys нажимать на клавиши в окне? Помогите нубу

[Dinmaite]

По первому коду - таким образом как ты это делаешь, нужно постоянно записывать 1 в этот адрес, а не 1 раз.
По второму коду - вероятно ты используешь переменную размером в 1 байт.

[Corel]

Действительно, проблема была в этом.
Но чем глубже в лес тем больше дров

procedure TForm1.Button1Click(Sender: TObject);
begin
    SendKeys1.GetWindowHandle('Perfect World');
    if SendKeys1.WindowHandle <> 0 then
    SendKeys1.SendKeys('2');
end;

При нажатии никаких действий, но если установить таргет на чат в игре, то тогда при нажатии на батон1 замечательно печатает 2ки в чате
И еще неполучилось найти в памяти хп цели (и ее название) Как искать то? (значения хп пета тоже найти неполучилось( )

UPD как получили это значение TargetID_Offset=$384 ? выдает в СЕ в значении вопросы.

[Dinmaite]

Это все так забавно
Начнем с простого
Target_offset:=$AF8; Где вы взяли $384?

А по поводу кода - окно ПВ с последнего обновления принимает нажатия клавиш только в активном (и размороженном) виде.
А в случае с вашим компонентом вообще только в активном окне, используйте лучше
sendmessage или postmessage.

[Corel]

Офсеты взял из поста Sergiuz'а.
Интересная тема, разбудила желание снова установить дельфи, но к сожалению то с чем сейчас сталкиваюсь на парах не проходили, поэтому будет море вопросов, надеюсь на достану...
Пойду косячить дальше =)