' Die Tabelle ist dann so belegt: (Auszug!)
'Für: CRC16-CITT POLY &h8408 Initial &hFFFF
    fcstab(0) = &H0&
    fcstab(1) = &H1189&
    fcstab(2) = &H2312&
    fcstab(3) = &H329B&
    fcstab(4) = &H4624&
    fcstab(5) = &H57AD&
    fcstab(6) = &H6536&
    fcstab(7) = &H74BF&
........

'Die Routine zur Berechnung der Tabelle sieht so aus
'Achtung: für CRC16-CITT POLY &h8408 übergeben
'Als Standard ohne POLY Angabe arbeite ich für MODBUS CRC mit &hA001.
Global usCRC(0 To 255)  As Long
Public Sub CRCInit16( _
    Optional ByVal Poly As Long = &HA001 _
  )
  'Deklarationen:
  Dim CRC As Long
  Dim i As Integer
  Dim j As Integer
 
  '&hA001 ist the reflection von &h8005 !!!  für Modbus
  '&h8408 ist die reflection von &h1021 !!!  für CITT/X25
  For i = 0 To 255
     CRC = i
     For j = 0 To 7
        If CRC And &H1 Then
        'CRC = (CRC >>> 1) ^ Poly
        CRC = ((CRC And &HFFFE) \ &H2 And &H7FFF) Xor Poly
      Else
        'CRC = (CRC >>> 1)
        CRC = CRC \ &H2 And &H7FFF
      End If
    Next j
    usCRC(i) = CRC
  Next i
 
End Sub

Tschaui
Woellmi