delphi - 寻求 FOSS SHA1

Question

我正在寻找与 Delphi (7) 一起使用的 FOSS SHA1 实现。

最好是一些小的东西，甚至可能是独立的 SHA1，而不是过去的一个巨大的库。易于安装和使用固然很好，但可靠性当然是第一位的。

<小时/>

更新:谢谢，Rob，代码就像梦一样工作

Answer 1

使用Cryptography API内置于操作系统中。您可以使用 Hashes.pas Domingo Seoane 的单元在 Delphi 中使用它，或者您可以使用 CryptAcquireContext、CryptCreateHash、重复调用 CryptHashData 和最后 CryptGetHashParam 编写自己的例程来获取结果。

我意识到它既不是免费的(如语音)也不是开源的，但也没有分发要求，因为它已经包含在您所有客户的系统中。