[Скрипт] "Патчер памяти" или "Пишем флайхак" [Delphi] - Страница 2 - Zhyk.Ru Forums
Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация
Навигация
Zhyk.Ru LIVE! Реклама на Zhyk.Ru Доска почета top.zhyk.ru (beta) Премиум-аккаунт

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

-

Разработка ПО для Perfect World

- Бюро разработчиков Zhyk.Ru: создание ботов, снифферов и прочих программ для Perfect World

Ответ
 
Опции темы Опции просмотра
Старый 10.09.2010, 17:48   #16
 Сержант
Аватар для НЕТилиДа
 
НЕТилиДа лучик света в грозовом небеНЕТилиДа лучик света в грозовом небеНЕТилиДа лучик света в грозовом небеНЕТилиДа лучик света в грозовом небеНЕТилиДа лучик света в грозовом небеНЕТилиДа лучик света в грозовом небеНЕТилиДа лучик света в грозовом небе
Регистрация: 05.04.2010
Сообщений: 134
Популярность: 805
Сказал(а) спасибо: 38
Поблагодарили 55 раз(а) в 33 сообщениях
 
По умолчанию Re: "Патчер памяти" или "Пишем флайхак" [Delphi]

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

Аааа ясно
Но тогда еще один вопрос, кто играет на малазийском или американсом.
Есть ли там флайхак или нет ? Просто интересно, смогли ли обойти эту защиту
________________
Спасибо не говорят, СПАСИБО нажимают
  Ответить с цитированием
Старый 10.09.2010, 17:50   #17
Reaper
 Фельдмаршал
Аватар для Dinmaite
 
Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(
Регистрация: 13.08.2009
Сообщений: 1,000
Популярность: 22697
Золото Zhyk.Ru: 350
Сказал(а) спасибо: 108
Поблагодарили 827 раз(а) в 393 сообщениях
Отправить сообщение для Dinmaite с помощью ICQ
 
По умолчанию Re: "Патчер памяти" или "Пишем флайхак" [Delphi]

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

Через часок почищу тему.
  Ответить с цитированием
Старый 10.09.2010, 17:57   #18
 Разведчик
Аватар для Sergiuz
 
Sergiuz никому не известный тип
Регистрация: 28.11.2009
Сообщений: 6
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: "Патчер памяти" или "Пишем флайхак" [Delphi]

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

Результат пустая строка
  Ответить с цитированием
Старый 10.09.2010, 18:04   #19
Reaper
 Фельдмаршал
Аватар для Dinmaite
 
Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(
Регистрация: 13.08.2009
Сообщений: 1,000
Популярность: 22697
Золото Zhyk.Ru: 350
Сказал(а) спасибо: 108
Поблагодарили 827 раз(а) в 393 сообщениях
Отправить сообщение для Dinmaite с помощью ICQ
 
По умолчанию Re: "Патчер памяти" или "Пишем флайхак" [Delphi]

Напиши сюда базовый адрес, который используешь.
  Ответить с цитированием
Старый 10.09.2010, 18:07   #20
 Разведчик
Аватар для Sergiuz
 
Sergiuz никому не известный тип
Регистрация: 28.11.2009
Сообщений: 6
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: "Патчер памяти" или "Пишем флайхак" [Delphi]

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

тот который у тебя в примере: $009C0E6C
  Ответить с цитированием
Старый 10.09.2010, 18:18   #21
Reaper
 Фельдмаршал
Аватар для Dinmaite
 
Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(
Регистрация: 13.08.2009
Сообщений: 1,000
Популярность: 22697
Золото Zhyk.Ru: 350
Сказал(а) спасибо: 108
Поблагодарили 827 раз(а) в 393 сообщениях
Отправить сообщение для Dinmaite с помощью ICQ
 
По умолчанию Re: "Патчер памяти" или "Пишем флайхак" [Delphi]

В аттаче таблица для CE, в ней указанный мною путь к адресу ника.
Ник читается. А раз ник читается, значит что-то ты неверно делаешь.
Вложения
Тип файла: rar Nick.rar (206 байт, 112 просмотров)
  Ответить с цитированием
Старый 12.09.2010, 00:01   #22
 Разведчик
Аватар для Sin Aiko
 
Sin Aiko никому не известный тип
Регистрация: 10.09.2010
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: "Патчер памяти" или "Пишем флайхак" [Delphi]

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

А что за программа CE и где её скачать? Простите за нубство.
  Ответить с цитированием
Старый 12.09.2010, 00:19   #23
Reaper
 Фельдмаршал
Аватар для Dinmaite
 
Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(
Регистрация: 13.08.2009
Сообщений: 1,000
Популярность: 22697
Золото Zhyk.Ru: 350
Сказал(а) спасибо: 108
Поблагодарили 827 раз(а) в 393 сообщениях
Отправить сообщение для Dinmaite с помощью ICQ
 
По умолчанию Re: "Патчер памяти" или "Пишем флайхак" [Delphi]

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

[Ссылки могут видеть только зарегистрированные пользователи. ]
  Ответить с цитированием
Старый 12.09.2010, 13:12   #24
 Разведчик
Аватар для Sergiuz
 
Sergiuz никому не известный тип
Регистрация: 28.11.2009
Сообщений: 6
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
Unhappy Re: "Патчер памяти" или "Пишем флайхак" [Delphi]

Цитата:
Сообщение от 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
Проверить на других тачках нет возможности (
  Ответить с цитированием
Старый 12.09.2010, 19:51   #25
Reaper
 Фельдмаршал
Аватар для Dinmaite
 
Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(
Регистрация: 13.08.2009
Сообщений: 1,000
Популярность: 22697
Золото Zhyk.Ru: 350
Сказал(а) спасибо: 108
Поблагодарили 827 раз(а) в 393 сообщениях
Отправить сообщение для Dinmaite с помощью ICQ
 
По умолчанию Re: "Патчер памяти" или "Пишем флайхак" [Delphi]

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 байта.
  Ответить с цитированием
Старый 25.09.2010, 07:48   #26
 Разведчик
Аватар для Corel
 
Corel никому не известный тип
Регистрация: 19.10.2009
Сообщений: 8
Популярность: 12
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
 
По умолчанию Re: "Патчер памяти" или "Пишем флайхак" [Delphi]

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

Код:
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 нажимать на клавиши в окне? Помогите нубу

Последний раз редактировалось Corel; 25.09.2010 в 16:42.
  Ответить с цитированием
Старый 25.09.2010, 19:23   #27
Reaper
 Фельдмаршал
Аватар для Dinmaite
 
Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(
Регистрация: 13.08.2009
Сообщений: 1,000
Популярность: 22697
Золото Zhyk.Ru: 350
Сказал(а) спасибо: 108
Поблагодарили 827 раз(а) в 393 сообщениях
Отправить сообщение для Dinmaite с помощью ICQ
 
По умолчанию Re: "Патчер памяти" или "Пишем флайхак" [Delphi]

По первому коду - таким образом как ты это делаешь, нужно постоянно записывать 1 в этот адрес, а не 1 раз.
По второму коду - вероятно ты используешь переменную размером в 1 байт.
  Ответить с цитированием
Старый 26.09.2010, 09:01   #28
 Разведчик
Аватар для Corel
 
Corel никому не известный тип
Регистрация: 19.10.2009
Сообщений: 8
Популярность: 12
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
 
По умолчанию Re: "Патчер памяти" или "Пишем флайхак" [Delphi]

Действительно, проблема была в этом.
Но чем глубже в лес тем больше дров
Код:
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 ? выдает в СЕ в значении вопросы.

Последний раз редактировалось Corel; 26.09.2010 в 09:06.
  Ответить с цитированием
Старый 26.09.2010, 09:49   #29
Reaper
 Фельдмаршал
Аватар для Dinmaite
 
Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(
Регистрация: 13.08.2009
Сообщений: 1,000
Популярность: 22697
Золото Zhyk.Ru: 350
Сказал(а) спасибо: 108
Поблагодарили 827 раз(а) в 393 сообщениях
Отправить сообщение для Dinmaite с помощью ICQ
 
По умолчанию Re: "Патчер памяти" или "Пишем флайхак" [Delphi]

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

А по поводу кода - окно ПВ с последнего обновления принимает нажатия клавиш только в активном (и размороженном) виде.
А в случае с вашим компонентом вообще только в активном окне, используйте лучше
sendmessage или postmessage.
  Ответить с цитированием
Старый 26.09.2010, 15:54   #30
 Разведчик
Аватар для Corel
 
Corel никому не известный тип
Регистрация: 19.10.2009
Сообщений: 8
Популярность: 12
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
 
По умолчанию Re: "Патчер памяти" или "Пишем флайхак" [Delphi]

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

Метки
flyhack, патчер памяти, пишем флайхак, perfect world

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Помогите!] Мало памяти для JVM Shaikan Вопросы и ответы, обсуждения 2 14.01.2013 03:11
[Статья] Пишем брутфорс [Delphi] ReAct1[on] Pascal/Delphi 1 16.11.2012 19:34
СЕ на PvPwar + еще 1 редактор памяти Lumer Rising Force Online 26 25.02.2009 21:35

www.webmoney.ru
Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 23:07.

Пишите нам: forum@zhyk.ru
Copyright © 2019 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net