Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.03.2019, 19:25   #1
vladxx21
Новичок
Джуниор
 
Регистрация: 02.11.2018
Сообщений: 1
По умолчанию Как исправить

Здравствуйте, помогите исправить для идентификации пакета:
Код:
procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
len : integer;
Buffer : TByteArray;
data: String;
bf: L2BlowFish;
begin
setLength(Buffer, Socket.ReceiveLength);
len := Socket.ReceiveBuf(Buffer[0], Socket.ReceiveLength+2);
bf:=L2BlowFish.Create;
bf.Init(token[1], length(token));
data:=HexToString(ByteArrayToHexString(Buffer));
bf.bfDecode(data[3], len);
//ToLog(StringToHex(data, ' '));   //Вывод в лог расшифрованный

{нижнюю часть не получается поправить для правильной идентификации пакета}

view_pkt(buffer,len,true); //Здесь выводит зашифрованный, а нужно расшифрованный
case buffer[2] of
     $01: begin
      LS_init(buffer, len);
    end;
vladxx21 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Исправить код c++ MariaWalter Помощь студентам 4 30.11.2017 16:18
исправить код mishammm Помощь студентам 4 24.09.2013 01:54
Как исправить Парик454 Общие вопросы Delphi 0 11.12.2012 16:41
Как исправить ? kiryxa(cyc) Помощь студентам 0 17.05.2012 09:49
исправить delfin07 Помощь студентам 0 20.05.2011 17:48