本文整理自网络，侵删。
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 firedac 获取mysql 数据库databases 列表
Delphi stringgrid 实例2：1、获取 stringgrid 的行数、列数; 2、给单元赋值
Delphi idhttp解决获取utf-8网页中文乱码问题
更多相关阅读请进入《Delphi》频道 >>
