我正在寻找一个用于Delphi(7)的FOSS SHA1实现.
最好是一些小的,甚至是独立的SHA1,而不是一个庞大的图书馆.易于安装和使用很好,但当然可靠性是优先级1.
更新：谢谢,Rob,这段代码就像一场梦
解决方法
使用操作系统内置的
Cryptography API.您可以使用Domingo SEOane的
Hashes.pas单元在Delphi中使用它,或者您可以使用CryptAcquireContext,CryptCreateHash,重复调用CryptHashData,最后使用CryptGetHashParam来编写您自己的例程以获得结果.
我意识到它既不是免费的(如在语音中)也不是开源的,但也没有分发要求,因为它已经包含在所有客户的系统中.