DelphiXE2自带的MD5算法的使用

 首先要在单元中引用：IdHashMessageDigest

 

type
  TMD5 = class(TIdHashMessageDigest5);

function ToMD5(const S: string): String;

var
  Md5Encode: TMD5;
begin
  Md5Encode := TMD5.Create;
  try
    result := Md5Encode.HashStringAsHex(S, TEncoding.ANSI); // <------- 如果没有第二个参数，则不支持中文
  finally
    Md5Encode.Free;
  end;
end;