SHA1 Hash Delphi与Python

Question

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

蟒蛇:

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

output: 5498d9b96ed2832e04a90c4ac2ab71f869b2bfdc

德尔福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个内部它是一个指针.