CRC CCITT (0xFFFF) calculation on https://www.lammertbies.nl/comm/info/crc-calculation.html
Here is the code:
Private Sub CalculateCRC(Data() As Byte) As Int
Dim i, j As Int
Dim lngCheck As Long
Dim Poly, CRC As Long
Dim TestBit, TestBit1, TestBit2 As Boolean
Poly = 0x1021...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.