寻求 FOSS SHA1
我正在寻找与 Delphi (7) 一起使用的 FOSS SHA1 实现。
最好是一些小的，甚至可能是独立的 SHA1，而不是过去的一个巨大的库。易于安装和使用固然很好，但可靠性当然是第一位的。
更新：谢谢，Rob，该代码的工作就像一个梦想
I am looking for a FOSS SHA1 implementation for use with Delphi (7).
Preferably something small, maybe even standalone SHA1, rather than past of a humongous library. Ease of install and use are nice, but of course reliability is priority number 1.
Update:Thanks, Rob, that code works like a dream
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（4）
使用操作系统内置的加密 API。您可以使用 Domingo Seoane 的 Hashes.pas 单元在 Delphi 中使用它，或者您可以使用 CryptAcquireContext、CryptCreateHash 编写自己的例程，重复调用 CryptHashData，最后使用 CryptGetHashParam 来获取结果。
我意识到它既不是免费的（如语音）也不是开源的，但也没有分发要求，因为它已经包含在所有客户的系统中。
Use the Cryptography API built in to the OS. You can use the Hashes.pas unit by Domingo Seoane to use it in Delphi, or you can write your own routine using CryptAcquireContext, CryptCreateHash, repeated calls to CryptHashData, and finally CryptGetHashParam to get the result.
I realize it's neither free (as in speech) nor open source, but there are also no distribution requirements since it's included on all your customers' systems already.
TurboPower LockBox 是免费且开源的，并实现 SHA1 以及许多其他功能：
具有
验证
第 3 版正式支持 Delphi 2007 和 Delphi 2010（但可能适用于 Delphi 7），但第 2 版支持旧版本的 Delphi。
TurboPower LockBox is free and open-source and implements SHA1, as well as many others:
Features
Verify
Version 3 officially supports Delphi 2007 and Delphi 2010 (but may work with Delphi 7), but Version 2 has support for older versions of Delphi.
您在 SynCrypto.pas 中拥有开源 MD5、SHA-1、SHA-256 和 Adler32 实现单元。还包括 AES-256 加密。
该单元针对速度进行了非常优化（SHA-256 和 AES-256 甚至在汇编级别进行了分析），并且还可以使用 VIA C3/C7/Nano CPU 的非常快的实时指令（如果可用）。
适用于 Delphi 6 至 XE。
You have Open Source MD5, SHA-1, SHA-256, and Adler32 implementation in the SynCrypto.pas unit. There is also included AES-256 encryption.
This unit was very optimized for speed (the SHA-256 an AES-256 was even profiled at asm level), and can also use the very fast real-time instructions of the VIA C3/C7/Nano CPU if available.
Works from Delphi 6 up to XE.
您很可能已经在
IdHashSHA1单元（Indy 10 的一部分）中预安装了 SHA-1 实现。You most probably already have SHA-1 implementation preinstalled within
IdHashSHA1unit (part of Indy 10).