Delphi XE MD5加密

需要要用System.Hash，若不行還得引用IdHashMessageDigest, IdGlobal, IdHash（一般不用）

var

  TMPMD5: string; //需要加密的信息
  md5: THashMD5; //加密後的信息

TMPMD5 := UpperCase(md5.GetHashString(TMPStr));