求FOSS SHA1

Question

我正在寻找一个用于Delphi(7)的FOSS SHA1实现.

最好是一些小的,甚至是独立的SHA1,而不是一个庞大的图书馆.易于安装和使用很好,但当然可靠性是优先级1.

---

更新:谢谢,Rob,这段代码就像一场梦

Answer 1

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

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

Answer 2

TurboPower LockBox是免费的开源软件,它实现了SHA1以及其他许多方面:

特征

• AES
• SHA2(包括新的SHA-512/224和SHA-512/256)
• DES/3DES
• 河豚
• Twofish的
• SHA1
• MD5
• RSA签名和验证
• 链接模式:ECB,CBC,CFB8,CFB,CTR,ECB,OFB,PCBC

第3版正式支持Delphi 2007和Delphi 2010(但可以用Delphi 7工作),但第2版为旧版本的Delphi的支持.

Answer 3

您在SynCrypto.pas单元中具有开源MD5,SHA-1,SHA-256和Adler32实现.还包括AES-256加密.

该单元针对速度进行了非常优化(SHA-256和AES-256甚至可以在asm级别进行分析),并且还可以使用威盛C3/C7/Nano CPU的非常快速的实时指令(如果可用).

适用于Delphi 6至XE.