Безопасность API Amazon: использование HMAC-SHA256 в Delphi

Delphi , Синтаксис , Ошибки и Исключения

Вопрос пользователя заключается в необходимости генерации подписей HMAC-SHA256 для использования в API Amazon Web Services. Для этой цели можно использовать различные библиотеки, но так как старый набор библиотек DCPcrypt не поддерживает HMAC, необходимо искать альтернативные решения.

Альтернативные библиотеки для генерации HMAC-SHA256

Использование OpenSSL

Одна из рекомендованных альтернатив – использование библиотек OpenSSL. Эти библиотеки содержат функцию HMAC, которая может быть использована в Delphi. Пример кода для использования OpenSSL в Delphi:

uses
  libeay32;

const
  LIBEAY_DLL_NAME = 'libeay32.dll';
  EVP_MAX_MD_SIZE = 64;

function EVP_sha256: pEVP_MD; cdecl; external LIBEAY_DLL_NAME;
function HMAC(evp: pEVP_MD; key: PByte; key_len: integer;
              data: PByte; data_len: integer;
              md: PByte; var md_len: integer): PByte; cdecl; external LIBEAY_DLL_NAME;

function GetHMAC(const AKey, AData: string): TBytes;
var
  key, data: TBytes;
  md_len: integer;
  res: PByte;
begin
  OpenSSL_add_all_algorithms;
  // Инициализация генератора случайных чисел
  RAND_load_file('c:\windows\paint.exe', 512);
  key := TEncoding.UTF8.GetBytes(AKey);
  data := TEncoding.UTF8.GetBytes(AData);
  md_len := EVP_MAX_MD_SIZE;
  SetLength(result, md_len);
  res := HMAC(EVP_sha256, @key[0], Length(key), @data[0], Length(data), @result[0], md_len);
  if (res <> nil) then
    SetLength(result, md_len);
end;

Подробности реализации и использования этой функции можно найти в документации по OpenSSL и в примерах кода, доступных в интернете.

Использование Indy

Другой вариант – использование компонентов Indy, которые входят в состав Delphi. Indy предоставляет класс TIdHMACSHA256, который позволяет легко создать HMAC-SHA256. Пример использования:

uses
  IdGlobal, IdHashSHA, IdHMAC, IdHMACSHA1, IdSSLOpenSSL;

function CalculateHMACSHA256(const Value, Salt: String): String;
var
  hmac: TIdHMACSHA256;
  hash: TIdBytes;
begin
  LoadOpenSSLLibrary;
  if not TIdHashSHA256.IsAvailable then
    raise Exception.Create('SHA256 hashing is not available!');
  hmac := TIdHMACSHA256.Create;
  try
    hmac.Key := IndyTextEncoding_UTF8.GetBytes(Salt);
    hash := hmac.HashValue(IndyTextEncoding_UTF8.GetBytes(Value));
    Result := ToHex(hash);
  finally
    hmac.Free;
  end;
end;

Необходимо отметить, что для работы с Indy может потребоваться указание пути к библиотекам OpenSSL с помощью функции IdOpenSSLSetLibPath.

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

Пользователи также упоминают библиотеку OpenStreamSec, которая, несмотря на то, что была заброшена несколько лет назад, все еще может быть скомпилирована в Delphi 2007. Генерация HMAC-SHA256 с использованием этой библиотеки выглядит следующим образом:

StrToMime64(HMACString(haSHA256, SecretKey, 32, DataToHash));

Важные замечания

При использовании HMAC-SHA256 важно обратить внимание на кодировку данных, так как разные библиотеки могут использовать разные схемы кодирования (например, UTF-8). Также стоит учитывать, что некоторые библиотеки могут вставлять символы новой строки в результаты, которые необходимо удалить перед использованием.

Заключение

HMAC-SHA256 является важным инструментом для обеспечения безопасности API, и существует несколько библиотек, которые могут быть использованы в Delphi для его реализации. Пользователи должны тщательно выбирать библиотеку, исходя из своих требований и предпочтений, а также учитывать совместимость с версией используемого компилятора Delphi.

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

Вопрос касается безопасной работы с API Amazon Web Services через генерацию подписей HMAC-SHA256 в среде разработки Delphi, включая рекомендации по использованию альтернативных библиотек для замены устаревшего набора DCPcrypt.

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

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

:: Главная :: Ошибки и Исключения ::