Конвертация функции шифрования из ActionScript в Delphi с использованием Delphi Encryption Compendium

Delphi , Синтаксис , Шифрование

Конвертация функции шифрования из ActionScript в Delphi

В данной статье мы рассмотрим процесс конвертации функции шифрования, написанной на ActionScript, в соответствующую функцию на языке программирования Object Pascal, используемом в среде разработки Delphi. Это особенно актуально для проектов, использующих технологии Adobe Flash, и необходимость их миграции на другие платформы, включая десктопные приложения.

Описание проблемы

Пользователь предоставил исходный код функции шифрования EncryptString на ActionScript, использующий алгоритм AES-128 в режиме CFB8. Задача состоит в том, чтобы переписать данную функцию на Object Pascal, используя библиотеку Delphi Encryption Compendium (DEC).

Контекст

Исходный код на ActionScript включает в себя процесс преобразования строки и ключа в байтовые массивы, инициализацию шифровальщика и выполнение процесса шифрования. Результат шифрования возвращается в виде строки, закодированной в Base64.

Подтвержденный ответ

Для конвертации ActionScript кода в Delphi, необходимо использовать классы и методы из библиотеки DEC. Пользователь уже попробовал реализовать функцию EncryptString на Object Pascal, но столкнулся с проблемами, возможно, из-за несовместимости кодировок.

Альтернативный ответ и примеры кода

Приведенный пример кода на Object Pascal демонстрирует использование класса TCipher_Rijndael для шифрования данных. Однако, в комментариях пользователя упоминается, что возможно проблема связана с использованием кодировки Unicode UTF-16 в Delphi, тогда как ActionScript использует UTF-8. Также, пользователь выразил сомнения в правильности своего кода для шифрования в режиме "simple-aes128-cfb8".

Для уточнения, в комментариях предложено использовать AnsiString вместо String в коде на Delphi, что может решить проблему с кодировками.

Ниже представлен пример кода на Object Pascal, который использует классы из библиотеки DEC для шифрования строки с использованием AES-128 в режиме CBC (изменено с CFB8 по предложению в комментариях):

uses
  DECUtil, DECCipher, DECFmt;

var
  ACipherClass: TDECCipherClass = TCipher_Rijndael;
  ACipherMode: TCipherMode = cmCBCx; //cmCFB8 по умолчанию, изменено на CBC
  AHashClass: TDECHashClass = THash_Whirlpool;
  ATextFormat: TDECFormatClass = TFormat_Mime64;
  AKDFIndex: LongWord = 1;

function Encrypt(const AText: AnsiString; const APassword: AnsiString): AnsiString; overload;
var
  ASalt: Binary;
  AData: Binary;
  APass: Binary;
begin
  with ValidCipher(ACipherClass).Create, Context do
  try
    ASalt := RandomBinary(16);
    APass := ValidHash(AHashClass).KDFx(APassword[1], Length(APassword) * SizeOf(APassword[1]), ASalt[1], Length(ASalt), KeySize, TFormat_Copy, AKDFIndex);
    Mode := ACipherMode;
    Init(APass);
    SetLength(AData, Length(AText) * SizeOf(AText[1]));
    Encode(AText[1], AData[1], Length(AData));
    Result := ValidFormat(ATextFormat).Encode(ASalt + AData + CalcMAC);
  finally
    Free;
    ProtectBinary(ASalt);
    ProtectBinary(AData);
    ProtectBinary(APass);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s, k: AnsiString;
begin
  s := 'Please accept this as answer';
  k := 'Stackoverflow';
  Memo1.Lines.Clear;
  Memo1.Lines.Add('Encode Test: ' + Encrypt(s, k) + #13#10);
end;

Важно отметить, что в коде используется AnsiString вместо String для соответствия с ожидаемой кодировкой UTF-8 из ActionScript. Режим шифрования изменен на CBC (cmCBCx) вместо CFB8, что также может быть важным для корректной работы алгоритма.

Заключение

Конвертация кода из ActionScript в Delphi с использованием библиотеки DEC требует внимательного подхода к кодировкам и режимам шифрования. Представленный пример кода является отправной точкой для дальнейшей настройки и адаптации под конкретные нужды проекта.

Создано по материалам из источника по ссылке.

Пользователь нуждается в конвертации функции шифрования с ActionScript на Object Pascal для использования в среде Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Шифрование ::