crcp.txt

CRC校验算法 CRC校验算法 CRC校验算法 CRC校验算法

program crcp;

{$APPTYPE CONSOLE}

uses crc32;

function IntToHex(Value: Integer; Digits: Byte):string;
const Digit:array[0..15] of char = ('0','1','2','3','4','5','6','7',
                                    '8','9','A','B','C','D','E','F');
begin
Result:='';
repeat
 Result:=Digit[Value and $F] + Result;
 Value:=Value shr 4;
until Length(Result)=Digits;
end;


var f: file of byte;
    Result: cardinal;
    BSize, length: integer;
    buffer: pointer;
begin
 AssignFile(f,''); //standard input
 Reset(f);
 BSize:=FileSize(F);
 MaxCRCBufferSize:=8192;
 if BSize>MaxCRCBufferSize then BSize:=MaxCRCBufferSize;
 GetMem(buffer,BSize);
 try
  Result:=0;
  repeat
   BlockRead(F,buffer^,BSize,length);
   CalcCRC(Result,buffer,length);
  until (length<BSize) or (length=0);
 finally
  FreeMem(buffer);
  Closefile(f);
 end;
 if BSize<>0 then Writeln(IntToHex(Result,8)) else Writeln('Null');
end.