Чат-Клиент для java-сервера Lineage II

[Tin-moon]

To Kilatif:
Прикол, решил сравнить инициализацию блоуфиша:
Приходящий на 1 и тот же входящий пакет Init, получаются разные значения PArray.
Прикол в следующем:
Java и C# дают следующий результат (одинаковый):

* -		PArray	{long[18]}	long[]
		[0]	-11504476527	long
		[1]	818284978	long
		[2]	5389473844	long
		[3]	5277480315	long
		[4]	2258027768	long
		[5]	1971259599	long
		[6]	-10807336962	long
		[7]	15922993650	long
		[8]	-1570502760	long
		[9]	-13871540854	long
		[10]	7461419269	long
		[11]	15931572012	long
		[12]	-4834315440	long
		[13]	6949642799	long
		[14]	13899931484	long
		[15]	11387598665	long
		[16]	14253408890	long
		[17]	11324059052	long

а вот реализация на Delphi немного другой ( совпало только первые два):

(1380425361, 818284978, 3744654971, 1864113960, 3479827321, 2874253665, 3288700621, 2149712101, 776530621, 3122561990, 1920928410, 1485135872, 2882331372, 1270005868, 4088379872, 3643499899, 4185267842, 196570026)

Это нормально????

[Kilatif]

Tin-moon, так у тебя блоуфиш до сих пор не работает? Ты возьми в Delphi и в java объяви по блоуфишку, инициализируй их одинаковым ключем и посмотри как они кодируют и декодируют одинаковые данные (это необязательно должен быть пакет, любой свой массив).

[Tin-moon]

data:=((key[j] and $FF)shl 24) or
     ((key[(j+1) mod Size] and $FF)shl 16) or 
     ((key[(j+2) mod Size] and $FF)shl 8)  or
      (key[(j+3) mod Size] and $FF);

мне кажется, что это неправильно переписали.. как работает key[(j+3) mod Size?

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

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

Tin-moon, так у тебя блоуфиш до сих пор не работает? Ты возьми в Delphi и в java объяви по блоуфишку, инициализируй их одинаковым ключем и посмотри как они кодируют и декодируют одинаковые данные (это необязательно должен быть пакет, любой свой массив).

Понимаешь проблема не в кодировать декодировать а в самом ините, там уже разные данные получаются.
Например, после этого кода

	for i:=0 to 17 do begin
    data:=((key[j] and $FF)shl 24)or((key[(j+1) mod Size] and $FF)shl 16)or((key[(j+2) mod Size] and $FF)shl 8)or(key[(j+3) mod Size] and $FF);
		PArray[i] := PArray[i] xor data ;
		j := (j + 4) mod Size ;
	end;

На яве совпало только то что с +
/*
(1331667411+, 124622946+, 3744654971, 1864113960+, 3479827321, 2874253665,
3288700621, 2149712101, 776530621+, 3122561990, 1920928410+, 1485135872+,
2882331372, 1270005868+, 4088379872, 3643499899, 4185267842, 196570026+)
*/

Сори малек затупил это часть верно (пора ложиться спать наверно), не верные данные вот от сюда:

	datal := 0 ;
	datar := 0 ;
	for i:=0 to 8 do begin
		Blowfish_encipher (datal, datar) ;
		PArray[i*2] := datal ;
		PArray[i*2 + 1] := datar ;
	end;

Наверно мне нужно разобрать что я там с Blowfish_encipher натупил.

[Kilatif]

key[(j+3) mod Size] - нуу, берет из ключа key элемент (j+3) mod Size, где mod - Это операция для вычисления от деления на Size

[Tin-moon]

To Kilatif

Вроде отладил BlowFish. Нашел вроде где у меня ошибка.

    if temp[0]=#0 then begin
      SetLength(s,Len-2);
      for i:=0 to Len-3 do s[i+1]:=temp[i];
      for i:=0 to Len-3 do temp2[i+1]:=temp1[i];
      s:=AntiXor(s);
      for i:=0 to Len-3 do temp[i]:=s[i+1];
    end;

Вот этот кусок проблемный. Там зачем-то перегнали в массив char, сняли хор и вернули. Конкретно проблема с правильной инициализацией s наверно. Выкинь прлз этот кусок(это в procedure LS_parser). Ну и чтобы наверняка и AntiXor(s); -- ее вроде проверил на куске байт переводит верно, но навсякий случай.

[Kilatif]

Tin-moon, у меня это сделано в другом классе вот таким образом:

private byte[] DecryptLoginServer(byte[] packet, int packetSize)
        {
            byte[] result = (byte[])Funcs.DeepClone(packet);

            result = blowfish.Decode(packet);
            if (packet[0] == 0)
            {
                result = Funcs.AntiXor(result);
            }

            return result;
        }

AntiXor я кидал страницами ранее

[Tin-moon]

Как ты заполняешь byte[] packet ?? Из того пакета который пришел.

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

Tin-moon, у меня это сделано в другом классе вот таким образом:

private byte[] DecryptLoginServer(byte[] packet, int packetSize)
        {
            byte[] result = (byte[])Funcs.DeepClone(packet);

            result = blowfish.Decode(packet);
            if (packet[0] == 0)
            {
                result = Funcs.AntiXor(result);
            }

            return result;
        }

AntiXor я кидал страницами ранее

[Kilatif]

Tin-moon, packet - это пакет, который только-только пришел от сервера и с убранными двумя байтами размера

[ErgoZ]

Tin, не поделишься ф-циями по блоуфишу и антиксору для явы, а то у меня бред получается (((

[Kilatif]

Tin-moon
Во вложении 2 файла, те ф-ции, которые ты просил + левый скачанный с инета класс по работе с большими числами, который я использовал в RSAEncrypt.