Чат-Клиент для 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 натупил.