Помогите с протоколом la2 - Страница 2

xkor · 14.10.2011, 01:33

Цитата:

Сообщение от glukmaker

Объясните физический смысл этого параметра?

это версия протокола на клиенте

andrewcik, ну ты сам на все свои вопросы и ответил...

andrewcik · 14.10.2011, 10:38

Кстати мне функция send возвращает результат своей работы в виде - 50, что это я немогу понять? в описании ошибок нет цифр 50, есть 10000, 10050, 10051 и т.д.

glukmaker · 14.10.2011, 13:47

Ну вобщем пока решил пакет ProtocolVersion оставить в том виде в каком его передает клиент, и не пытаться понять его суть...
Вернее насчет того, что клиент передает серверу информацию о своем протоколе - понятно.
Непонятно только смысл передаваемых 256 байт данных, начиная с 8-го... И непонятно то, почему у сервера своя нумерация протоколов, а у клиента своя... Ведь протокол - это вроде нечто общее, определяющее правила взаимодействия клиента и сервера.

Добавлено через 1 час 0 минут
Отправил пакет protocolVersion. Сервер мне прислал пакет с XOR-ключом.

А вот дальше пока возникла проблема с шифрованием:

Описание такое:

Код:

1.2. Шифрация пакетов GameServer'a:
Чтобы не загружать ваши и без того замученные головы, вместо алгоритмов, я дам готовые исходники (немного измененные для наглядности):


    char key_sc[8];
    char key_cs[8];

    void Encrypt(char *raw, int size) 
    { 
        int temp = 0;
        for (int i=0; i<size; i++) 
        { 
            int temp2 = raw[i] &0xff; 
            raw[i] = (char)(temp2 ^ (key_cs[i&7] &0xff) ^ temp); 
            temp = raw[i]; 
        }
        int old = key_cs[0] &0xff; 
        old |= key_cs[1] << 8 &0xff00; 
        old |= key_cs[2] << 0x10 &0xff0000; 
        old |= key_cs[3] << 0x18 &0xff000000; 
        old += size; 
        key_cs[0] = (char)(old &0xff); 
        key_cs[1] = (char)(old >> 0x08 &0xff); 
        key_cs[2] = (char)(old >> 0x10 &0xff); 
        key_cs[3] = (char)(old >> 0x18 &0xff); 
    }


    void Decode(char *input, int size)
    {
        int i = 0;
        int j = 0;
        for(int k=0; k < size; k++)
        {
            int i1 = input[k] & 0xFF;
            input[k] = (char)(i1 ^ key_sc[j++] & 0xFF ^i);
            i = i1;
            if(j>7) j=0;
        }
        long l = key_sc[0] & 0xFF;
        l |= key_sc[1] << 8 & 0xFF00;
        l |= key_sc[2] << 16 & 0xFF0000;
        l |= key_sc[3] << 24 & 0xFF000000;
        l += size;
        key_sc[0] = (char)(l & 255L);
        key_sc[1] = (char)(l >> 8 & 255L);
        key_sc[2] = (char)(l >> 16 & 255L);
        key_sc[3] = (char)(l >> 24 & 255L);
    }


    void Key(char* packet, int len)
    {
        key_sc[0] = packet[4];
        key_sc[1] = packet[5];
        key_sc[2] = packet[6];
        key_sc[3] = packet[7];
        key_sc[4] = (char)0xA1;
        key_sc[5] = (char)0x6C;
        key_sc[6] = (char)0x54;
        key_sc[7] = (char)0x87;
        for(i=0;i<8;i++) {key_cs[i]=key_sc[i];}
    }

    void add_ckecksum(unsigned char *raw, int count) //вычисляет чексумму и вставляет её в пакет
    {                                                //как пользоватся: add_ckecksum(CelyjPaket+2, DlinaPaketa-(2+4+4));
        unsigned long chksum = 0;
        unsigned long ecx;
        int i = 0;
        for(i = 0; i < count; i += 4)
        {
            ecx  = (unsigned long)raw[i];
            ecx |= (unsigned long)raw[i + 1]<<8;
            ecx |= (unsigned long)raw[i + 2]<<16;
            ecx |= (unsigned long)raw[i + 3]<<24;
            chksum ^= ecx;
        }
        memcpy(raw+count, (char *)&chksum, 4);
    }

    void RSAKeyDecode(char* RSAKey)
    {
        for (int i = 0; i < 64; i++)
        {
            RSAKey[i + 64] ^= RSAKey[i];
        }
        for (int i = 0; i < 4; i++)
        {
            RSAKey[i + 13] ^= RSAKey[i + 52];
        }
        for (int i = 0; i < 64; i++)
        {
            RSAKey[i] ^= RSAKey[i + 64];
        }
        for (int i = 0; i < 4; i++)
        {
            BYTE tmp = RSAKey[i];
            RSAKey[i] = RSAKey[i + 77];
            RSAKey[i + 77] = tmp;
        }
    }

Но сишный код мне очень трудно понять.
Может кто-нить на словах объяснить как идет шифрация/дешифрация и смена ключа?

andrewcik · 14.10.2011, 13:54

это вот и есть чтоли ТОКЕН?

Код:

Packet ID: 32      Packet size: 267   
Source IP      :    192.168.1.25: 61787
Destination IP :     192.168.1.6: 7777
------------------------------------------------------------------------------
000000 0B 01 0E 0B 01 00 00 09 | 07 54 56 03 09 0B 01 07     .........TV.....
000010 02 54 54 56 07 00 02 55 | 56 00 51 00 53 57 04 07     .TTV...UV.Q.SW..
000020 55 08 54 01 07 01 53 00 | 56 55 56 01 06 05 04 51     U.T...S.VUV....Q
000030 03 08 51 08 51 56 04 54 | 06 55 08 02 09 51 56 01     ..Q.QV.T.U...QV.
000040 53 06 55 04 53 00 56 56 | 53 01 09 02 09 01 51 54     S.U.S.VVS.....QT
000050 51 09 55 56 09 03 04 07 | 05 55 04 06 55 04 06 09     Q.UV.....U..U...
000060 04 51 01 08 08 06 05 52 | 06 04 01 07 54 03 06 52     .Q.....R....T..R
000070 55 06 55 55 51 01 02 04 | 54 03 55 54 01 57 51 55     U.UUQ...T.UT.WQU
000080 05 52 05 54 07 51 51 55 | 07 02 53 53 00 52 05 52     .R.T.QQU..SS.R.R
000090 07 01 54 00 03 05 05 08 | 06 05 05 06 03 00 0D 08     ..T.............
0000A0 01 07 09 03 51 03 07 53 | 09 51 06 07 54 0A 50 56     ....Q..S.Q..T.PV
0000B0 02 52 04 05 55 51 02 53 | 00 08 54 04 52 56 06 02     .R..UQ.S..T.RV..
0000C0 09 00 08 03 53 56 01 05 | 00 55 06 08 56 04 0D 06     ....SV...U..V...
0000D0 07 52 06 07 04 0A 06 01 | 04 54 04 00 05 02 04 54     .R.......T.....T
0000E0 00 09 52 53 05 04 01 04 | 05 05 01 52 51 52 0D 06     ..RS.......RQR..
0000F0 51 08 09 54 53 00 0D 01 | 02 03 54 53 01 05 03 08     Q..TS.....TS....
000100 56 54 07 02 54 0B 06 A6 | 23 F4 FE                    VT..T...#..

xkor · 14.10.2011, 14:28

Цитата:

Сообщение от andrewcik

Кстати мне функция send возвращает результат своей работы в виде - 50, что это я немогу понять?

функция send возвращает количество отправленных байт, в случае ошибки она возвращает -1

glukmaker · 14.10.2011, 16:25

Я так понял, что в описанном алгоритме шифрации/дешифрации подразумевается 16-байтный ключ. Но сервер присылает нам только 4 байта.

Где брать остальные 12 байтов?

Добавлено через 1 час 0 минут
Вроде понял. Вроде взял не то описание.
нашел такое (8-байтный ключ. младшие 4 байта получаем от сервера, старшие как я понял фиксированные $87546CA1 (или их еще предварительно вычислить нужно?)):

Код:

   char key_sc[8];
   char key_cs[8];

   void Encrypt(char *raw, int size)
   {
       int temp = 0;
       for (int i=0; i<size; i++)
       {
           int temp2 = raw[i] &0xff;
           raw[i] = (char)(temp2 ^ (key_cs[i&7] &0xff) ^ temp);
           temp = raw[i];
       }
       int old = key_cs[0] &0xff;
       old |= key_cs[1] << 8 &0xff00;
       old |= key_cs[2] << 0x10 &0xff0000;
       old |= key_cs[3] << 0x18 &0xff000000;
       old += size;
       key_cs[0] = (char)(old &0xff);
       key_cs[1] = (char)(old >> 0x08 &0xff);
       key_cs[2] = (char)(old >> 0x10 &0xff);
       key_cs[3] = (char)(old >> 0x18 &0xff);
   }

С учетом вышеприведенного, я перевел это на Дельфи так:

Код:

TXorKeyData=packed array[1..8] of byte;

type TXorKey=packed record
   case boolean of
   true: (KeyArray:TXorKeyData;);
   false: (First_Key:cardinal;
           SecondKey:cardinal;);
   end;

...

procedure XOREncrypt(var data;len:integer;var key:TXorKey);
var
i:integer;
S:Pchar;
temp,temp2:char;
old:Cardinal;
begin
 S:=Pchar(@data);
 temp:=Char(0);
 for i:=0 to len-1 do
   begin
     temp2:=S[i];
     s[i]:=char(ord(temp2) xor key.KeyArray[i and 7] xor ord(temp));
     temp:=s[i];
   end;
   key.First_Key:=Key.First_Key+len;
end;

Правильно? Или я что-то недопонял в сишной реализации алгоритма?

xkor · 14.10.2011, 17:31

glukmaker, http://l2ph.coderx.ru/wsvn/filedetai...%2Fuencdec.pas
тебя там интересуют L2Xor.DecryptGP, L2Xor.EncryptGP и L2Xor.InitKey
в методе L2Xor.InitKey параметр Interlude для твоего сервера будет равен 0

Добавлено через 2 минуты
а хотя вот более оптимальный вариант:

delphi Код:

unit CryptXOR;

interface

type
  TxorCrypt = object
  public
    GKeyS,GKeyR:array[0..15] of Byte;
    isInit: Boolean;
    keyLen: integer;
    procedure InitKey(const XorKey; Interlude: Boolean = False);
    procedure DecryptGP(var Data; const Size: Word);
    procedure EncryptGP(var Data; const Size: Word);
  end;

implementation

procedure TxorCrypt.DecryptGP(var Data; const Size: Word);
var
  k:integer;
  pck:array[0..0] of Byte absolute Data;
begin
  if not isInit then Exit;
  for k:=size-1 downto 1 do
    pck[k]:=pck[k] xor GKeyR[k and keyLen] xor pck[k-1];
  if size<>0 then pck[0]:=pck[0] xor GKeyR[0];
  Inc(PCardinal(@GKeyR[keyLen-7])^,size);
end;

procedure TxorCrypt.EncryptGP(var Data; const Size: Word);
var
  i:integer;
  pck:array[0..0] of Byte absolute Data;
begin
  if not isInit then Exit;
  if size<>0 then pck[0]:=pck[0] xor GKeyS[0];
  for i:=1 to size-1 do
    pck[i]:=pck[i] xor GKeyS[i and keyLen] xor pck[i-1];
  Inc(PCardinal(@GKeyS[keyLen-7])^,size);
end;

procedure TxorCrypt.InitKey(const XorKey; Interlude: Boolean = False);
const
  KeyConst: array[0..3] of Byte = ($A1,$6C,$54,$87);
  KeyConstInterlude: array[0..7] of Byte = ($C8,$27,$93,$01,$A1,$6C,$31,$97);
begin
  if Interlude then begin
    keyLen:=15;
    Move(XorKey,GKeyS,8);
    Move(KeyConstInterlude,GKeyS[8],8);
  end else begin
    keyLen:=7;
    Move(XorKey,GKeyS,4);
    Move(KeyConst,GKeyS[4],4);
  end;
  Move(GKeyS,GKeyR,16);
  isInit:=True;
end;

end.

Hint · 15.10.2011, 13:55

Мой модуль для удобной работы с L2-потоком:
http://pastebin.com/X9BnJJJ8
Не надо думать о шифровании, о делении потока на пакеты и прочих мелочах.

Требуется установить свои обработчики PacketEvent (сюда передается очередной дешифрованный пакет) и SendEvent (сюда передается строка для передачи на сервер).
Сырые данные от сервера передавать в метод ProcessData, отправлять через метод Send.

Обработчик PacketEvent получает объект класса TL2Packet (доступны все функции ReadX) и управляющий объект класса TL2Stream. Писать данные можно в свой объект TL2Packet (все WriteX функции), а потом вызываеть L2Stream.Send(L2Packet.Data).

glukmaker · 16.10.2011, 16:39

Вобщем у меня все получилось. Загвоздка была в том, что при выборе чара я слал его Id, а нужно было номер чарслота (как оказалось с в xor-шифровании я не сделал ошибки, как думал ранее).

Авторизацию (до посылки пакета EnterWorld включительно) реализовал.
И далее теперь могу принимать и отправлять пакеты.
Спасибо всем, кто помог!

Цитата:

Сообщение от Hint

Мой модуль для удобной работы с L2-потоком

Обязательно посмотрю. Я сам уже было подумал все, что я написал оформить в виде компонента. Но вот увидел твое сообщение. Эх. если бы ты раньше написал, я бы не стал мучаться... А то теперь не знаю, что взять за основу: твой модуль или то, что я уже сам написал дорабатывать.

SeregaZ · 16.10.2011, 16:43

свой лучше. пока напишешь мозг сломаешь, время потеряешь, но зато станешь в этом гуру. да и свой код "роднее".