Delphi 寻找FOSS SHA1

Delphi 寻找FOSS SHA1,delphi,sha1,Delphi,Sha1,我正在寻找一个用于Delphi(7)的FOSS SHA1实现 最好是一些小的,甚至是独立的SHA1,而不是一个庞大的图书馆的过去。易于安装和使用是很好的,但可靠性当然是第一位的 更新:谢谢你,Rob,这段代码工作起来就像一个梦一样是免费的、开源的,它实现了SHA1以及其他许多功能: 特征 AES SHA2(包括新的SHA-512/224和SHA-512/256) DES/3DES 河豚 双鱼 沙一 MD5 RSA符号& 核实 链接模式:ECB、CBC、CFB8、CFB、CTR、ECB、OFB

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

最好是一些小的,甚至是独立的SHA1,而不是一个庞大的图书馆的过去。易于安装和使用是很好的,但可靠性当然是第一位的


更新:谢谢你,Rob,这段代码工作起来就像一个梦一样

是免费的、开源的,它实现了SHA1以及其他许多功能:

特征

  • AES
  • SHA2(包括新的SHA-512/224和SHA-512/256)
  • DES/3DES
  • 河豚
  • 双鱼
  • 沙一
  • MD5
  • RSA符号& 核实
  • 链接模式:ECB、CBC、CFB8、CFB、CTR、ECB、OFB、PCBC
版本3正式支持Delphi 2007和Delphi 2010(但可能与Delphi 7一起使用),但版本2支持旧版本的Delphi。

使用操作系统内置的。您可以使用Domingo Seoane提供的单元在Delphi中使用它,也可以使用CryptAcquireContext、CryptCreateHash、对CryptHashData的重复调用以及CryptGetHashParam编写自己的例程以获得结果


我意识到它既不是免费的(就像在演讲中一样),也不是开源的,但也没有发布要求,因为它已经包含在您所有客户的系统中。

您在单元中有开源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实现。

+1+1谢谢,我会研究它。我也喜欢绝地武士的外表,但这两个都提供了比我需要的更多的功能,+1辉煌!谢谢你,罗伯。这听起来是一个优雅的解决方案。+1-太棒了。使用CryptoAPI也会限制I/O。CryptoAPI不是最快的。随着即将推出的跨平台Delphi IDE,一个纯pascal版本可能对您未来的项目有意义。好吧,我知道我应该能够自己解决这个问题,但显然我太笨了。那个单元本身不会编译。。。未声明的标识符“HCRYPTPROV”。。。我错过了什么?对不起,您是在显示
HCRYPTPROV=ULONG
的行之前还是之后收到该错误消息?