Цитата:
Сообщение от LAV45
KeyConst: array[0..3] of Byte = ($A1,$6C,$54,$87);
KeyConstInterlude: array[0..7] of Byte = ($C8,$27,$93,$01,$A1,$6C,$31,$97);
Для декодирования используется часть динамического ключа которая приходит от сервера и часть статического ключа.
Статический ключ находится в клиенте и похоже он у тебя явно не ($C8,$27,$93,$01,$A1,$6C,$31,$97)
точно не помню в какой DLL но когда открывал HEX редактором то видел прямым текстом там лежал StaticKey (может и ошибаюсь, сильно не бейте).
|
Спасибо что хоть кто-то ответил))) Но я уже писал выше что
Код:
Добавлено через 11 часов 16 минут
Вопрос снимается сам разобрался
В коде было все правильно
Была проблема во тут
Код:
procedure KeyPacket(buff: array of byte; Len: integer);
begin
Move(buff[4],key,16);
fCryptSrv:=TCryptXOR.Create;
fCryptSrv.InitKey(key,16);
end
в глобальных переменных я переменную key обозначил как string а нужно было как word