Delphi中的SHA256算法


本文整理自网络,侵删。

 在Delphi xe中可以直接使用 TIdHashSHA256 来实现SHA256算法,代码如下

uses IdHashSHA, IdSSLOpenSSLHeaders;  
  
var SHA256 : TIdHashSHA256;  
  
SHA256 := TIdHashSHA256.Create;  
Password_p := LowerCase(SHA256.HashStringAsHex(Password_p));  //默认得出的字符串是大写的,这里转换成小写了  
SHA256.Free;  
  
initialization  
IdSSLOpenSSLHeaders.Load(); // TIdHashSHA256 使用,否则会报内存错误  

说明,这里一定要看,否则调用时会出现内存错误
1、initialization 中要调用 IdSSLOpenSSLHeaders.Load() 来初始化SSL库。
2、程序运行目录下,要包含 libeay32.dll 和 ssleay32.dll两个文件,这两个文件也是SSL库使用的。
3、如果上面两个步骤都有了,还是出现内存错误,可以检查一下 IdSSLOpenSSLHeaders.Load() 的返回值,如果返回失败,表示SSL库没有初始化成功,可能是两个动态库的版本不对应。
4、在Win 10下,需要将文件复制到Program file目录下,否则会出现 IdSSLOpenSSLHeaders.Load()调用失败,使用时出现内存错误。

相关阅读 >>

Delphi selectdirectory 选择文件夹

Delphi 重启启动计算机的代码

Delphi获取系统电源状态的信息

Delphi使用正则匹配网页数据

Delphi日期和时间

Delphi中interface接口的使用方法

Delphi调用游戏call代码

Delphi中move 函数额用法

Delphi 关于xe10下indy发送字符串编码的问题

Delphi 存储过程与函数的区别

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...