delphi7 读取MD5值

USES IdGlobal,IdHash;

function GetMd5Str(ContenStr:string):string;
var
  RegMd5:TIdHashMessageDigest5;
  RegDigest:T4x4LongWordRecord;
begin
  RegMd5:=TIdHashMessageDigest5.Create;
  RegDigest:=RegMd5.HashValue(ContenStr);
  Result:=LowerCase(RegMd5.AsHex(RegDigest));
end;