// ===================================================
unsigned long CRC32Table[256]  = {0x00000000, 0x77073096, 0xEE0E612C, 0x990951BA, итд}
int main(void)
{
  unsigned char a[9] = {1, 2, 3, 4, 5, 6, 7, 8, 9};
  int len = 9;
  volatile long crc = 0xFFFFFFFF;
  while (len--)
  {
    crc = (crc >> 8) ^ (CRC32Table[(crc ^ a[9 - len]) & 0xFF]);
  }
  crc = crc ^ 0xFFFFFFFF;

// ====================================================
procedure TForm1.Button1Click(Sender: TObject);
const
tbl: array [0..255] of integer = ($00000000, $77073096, $EE0E612C, $990951BA, ...);
arr: array [0..8] of byte = (1,2,3,4,5,6,7,8,9);
var
  crc, len: integer;
begin
  len := 9;
  crc := $FFFFFFFF;
  while len > 0 do begin
    crc := (crc shr 8) xor tbl[(crc xor arr[9 - len]) and $FF];
    Dec(len);
  end;
  crc := crc xor $FFFFFFFF;
  label1.Caption := inttostr(crc);
end;

    for (int i = 0; i < 9; i++)
    {
        crc = (crc >> 8) ^ (CRC32Table[(crc ^ a[i]) & 0xFF]);
    }
    crc = crc ^ 0xFFFFFFFF;

//  ================================================================
long CalculateCRC32Block(unsigned char* buf, unsigned int len)
{
   unsigned long crc = 0xFFFFFFFF;
   while (len--)
   {
        crc = (crc >> 8) ^ pgm_read_dword(&(CRC32Table[(crc ^ *buf++) & 0xFF]));    
   }
   return crc ^ 0xFFFFFFFF;
}

//  ================================================================
int main(void)
{
   unsigned char a[9] = {1, 2, 3, 4, 5, 6, 7, 8, 9};
   volatile unsigned long crc = CalculateCRC32Block(a, 9);

//  ================================================================
int main(void)
{
   unsigned char a[9] = {1, 2, 3, 4, 5, 6, 7, 8, 9};
   unsigned long crc = 0;
   crc = CalculateCRC32Block(a, 9);

//  ================================================================
int main(void)
{
  unsigned char a[9] = {1, 2, 3, 4, 5, 6, 7, 8, 9};
  volatile unsigned long crc = 0;
  crc = CalculateCRC32Block(a, 9);