在Delphi 10.3中提出AWS签名版本4请求，将Python代码移植到Delphi

Question

我正在尝试在Delphi中构建AWS签名版本4请求。

我设法处理签名部分，但对规范请求有一些问题

我按照下面的链接创建一个规范请求https://docs.aws.amazon.com/general/latest/gr/sigv4-create-canonical-request.html

如果我在Python3中执行此操作，请参见下面的代码，我将得到正确答案f536975d06c0309214f805bb90ccff089219ecd68b2577efef23edd43b7e1a59

我正试图在德尔福做同样的事情

结果是错误代码BFC216A33DE74E30285FC72D6DD2035508E9AE861E5D56B59F4C1EB4F29DDC3

现在有人在Delphi中如何做下面的Python行

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

并获得此结果f536975d06c0309214f805bb90ccff089219ecd68b2577efef23edd43b7e1a59

PYTHON CODE
canonical_request = "GET\n"+"/\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\n'+'/\n'+'Action=ListUsers&Version=2010-05-08\n';
 canonical_request := canonical_request +'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_hashed :=   BytesToHexConverter ( THashSHA2.GetHashBytes(UTF8Encode( canonical_request )));  // Struggle 

memo1.Lines.Add(canonical_request_hashed);
 memo1.Lines.Add('f536975d06c0309214f805bb90ccff089219ecd68b2577efef23edd43b7e1a59');

//*********************

function TForm1.BytesToHexConverter(b: Tbytes): string;
var
 I        : Integer;
 s        : String;
begin
 s:='';
 for i  := 0 to length(b)-1 do
   begin
    s:=s+b[i].ToHexString;
   end;
 s:= LowerCase(s);
 result:=s;
End;

我希望在delphi F536975D06C0309214F805BB90CCFF089219ECD68B257EFEF23EDD43B7E1A59中得到这个结果，但得到这个BFC216A33DE74E30285FC72D6DD2035508E9AE861E5D56B59F4C1EB4F29DDC3

Answer 1

您正试图从AWS留档页面上出现的示例炮制请求中计算SHA256哈希。纯文本如下：

获取
/
操作=列表用户

内容类型；主机；x-amz-date
e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855

您已成功地将此纯文本转换为Python字符串，但由于以下两个原因，在Delphi中未能实现此转换：

1. 您将粘贴的Python代码复制到Delphi中，并将一些“替换为”，但并非如下面问题的注释所指出的全部。
2. Delphi不允许在字符串文本中进行反斜杠转义。您只能通过键入两个单引号来转义单引号'。您可以直接键入或使用带前缀的字符文本的所有其他字符。因此，您还应将所有出现的\n转换为\10（新行字符）并将其置于字符串文本之外

德尔福的正确翻译为：

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';

最终证明，这不是标题中所写的hexdigest（）问题，而是将Python代码移植到Delphi的问题。