Отправить\принять пакет TCPClient

[xkor]

guplen, ты описал ксор шифрацию гейм сервера, на логин сервере первый пакет ксором дешифруется так:

procedure LoginXORDecrypt(var xpck: TFixPck);
var
  i,k: Integer;
begin
  i:=xpck.size-8; // узнаем номер первого байта ключа (186-8=178)
  k:=PInteger(@xpck.ch[i])^; // записываем ключ в 4хбайтовую переменную
  while i>=6 do begin // пока позиция больше или равна 6
    PInteger(@xpck.ch[i])^:=PInteger(@xpck.ch[i])^ xor k; // ксорим очередные 4 байта на ключ
    k:=k-PInteger(@xpck.ch[i])^; // вычитаем из ключа то что получилось
    i:=i-4; // перемещаемся к предыдущим 4м байтам
  end;
end; // усё 
 

короче тут не по одному байту ксорим а по 4, хотя в яве наверно ксорят по одному ибо там сложности с приведением типов...

[guplen]

Тогда такой вопрос, возможно даже глупый:
Есть последовательность из 4 байтов, которые являются ключом. И чтобы мне эту последовательность записать в переменную типа int, надо эти 4 байта ключа перевести в число? Или как?

[xkor]

guplen, бля переменная int это и есть 4 байта, тупо их туда пишеш и всё, ты что с памятью работать не умеешь?

[guplen]

Про размеры знаю... лана, пашел книжки читать

Добавлено через 2 часа 43 минуты
Все получилось, всем спасибо... буду разбираться дальше.

[Yegor]

guplen, а дальше тебя ждет злой алгоритм RSA .

[guplen]

Для него вроде бы есть конкретные реализации на языке с++... а его, я так понимаю, никак не проверишь на правильность после дешифровки

[Yegor]

guplen, для его дешифрации нужен секретная часть ключа которую сервер не присылает. Я когда это делал то брал сохраненный лог пакетов между клиентом и сервером и зная логин и пароль пытался добиться такого же пакета.

[Maxno]

procedure LS_init(buff: array of byte; Len: integer);
begin
ToLog('********* LS_init ************');
ToLog('');
  if Len<8 then exit;
  Move(buff[3],SessionID,4);
  if Len>=155 then begin
    SetLength(RSA_key,128);
    Move(buff[11],RSA_key[1],128);
    ToLog('RSA Key changed');
  end;
  if Len>=171 then begin
    SetLength(bf_key,16);
    Move(buff[155],bf_key[1],16);
    bf.Init(bf_key);
    ToLog('BlowFish key changed');
  end;
  //sending AuthGG packet
  AuthGameGuard;
end;

и еще, Yegor, ты на каком серве прошёл авторизацию? не подкинешь свои сорцы? буду благодарен

[Yegor]

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

[Maxno]

Народ а передача между GameServer и Client - шифруется как то?