求FOSS SHA1

如何解决求FOSS SHA1

| 我正在寻找与Delphi（7）一起使用的FOSS SHA1实现。 最好是一些小的甚至是独立的SHA1，而不是庞大的库。易于安装和使用很不错，但是可靠性当然是第一要务。 更新：谢谢，罗伯，代码像梦一样运作     

解决方法

使用操作系统内置的密码学API。您可以使用Domingo Seoane的Hashes.pas单元在Delphi中使用它，也可以使用CryptAcquireContext，CryptCreateHash，对CryptHashData的重复调用以及最后的CryptGetHashParam编写自己的例程以获取结果。 我意识到它既不是免费的（如语音形式）也不是开源的，但是也没有发行要求，因为它已经包含在所有客户的系统中。     ,TurboPower LockBox是免费的开放源代码，并实现SHA1以及许多其他功能： 特征 AES SHA2（包括新的SHA-512 / 224和SHA-512 / 256） DES / 3DES 河豚 fish鱼 SHA1 MD5 RSA签名和 校验 链接模式：ECB，CBC，CFB8，CFB，CTR，ECB，OFB，PCBC 版本3正式支持Delphi 2007和Delphi 2010（但可能与Delphi 7兼容），但是版本2支持较早版本的Delphi。     ,您在SynCrypto.pas单元中具有开源MD5，SHA-1，SHA-256和Adler32实现。还包括AES-256加密。 该单元针对速度进行了非常优化（SHA-256和AES-256甚至在asm级别上进行了性能分析），并且还可以使用VIA C3 / C7 / Nano CPU的非常快速的实时指令。 从Delphi 6到XE均可使用。     ,您很可能已经在

IdHashSHA1

单元（Indy 10的一部分）中预装了SHA-1实现。