unsigned long crc_buffer(unsigned long crc, const unsigned long *p, unsigned long sz)
{
   const unsigned long poly = 0xEDB88320;
   unsigned long tmp1, tmp2;

   while(sz--)
   {
      tmp1 = 0;
      tmp2 = crc & poly;
      for(int i = 0; i <=31; i++ )
      tmp1 ^= ((tmp2 >> i) & 1);
      crc = *p++ ^ ((crc << 1) | tmp1) ;
   }
   return crc;
}

function CRC32T(Initial: LongWord; Data:array of byte; DataSize: LongWord): LongWord;
const poly=$EDB88320;
var j:integer;
tmp1,tmp2,crc,i:longword;
BEGIN
crc:=initial;
i:=0;
while i<=DataSize-1 do begin
tmp1:=0;
tmp2:=crc and poly;
for j:=0 to 31 do tmp1:=tmp1 xor ((tmp2 shr j) and 1);
crc:=Data[i] xor ((crc shl 1) or tmp1);
i:=i+1;
end;
CRC32T:=crc;
END;

Public Function GetCRC32_eeprom(Data As Byte(), CRC_initial As UInteger) As String

        Dim crc As UInteger = CRC_initial
        Dim poly As UInteger = &HEDB88320UI
        Dim tmp1 As UInteger
        Dim tmp2 As UInteger
        Dim size As Integer = Data.Length - 1

        While size >= 0

            tmp1 = 0
            tmp2 = crc And poly

            For i = 0 To 31
                tmp1 = tmp1 Xor ((tmp2 >> i) And 1)
            Next

            crc = Data(size) Xor ((crc << 1) Or tmp1)

            size = size - 1
        End While

        Return Hex(crc)

    End Function