136 читали · 3 года назад
Протокол обмена весового терминала Мидл МИ ВДА/7Я и приложения на Delphi 7 (Pascal).
Добрый день! Думаю, что помогу тем, кто решит создать проект с использованием оборудования данного производителя. Процедуру настройки терминала для работы в режиме команд не буду здесь описывать. Для отправки команды в терминал: var b:array[0..1] of Byte; begin ComPort1.Open; b[0]:= $0A; ComPort1.Write(b[0],1); Sleep(150); Для принятия данных с терминала: procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var e,e1,e2,e3,e4,e5,e6, e7, e8, e9, e10, e11, e12, e13, e14, e15, e16, e17, e18, e19 :string; d: array[0...
04:18
1,0×
00:00/04:18
94,6 тыс смотрели · 5 лет назад
1 месяц назад
Типичные ошибки реализации XOR-шифрования (гаммирования) и одноразового блокнота в Delphi: фундаментальная путаница между текстовыми и бинар
В криптографических реализациях на Delphi, особенно при работе с XOR-шифрованием и одноразовым блокнотом, программисты часто допускают систематические ошибки, коренящиеся в непонимании фундаментального различия между текстовыми (String) и бинарными (TBytes) данными и их представлениями в бинарных строк (Binary string). Это исследование анализирует типичные ошибки, их причины, последствия и предоставляет практические рекомендации для корректной реализации . XOR-шифрование — это аддитивный шифр, использующий операцию исключающего ИЛИ (XOR) между открытым текстом и ключом. Алгоритм основан на свойствах операции XOR: A⊕0=A, A⊕A=0, A⊕B=B⊕A, (A⊕B)⊕C=A⊕(B⊕C)...