[Подсказка] Персонаж в таргете

[Erstown]

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

[N00bSa1b0t]

А в чем конкретно возникает проблема?
В пакете скилла есть место, куда записатывается WID цели. Оффсет выбранного игрока известен.. Что еще надо?

[Smertig]

Цитата: Сообщение от N00bSa1b0t Оффсет выбранного игрока известен

Судя по всему - нет

[Erstown]

Не много не понял саму последовательность действий. Можете ее написать?
Я делаю так:
Узнаю WID персонажа в таргете, например пусть будет 31664. В калькуляторе получается 7B B0. А вот в PW если отловить пакет взятия в таргет этого же персонажа, почему то получается B0 7B(То есть перевернуто). Или я вообще делаю не так? Не очень понятен мне просто сам алгоритм.

[N00bSa1b0t]

Цитата: Сообщение от Erstown почему то получается B0 7B(То есть перевернуто)

Так все верно. Прочитайте эту статью [Ссылки могут видеть только зарегистрированные пользователи. ] (или [Ссылки могут видеть только зарегистрированные пользователи. ])

В пакетах почти всегда (но есть исключения) используется обратный порядок байт (little-endian), а калькулятор виндовый оперирует прямым порядком (big-endian). Поэтому при написании софта это надо учитывать.

[Erstown]

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

[N00bSa1b0t]

Зависит от языка программирования, на котором Вы пишете.
В C#, например, с этим справляется класс BitConverter

[Erstown]

Цитата: Сообщение от N00bSa1b0t Зависит от языка программирования, на котором Вы пишете. В C#, например, с этим справляется класс BitConverter

Пишу на Delphi

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

var
  Source, One, Two, Otvet, WID : string;
begin
  Source := WID;
  One := Copy(Source, 3, 4);
  Two := Copy(Source, 1, 2);
  Otvet := One + ' ' + Two;

Вот такой вот пойдет?

[Smertig]

Цитата: Сообщение от Erstown Вот такой вот пойдет?

Такой переворачивает только 4-значное число. А в будущем понадобятся и 8-ми символьные

[Erstown]

Сделал. N00bSa1b0t, спасибо за помощь, надвинул на правильную мысль

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

Цитата: Сообщение от Smertig Такой переворачивает только 4-значное число. А в будущем понадобятся и 8-ми символьные

Переделаю, это просто набросок. А 7ми сивольные, 5и символьные могу быть?
Если да, то как их перевернуть и записать? Примерчик можно?

[N00bSa1b0t]

Цитата: Сообщение от Erstown А 7ми сивольные, 5и символьные могу быть?

Ну, как сказать..
Есть размерность - 1 байт, 2 байта, 4 байта, 8 байт. (по степени числа 2).
Если число занимает меньше указанного размера, то остаток заполняется нулями.

Например, число 123 456. Переводим в HEX = 1E240, как бы 3 байта. Дополняем нулями, до степени двойки (до 4 байт) - 00 01 E2 40. Переворачиваем - 40 E2 01 00.

[Erstown]

Цитата: Сообщение от N00bSa1b0t Ну, как сказать.. Есть размерность - 1 байт, 2 байта, 4 байта, 8 байт. (по степени числа 2). Если число занимает меньше указанного размера, то остаток заполняется нулями. Например, число 123 456. Переводим в HEX = 1E240, как бы 3 байта. Дополняем нулями, до степени двойки (до 4 байт) - 00 01 E2 40. Переворачиваем - 40 E2 01 00.

Понял, Спасибо

[rufat2005]

у меня такой)))

если строку)) (т.е. в моем случае ид нпс)

function strIntToHex(s :String):String;
var
  x0,x1,p,t :LongWord;
  i,j       :LongInt;
  res       :String;
begin
  x0:=0;
  x1:=0;
  p:=1;
  for i:=Length(s) downto 1 do
    begin
      t:=(ord(s[i])-$30);
      for j:=1 to t do //сделал циклом потому-что умножение на асме делать было в лом
        asm
          mov eax,p
          add  x0,eax
          jnc  @dop_sum
          adc  x1,0
          @dop_sum:
        end;
      p:=p*10;
    end;
  res:=IntToHex(x1,8)+IntToHex(x0,8); //аналог ф-ии IntToHex для 4 байтового операнда труда не составит у любого, потому не стал я этого делать
  //далее вырезаем ведущие нули
  j:=Length(res);
  for i:=1 to Length(res) do
    if res[i]<>'0' then
      begin
        j:=i;
        break;
      end;
  Result:=Copy(res,j,Length(res)-j+1);
end;

function getStrIntToHex(data:string;data2: integer): String;
var
  chast1,chast2,chast3,chast4:String;
begin
  if Connected then
    begin
      if data2=2 then
      begin
        Chast1:= copy(strIntToHex(data),1,2);
        result:= chast1;
      end;
      if data2=4 then
      begin
        Chast1:= copy(strIntToHex(data),1,2);
        Chast2:= copy(strIntToHex(data),3,2);
        result:= chast2+chast1;
      end;
      if data2=6 then
      begin
        Chast1:= copy(strIntToHex(data),1,2);
        Chast2:= copy(strIntToHex(data),3,2);
        Chast3:= copy(strIntToHex(data),5,2);
        result:= chast3+chast2+chast1;
      end;
      if data2=8 then
      begin
        Chast1:= copy(strIntToHex(data),1,2);
        Chast2:= copy(strIntToHex(data),3,2);
        Chast3:= copy(strIntToHex(data),5,2);
        Chast4:= copy(strIntToHex(data),7,2);
        result:= chast4+chast3+chast2+chast1;
      end;
    end;
end;

а вот если интегер

{==========================================|
|          IntToHex если более 2           |
|==========================================}
function getIntToHex(data,data2: integer): String;
var
  chast1,chast2,chast3,chast4:String;
begin
  if Connected then
    begin
      if data2=2 then
      begin
        Chast1:= copy(IntToHex(data, 2),1,2);
        result:= chast1;
      end;
      if data2=4 then
      begin
        Chast1:= copy(IntToHex(data, 4),1,2);
        Chast2:= copy(IntToHex(data, 4),3,2);
        result:= chast2+chast1;
      end;
      if data2=6 then
      begin
        Chast1:= copy(IntToHex(data, 6),1,2);
        Chast2:= copy(IntToHex(data, 6),3,2);
        Chast3:= copy(IntToHex(data, 6),5,2);
        result:= chast3+chast2+chast1;
      end;
      if data2=8 then
      begin
        Chast1:= copy(IntToHex(data, 8),1,2);
        Chast2:= copy(IntToHex(data, 8),3,2);
        Chast3:= copy(IntToHex(data, 8),5,2);
        Chast4:= copy(IntToHex(data, 8),7,2);
        result:= chast4+chast3+chast2+chast1;
      end;
    end;
end;