delphi MD5加密

uses  IdHashMessageDigest,IdGlobal, IdHash;

 

function StrToMD5(S: String): String;
var
  Md5Encode: TIdHashMessageDigest5;
begin
  Md5Encode:= TIdHashMessageDigest5.Create;
  try
    result:= Md5Encode.AsHex(Md5Encode.HashValue(UTF8Encode(S)));
  finally
    Md5Encode.Free;
  end;
end;

 

var

str2:utf8string;

showmessage(StrToMD5);