Data update

Task/CRC-32/PascalABC.NET/crc-32.pas

@@ -0,0 +1,29 @@
+type
+  TCrc32 = array[0..255] of longword;
+
+function CreateCrcTable(): TCrc32;
+begin
+  for var i: longword := 0 to 255 do
+  begin
+    var rem := i;
+    for var j := 0 to 7 do
+      if (rem and 1) > 0 then rem := (rem shr 1) xor $edb88320
+      else rem := rem shr 1;
+    result[i] := rem
+  end;
+end;
+
+const
+  Crc32Table = CreateCrcTable;
+
+function Crc32(s: string): longword;
+begin
+  result := $ffffffff;
+  foreach var c in s do
+    result := (result shr 8) xor Crc32Table[(result and $ff) xor byte(c)];
+  result := not result
+end;
+
+begin
+  writeln('crc32 = ', crc32('The quick brown fox jumps over the lazy dog').ToString('X'));
+end.