|
офсеты в Delphi - Общение разработчиков - Программирование для Perfect World, общение и обсуждене разработок |
02.06.2011, 19:58
|
#1
|
|
|
|
Разведчик
|
Регистрация: 07.02.2011
Сообщений: 38
Популярность: 143
Сказал(а) спасибо: 5
Поблагодарили 20 раз(а) в 11 сообщениях
|
офсеты в Delphi
ку )) народ, млин )) видимо я совсем тупой, но моих 13 лет кодинга на delphi не хватает, что бы разобраться с этими гребанными офсетами и как их туды впихнуть... просто со всяк такой фигней не особо сталкивался... если кому не трудно... может кто помочь, объяснить это все человекопонятным языком )) а в идеале показать простейший исходничек, желательно с коментами к примеру на получение хп перса )) а то скок я уже тем перерыл )) скок всего этого перечитал )) ничерта не вникаю ))
заранее благодарен ))
|
|
|
02.06.2011, 20:36
|
#2
|
|
|
|
Фельдмаршал
|
Регистрация: 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" или "Пишем Джампхак", "Поиск инжектов" или "Наш код в чужом процессе"
|
|
|
17.06.2011, 14:28
|
#3
|
|
|
|
Пехотинец
|
Регистрация: 27.02.2010
Сообщений: 72
Популярность: 71
Сказал(а) спасибо: 27
Поблагодарили 35 раз(а) в 16 сообщениях
|
Re: офсеты в Delphi
Вот пример) Функция для получения значения типа Integer
Код:
Function TFMain.GetCharInt(Adress: Integer): Integer;
var
Buf, Process, PId: integer;
wr: cardinal;
begin
GetWindowThreadProcessId(ClientPID, @PId);
process:=OpenProcess(PROCESS_ALL_ACCESS, false, PId);
if process<>0 then begin
readprocessmemory(process, ptr(BaseAdress), @Buf, sizeof(Buf), wr);
readprocessmemory(process, ptr(Buf+$1c), @Buf, sizeof(Buf), wr);
readprocessmemory(process, ptr(Buf+$20), @Buf, sizeof(Buf), wr);
readprocessmemory(process, ptr(Buf+Adress), @buf, sizeof(Buf), wr);
Result:=Buf;
CloseHandle(process);
end;
end;
Краткое пояснение по переменным:
ClientPID - Process ID клиента ПВ (нахождение: ClientPID:=FindProcess(nil,'Perfect World', где Perfect World - название окна)
BaseAdress - BaseAdress (пример в адреса в 10ной системе для текущей версии оффа: 10860812)
Adress - Адрес параметра, которого хотите получить (пример в адреса в 10ной системе для текущей версии оффа: CurrentHP - 1140; MaxHP - 1204)
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 09:51.
|
|