Question

我尝试在delphi和python中散列相同的字符串，但是我得到了不同的哈希值？

的Python：

d = bytes('pr', 'utf-8')
print((sha1(d).digest()).hex())

output: 5498d9b96ed2832e04a90c4ac2ab71f869b2bfdc

Delphi XE7：

...
bytes := TEncoding.UTF8.GetBytes('pr');
BinToHex(sha1Digest2(bytes);
...
output: 1ca1a00b40b8350d15cdce2935965d88b7798719


Function TForm1.sha1Digest2(buffer: TBytes): TBytes;
Var
  HashSHA1: THashSHA1;
Begin
  HashSHA1 := THashSHA1.Create;
  HashSHA1.Update(buffer, SizeOf(buffer));
  Result := HashSHA1.HashAsBytes;
End;

Function TForm1.binToHex(Const bin: Array Of Byte): String;
Const
  HexSymbols = '0123456789ABCDEF';
Var
  I: Integer;
Begin
  SetLength(Result, 2 * Length(bin));
  For I := 0 To Length(bin) - 1 Do
  Begin
    Result[1 + 2 * I + 0] := HexSymbols[1 + bin[I] Shr 4];
    Result[1 + 2 * I + 1] := HexSymbols[1 + bin[I] And $0F];
  End;
End;

我做错了什么？提前谢谢！

Answer 1

您使用Sizeof(buffer)代替Length(buffer)！所以你要散列4个字节而不是2个。Sizeof(<TBytes>)总是4，因为它是指针。

SHA1 Hash Delphi与Python

1 个答案: