文件MD5校验和

Question

在this question中提到了wcrypt2。

我需要的只是计算文件的MD5。如果我可以计算它而不必保存它将是完美的，因为它是以流格式下载的文件。

我想有最直接的方式来做到这一点。

谢谢！

Answer 1

这是Indy 10的工作代码：

function MD5File(const FileName: string): string;
var
  IdMD5: TIdHashMessageDigest5;
  FS: TFileStream;
begin
 IdMD5 := TIdHashMessageDigest5.Create;
 FS := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
 try
   Result := IdMD5.HashStreamAsHex(FS)
 finally
   FS.Free;
   IdMD5.Free;
 end;
end;

此致，OscaR1

Answer 2

基于@dummzeuch answere我写了这个函数：

function getMD5checksum(s: TStream): string;
 var
  md5: TIdHashMessageDigest5;
  hash : T4x4LongWordRecord;
 begin
  md5 := TIdHashMessageDigest5.Create;
  s.Seek(0,0);
  hash := md5.HashValue(s);
  result := IntToHex(Integer(hash[0]), 4) +
            IntToHex(Integer(hash[1]), 4) +
            IntToHex(Integer(hash[2]), 4) +
            IntToHex(Integer(hash[3]), 4);
 end;

Answer 3

Indy带有计算几个哈希的函数，MD5就是其中之一。至少从Delphi 2006开始，Indy包含在Delphi的所有版本中，并且可以免费下载旧版本。

Answer 4

关于什么：

function GetFileMD5(const Stream: TStream): String; overload;
var MD5: TIdHashMessageDigest5;
begin
    MD5 := TIdHashMessageDigest5.Create;
    try
       Result := MD5.HashStreamAsHex(Stream);
    finally
       MD5.Free;
    end;
end;

function GetFileMD5(const Filename: String): String; overload;
var FileStream: TFileStream;
begin
    FileStream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
    try
      Result := GetFileMD5(FileStream);
    finally
      FileStream.Free;
    end;
end;

Answer 5

如你所述，the post you linked to谈论wcrypt2，它是一个加密例程库，包括MD5。您链接的帖子似乎也表明它可用于Delphi 7，因为提问者包含标记为“Delphi 7”的输出。您已将此问题标记为delphi7，因此我认为这也是您正在使用的版本。那么是什么阻止你使用wcrypt2？

该问题链接到wcrypt2.pas的副本，该文件中的版权日期似乎表明该单元在Delphi 7发布时可用。检查你的安装;你可能已经拥有它了。如果没有，那么该单位也说它是通过Project Jedi获得的，所以你也可以尝试在那里寻找单位。

您引用的问题的答案包括示例Delphi代码以及Delphi附带用于执行MD5的单元名称。它们随附Delphi 2009，因此您应该检查它们是否也适用于您的版本。

Answer 6

看看Delphi中的MD5SUM的this implementation。它需要一个字符串来输入，但我想你可以很容易地使它与流一起工作。

Answer 7

MessageDigest_5也会为此工作。

Answer 8

我在Delphi 7中使用Indy 10.1.5中的以下函数

uses IdHashMessageDigest, idHash, Classes;  

...

function cc_MD5File(const p_fileName : string) : string;
//returns MD5 has for a file
var
  v_idmd5 : TIdHashMessageDigest5;
  v_fs : TFileStream;
  v_hash : T4x4LongWordRecord;
begin
  v_idmd5 := TIdHashMessageDigest5.Create;
  v_fs := TFileStream.Create(p_fileName, fmOpenRead OR fmShareDenyWrite) ;
  try
    v_hash := v_idmd5.HashValue(v_fs);
    result := v_idmd5.AsHex(v_hash);
  finally
    v_fs.Free;
    v_idmd5.Free;
  end;
end;

Answer 9

如果您使用Overbyte http://www.overbyte.eu/frame_index.html只需添加单位并调用函数FileMD5，文件名为

uses OverbyteIcsMd5;
....
function GetMd5File:String; 
begin
 Result := FileMD5(FileName);
end;