unit crc; {$mode objfpc} { crc32.c -- compute the CRC-32 of a data stream Copyright (C) 1995-1998 Mark Adler Pascal tranlastion Copyright (C) 1998 by Jacques Nomssi Nzali For conditions of distribution and use, see copyright notice in readme.txt crc64.c -- compute the CRC-64 of a data stream By David T. Jones (dtj@cs.ucl.ac.uk) - September 28th 2002 Pascal tranlastion Copyright (C) 2009 by Ivo Steinmann } {.$DEFINE DYNAMIC_CRC_TABLE} interface (****************************************************************************** * CRC32 ******************************************************************************) function crc32(crc: cardinal; buf: Pbyte; len: cardinal): cardinal; { Update a running crc with the bytes buf[0..len-1] and return the updated crc. If buf is NULL, this function returns the required initial value for the crc. Pre- and post-conditioning (one's complement) is performed within this function so it shouldn't be done by the application. Usage example: var crc : cardinal; begin crc := crc32(0, nil, 0); while (read_buffer(buffer, length) <> EOF) do crc := crc32(crc, buffer, length); if (crc <> original_crc) then error(); end; } function get_crc32_table: Pcardinal; { can be used by asm versions of crc32() } function get_crc_table: Pcardinal; external name 'get_crc32_table'; (****************************************************************************** * CRC64 ******************************************************************************) function crc64(crc: qword; buf: Pbyte; len: cardinal) : qword; function get_crc64_table: PQword; { can be used by asm versions of crc64() } (****************************************************************************** * CRC128 ******************************************************************************) type pu128 = ^u128; u128 = packed record case Integer of 0: (lo, hi: qword); 1: (guid: tguid); end; operator := (v: qword): u128; inline; operator = (a, b: u128): boolean; inline; operator xor (const a: u128; const b: u128): u128; inline; operator xor (const a: u128; const b: byte): u128; inline; operator shr (const a: u128; const b: byte): u128; inline; operator shl (const a: u128; const b: byte): u128; inline; operator and (const a: u128; const b: u128): u128; inline; operator and (const a: u128; const b: qword): qword; inline; function crc128(crc: u128; buf: Pbyte; len: cardinal) : u128; function get_crc128_table: pu128; implementation (****************************************************************************** * CRC32 ******************************************************************************) {$IFDEF DYNAMIC_CRC_TABLE} {local} const crc32_table_empty : boolean = TRUE; {local} var crc32_table : array[Byte] of Longword; { Generate a table for a byte-wise 32-bit CRC calculation on the polynomial: x^32+x^26+x^23+x^22+x^16+x^12+x^11+x^10+x^8+x^7+x^5+x^4+x^2+x+1. Polynomials over GF(2) are represented in binary, one bit per coefficient, with the lowest powers in the most significant bit. Then adding polynomials is just exclusive-or, and multiplying a polynomial by x is a right shift by one. If we call the above polynomial p, and represent a byte as the polynomial q, also with the lowest power in the most significant bit (so the byte 0xb1 is the polynomial x^7+x^3+x+1), then the CRC is (q*x^32) mod p, where a mod b means the remainder after dividing a by b. This calculation is done using the shift-register method of multiplying and taking the remainder. The register is initialized to zero, and for each incoming bit, x^32 is added mod p to the register if the bit is a one (where x^32 mod p is p+x^32 = x^26+...+1), and the register is multiplied mod p by x (which is shifting right by one and adding x^32 mod p if the bit shifted out is a one). We start with the highest power (least significant bit) of q and repeat for all eight bits of q. The table is simply the CRC of all possible eight bit values. This is all the information needed to generate CRC's on data a byte at a time for all combinations of CRC register values and incoming bytes. } {local} procedure make_crc32_table; var c : cardinal; n,k : integer; poly : cardinal; { polynomial exclusive-or pattern } const { terms of polynomial defining this crc (except x^32): } p: array [0..13] of Byte = (0,1,2,4,5,7,8,10,11,12,16,22,23,26); begin { make exclusive-or pattern from polynomial ($EDB88320) } poly := longint(0); for n := 0 to (sizeof(p) div sizeof(Byte))-1 do poly := poly or (longint(1) shl (31 - p[n])); for n := 0 to 255 do begin c := cardinal(n); for k := 0 to 7 do begin if (c and 1) <> 0 then c := poly xor (c shr 1) else c := (c shr 1); end; crc32_table[n] := c; end; crc32_table_empty := FALSE; end; {$ELSE} { ======================================================================== Table of CRC-32's of all single-byte values (made by make_crc32_table) } {local} const crc32_table : array[Byte] of cardinal = ( $00000000, $77073096, $ee0e612c, $990951ba, $076dc419, $706af48f, $e963a535, $9e6495a3, $0edb8832, $79dcb8a4, $e0d5e91e, $97d2d988, $09b64c2b, $7eb17cbd, $e7b82d07, $90bf1d91, $1db71064, $6ab020f2, $f3b97148, $84be41de, $1adad47d, $6ddde4eb, $f4d4b551, $83d385c7, $136c9856, $646ba8c0, $fd62f97a, $8a65c9ec, $14015c4f, $63066cd9, $fa0f3d63, $8d080df5, $3b6e20c8, $4c69105e, $d56041e4, $a2677172, $3c03e4d1, $4b04d447, $d20d85fd, $a50ab56b, $35b5a8fa, $42b2986c, $dbbbc9d6, $acbcf940, $32d86ce3, $45df5c75, $dcd60dcf, $abd13d59, $26d930ac, $51de003a, $c8d75180, $bfd06116, $21b4f4b5, $56b3c423, $cfba9599, $b8bda50f, $2802b89e, $5f058808, $c60cd9b2, $b10be924, $2f6f7c87, $58684c11, $c1611dab, $b6662d3d, $76dc4190, $01db7106, $98d220bc, $efd5102a, $71b18589, $06b6b51f, $9fbfe4a5, $e8b8d433, $7807c9a2, $0f00f934, $9609a88e, $e10e9818, $7f6a0dbb, $086d3d2d, $91646c97, $e6635c01, $6b6b51f4, $1c6c6162, $856530d8, $f262004e, $6c0695ed, $1b01a57b, $8208f4c1, $f50fc457, $65b0d9c6, $12b7e950, $8bbeb8ea, $fcb9887c, $62dd1ddf, $15da2d49, $8cd37cf3, $fbd44c65, $4db26158, $3ab551ce, $a3bc0074, $d4bb30e2, $4adfa541, $3dd895d7, $a4d1c46d, $d3d6f4fb, $4369e96a, $346ed9fc, $ad678846, $da60b8d0, $44042d73, $33031de5, $aa0a4c5f, $dd0d7cc9, $5005713c, $270241aa, $be0b1010, $c90c2086, $5768b525, $206f85b3, $b966d409, $ce61e49f, $5edef90e, $29d9c998, $b0d09822, $c7d7a8b4, $59b33d17, $2eb40d81, $b7bd5c3b, $c0ba6cad, $edb88320, $9abfb3b6, $03b6e20c, $74b1d29a, $ead54739, $9dd277af, $04db2615, $73dc1683, $e3630b12, $94643b84, $0d6d6a3e, $7a6a5aa8, $e40ecf0b, $9309ff9d, $0a00ae27, $7d079eb1, $f00f9344, $8708a3d2, $1e01f268, $6906c2fe, $f762575d, $806567cb, $196c3671, $6e6b06e7, $fed41b76, $89d32be0, $10da7a5a, $67dd4acc, $f9b9df6f, $8ebeeff9, $17b7be43, $60b08ed5, $d6d6a3e8, $a1d1937e, $38d8c2c4, $4fdff252, $d1bb67f1, $a6bc5767, $3fb506dd, $48b2364b, $d80d2bda, $af0a1b4c, $36034af6, $41047a60, $df60efc3, $a867df55, $316e8eef, $4669be79, $cb61b38c, $bc66831a, $256fd2a0, $5268e236, $cc0c7795, $bb0b4703, $220216b9, $5505262f, $c5ba3bbe, $b2bd0b28, $2bb45a92, $5cb36a04, $c2d7ffa7, $b5d0cf31, $2cd99e8b, $5bdeae1d, $9b64c2b0, $ec63f226, $756aa39c, $026d930a, $9c0906a9, $eb0e363f, $72076785, $05005713, $95bf4a82, $e2b87a14, $7bb12bae, $0cb61b38, $92d28e9b, $e5d5be0d, $7cdcefb7, $0bdbdf21, $86d3d2d4, $f1d4e242, $68ddb3f8, $1fda836e, $81be16cd, $f6b9265b, $6fb077e1, $18b74777, $88085ae6, $ff0f6a70, $66063bca, $11010b5c, $8f659eff, $f862ae69, $616bffd3, $166ccf45, $a00ae278, $d70dd2ee, $4e048354, $3903b3c2, $a7672661, $d06016f7, $4969474d, $3e6e77db, $aed16a4a, $d9d65adc, $40df0b66, $37d83bf0, $a9bcae53, $debb9ec5, $47b2cf7f, $30b5ffe9, $bdbdf21c, $cabac28a, $53b39330, $24b4a3a6, $bad03605, $cdd70693, $54de5729, $23d967bf, $b3667a2e, $c4614ab8, $5d681b02, $2a6f2b94, $b40bbe37, $c30c8ea1, $5a05df1b, $2d02ef8d); {$ENDIF} { ========================================================================= This function can be used by asm versions of crc32() } function get_crc32_table : {const} Pcardinal; [public,alias:'get_crc32_table']; begin {$ifdef DYNAMIC_CRC_TABLE} if (crc32_table_empty) then make_crc32_table; {$endif} get_crc32_table := {const} Pcardinal(@crc32_table); end; { ========================================================================= } function crc32 (crc : cardinal; buf : Pbyte; len : cardinal): cardinal; begin if buf = nil then exit(0); {$IFDEF DYNAMIC_CRC_TABLE} if crc32_table_empty then make_crc32_table; {$ENDIF} crc := crc xor $FFFFFFFF; while (len >= 8) do begin crc := crc32_table[(crc xor buf^) and $ff] xor (crc shr 8); inc(buf); crc := crc32_table[(crc xor buf^) and $ff] xor (crc shr 8); inc(buf); crc := crc32_table[(crc xor buf^) and $ff] xor (crc shr 8); inc(buf); crc := crc32_table[(crc xor buf^) and $ff] xor (crc shr 8); inc(buf); crc := crc32_table[(crc xor buf^) and $ff] xor (crc shr 8); inc(buf); crc := crc32_table[(crc xor buf^) and $ff] xor (crc shr 8); inc(buf); crc := crc32_table[(crc xor buf^) and $ff] xor (crc shr 8); inc(buf); crc := crc32_table[(crc xor buf^) and $ff] xor (crc shr 8); inc(buf); dec(len, 8); end; while (len > 0) do begin crc := crc32_table[(crc xor buf^) and $ff] xor (crc shr 8); inc(buf); dec(len); end; result := crc xor $FFFFFFFF; end; (****************************************************************************** * CRC64 ******************************************************************************) const POLY64REV = QWord($95AC9329AC4BC9B5); INITIALCRC64 = QWord($FFFFFFFFFFFFFFFF); {$IFDEF DYNAMIC_CRC_TABLE} {local} const crc64_table_empty : boolean = TRUE; {local} var crc64_table : array[Byte] of QWord; {local} procedure make_crc64_table; var i,j: Integer; part: QWord; begin for i := 0 to 255 do begin part := i; for j := 0 to 7 do begin if part and $1 <> 0 then part := (part shr 1) xor POLY64REV else part := part shr 1; end; crc64_table[i] := part; end; crc64_table_empty := FALSE; end; {$ELSE} { ======================================================================== Table of CRC-64's of all single-byte values (made by make_crc64_table) } {$push} {$r-} {$warnings off} {local} const crc64_table : array[Byte] of QWord = ( $0000000000000000,$7AD870C830358979,$F5B0E190606B12F2,$8F689158505E9B8B,$C038E5739841B68F,$BAE095BBA8743FF6, $358804E3F82AA47D,$4F50742BC81F2D04,$AB28ECB46814FE75,$D1F09C7C5821770C,$5E980D24087FEC87,$24407DEC384A65FE, $6B1009C7F05548FA,$11C8790FC060C183,$9EA0E857903E5A08,$E478989FA00BD371,$7D08FF3B88BE6F81,$07D08FF3B88BE6F8, $88B81EABE8D57D73,$F2606E63D8E0F40A,$BD301A4810FFD90E,$C7E86A8020CA5077,$4880FBD87094CBFC,$32588B1040A14285, $D620138FE0AA91F4,$ACF86347D09F188D,$2390F21F80C18306,$594882D7B0F40A7F,$1618F6FC78EB277B,$6CC0863448DEAE02, $E3A8176C18803589,$997067A428B5BCF0,$FA11FE77117CDF02,$80C98EBF2149567B,$0FA11FE77117CDF0,$75796F2F41224489, $3A291B04893D698D,$40F16BCCB908E0F4,$CF99FA94E9567B7F,$B5418A5CD963F206,$513912C379682177,$2BE1620B495DA80E, $A489F35319033385,$DE51839B2936BAFC,$9101F7B0E12997F8,$EBD98778D11C1E81,$64B116208142850A,$1E6966E8B1770C73, $8719014C99C2B083,$FDC17184A9F739FA,$72A9E0DCF9A9A271,$08719014C99C2B08,$4721E43F0183060C,$3DF994F731B68F75, $B29105AF61E814FE,$C849756751DD9D87,$2C31EDF8F1D64EF6,$56E99D30C1E3C78F,$D9810C6891BD5C04,$A3597CA0A188D57D, $EC09088B6997F879,$96D1784359A27100,$19B9E91B09FCEA8B,$636199D339C963F2,$DF7ADABD7A6E2D6F,$A5A2AA754A5BA416, $2ACA3B2D1A053F9D,$50124BE52A30B6E4,$1F423FCEE22F9BE0,$659A4F06D21A1299,$EAF2DE5E82448912,$902AAE96B271006B, $74523609127AD31A,$0E8A46C1224F5A63,$81E2D7997211C1E8,$FB3AA75142244891,$B46AD37A8A3B6595,$CEB2A3B2BA0EECEC, $41DA32EAEA507767,$3B024222DA65FE1E,$A2722586F2D042EE,$D8AA554EC2E5CB97,$57C2C41692BB501C,$2D1AB4DEA28ED965, $624AC0F56A91F461,$1892B03D5AA47D18,$97FA21650AFAE693,$ED2251AD3ACF6FEA,$095AC9329AC4BC9B,$7382B9FAAAF135E2, $FCEA28A2FAAFAE69,$8632586ACA9A2710,$C9622C4102850A14,$B3BA5C8932B0836D,$3CD2CDD162EE18E6,$460ABD1952DB919F, $256B24CA6B12F26D,$5FB354025B277B14,$D0DBC55A0B79E09F,$AA03B5923B4C69E6,$E553C1B9F35344E2,$9F8BB171C366CD9B, $10E3202993385610,$6A3B50E1A30DDF69,$8E43C87E03060C18,$F49BB8B633338561,$7BF329EE636D1EEA,$012B592653589793, $4E7B2D0D9B47BA97,$34A35DC5AB7233EE,$BBCBCC9DFB2CA865,$C113BC55CB19211C,$5863DBF1E3AC9DEC,$22BBAB39D3991495, $ADD33A6183C78F1E,$D70B4AA9B3F20667,$985B3E827BED2B63,$E2834E4A4BD8A21A,$6DEBDF121B863991,$1733AFDA2BB3B0E8, $F34B37458BB86399,$8993478DBB8DEAE0,$06FBD6D5EBD3716B,$7C23A61DDBE6F812,$3373D23613F9D516,$49ABA2FE23CC5C6F, $C6C333A67392C7E4,$BC1B436E43A74E9D,$95AC9329AC4BC9B5,$EF74E3E19C7E40CC,$601C72B9CC20DB47,$1AC40271FC15523E, $5594765A340A7F3A,$2F4C0692043FF643,$A02497CA54616DC8,$DAFCE7026454E4B1,$3E847F9DC45F37C0,$445C0F55F46ABEB9, $CB349E0DA4342532,$B1ECEEC59401AC4B,$FEBC9AEE5C1E814F,$8464EA266C2B0836,$0B0C7B7E3C7593BD,$71D40BB60C401AC4, $E8A46C1224F5A634,$927C1CDA14C02F4D,$1D148D82449EB4C6,$67CCFD4A74AB3DBF,$289C8961BCB410BB,$5244F9A98C8199C2, $DD2C68F1DCDF0249,$A7F41839ECEA8B30,$438C80A64CE15841,$3954F06E7CD4D138,$B63C61362C8A4AB3,$CCE411FE1CBFC3CA, $83B465D5D4A0EECE,$F96C151DE49567B7,$76048445B4CBFC3C,$0CDCF48D84FE7545,$6FBD6D5EBD3716B7,$15651D968D029FCE, $9A0D8CCEDD5C0445,$E0D5FC06ED698D3C,$AF85882D2576A038,$D55DF8E515432941,$5A3569BD451DB2CA,$20ED197575283BB3, $C49581EAD523E8C2,$BE4DF122E51661BB,$3125607AB548FA30,$4BFD10B2857D7349,$04AD64994D625E4D,$7E7514517D57D734, $F11D85092D094CBF,$8BC5F5C11D3CC5C6,$12B5926535897936,$686DE2AD05BCF04F,$E70573F555E26BC4,$9DDD033D65D7E2BD, $D28D7716ADC8CFB9,$A85507DE9DFD46C0,$273D9686CDA3DD4B,$5DE5E64EFD965432,$B99D7ED15D9D8743,$C3450E196DA80E3A, $4C2D9F413DF695B1,$36F5EF890DC31CC8,$79A59BA2C5DC31CC,$037DEB6AF5E9B8B5,$8C157A32A5B7233E,$F6CD0AFA9582AA47, $4AD64994D625E4DA,$300E395CE6106DA3,$BF66A804B64EF628,$C5BED8CC867B7F51,$8AEEACE74E645255,$F036DC2F7E51DB2C, $7F5E4D772E0F40A7,$05863DBF1E3AC9DE,$E1FEA520BE311AAF,$9B26D5E88E0493D6,$144E44B0DE5A085D,$6E963478EE6F8124, $21C640532670AC20,$5B1E309B16452559,$D476A1C3461BBED2,$AEAED10B762E37AB,$37DEB6AF5E9B8B5B,$4D06C6676EAE0222, $C26E573F3EF099A9,$B8B627F70EC510D0,$F7E653DCC6DA3DD4,$8D3E2314F6EFB4AD,$0256B24CA6B12F26,$788EC2849684A65F, $9CF65A1B368F752E,$E62E2AD306BAFC57,$6946BB8B56E467DC,$139ECB4366D1EEA5,$5CCEBF68AECEC3A1,$2616CFA09EFB4AD8, $A97E5EF8CEA5D153,$D3A62E30FE90582A,$B0C7B7E3C7593BD8,$CA1FC72BF76CB2A1,$45775673A732292A,$3FAF26BB9707A053, $70FF52905F188D57,$0A2722586F2D042E,$854FB3003F739FA5,$FF97C3C80F4616DC,$1BEF5B57AF4DC5AD,$61372B9F9F784CD4, $EE5FBAC7CF26D75F,$9487CA0FFF135E26,$DBD7BE24370C7322,$A10FCEEC0739FA5B,$2E675FB4576761D0,$54BF2F7C6752E8A9, $CDCF48D84FE75459,$B71738107FD2DD20,$387FA9482F8C46AB,$42A7D9801FB9CFD2,$0DF7ADABD7A6E2D6,$772FDD63E7936BAF, $F8474C3BB7CDF024,$829F3CF387F8795D,$66E7A46C27F3AA2C,$1C3FD4A417C62355,$935745FC4798B8DE,$E98F353477AD31A7, $A6DF411FBFB21CA3,$DC0731D78F8795DA,$536FA08FDFD90E51,$29B7D047EFEC8728 ); {$pop} {$ENDIF} function get_crc64_table : {const} PQWord; begin {$ifdef DYNAMIC_CRC_TABLE} if (crc64_table_empty) then make_crc64_table; {$endif} get_crc64_table := {const} PQWord(@crc64_table); end; {void crc64(char *seq, char *res) int i, j, low, high; unsigned long long crc = INITIALCRC64, part; static int init = 0; static unsigned long long CRCTable[256]; while (*seq) crc = CRCTable[(crc ^ *seq++) & 0xff] ^ (crc >> 8); /* The output is done in two parts to avoid problems with architecture-dependent word order */ low = crc & 0xffffffff; high = (crc >> 32) & 0xffffffff; sprintf (res, "%08X%08X", high, low); return; } function crc64(crc: qword; buf: Pbyte; len: cardinal): qword; begin if (buf = nil) then exit(INITIALCRC64); {$IFDEF DYNAMIC_CRC_TABLE} if crc64_table_empty then make_crc64_table; {$ENDIF} while (len >= 8) do begin crc := crc64_table[(crc xor buf^) and $ff] xor (crc shr 8); inc(buf); crc := crc64_table[(crc xor buf^) and $ff] xor (crc shr 8); inc(buf); crc := crc64_table[(crc xor buf^) and $ff] xor (crc shr 8); inc(buf); crc := crc64_table[(crc xor buf^) and $ff] xor (crc shr 8); inc(buf); crc := crc64_table[(crc xor buf^) and $ff] xor (crc shr 8); inc(buf); crc := crc64_table[(crc xor buf^) and $ff] xor (crc shr 8); inc(buf); crc := crc64_table[(crc xor buf^) and $ff] xor (crc shr 8); inc(buf); crc := crc64_table[(crc xor buf^) and $ff] xor (crc shr 8); inc(buf); dec(len, 8); end; while (len > 0) do begin crc := crc64_table[(crc xor buf^) and $ff] xor (crc shr 8); inc(buf); dec(len); end; result := crc; end; (****************************************************************************** * CRC128 ******************************************************************************) {$push} {$r-} {$warnings off} const POLY128REV: u128 = (lo: $d5ca646569316db3; hi:$95AC9329AC4BC9B5); INITIALCRC128: u128 = (lo:$FFFFFFFFFFFFFFFF; hi:$FFFFFFFFFFFFFFFF); {$pop} operator := (v: qword): u128; inline; begin Result.lo := v; Result.hi := 0; end; operator = (a, b: u128): boolean; inline; begin Result := (a.lo=b.lo) and (a.hi=b.hi); end; operator xor (const a: u128; const b: u128): u128; inline; begin Result.lo := a.lo xor b.lo; Result.hi := a.hi xor b.hi; end; operator xor (const a: u128; const b: byte): u128; inline; begin Result.lo := a.lo xor b; Result.hi := a.hi xor 0; end; operator shr (const a: u128; const b: byte): u128; inline; begin Result.lo := (a.lo shr b) or (a.hi shl (64-b)); Result.hi := a.hi shr b; end; operator shl (const a: u128; const b: byte): u128; inline; begin Result.lo := a.lo shl b; Result.hi := (a.hi shl b) or (a.lo shr (64-b)); end; operator and (const a: u128; const b: u128): u128; inline; begin Result.lo := a.lo and b.lo; Result.hi := a.hi and b.hi; end; operator and (const a: u128; const b: qword): qword; inline; begin Result := a.lo and b; end; {$IFDEF DYNAMIC_CRC_TABLE} {local} const crc128_table_empty : boolean = TRUE; {local} var crc128_table : array[Byte] of u128; {local} procedure make_crc128_table; var i,j: Integer; part: u128; begin for i := 0 to 255 do begin part := i; for j := 0 to 7 do begin if part and $1 <> 0 then part := (part shr 1) xor POLY128REV else part := part shr 1; end; crc128_table[i] := part; end; crc128_table_empty := FALSE; end; {$ELSE} { ======================================================================== Table of CRC-128's of all single-byte values (made by make_crc128_table) } {$push} {$r-} {$warnings off} {local} const crc128_table : array[Byte] of u128 = ( (lo:$0000000000000000;hi:$0000000000000000), (lo:$2E6BCE8AFE8FC76C;hi:$3DF994F731B68F75), (lo:$5CD79D15FD1F8ED8;hi:$7BF329EE636D1EEA), (lo:$72BC539F039049B4;hi:$460ABD1952DB919F), (lo:$B9AF3A2BFA3F1DB0;hi:$F7E653DCC6DA3DD4), (lo:$97C4F4A104B0DADC;hi:$CA1FC72BF76CB2A1), (lo:$E578A73E07209368;hi:$8C157A32A5B7233E), (lo:$CB1369B4F9AF5404;hi:$B1ECEEC59401AC4B), (lo:$D8CABC9D261CE007;hi:$C49581EAD523E8C2), (lo:$F6A17217D893276B;hi:$F96C151DE49567B7), (lo:$841D2188DB036EDF;hi:$BF66A804B64EF628), (lo:$AA76EF02258CA9B3;hi:$829F3CF387F8795D), (lo:$616586B6DC23FDB7;hi:$3373D23613F9D516), (lo:$4F0E483C22AC3ADB;hi:$0E8A46C1224F5A63), (lo:$3DB21BA3213C736F;hi:$4880FBD87094CBFC), (lo:$13D9D529DFB3B403;hi:$75796F2F41224489), (lo:$1A01B1F09E5B1B69;hi:$A2722586F2D042EE), (lo:$346A7F7A60D4DC05;hi:$9F8BB171C366CD9B), (lo:$46D62CE5634495B1;hi:$D9810C6891BD5C04), (lo:$68BDE26F9DCB52DD;hi:$E478989FA00BD371), (lo:$A3AE8BDB646406D9;hi:$5594765A340A7F3A), (lo:$8DC545519AEBC1B5;hi:$686DE2AD05BCF04F), (lo:$FF7916CE997B8801;hi:$2E675FB4576761D0), (lo:$D112D84467F44F6D;hi:$139ECB4366D1EEA5), (lo:$C2CB0D6DB847FB6E;hi:$66E7A46C27F3AA2C), (lo:$ECA0C3E746C83C02;hi:$5B1E309B16452559), (lo:$9E1C9078455875B6;hi:$1D148D82449EB4C6), (lo:$B0775EF2BBD7B2DA;hi:$20ED197575283BB3), (lo:$7B6437464278E6DE;hi:$9101F7B0E12997F8), (lo:$550FF9CCBCF721B2;hi:$ACF86347D09F188D), (lo:$27B3AA53BF676806;hi:$EAF2DE5E82448912), (lo:$09D864D941E8AF6A;hi:$D70B4AA9B3F20667), (lo:$9F97AB2BEED4EDB5;hi:$6FBD6D5EBD3716B7), (lo:$B1FC65A1105B2AD9;hi:$5244F9A98C8199C2), (lo:$C340363E13CB636D;hi:$144E44B0DE5A085D), (lo:$ED2BF8B4ED44A401;hi:$29B7D047EFEC8728), (lo:$2638910014EBF005;hi:$985B3E827BED2B63), (lo:$08535F8AEA643769;hi:$A5A2AA754A5BA416), (lo:$7AEF0C15E9F47EDD;hi:$E3A8176C18803589), (lo:$5484C29F177BB9B1;hi:$DE51839B2936BAFC), (lo:$475D17B6C8C80DB2;hi:$AB28ECB46814FE75), (lo:$6936D93C3647CADE;hi:$96D1784359A27100), (lo:$1B8A8AA335D7836A;hi:$D0DBC55A0B79E09F), (lo:$35E14429CB584406;hi:$ED2251AD3ACF6FEA), (lo:$FEF22D9D32F71002;hi:$5CCEBF68AECEC3A1), (lo:$D099E317CC78D76E;hi:$61372B9F9F784CD4), (lo:$A225B088CFE89EDA;hi:$273D9686CDA3DD4B), (lo:$8C4E7E02316759B6;hi:$1AC40271FC15523E), (lo:$85961ADB708FF6DC;hi:$CDCF48D84FE75459), (lo:$ABFDD4518E0031B0;hi:$F036DC2F7E51DB2C), (lo:$D94187CE8D907804;hi:$B63C61362C8A4AB3), (lo:$F72A4944731FBF68;hi:$8BC5F5C11D3CC5C6), (lo:$3C3920F08AB0EB6C;hi:$3A291B04893D698D), (lo:$1252EE7A743F2C00;hi:$07D08FF3B88BE6F8), (lo:$60EEBDE577AF65B4;hi:$41DA32EAEA507767), (lo:$4E85736F8920A2D8;hi:$7C23A61DDBE6F812), (lo:$5D5CA646569316DB;hi:$095AC9329AC4BC9B), (lo:$733768CCA81CD1B7;hi:$34A35DC5AB7233EE), (lo:$018B3B53AB8C9803;hi:$72A9E0DCF9A9A271), (lo:$2FE0F5D955035F6F;hi:$4F50742BC81F2D04), (lo:$E4F39C6DACAC0B6B;hi:$FEBC9AEE5C1E814F), (lo:$CA9852E75223CC07;hi:$C3450E196DA80E3A), (lo:$B824017851B385B3;hi:$854FB3003F739FA5), (lo:$964FCFF2AF3C42DF;hi:$B8B627F70EC510D0), (lo:$3F2F5657DDA9DB6A;hi:$DF7ADABD7A6E2D6F), (lo:$114498DD23261C06;hi:$E2834E4A4BD8A21A), (lo:$63F8CB4220B655B2;hi:$A489F35319033385), (lo:$4D9305C8DE3992DE;hi:$997067A428B5BCF0), (lo:$86806C7C2796C6DA;hi:$289C8961BCB410BB), (lo:$A8EBA2F6D91901B6;hi:$15651D968D029FCE), (lo:$DA57F169DA894802;hi:$536FA08FDFD90E51), (lo:$F43C3FE324068F6E;hi:$6E963478EE6F8124), (lo:$E7E5EACAFBB53B6D;hi:$1BEF5B57AF4DC5AD), (lo:$C98E2440053AFC01;hi:$2616CFA09EFB4AD8), (lo:$BB3277DF06AAB5B5;hi:$601C72B9CC20DB47), (lo:$9559B955F82572D9;hi:$5DE5E64EFD965432), (lo:$5E4AD0E1018A26DD;hi:$EC09088B6997F879), (lo:$70211E6BFF05E1B1;hi:$D1F09C7C5821770C), (lo:$029D4DF4FC95A805;hi:$97FA21650AFAE693), (lo:$2CF6837E021A6F69;hi:$AA03B5923B4C69E6), (lo:$252EE7A743F2C003;hi:$7D08FF3B88BE6F81), (lo:$0B45292DBD7D076F;hi:$40F16BCCB908E0F4), (lo:$79F97AB2BEED4EDB;hi:$06FBD6D5EBD3716B), (lo:$5792B438406289B7;hi:$3B024222DA65FE1E), (lo:$9C81DD8CB9CDDDB3;hi:$8AEEACE74E645255), (lo:$B2EA130647421ADF;hi:$B71738107FD2DD20), (lo:$C056409944D2536B;hi:$F11D85092D094CBF), (lo:$EE3D8E13BA5D9407;hi:$CCE411FE1CBFC3CA), (lo:$FDE45B3A65EE2004;hi:$B99D7ED15D9D8743), (lo:$D38F95B09B61E768;hi:$8464EA266C2B0836), (lo:$A133C62F98F1AEDC;hi:$C26E573F3EF099A9), (lo:$8F5808A5667E69B0;hi:$FF97C3C80F4616DC), (lo:$444B61119FD13DB4;hi:$4E7B2D0D9B47BA97), (lo:$6A20AF9B615EFAD8;hi:$7382B9FAAAF135E2), (lo:$189CFC0462CEB36C;hi:$358804E3F82AA47D), (lo:$36F7328E9C417400;hi:$08719014C99C2B08), (lo:$A0B8FD7C337D36DF;hi:$B0C7B7E3C7593BD8), (lo:$8ED333F6CDF2F1B3;hi:$8D3E2314F6EFB4AD), (lo:$FC6F6069CE62B807;hi:$CB349E0DA4342532), (lo:$D204AEE330ED7F6B;hi:$F6CD0AFA9582AA47), (lo:$1917C757C9422B6F;hi:$4721E43F0183060C), (lo:$377C09DD37CDEC03;hi:$7AD870C830358979), (lo:$45C05A42345DA5B7;hi:$3CD2CDD162EE18E6), (lo:$6BAB94C8CAD262DB;hi:$012B592653589793), (lo:$787241E11561D6D8;hi:$74523609127AD31A), (lo:$56198F6BEBEE11B4;hi:$49ABA2FE23CC5C6F), (lo:$24A5DCF4E87E5800;hi:$0FA11FE77117CDF0), (lo:$0ACE127E16F19F6C;hi:$32588B1040A14285), (lo:$C1DD7BCAEF5ECB68;hi:$83B465D5D4A0EECE), (lo:$EFB6B54011D10C04;hi:$BE4DF122E51661BB), (lo:$9D0AE6DF124145B0;hi:$F8474C3BB7CDF024), (lo:$B3612855ECCE82DC;hi:$C5BED8CC867B7F51), (lo:$BAB94C8CAD262DB6;hi:$12B5926535897936), (lo:$94D2820653A9EADA;hi:$2F4C0692043FF643), (lo:$E66ED1995039A36E;hi:$6946BB8B56E467DC), (lo:$C8051F13AEB66402;hi:$54BF2F7C6752E8A9), (lo:$031676A757193006;hi:$E553C1B9F35344E2), (lo:$2D7DB82DA996F76A;hi:$D8AA554EC2E5CB97), (lo:$5FC1EBB2AA06BEDE;hi:$9EA0E857903E5A08), (lo:$71AA2538548979B2;hi:$A3597CA0A188D57D), (lo:$6273F0118B3ACDB1;hi:$D620138FE0AA91F4), (lo:$4C183E9B75B50ADD;hi:$EBD98778D11C1E81), (lo:$3EA46D0476254369;hi:$ADD33A6183C78F1E), (lo:$10CFA38E88AA8405;hi:$902AAE96B271006B), (lo:$DBDCCA3A7105D001;hi:$21C640532670AC20), (lo:$F5B704B08F8A176D;hi:$1C3FD4A417C62355), (lo:$870B572F8C1A5ED9;hi:$5A3569BD451DB2CA), (lo:$A96099A5729599B5;hi:$67CCFD4A74AB3DBF), (lo:$D5CA646569316DB3;hi:$95AC9329AC4BC9B5), (lo:$FBA1AAEF97BEAADF;hi:$A85507DE9DFD46C0), (lo:$891DF970942EE36B;hi:$EE5FBAC7CF26D75F), (lo:$A77637FA6AA12407;hi:$D3A62E30FE90582A), (lo:$6C655E4E930E7003;hi:$624AC0F56A91F461), (lo:$420E90C46D81B76F;hi:$5FB354025B277B14), (lo:$30B2C35B6E11FEDB;hi:$19B9E91B09FCEA8B), (lo:$1ED90DD1909E39B7;hi:$24407DEC384A65FE), (lo:$0D00D8F84F2D8DB4;hi:$513912C379682177), (lo:$236B1672B1A24AD8;hi:$6CC0863448DEAE02), (lo:$51D745EDB232036C;hi:$2ACA3B2D1A053F9D), (lo:$7FBC8B674CBDC400;hi:$1733AFDA2BB3B0E8), (lo:$B4AFE2D3B5129004;hi:$A6DF411FBFB21CA3), (lo:$9AC42C594B9D5768;hi:$9B26D5E88E0493D6), (lo:$E8787FC6480D1EDC;hi:$DD2C68F1DCDF0249), (lo:$C613B14CB682D9B0;hi:$E0D5FC06ED698D3C), (lo:$CFCBD595F76A76DA;hi:$37DEB6AF5E9B8B5B), (lo:$E1A01B1F09E5B1B6;hi:$0A2722586F2D042E), (lo:$931C48800A75F802;hi:$4C2D9F413DF695B1), (lo:$BD77860AF4FA3F6E;hi:$71D40BB60C401AC4), (lo:$7664EFBE0D556B6A;hi:$C038E5739841B68F), (lo:$580F2134F3DAAC06;hi:$FDC17184A9F739FA), (lo:$2AB372ABF04AE5B2;hi:$BBCBCC9DFB2CA865), (lo:$04D8BC210EC522DE;hi:$8632586ACA9A2710), (lo:$17016908D17696DD;hi:$F34B37458BB86399), (lo:$396AA7822FF951B1;hi:$CEB2A3B2BA0EECEC), (lo:$4BD6F41D2C691805;hi:$88B81EABE8D57D73), (lo:$65BD3A97D2E6DF69;hi:$B5418A5CD963F206), (lo:$AEAE53232B498B6D;hi:$04AD64994D625E4D), (lo:$80C59DA9D5C64C01;hi:$3954F06E7CD4D138), (lo:$F279CE36D65605B5;hi:$7F5E4D772E0F40A7), (lo:$DC1200BC28D9C2D9;hi:$42A7D9801FB9CFD2), (lo:$4A5DCF4E87E58006;hi:$FA11FE77117CDF02), (lo:$643601C4796A476A;hi:$C7E86A8020CA5077), (lo:$168A525B7AFA0EDE;hi:$81E2D7997211C1E8), (lo:$38E19CD18475C9B2;hi:$BC1B436E43A74E9D), (lo:$F3F2F5657DDA9DB6;hi:$0DF7ADABD7A6E2D6), (lo:$DD993BEF83555ADA;hi:$300E395CE6106DA3), (lo:$AF25687080C5136E;hi:$76048445B4CBFC3C), (lo:$814EA6FA7E4AD402;hi:$4BFD10B2857D7349), (lo:$929773D3A1F96001;hi:$3E847F9DC45F37C0), (lo:$BCFCBD595F76A76D;hi:$037DEB6AF5E9B8B5), (lo:$CE40EEC65CE6EED9;hi:$45775673A732292A), (lo:$E02B204CA26929B5;hi:$788EC2849684A65F), (lo:$2B3849F85BC67DB1;hi:$C9622C4102850A14), (lo:$05538772A549BADD;hi:$F49BB8B633338561), (lo:$77EFD4EDA6D9F369;hi:$B29105AF61E814FE), (lo:$59841A6758563405;hi:$8F689158505E9B8B), (lo:$505C7EBE19BE9B6F;hi:$5863DBF1E3AC9DEC), (lo:$7E37B034E7315C03;hi:$659A4F06D21A1299), (lo:$0C8BE3ABE4A115B7;hi:$2390F21F80C18306), (lo:$22E02D211A2ED2DB;hi:$1E6966E8B1770C73), (lo:$E9F34495E38186DF;hi:$AF85882D2576A038), (lo:$C7988A1F1D0E41B3;hi:$927C1CDA14C02F4D), (lo:$B524D9801E9E0807;hi:$D476A1C3461BBED2), (lo:$9B4F170AE011CF6B;hi:$E98F353477AD31A7), (lo:$8896C2233FA27B68;hi:$9CF65A1B368F752E), (lo:$A6FD0CA9C12DBC04;hi:$A10FCEEC0739FA5B), (lo:$D4415F36C2BDF5B0;hi:$E70573F555E26BC4), (lo:$FA2A91BC3C3232DC;hi:$DAFCE7026454E4B1), (lo:$3139F808C59D66D8;hi:$6B1009C7F05548FA), (lo:$1F5236823B12A1B4;hi:$56E99D30C1E3C78F), (lo:$6DEE651D3882E800;hi:$10E3202993385610), (lo:$4385AB97C60D2F6C;hi:$2D1AB4DEA28ED965), (lo:$EAE53232B498B6D9;hi:$4AD64994D625E4DA), (lo:$C48EFCB84A1771B5;hi:$772FDD63E7936BAF), (lo:$B632AF2749873801;hi:$3125607AB548FA30), (lo:$985961ADB708FF6D;hi:$0CDCF48D84FE7545), (lo:$534A08194EA7AB69;hi:$BD301A4810FFD90E), (lo:$7D21C693B0286C05;hi:$80C98EBF2149567B), (lo:$0F9D950CB3B825B1;hi:$C6C333A67392C7E4), (lo:$21F65B864D37E2DD;hi:$FB3AA75142244891), (lo:$322F8EAF928456DE;hi:$8E43C87E03060C18), (lo:$1C4440256C0B91B2;hi:$B3BA5C8932B0836D), (lo:$6EF813BA6F9BD806;hi:$F5B0E190606B12F2), (lo:$4093DD3091141F6A;hi:$C849756751DD9D87), (lo:$8B80B48468BB4B6E;hi:$79A59BA2C5DC31CC), (lo:$A5EB7A0E96348C02;hi:$445C0F55F46ABEB9), (lo:$D757299195A4C5B6;hi:$0256B24CA6B12F26), (lo:$F93CE71B6B2B02DA;hi:$3FAF26BB9707A053), (lo:$F0E483C22AC3ADB0;hi:$E8A46C1224F5A634), (lo:$DE8F4D48D44C6ADC;hi:$D55DF8E515432941), (lo:$AC331ED7D7DC2368;hi:$935745FC4798B8DE), (lo:$8258D05D2953E404;hi:$AEAED10B762E37AB), (lo:$494BB9E9D0FCB000;hi:$1F423FCEE22F9BE0), (lo:$672077632E73776C;hi:$22BBAB39D3991495), (lo:$159C24FC2DE33ED8;hi:$64B116208142850A), (lo:$3BF7EA76D36CF9B4;hi:$594882D7B0F40A7F), (lo:$282E3F5F0CDF4DB7;hi:$2C31EDF8F1D64EF6), (lo:$0645F1D5F2508ADB;hi:$11C8790FC060C183), (lo:$74F9A24AF1C0C36F;hi:$57C2C41692BB501C), (lo:$5A926CC00F4F0403;hi:$6A3B50E1A30DDF69), (lo:$91810574F6E05007;hi:$DBD7BE24370C7322), (lo:$BFEACBFE086F976B;hi:$E62E2AD306BAFC57), (lo:$CD5698610BFFDEDF;hi:$A02497CA54616DC8), (lo:$E33D56EBF57019B3;hi:$9DDD033D65D7E2BD), (lo:$757299195A4C5B6C;hi:$256B24CA6B12F26D), (lo:$5B195793A4C39C00;hi:$1892B03D5AA47D18), (lo:$29A5040CA753D5B4;hi:$5E980D24087FEC87), (lo:$07CECA8659DC12D8;hi:$636199D339C963F2), (lo:$CCDDA332A07346DC;hi:$D28D7716ADC8CFB9), (lo:$E2B66DB85EFC81B0;hi:$EF74E3E19C7E40CC), (lo:$900A3E275D6CC804;hi:$A97E5EF8CEA5D153), (lo:$BE61F0ADA3E30F68;hi:$9487CA0FFF135E26), (lo:$ADB825847C50BB6B;hi:$E1FEA520BE311AAF), (lo:$83D3EB0E82DF7C07;hi:$DC0731D78F8795DA), (lo:$F16FB891814F35B3;hi:$9A0D8CCEDD5C0445), (lo:$DF04761B7FC0F2DF;hi:$A7F41839ECEA8B30), (lo:$14171FAF866FA6DB;hi:$1618F6FC78EB277B), (lo:$3A7CD12578E061B7;hi:$2BE1620B495DA80E), (lo:$48C082BA7B702803;hi:$6DEBDF121B863991), (lo:$66AB4C3085FFEF6F;hi:$50124BE52A30B6E4), (lo:$6F7328E9C4174005;hi:$8719014C99C2B083), (lo:$4118E6633A988769;hi:$BAE095BBA8743FF6), (lo:$33A4B5FC3908CEDD;hi:$FCEA28A2FAAFAE69), (lo:$1DCF7B76C78709B1;hi:$C113BC55CB19211C), (lo:$D6DC12C23E285DB5;hi:$70FF52905F188D57), (lo:$F8B7DC48C0A79AD9;hi:$4D06C6676EAE0222), (lo:$8A0B8FD7C337D36D;hi:$0B0C7B7E3C7593BD), (lo:$A460415D3DB81401;hi:$36F5EF890DC31CC8), (lo:$B7B99474E20BA002;hi:$438C80A64CE15841), (lo:$99D25AFE1C84676E;hi:$7E7514517D57D734), (lo:$EB6E09611F142EDA;hi:$387FA9482F8C46AB), (lo:$C505C7EBE19BE9B6;hi:$05863DBF1E3AC9DE), (lo:$0E16AE5F1834BDB2;hi:$B46AD37A8A3B6595), (lo:$207D60D5E6BB7ADE;hi:$8993478DBB8DEAE0), (lo:$52C1334AE52B336A;hi:$CF99FA94E9567B7F), (lo:$7CAAFDC01BA4F406;hi:$F2606E63D8E0F40A) ); {$pop} {$ENDIF} function get_crc128_table : {const} pu128; begin {$ifdef DYNAMIC_CRC_TABLE} if (crc128_table_empty) then make_crc128_table; {$endif} get_crc128_table := {const} pu128(@crc128_table); end; function crc128(crc: u128; buf: Pbyte; len: cardinal): u128; begin if (buf = nil) then exit(INITIALCRC128); {$IFDEF DYNAMIC_CRC_TABLE} if crc128_table_empty then make_crc128_table; {$ENDIF} while (len >= 8) do begin crc := crc128_table[(crc xor buf^) and $ff] xor (crc shr 8); inc(buf); crc := crc128_table[(crc xor buf^) and $ff] xor (crc shr 8); inc(buf); crc := crc128_table[(crc xor buf^) and $ff] xor (crc shr 8); inc(buf); crc := crc128_table[(crc xor buf^) and $ff] xor (crc shr 8); inc(buf); crc := crc128_table[(crc xor buf^) and $ff] xor (crc shr 8); inc(buf); crc := crc128_table[(crc xor buf^) and $ff] xor (crc shr 8); inc(buf); crc := crc128_table[(crc xor buf^) and $ff] xor (crc shr 8); inc(buf); crc := crc128_table[(crc xor buf^) and $ff] xor (crc shr 8); inc(buf); dec(len, 8); end; while (len > 0) do begin crc := crc128_table[(crc xor buf^) and $ff] xor (crc shr 8); inc(buf); dec(len); end; result := crc; end; end.