1.引用单元:
uses IdHash,IdHashMessageDigest;
2.编写加密函数:
function TbsPartStatusQueryForm.StrtoMd5(str: string): string;
var
md5 : TIdHashMessageDigest5;
longWordRec : T4x4LongWordRecord;
begin
md5 := TIdHashMessageDigest5.Create;
longWordRec:=md5.HashValue(str);
Result:=LowerCase(md5.AsHex(longWordRec));
end;
3.调用:
Password:= StrtoMd5('abcd123');//加密password;
ShowMessage(Password);//show 加密后的文本
4.在线网址校验:MD5在线加密