Dim crc As UShort = &HFFFF
        Dim polynomial As UShort = &H1021
        Dim data As String = "010003GET"
        Dim bytes As Byte() = System.Text.Encoding.ASCII.GetBytes(data)
 
        For Each b As Byte In bytes
            For i As Integer = 0 To 7
                Dim bit As UShort = b >> (7 - i) And 1
                Dim c15 As UShort = crc >> 15 And 1
                crc <<= 1
                If c15 <> bit Then
                    crc = crc Xor polynomial
                End If
            Next
        Next
 
        crc = crc And &HFFFF
 
        Debug.WriteLine(crc.ToString("x"))

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist