Delphi 获取MD5值,使用IdHashMessageDigest控件
function GetMD5(AStr:String):string;
var
oMD5 : TIdHashMessageDigest5;
begin
oMD5 := TIdHashMessageDigest5.Create;
Result := LowerCase(oMD5.HashStringAsHex(AStr));
oMD5.Free;
end;