* added crc128 support

* fixed crc example

git-svn-id: trunk@15152 -

packages/hash/examples/crctest.pas

@@ -11,10 +11,18 @@ const
   testseq1: string = 'MNIIQGNLVGTGLKIGIVVGRFNDFITSKLLSGAEDALLRHGVDTNDIDVAWVPGAFEIPFAAKKMAETKKYDAIITLGTVIRGATTSYDYVCNEAAKGIAQAANTTGVPVIFGIVTTENIEQAIERAGTKAGNKGVDCAVSAIEMANLNRSFE';
   testseq2: string = 'MNIIQGNLVGTGLKIGIVVGRFNDFITSKLLSGAEDALLRHGVDTNDIDVAWVPGAFEIPFAAKKMAETKKYDAIITLGDVIRGATTHYDYVCNEAAKGIAQAANTTGVPVIFGIVTTENIEQAIERAGTKAGNKGVDCAVSAIEMANLNRSFE';
 
+  test1_crc128: u128 = (lo:14444300186948028230; hi:0);
+  test2_crc128: u128 = (lo:3310614217963326015; hi:0);
   test1_crc64: qword = 14444300186948028230;
   test2_crc64: qword = 3310614217963326015;
-  test1_crc32: longword = 3319070459;
-  test2_crc32: longword = 1148765760;
+  test1_crc32: longword = 3405150022;
+  test2_crc32: longword = 1264209917;
+
+
+function IntToStr128(v: u128): string;
+begin
+  result := 'todo';
+end;
 
 
 procedure perform_crc32(const name, testcase: string; result: longword);
@@ -45,10 +53,26 @@ begin
     writeln('failed (got=',crc,',expected=',result,')');
 end;
 
+procedure perform_crc128(const name, testcase: string; result: u128);
+var
+  crc: u128;
+begin
+  crc := crc128(0,nil,0);
+  crc := crc128(crc,@testcase[1],length(testcase));
+
+  write(name,'(size=',length(testcase),'): ');
+  if crc=result then
+    writeln('passed')
+  else
+    writeln('failed (got=',IntToStr128(crc),',expected=',IntToStr128(result),')');
+end;
+
 
 begin
   perform_crc32('crc32', testseq1, test1_crc32);
   perform_crc32('crc32', testseq2, test2_crc32);
   perform_crc64('crc64', testseq1, test1_crc64);
   perform_crc64('crc64', testseq2, test2_crc64);
+  perform_crc128('crc128', testseq1, test1_crc128);
+  perform_crc128('crc128', testseq2, test2_crc128);
 end.

packages/hash/src/crc.pas

@@ -58,9 +58,34 @@ function get_crc_table: Pcardinal; external name 'get_crc32_table';
  ******************************************************************************)
 
 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
 
 
@@ -243,12 +268,12 @@ begin
     dec(len, 8);
   end;
 
-  if (len <> 0) then
-  repeat
+  while (len > 0) do
+  begin
     crc := crc32_table[(crc xor buf^) and $ff] xor (crc shr 8);
     inc(buf);
     dec(len);
-  until (len = 0);
+  end;
 
   result := crc xor $FFFFFFFF;
 end;
@@ -261,7 +286,7 @@ end;
 
 const
   POLY64REV  = QWord($95AC9329AC4BC9B5);
-  INITIALCRC = QWord($FFFFFFFFFFFFFFFF);
+  INITIALCRC64 = QWord($FFFFFFFFFFFFFFFF);
 
 {$IFDEF DYNAMIC_CRC_TABLE}
 
@@ -300,6 +325,7 @@ end;
 
 {$push}
 {$r-}
+{$warnings off}
 
 {local}
 const
@@ -365,7 +391,7 @@ end;
 {void crc64(char *seq, char *res)
 
     int i, j, low, high;
-    unsigned long long crc = INITIALCRC, part;
+    unsigned long long crc = INITIALCRC64, part;
     static int init = 0;
     static unsigned long long CRCTable[256];
 
@@ -386,7 +412,7 @@ end;
 function crc64(crc: qword; buf: Pbyte; len: cardinal): qword;
 begin
   if (buf = nil) then
-    exit(INITIALCRC);
+    exit(INITIALCRC64);
 
 {$IFDEF DYNAMIC_CRC_TABLE}
   if crc64_table_empty then
@@ -414,15 +440,428 @@ begin
     dec(len, 8);
   end;
 
-  if (len <> 0) then
-  repeat
+  while (len > 0) do
+  begin
     crc := crc64_table[(crc xor buf^) and $ff] xor (crc shr 8);
     inc(buf);
     dec(len);
-  until (len = 0);
+  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.