DELPHI SHA1加密函数


本文整理自网络,侵删。

 

在命名空间IdHashSHA,有个函数TidHashSHa1类,用作SHA1加密;

该类的方法Methods有

Constructor:creat

Methods:HashtoHex(const aHash:TidBytes):string;override;

 

                    HashBytesAsHex(const aHash:TidBytes):string;该方法将TidBytes类型返回string类;

 

                   HashStringAsHex(const AStr:String;ADestEncoding:TidTextEncoding=nil):string

 

常规SHA1(utf-8)加密:40位SHA1大写

 

使用HashBytesAsHex代码如下:

function sha1(input:string):string;  

  var  

  temp:tidbytes;  

begin  

    with tidhashsha1.create do  

     try  

       result:=HashBytesAsHex(TdBytes(Bytesof(input)));  

       //result:=HashStringAsHex(input);  

     finally  

      free;  

    end;  

end;  

关于验证自己写的加密函数对错的方法:

相关阅读 >>

Delphi 将整数转换为罗马数字

Delphi idhttp 断开连接/超时读取

Delphi执行cmd命令和bat文件

Delphi 几个日期操作

Delphi字符串深入学习

Delphi iddecodermime 对图像编码base64解码成图像文件

Delphi 获取上一次文件访问时间

Delphi fmx 切换窗体最大化

Delphi 关闭所有正在运行的程序

Delphi 优化mdb文件

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



打赏

取消

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

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

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

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

评论

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