求delphi 对MD5的标准源码 VCL组件开发及应用http://www.delphi2007.net/DelphiVCL/html/delphi_20061222191119178.html
从网上当了很多关于Delphi 版的MD5算法，计算结果都是一样的，但是它们和标准的计算工具算出来的不一样，并且对于同一个文件，我把它改个名字，或者原模原样的复制到别的地方，用那些 Delphi 版的 MD5 算法算出来的居然不一样!
晕死啊！！！
故求一个标准的delphi 版的MD5 源码。。。谢谢了！！！
delphi7里就带了标准的MD5算法，你可以搜索一下，MD5 INDY
IdHash.pas
IdHashMessageDigest.pas
问题已解决，谢谢！
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;