[реклама вместо картинки]
html counterсчетчик посетителей сайта

RF-bug cheat forum RFonline

Объявление

[реклама вместо картинки]
Добро пожаловать!

РЕГИСТРАЦИЯ пользователей производится по E-mail. По всем вопросам обращаться в ICQ Suppport'ов (см. контакты)
[реклама вместо картинки]
05. 04. 08. Форум начал работу

ВСЕМ ПРИШЕДШИМ

Настоятельно рекомендуется опубликовать полную информации "о себе" а так же НИКИ на разных форумах
(возможно понадобится ваша помощь в вынимании инфы)

10.07.08 Из-за участившегося крысятничества наших багов и софта, открыт новый раздел на форуме (скрытый от посторонних глаз). Теперь все самое вкусное там! Для просмотра данного раздела вам нужно набрать 60 постов.
14.07.08 Приносим наши извенения из-за постоянных перебоев в работе форума. Траблы не у нас, а на сервисе mybb.

19.07.08 ДЛЯ ТУПЫХ МАРГИНАЛОВ ПОВТОРЯЕМ: Во всех разделах форума - счетчик сообщений отключен (т.е. посты за ваши сообщения начисляем МЫ и хоть 1000 сообщений оставьте, будет в счетчике - 0)
[реклама вместо картинки] [реклама вместо картинки]
ICQ: ICQ status 431632444 - Djet ,ICQ status 484899477 - Неняшко (Noob_Killer) ,ICQ status 419552651 - IFRIT ,
ICQ status 492143322 - Drozh ,ICQ status 331573269 - faqqq
Пишите в любое время как только SUPPORT появится вам ответят.
P.S. Мы не рассказываем о читах, а даём справки о работе форума,
помогаем при регистрации, и можем ответить на некоторые игровые вопросы.
(Справки о читах мы даём только в случае, если вы укажите свой логин
и на нём будет содержаться нужное кол-во постов для просмотра запрашиваемого чита.)

________________________________________________________
Администраторы не дают скрытую информацию с форума и не продают её за деньги.
Также просим Вас уважать администраторов. Сообщения в низкопоставленном тоне
рассматриваться не будут, а пославшие их будут
заигнорены.
Также вы можете написать Администратору форума перейдя по этой ссылке

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » RF-bug cheat forum RFonline » Delphi (Pascal) » Волл ХАК


Волл ХАК

Сообщений 1 страница 3 из 3

1

Посидев за компом окло 2 часов и съев весь пакет фисташек, я таки нашел то, что хотел. А точнее исходник Волл Хака...

Сразу говорю, ничего сверх магического не нашел (хотя бубен юзал и не раз).
На самом деле необходимо только прочитать/записать 3 значения из памяти (Х Y Z). Так как игру делали Корейцы (Корейский Рандом Самый Рандомный рандом в мире!), то в памяти координаты лежать не привычно для нас, а именно Х Z Y.

Читал значения так:

var
Wnd: HWND; // Handle Окна
ProcessId, hProcess, BitesRead: Cardinal; // ИД процесса, Handle Процесса, БайтПрочитано
Buffer: Single; // Считывать будем в эту переменную (Single - 4ех байтный тип)
begin
{ ПРОЦЕСС}
// находим окошко
Wnd := FindWindow(nil, 'RF Online');
// Находим поток процесса
GetWindowThreadProcessId(wnd, @ProcessId);
// находим процесс
hProcess := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);

{ ЧТЕНИЕ }
// читаем кординату Х
ReadProcessMemory(hProcess, Pointer($02C216B0), @Buffer, 4, BitesRead);
edtX.Text := FloatToStr(Buffer); // выводим или запоминем ее

// координата Y
ReadProcessMemory(hProcess, Pointer($02C216B8), @Buffer, 4, BitesRead);
edtY.Text := FloatToStr(Buffer);

// а сдесь Z
ReadProcessMemory(hProcess, Pointer($02C216B4), @Buffer, 4, BitesRead);
edtZ.Text := FloatToStr(Buffer);

// освобождаем память
CloseHandle(hProcess);
end;

Записываются значения на место аналогично:

var
Wnd: HWND; // читай выше
ProcessId, hProcess, BitesRead: Cardinal;
Buffer: Single;
begin
{ ПРОЦЕСС }
Wnd := FindWindow(nil, 'RF Online');

GetWindowThreadProcessId(wnd, @ProcessId);

hProcess := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);

{ ЗАПИСЬ }
// загоняем в переменную измененное знаечение кординаты Х
Buffer := StrToFloat(edtX.Text);
// пишем в память
WriteProcessMemory(hProcess, Pointer($02C216B0), @Buffer, 4, BitesRead);

// координата Y
Buffer := StrToFloat(edtY.Text);
WriteProcessMemory(hProcess, Pointer($02C216B8), @Buffer, 4, BitesRead);

// Z
Buffer := StrToFloat(edtZ.Text);
WriteProcessMemory(hProcess, Pointer($02C216B4), @Buffer, 4, BitesRead);

CloseHandle(hProcess);
end;

Этот код только визуально изменяет ваше положение на карте! Для реального же изменения либо надо юзать таймер, либо пакеты, либо бубен...
Как обычно жду ваши вопросы и спасибки :D Но помните ФЛУД - БАН!

+3

2

спасиба=) Ща качну Делфя и буду кодить... :D
Кстати...такой вопрос = из за чего при изменении коордаф, например по оси Z, сначала движеца намана, а потом замедляетЦа и прекращает движение?? это ведь изменения в клиенте...серв их не проверяет, а клиенту скушает любые измененные данные..так почему же он ограничивает изменение коордаф??
З.Ы. ПасиБку тыКнул :D

Отредактировано deiv (2008-07-28 03:22:09)

0

3

спасибо

0


Вы здесь » RF-bug cheat forum RFonline » Delphi (Pascal) » Волл ХАК