var
  MyMD5: TIdHashMessageDigest5;
  Digest: T4x4LongWordRecord;//T4x4LongWordRecord;
begin
  MyMD5 := TIdHashMessageDigest5.Create;  Digest := MyMD5.HashValue(s);
  result := MyMD5.AsHex(Digest); //显示32个字符长度的MD5签名结果
  Result := delUnderLine(Result); //删除'-'并将字符转换成小写
end;