vb的crc(ccitt)算法（国外英文资料）.doc

vb的crc(ccitt)算法 VBs CRC (CCITT) algorithm classification: IT technology, 2006-03-13, 09:31 TheCRC-16 check has several modes, and the upper end must be in agreement with the lower machine. For example, similarly for {0x31,0x32,0x33,0x34,0x35,0x36}, the results of various patterns are: CRC-16 0xBB3D CRC-16 (Modbus) 0x4B37 CRC-16 (Sick) 0x56A6 CRC-CCITT (XModem) 0x31C3 CRC-CCITT (0xFFFF) 0x29B1 CRC-CCITT (0x1D0F) 0xE5CC CRC-CCITT (Kermit) 0x8921 CRC-DNP 0x82EA Actually, what you need to make sure is that the polynomial is the initial value. CRC-16, 0x8005, x16 + x15 + x2 + 1 CRC-CCITT, 0x1021, x16 + X12 + X5 + 1 CRC-DNP, 0x3D65, x16 +, x13 +, X12 +, X11 +, X10 +, X8 +, X6 +, X5 +, X2 + 1 On the Internet to find the CCITT version of the CRC without VB algorithm, so I wrote a, for everyone to appreciate: Function CRC_CCITT (data ()) As Byte) As String Dim, CRC16Lo, As, Byte, CRC16Hi, As, Byte Dim, CL, As, Byte, CH, As, Byte Dim, SaveHi, As, Byte, SaveLo, As, Byte Dim I As Integer Dim Flag As Integer CRC16Lo = HFF CRC16Hi = HFF CL = H21 CH = H10 For, I = 0, To, UBound (data) CRC16Hi = CRC16Hi, Xor, data (I) For Flag = 0, To 7 SaveHi = CRC16Hi SaveLo = CRC16Lo If CRC16Hi * 2 HFF Then CRC16Hi = CRC16Hi * 2 - H100 Else CRC16Hi = CRC16Hi * 2 End If If CRC16Lo * 2 HFF Then CRC16Lo = CRC16Lo * 2 - H100 Else CRC16Lo = CRC16Lo * 2 End If If ((SaveLo, And, H80) = H80) Then CRC16Hi = CRC16Hi, Or, H1 End If If ((SaveHi, And, H80) = H80) Then CRC16Hi = CRC16Hi, Xor, CH CRC16Lo = CRC16Lo, Xor, CL End If Next Flag Next I Dim ReturnData (1) As Byte ReturnData (0) = CRC16Hi TextBox1.Text = TextBox1.Text vbCrLf CStr (CRC16Hi) ReturnData (1) = CRC16Lo TextBox1.Text = TextBox1.Text vbCrLf CStr (CRC16Lo) CRC_CCITT = ReturnData End Function The C code is also posted: unsigned int ccrcdlg：：cal_crc（unsigned char * data_to_cal_crc，len） { 无符号整型； 未签名字符； CRC 0xffff； 而（莱恩）！= 0） { CRC校验^（（unsigned int）* data_to_cal_crc + 8）； 对于（i = 0；i 8；+ i） { 如果（CRC和0x8000） CRC（循环冗余校验 1）^ 0x1021； 其他的 CRC＜