[Программа] DevizHack

[Ginrey]

думаю он так и делал, не глупый же человек

[planer7]

Цитата: Сообщение от mistik1 7. НИЧЕГО НЕ ИЗМЕНИЛОСЬ

у меня тоже ничего не поменялось

[Ginrey]

Цитата: Сообщение от planer7 у меня тоже ничего не поменялось

ну я предоставил список действий которых вам нужно выполнить для решения проблемы

[Imprezo123]

сделай чтоб показывала дистанцию))
я взял например тебя в торгет и мне над головой показывает сколько до тебя метров.понял?

[AEBus]

Цитата: Сообщение от Imprezo123 сделай чтоб показывала дистанцию)) я взял например тебя в торгет и мне над головой показывает сколько до тебя метров.понял?

http://zhyk.ru/forum/showpost.php?p=...4&postcount=12 .понял?

[Ginrey]

Nitrogen, добрый день. Слушай ты не знаешь каким образом Dinmate сделал столь большой выбор этих девизов?

[finkrer]

Ginrey, если ты имеешь в виду Дина, то спроси у него

[Ginrey]

Цитата: Сообщение от BIUS8000 отличная прога мне нравиться

способ благодарности находится под постом кнопочка "Спасибо"

Добавлено через 2 минуты

Цитата: Сообщение от finkrer сли ты имеешь в виду Дина, то спроси у него

а он еще тут сидит? давно не слышал его

[finkrer]

Ginrey, еще как сидит.

[Dinmaite]

Цитата: Сообщение от finkrer Ginrey, еще как сидит.

Хорошо сидим.

Цитата: Сообщение от Ginrey Nitrogen, добрый день. Слушай ты не знаешь каким образом Dinmate сделал столь большой выбор этих девизов?

Я знаю как

Каждый вариант девиза имеет своё числовое значение. Экспериментируй

[Ginrey]

Цитата: Сообщение от Dinmaite Каждый вариант девиза имеет своё числовое значение. Экспериментируй

а можно узнать через что у тебя изменял девиз, пакет или изменение структуры?

у меня при помощи пакета все делает вот он сам

3F 00 05 E7 01 C0 00 00 00 00
Эта часть указывает на рассу
эта, на уровень
эта на завербовать или или поиск пати
а эта вообще не пойму что дает

[Dinmaite]

Первые версии основывались на инжекте, правящем структуру вызова Девиза.
Последняя версия на инжекте пакета.

procedure TForm1.Button1Click(Sender: TObject);
const
  base_addr=$A5B90C;                           //Базовый Адрес PW
  base_ptr=$A5BFCC;                            //Базовый указатель PW
var
  hProc:thandle;
  code:string;
  nbyte:dword;
  buf:dword;
  PW:TPWDK;
begin
//  if combobox1.ItemIndex=-1 then
//    messagebox(handle,'Выберите имя персонажа','Девизхак 4.0',48)
//  else
    begin
      hProc:=OpenProcess(PROCESS_ALL_ACCESS, False, akk[combobox1.ItemIndex].PID);
 hproc:=1;
      if hProc <> 0 then // условие проверки подключения к процессу
        try
          ReadProcessMemory(hProc,ptr(base_addr),@buf,4,nbyte);
 //         if (buf+$1C<>base_ptr) then
 //           messagebox(handle,'Неверная версия клиента','Девизхак 4.0',16)
 //         else
            begin
            //3F 00 00 03 01 C0 00 00 00 00
              if RadioButton1.Checked then
                code:='3F00'+inttohex(treeview1.Selected.SelectedIndex,2)+inttohex(strtoint(edit1.text),2)+'00C000000000'   // выбираем значение лвла
              else
                code:='3F00'+inttohex(treeview1.Selected.SelectedIndex,2)+inttohex(strtoint(edit1.text),2)+'01C000000000';   // выбираем значение лвла
              end;
          PW:=TPWDK.Create;
          PW.InjectPacket(hProc, code);
          PW.Free;
        finally
          CloseHandle(hProc); // отсоединяемся от процесса
        end;
    end;
end;

Как понимаешь, изменить его под любую текущую версию время пары секунд.

'3F00270000C000000000' - Ур. 0 Недостаточно денег Поиск членов.
[Ссылки могут видеть только зарегистрированные пользователи. ]

[Ginrey]

Цитата: Сообщение от Dinmaite '3F00270000C000000000' - Ур. 0 Недостаточно денег Поиск членов.

на элите это на работает просто появляется над бошкой
Ур. 0 (null) Поиск членов...

[Dinmaite]

Суть в том, чтобы найти то, что работает. А для этого нужно перелопатить энное количество вариантов.

[Ginrey]

Цитата: Сообщение от Dinmaite Суть в том, чтобы найти то, что работает. А для этого нужно перелопатить энное количество вариантов.

А какая часть пакета отвечает за введенные значения сверху?