这个好像是turbo pascal

是Delphi

可不可以把GetCrc32Str
和GetCRC32File
贴出来
CRC32,如果要对文件所有字节进行校验的话,就要把CRC32值存放在别的文件中,如果是对文件的局部代码和数据进行校验,可以把CRC32值放在不是校验的部份

delphi用的就是pascal。delphi只是个工具，而不是语言。

我看那语法和我大学时用的turbo pascal 6一模一样。

你看那unit关键字、interface关键字、uses关键字、程序结构、语法等等，一模一样。

最初由 酷酷 发布
可不可以把GetCrc32Str
和GetCRC32File
贴出来
CRC32,如果要对文件所有字节进行校验的话,就要把CRC32值存放在别的文件中,如果是对文件的局部代码和数据进行校验,可以把CRC32值放在不是校验的部份

具体说明一下如何使用把CRC32值存放在别的文件中和把CRC32值放在不是校验的部份。
procedure GetCRC32File(FileName: string; var CRC32: DWORD);
    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
              $000000FF)];
        until BytesRead = 0;
      end;
      CloseFile(F);
  {$I+}
      CRC32 := not CRC32;
    end;

    function GetCrc32Str(s: string; Seed: LongInt): string;
    var
      Count: Integer;
      CrcVal: LongInt;
    begin
      CrcVal := Seed;
      for Count := 1 to Length(s) do
        CrcVal := Table[Byte(CrcVal xor DWORD(Ord(s[Count])))] xor ((CrcVal shr
          8) and $00FFFFFF);
      Result := IntToHex(not (CrcVal), 8);
    end;

1,新建一个文件,把CRC值写到里面去,在校验的时候,再把这个值读出来和目前算出来的值做比较.

2,比如你只对代码段做校验,你可以把CRC值存在PE文件头的空字段中,也可以放在数据段或别的段的空白处