Ошибки при работе с строками в Delphi для создания запросов AWS версии 4

Delphi , Программа и Интерфейс , Процессы и Сервисы

Создание подписанного запроса версии 4 AWS в Delphi 10.3

Вопрос пользователя касается создания подписанного запроса версии 4 AWS (Signature Version 4) в среде Delphi 10.3. Разработчик столкнулся с проблемой при формировании канонического запроса, который не совпадал с результатом, полученным в Python. В частности, проблема заключалась в использовании функции хеширования SHA256 для канонического запроса. В Python код работал корректно и выдавал ожидаемый хеш, но при попытке переноса кода в Delphi результаты были неверными.

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

Пользователь пытается создать канонический запрос для подписи версии 4 AWS в среде Delphi. Пример кода на Python, который формирует канонический запрос, работает корректно и выдает ожидаемый хеш. Однако при попытке реализации аналогичного кода в Delphi, результат вычисления хеша оказался неверным.

Пример кода на Python:

canonical_request = "GET\n" + "/" + "Action=ListUsers&Version=2010-05-08\n" +
                   "content-type:application/x-www-form-urlencoded; charset=utf-8\n" +
                   "host:iam.amazonaws.com\n" +
                   "x-amz-date:20150830T123600Z\n" + "\n" +
                   "content-type;host;x-amz-date\n" +
                   "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855"

canonical_request_hash = hashlib.sha256((canonical_request).encode('utf-8')).hexdigest()

print(canonical_request_hash)

Пример кода на Delphi:

canonical_request := 'GET' + #10 + '/' + #10 +
                     'Action=ListUsers&Version=2010-05-08' + #10 +
                     'content-type:application/x-www-form-urlencoded; charset=utf-8' + #10 +
                     'host:iam.amazonaws.com' + #10 +
                     'x-amz-date:20150830T123600Z' + #10 + #10 +
                     'content-type;host;x-amz-date' + #10 +
                     'e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855';

canonical_request_hashed := BytesToHexConverter(THashSHA2.GetHashBytes(UTF8Encode(canonical_request)));

Функция конвертации байтов в шестнадцатеричное представление:

function TForm1.BytesToHexConverter(b: TBytes): string;
var
  I: Integer;
  s: string;
begin
  s := '';
  for I := 0 to Length(b) - 1 do
    s := s + b[I].ToHexString;
  Result := LowerCase(s);
end;

Проблема заключалась в том, что в исходном коде на Delphi были использованы двойные кавычки для обозначения строк, вместо одиночных, как это принято в Delphi, а также некорректно были использованы символы перевода строки.

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

Чтобы исправить ошибку, необходимо:

1. Использовать одиночные кавычки для обозначения строк в коде на Delphi.
2. Заменить символы перевода строк '\n' на #10, так как в Delphi для перевода строки используется специальный символ #10.

Альтернативный ответ

Не было предложено альтернативных решений, так как проблема была связана с синтаксисом языка и не требовала сложных алгоритмических решений.

Заключение

При работе с строками в Delphi важно помнить о различиях в синтаксисе между языками программирования. В данном случае, при переносе кода из Python в Delphi, необходимо было правильно обработать строки и символы перевода строк. После исправления этих ошибок, код на Delphi должен работать корректно и выдавать ожидаемый хеш канонического запроса.

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

Пользователь столкнулся с проблемой при реализации алгоритма подписи версии 4 AWS в среде Delphi 10.3, где код, корректно работавший на Python, выдавал неверный результат из-за ошибок в синтаксисе и обработке строк.

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

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

:: Главная :: Процессы и Сервисы ::