Первый мессаг в новой теме)))

Поделиться12008-07-09 17:09:23

Автор: Drozh
Суровый ОДМЕН
Зарегистрирован: 2008-04-07
Приглашений: 0
Сообщений: 1030
Уважение: +23
Позитив: +12
Пол: Мужской
Возраст: 35 [1989-10-02]
Провел на форуме:
3 дня 5 часов
Последний визит:
2009-03-05 22:10:39

Ну тему создал!))) А вот что писать в ней не знаю ((( ФОРУМЧЯНЕ (сорри за шифт) !!! Давайте пишите!!!
[взломанный сайт]

Поделиться22008-07-10 01:44:10

Автор: Frukt
-=Блюющая медузкА=-
Откуда: воняет?
Зарегистрирован: 2008-04-07
Приглашений: 0
Сообщений: 266
Уважение: +52
Позитив: +20
Пол: Мужской
Возраст: 38 [1986-11-24]
Провел на форуме:
6 дней 22 часа
Последний визит:
2011-08-05 15:43:12

Приветствуем ваши сниферы, кейлогеры и прочий хенд мейд. Код открытый, т.е. компиль проги + полное описание + код в текстовике. Моно и скрины, но не обязательно.

0

Поделиться32008-07-22 13:45:27

Автор: Radiant
Дядька Чит0р
Откуда: nOne
Зарегистрирован: 2008-07-12
Приглашений: 0
Сообщений: 789
Уважение: +6
Позитив: +4
Пол: Мужской
Возраст: 34 [1990-01-23]
Провел на форуме:
19 часов 50 минут
Последний визит:
2014-10-17 06:24:09

Написать спидхак под любой сервер - дело пяти минут.
Главное, чтоб была пушка с ww.
1. Ищем с помощью артмани смещение по которому находится значение скорости.
Делается просто: без бафов и сетов на скорость ничего не берем в руки - ищем значение "с точкой 4 байта" в диапазоне от 0x02000000 до 0x05000000 равное нулю; потом берем пушку с ww и отсеиваем по значению "с точкой 4 байта" равное единице. И так несколько раз, пока не останется 5-10 значений. Потом методом тыка прямо в артмани исправляем значение и смотрим в игре, не бегаем ли мы быстрее...
2. Найдя смещение, записываем его и создаем проект в дельфи. Кидаем компонент "таймер" на форму.
Тыкаем 2 раза по значку таймера, меняем код процедуры на следующий:
Код
...
procedure TForm1.Timer1Timer(Sender: TObject);
var wnd, hdl, ThreadId, ProcessId, bytesread: integer;
begin
// ищем окно игры
wnd := FindWindow(nil, 'RF Online');
// ищем id процесса
ThreadId := GetWindowThreadProcessId(wnd,@ProcessId);
// открываем процесс с правами записи
hdl := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
// пишем по адесу speed_offset значение value
WriteProcessMemory(hdl,pointer(speed_offset),@value,4,bytesread);
// закрываем процесс (в оптимизированном виде по таймеру надо делать только предыдущую строку, а остальное только при нахождении процесса игры первый раз)
CloseHandle(hdl);
end;
...

где speed_offset - смещение скорости (полученное в пункте №1), value - нужное нам значение скорости (не забываем, что это float).
3. В свойствах таймера: Interval=100, Enable=true
4. Бегаем с читерской скоростью на нашем сервере.

// Эт я взял с какого то форума =) Сам не тестил т.к. где то посеял диск с делфями)) Попробуйте и отпишитесь о результатах теста =)

+5 постов и +10 т.к. первый! Drozh

0

Поделиться42008-07-23 01:55:28

Автор: Drozh
Суровый ОДМЕН
Зарегистрирован: 2008-04-07
Приглашений: 0
Сообщений: 1030
Уважение: +23
Позитив: +12
Пол: Мужской
Возраст: 35 [1989-10-02]
Провел на форуме:
3 дня 5 часов
Последний визит:
2009-03-05 22:10:39

То что программа скомпилица и найдет нужные значения: гарантирую, но то что работает на серваке: нет (ибо не тестил). А вот оптимизированный вариант:

==================================================

var // глобально
Value: Extended;
SpeedOffset: Integer;
hProcess: Integer;

{ ||| Таймер ||| }
procedure TForm1.Timer1Timer(Sender: TObject);
var
ByteSread: Cardinal;
begin
// проверка на потерю приложения
if hProcess = 0 then // потеряли
begin
MessageBox(0, '!!!Процесс не потерян!!!', 'SH', MB_OK + MB_ICONERROR);
CloseHandle(hProcess);
Timer1.Enabled := False;
end
else // пишем в память
WriteProcessMemory(hProcess, Pointer(SpeedOffset), @Value, 4, ByteSread);
end;

{ ||| Запуск ||| }
procedure TForm1.Button1Click(Sender: TObject);
var
Wnd, ThreadId, ProcessId: Integer;
begin
// если таймер запущен
if Timer.Enabled then
begin
// стопим таймер
Timer.Enabled := False;
// освобождаем память
CloseHandle(hProcess);
end
else
begin
// значение скорости
Value := StrToFloat(...);
// смещение
SpeedOffset := StrToInt(...); // если значение 16-ое то перед строкой с числом ставим '$'
// получаем ID окна
Wnd := FindWindow(nil, 'RF Online');
// получаем ID процесса
ThreadId := GetWindowThreadProcessId(Wnd, @ProcessId);
// получаем PID задачки
hProcess := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);
// получили?
if hProcess = 0 then //нет...
begin
MessageBox(0, '!!!Процесс не найден!!!', 'SH', MB_OK + MB_ICONERROR);
CloseHandle(hProcess);
Exit;
end;
// меняем название кнопки
Button1.Caption := 'Завершить';
// запускаем таймер
Timer1.Enabled := True;
end;
end