delphi md5加密字符串


本文整理自网络,侵删。

 unit ToMd5;

interface
uses
IdHashMessageDigest, IdHash, IdGlobal;

type
TMD5 = class(TIdHashMessageDigest5);

function StrToMD5(S: String): String; overload;
function StrToMD516(S: String; L: integer): String; overload; //返加16位MD5值
function StrToMD532(S: String; L: integer): String; overload; //返回32位MD5值

implementation
function StrToMD5(S: String): String;
var
Md5Encode: TMD5;
begin
Md5Encode:= TMD5.Create;
result:= Md5Encode.AsHex(Md5Encode.HashValue(S));
Md5Encode.Free;
end;

function StrToMD516(S: String; L: integer): String;
begin
result:= copy(StrToMD5(S),9,L);
end;

function StrToMD532(S: String; L: integer): String; overload;
begin
result:= copy(StrToMD5(S),1,L);
end;
end.

相关阅读 >>

Delphi多线程tthread详解

Delphi 开发安卓时判断进入非活动

Delphi 判断安卓app第一次启动

Delphi deletedirectory 删除目录下所有文件包括子文件夹下所有文件

Delphi 最全_日期格式_dateutils时间单元说明

Delphi 简单的软件注册demo

Delphi 内存补丁

Delphi system 提供的编译期函数

Delphi中使用可修改的常量

Delphi 解析Delphi中的loadlibrary,getprocaddress,freelibrary

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



打赏

取消

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

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

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

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

评论

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