cnmd5发现在delphi xe有问题，转向采用自带的MessageDigest_5.pas。

MessageDigest_5.pas 在  C:\Program Files\Embarcadero\RAD Studio\8.0\source\soap\wsdlimporter 下面

uses
  Types,
  MessageDigest_5;

function MD5Str(AStr:string):string;
var
  MD5: IMD5;
begin
  MD5 := GetMD5;
  MD5.Init;
  MD5.Update(TByteDynArray(RawByteString(AStr)), Length(AStr));
  Result := LowerCase(MD5.AsString);
end;