Delphi获取MD5值

function GetFileMD5(var path:string):string; //获取文件的MD5值
var
filemd5:TIdHashMessageDigest5;
fs: TFileStream;
begin
  Try
    filemd5:=TIdHashMessageDigest5.Create;    //必须先初始化
    fs := TFileStream.Create(path,fmOpenRead);
    result:=filemd5.AsHex(filemd5.HashValue(fs));
  finally
  filemd5.Free;//最后必须释放对象
  fs.Free;
  end;
end;

//获取文本MD5值
function GetMD5Hash(Str:String):String;
var
   md5 : TIdHashMessageDigest5;
   longWordRec : T4x4LongWordRecord;
begin
   md5 := TIdHashMessageDigest5.Create;
   longWordRec:=md5.HashValue(Trim(Str)); //加密
   Result:= md5.AsHex(longWordRec);
   md5.Free;
end;