delphi xe6环境下MD5编码(用于访问饿了么接口)

///引用IdHashMessageDigest、IdHash、IdGlobal三个单元，
function JsMd5(str:string):String;
var
  MD5: TIdHashMessageDigest5;
begin
  MD5:=TIdHashMessageDigest5.Create;
  try
    result:=Md5.HashStringAsHex(str,IndyTextencoding_UTF8).ToUpper;
  finally
    Md5.Free;
  end;

end;

http://www.dfwlt.com/forum.php?mod=viewthread&tid=1525