delphi md5 加密

MD5加密

function ToMD5(text:String):String;
var
  MD5: TIdHashMessageDigest5;
begin
  MD5 := TIdHashMessageDigest5.Create;
  result:= MD5.HashStringAsHex(text);
end;