===== Sub ComputeCRC (val() As Byte) As Byte() Dim crc As Long Dim q As Long Dim c As Byte For i = 0 To val.Length - 1 c = val(i) q = Bit.And(Bit.Xor(crc, c), 0xF) crc = Bit.Xor(Bit.ShiftRight(crc, 4), q * 0x1081) q = Bit.And(Bit.Xor(crc, Bit.ShiftRight(c, 4))...
www.b4x.com