"Патчер памяти" или "Пишем флайхак" [Delphi] - Разработка ПО для Perfect World - Бюро разработчиков Zhyk.Ru: создание ботов, снифферов и прочих программ для Perfect World
10.09.2010, 18:48
#16
Сержант
Регистрация: 05.04.2010
Сообщений: 134
Популярность: 805
Сказал(а) спасибо: 38
Поблагодарили 55 раз(а) в 33 сообщениях
Re: "Патчер памяти" или "Пишем флайхак" [Delphi]
________________
Спасибо не говорят, СПАСИБО нажимают
10.09.2010, 18:50
#17
Фельдмаршал
Регистрация: 13.08.2009
Сообщений: 1,004
Популярность: 25098
Золото Zhyk.Ru: 350
Сказал(а) спасибо: 110
Поблагодарили 830 раз(а) в 395 сообщениях
Re: "Патчер памяти" или "Пишем флайхак" [Delphi]
Специально для НЕТилиДА:
На Интернациональном нет, китайский я не знаю.
Через часок почищу тему.
________________
Ни одно доброе дело не остается безнаказанным.
Программы:
PW: Флудобот , Девизхак , OutFocusBot , OutFocusBot ver 3 (freepvp) , PWMultiHack ver 3 , AutoRespawn .
JD: JDMultiHack , JDFlooder , JDBot .
Статьи: Отключаем UAC , Ищем базовый адрес Perfect World , "Патчер памяти" или "Пишем флайхак" , "Патчер памяти 2" или "Пишем Джампхак" , "Поиск инжектов" или "Наш код в чужом процессе"
10.09.2010, 18:57
#18
Разведчик
Регистрация: 28.11.2009
Сообщений: 6
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Re: "Патчер памяти" или "Пишем флайхак" [Delphi]
10.09.2010, 19:04
#19
Фельдмаршал
Регистрация: 13.08.2009
Сообщений: 1,004
Популярность: 25098
Золото Zhyk.Ru: 350
Сказал(а) спасибо: 110
Поблагодарили 830 раз(а) в 395 сообщениях
Re: "Патчер памяти" или "Пишем флайхак" [Delphi]
Напиши сюда базовый адрес, который используешь.
________________
Ни одно доброе дело не остается безнаказанным.
Программы:
PW: Флудобот , Девизхак , OutFocusBot , OutFocusBot ver 3 (freepvp) , PWMultiHack ver 3 , AutoRespawn .
JD: JDMultiHack , JDFlooder , JDBot .
Статьи: Отключаем UAC , Ищем базовый адрес Perfect World , "Патчер памяти" или "Пишем флайхак" , "Патчер памяти 2" или "Пишем Джампхак" , "Поиск инжектов" или "Наш код в чужом процессе"
10.09.2010, 19:07
#20
Разведчик
Регистрация: 28.11.2009
Сообщений: 6
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Re: "Патчер памяти" или "Пишем флайхак" [Delphi]
10.09.2010, 19:18
#21
Фельдмаршал
Регистрация: 13.08.2009
Сообщений: 1,004
Популярность: 25098
Золото Zhyk.Ru: 350
Сказал(а) спасибо: 110
Поблагодарили 830 раз(а) в 395 сообщениях
Re: "Патчер памяти" или "Пишем флайхак" [Delphi]
В аттаче таблица для CE, в ней указанный мною путь к адресу ника.
Ник читается. А раз ник читается, значит что-то ты неверно делаешь.
________________
Ни одно доброе дело не остается безнаказанным.
Программы:
PW: Флудобот , Девизхак , OutFocusBot , OutFocusBot ver 3 (freepvp) , PWMultiHack ver 3 , AutoRespawn .
JD: JDMultiHack , JDFlooder , JDBot .
Статьи: Отключаем UAC , Ищем базовый адрес Perfect World , "Патчер памяти" или "Пишем флайхак" , "Патчер памяти 2" или "Пишем Джампхак" , "Поиск инжектов" или "Наш код в чужом процессе"
12.09.2010, 01:01
#22
Разведчик
Регистрация: 10.09.2010
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Re: "Патчер памяти" или "Пишем флайхак" [Delphi]
12.09.2010, 01:19
#23
Фельдмаршал
Регистрация: 13.08.2009
Сообщений: 1,004
Популярность: 25098
Золото Zhyk.Ru: 350
Сказал(а) спасибо: 110
Поблагодарили 830 раз(а) в 395 сообщениях
Re: "Патчер памяти" или "Пишем флайхак" [Delphi]
________________
Ни одно доброе дело не остается безнаказанным.
Программы:
PW: Флудобот , Девизхак , OutFocusBot , OutFocusBot ver 3 (freepvp) , PWMultiHack ver 3 , AutoRespawn .
JD: JDMultiHack , JDFlooder , JDBot .
Статьи: Отключаем UAC , Ищем базовый адрес Perfect World , "Патчер памяти" или "Пишем флайхак" , "Патчер памяти 2" или "Пишем Джампхак" , "Поиск инжектов" или "Наш код в чужом процессе"
12.09.2010, 14:12
#24
Разведчик
Регистрация: 28.11.2009
Сообщений: 6
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Re: "Патчер памяти" или "Пишем флайхак" [Delphi]
Цитата:
В аттаче таблица для 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, 20:51
#25
Фельдмаршал
Регистрация: 13.08.2009
Сообщений: 1,004
Популярность: 25098
Золото Zhyk.Ru: 350
Сказал(а) спасибо: 110
Поблагодарили 830 раз(а) в 395 сообщениях
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 байта.
________________
Ни одно доброе дело не остается безнаказанным.
Программы:
PW: Флудобот , Девизхак , OutFocusBot , OutFocusBot ver 3 (freepvp) , PWMultiHack ver 3 , AutoRespawn .
JD: JDMultiHack , JDFlooder , JDBot .
Статьи: Отключаем UAC , Ищем базовый адрес Perfect World , "Патчер памяти" или "Пишем флайхак" , "Патчер памяти 2" или "Пишем Джампхак" , "Поиск инжектов" или "Наш код в чужом процессе"
25.09.2010, 08:48
#26
Разведчик
Регистрация: 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 в 17:42 .
25.09.2010, 20:23
#27
Фельдмаршал
Регистрация: 13.08.2009
Сообщений: 1,004
Популярность: 25098
Золото Zhyk.Ru: 350
Сказал(а) спасибо: 110
Поблагодарили 830 раз(а) в 395 сообщениях
Re: "Патчер памяти" или "Пишем флайхак" [Delphi]
По первому коду - таким образом как ты это делаешь, нужно постоянно записывать 1 в этот адрес, а не 1 раз.
По второму коду - вероятно ты используешь переменную размером в 1 байт.
________________
Ни одно доброе дело не остается безнаказанным.
Программы:
PW: Флудобот , Девизхак , OutFocusBot , OutFocusBot ver 3 (freepvp) , PWMultiHack ver 3 , AutoRespawn .
JD: JDMultiHack , JDFlooder , JDBot .
Статьи: Отключаем UAC , Ищем базовый адрес Perfect World , "Патчер памяти" или "Пишем флайхак" , "Патчер памяти 2" или "Пишем Джампхак" , "Поиск инжектов" или "Наш код в чужом процессе"
26.09.2010, 10:01
#28
Разведчик
Регистрация: 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 в 10:06 .
26.09.2010, 10:49
#29
Фельдмаршал
Регистрация: 13.08.2009
Сообщений: 1,004
Популярность: 25098
Золото Zhyk.Ru: 350
Сказал(а) спасибо: 110
Поблагодарили 830 раз(а) в 395 сообщениях
Re: "Патчер памяти" или "Пишем флайхак" [Delphi]
Это все так забавно
Начнем с простого
Target_offset:=$AF8; Где вы взяли $384?
А по поводу кода - окно ПВ с последнего обновления принимает нажатия клавиш только в активном (и размороженном) виде.
А в случае с вашим компонентом вообще только в активном окне, используйте лучше
sendmessage или postmessage.
________________
Ни одно доброе дело не остается безнаказанным.
Программы:
PW: Флудобот , Девизхак , OutFocusBot , OutFocusBot ver 3 (freepvp) , PWMultiHack ver 3 , AutoRespawn .
JD: JDMultiHack , JDFlooder , JDBot .
Статьи: Отключаем UAC , Ищем базовый адрес Perfect World , "Патчер памяти" или "Пишем флайхак" , "Патчер памяти 2" или "Пишем Джампхак" , "Поиск инжектов" или "Наш код в чужом процессе"
26.09.2010, 16:54
#30
Разведчик
Регистрация: 19.10.2009
Сообщений: 8
Популярность: 12
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
Re: "Патчер памяти" или "Пишем флайхак" [Delphi]
Офсеты взял из поста Sergiuz'а.
Интересная тема, разбудила желание снова установить дельфи, но к сожалению то с чем сейчас сталкиваюсь на парах не проходили, поэтому будет море вопросов, надеюсь на достану...
Пойду косячить дальше =)
Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 04:53 .