求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实现。     

要回复问题请先登录注册