求delphi 对MD5的标准源码

Question

从网上当了很多关于Delphi 版的MD5算法，计算结果都是一样的，但是它们和标准的计算工具算出来的不一样，并且对于同一个文件，我把它改个名字，或者原模原样的复制到别的地方，用那些 Delphi 版的 MD5 算法算出来的居然不一样!
晕死啊！！！
故求一个标准的delphi 版的MD5 源码谢谢了！！！

Answer 1

delphi7里就带了标准的MD5算法，你可以搜索一下，MD5 INDY

Answer 2

IdHash.pas
IdHashMessageDigest.pas

Answer 3

问题已解决，谢谢！uses
  IdHashMessageDigest……//MD5计算
function MD5(CheckStr:string):String;
var
  MyMD5: TIdHashMessageDigest5;
begin
  MyMD5:=TIdHashMessageDigest5.Create;
  Result:=MyMD5.AsHex(MyMD5.HashValue(TFileStream.Create(CheckStr,fmOpenRead or fmSharedenyNone)));
  MyMD5.Free;
end;