如何计算 Delphi 中 64 位 DLL 的 CRC?

How to calculate CRC of a 64Bit DLL in Delphi?

我正在使用以下代码来计算 32 位 DLL 的 CRC32。

//Code to Check CRC of DLL files
procedure CalcCRC32(FileName: String; var CRC32: dword);
const Table: Array[0..255] of DWord =
     ([=11=]000000, 073096, $EE0E612C, 0951BA,
      6DC419, 6AF48F, $E963A535, E6495A3,
      [=11=]EDB8832, DCB8A4, $E0D5E91E, D2D988,
      B64C2B, EB17CBD, $E7B82D07, BF1D91,
      DB71064, AB020F2, $F3B97148, BE41DE,
      ADAD47D, DDDE4EB, $F4D4B551, D385C7,
      6C9856, 6BA8C0, $FD62F97A, A65C9EC,
      015C4F, 066CD9, $FA0F3D63, D080DF5,
      B6E20C8, C69105E, $D56041E4, $A2677172,
      C03E4D1, B04D447, $D20D85FD, $A50AB56B,
      B5A8FA, B2986C, $DBBBC9D6, $ACBCF940,
      D86CE3, DF5C75, $DCD60DCF, $ABD13D59,
      D930AC, DE003A, $C8D75180, $BFD06116,
      B4F4B5, B3C423, $CFBA9599, $B8BDA50F,
      02B89E, F058808, $C60CD9B2, $B10BE924,
      F6F7C87, 684C11, $C1611DAB, $B6662D3D,
      DC4190, DB7106, D220BC, $EFD5102A,
      B18589, B6B51F, FBFE4A5, $E8B8D433,
      07C9A2, [=11=]F00F934, 09A88E, $E10E9818,
      F6A0DBB, 6D3D2D, 646C97, $E6635C01,
      B6B51F4, C6C6162, 6530D8, $F262004E,
      C0695ED, B01A57B, 08F4C1, $F50FC457,
      B0D9C6, B7E950, BBEB8EA, $FCB9887C,
      DD1DDF, DA2D49, CD37CF3, $FBD44C65,
      DB26158, AB551CE, $A3BC0074, $D4BB30E2,
      ADFA541, DD895D7, $A4D1C46D, $D3D6F4FB,
      69E96A, 6ED9FC, $AD678846, $DA60B8D0,
      042D73, 031DE5, $AA0A4C5F, $DD0D7CC9,
      05713C, 0241AA, $BE0B1010, $C90C2086,
      68B525, 6F85B3, $B966D409, $CE61E49F,
      EDEF90E, D9C998, $B0D09822, $C7D7A8B4,
      B33D17, EB40D81, $B7BD5C3B, $C0BA6CAD,
      $EDB88320, ABFB3B6, B6E20C, B1D29A,
      $EAD54739, DD277AF, DB2615, DC1683,
      $E3630B12, 643B84, [=11=]D6D6A3E, A6A5AA8,
      $E40ECF0B, 09FF9D, [=11=]A00AE27, D079EB1,
      $F00F9344, 08A3D2, E01F268, 06C2FE,
      $F762575D, 6567CB, 6C3671, E6B06E7,
      $FED41B76, D32BE0, DA7A5A, DD4ACC,
      $F9B9DF6F, EBEEFF9, B7BE43, B08ED5,
      $D6D6A3E8, $A1D1937E, D8C2C4, FDFF252,
      $D1BB67F1, $A6BC5767, FB506DD, B2364B,
      $D80D2BDA, $AF0A1B4C, 034AF6, 047A60,
      $DF60EFC3, $A867DF55, 6E8EEF, 69BE79,
      $CB61B38C, $BC66831A, 6FD2A0, 68E236,
      $CC0C7795, $BB0B4703, 0216B9, 05262F,
      $C5BA3BBE, $B2BD0B28, BB45A92, CB36A04,
      $C2D7FFA7, $B5D0CF31, CD99E8B, BDEAE1D,
      B64C2B0, $EC63F226, 6AA39C, 6D930A,
      C0906A9, $EB0E363F, 076785, 005713,
      BF4A82, $E2B87A14, BB12BAE, [=11=]CB61B38,
      D28E9B, $E5D5BE0D, CDCEFB7, [=11=]BDBDF21,
      D3D2D4, $F1D4E242, DDB3F8, FDA836E,
      BE16CD, $F6B9265B, FB077E1, B74777,
      085AE6, $FF0F6A70, 063BCA, 010B5C,
      F659EFF, $F862AE69, 6BFFD3, 6CCF45,
      $A00AE278, $D70DD2EE, E048354, 03B3C2,
      $A7672661, $D06016F7, 69474D, E6E77DB,
      $AED16A4A, $D9D65ADC, DF0B66, D83BF0,
      $A9BCAE53, $DEBB9EC5, B2CF7F, B5FFE9,
      $BDBDF21C, $CABAC28A, B39330, B4A3A6,
      $BAD03605, $CDD70693, DE5729, D967BF,
      $B3667A2E, $C4614AB8, D681B02, A6F2B94,
      $B40BBE37, $C30C8EA1, A05DF1B, D02EF8D);

var F: file;
    BytesRead: dword;
    Buffer: Array[1..65521] of byte;
    i: Word;
begin
    FileMode := 0;
    CRC32 := $ffffffff;
    {$I-}
    AssignFile(F, FileName);
    Reset(F, 1);
    if IOResult = 0 then
    begin
      repeat
        BlockRead(F, Buffer, SizeOf(Buffer), BytesRead);
        for i := 1 to BytesRead do CRC32 := (CRC32 shr 8) xor Table[Buffer[i] xor (CRC32 and [=11=]0000FF)];
      until BytesRead = 0;
    end;
    CloseFile(F);
    {$I+}
    CRC32 := not CRC32;
end;

现在我想在我的 64 位应用程序中对 64 位 DLL 执行相同的操作。

但是上面的代码总是返回 0。

我无法转换此代码。有人可以在这里指导我吗?

TIA

杨瑜

该函数在 32 位和 64 位中的运行方式相同。没有什么可以改变的。

如果文件无法打开函数returns0,因为not $ffffffff = [=10=]000000

因此我得出结论,除了找不到您的文件外,没有其他事情发生。

您的代码的一个问题是它没有给出非常可识别的错误信号。当文件找不到、被锁定或 CRC 值刚好为 0 时,结果都是一样的。这确实是您困惑的根源。应该添加一些错误处理以使故障模式易于区分。

该代码也仅限于对文件进行操作。基于流的实现将使它更加灵活,并且可能大大有助于使错误处理易于添加。

32 位 DLL 的 CRC 绝对没有理由与 64 位 DLL 的 CRC 行为不同。 CRC 仅按原样处理文件。

SIDE NOTE: The 32 in CRC32 has nothing to do with whether the app/dll or whatever is 32-bit. (You can run a CRC on a text file if you choose.) The 32 refers to the size of the check value i.e. 32-bits.

您的代码是故意隐藏 IO 错误:首先使用 {$I-} 然后如果 [=14 则静静地不做任何事情=] <> 0. 隐藏错误是一件可怕的事情,会导致误诊问题,就像你在这里遇到的那样。

如果你修复 CRC 代码以停止隐藏错误,你至少可以找出真正的问题所在。 IE。添加代码报错如下。

Reset(F, 1);
if IOResult = 0 then
begin
  ...
end
else
begin
  RaiseLastOSError; //Defined in SysUtils
end;

更新

一旦了解了真正的问题以及隐藏错误为何如此糟糕,我建议您按以下说明对 CRC 代码进行现代化改造。

注意 此代码非常有意不试图隐藏错误。

  • 如果您隐藏了错误并且出现了错误,您就会对它为什么不起作用感到困惑。
  • 如果您不隐藏 错误并且出了问题,您会得到一个exception/error 告诉您出了什么问题;因此,解决问题的工作已经完成了一半!

使用 TStream.

重载 CalcCRC32
function CalcCRC32(AStream: TStream): Cardinal;
const CRCTable: array[0..255] of DWord =
     //Put your large const array here;
var
  LBytesRead: Integer;
  LBuffer: array[1..65521] of byte;
  LLoopI: Word;
begin
  Result := $ffffffff;

  repeat
    LBytesRead := AStream.Read(LBuffer, SizeOf(LBuffer));
    for LLoopI := 1 to LBytesRead do
    begin
      Result := (Result shr 8) xor CRCTable[LBuffer[LLoopI] xor (Result and [=11=]0000FF)];
    end;
  until LBytesRead = 0;

  Result := not Result;
end;

然后您可以按如下方式修改现有例程,以保持调用代码像以前一样工作。

procedure CalcCRC32(AFileName: String; var CRC32: DWORD);
var
  LStream: TStream;
begin
  LStream := TFileStream.Create(AFileName, fmOpenRead, fmShareDenyNone);
  try
    CRC32 := CalcCRC32(LStream);
  finally
    LStream.Free;
  end;
end;

应该是:fmOpenRead fmShareDenyNone,但是对于CRC32计算我建议使用fmShareDenyWrite

LStream := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite);