循环冗余码校验原理及VB实现

循环冗余码校验原理
　　循环冗余码校验英文名称为Cyclical Redundancy Check，简称CRC。它是利用除法及余 数的原理来作错误侦测（Error Detecting）的。实际应用时，发送装置计算出CRC值并随数 据一同发送给接收装置，接收装置对收到的数据重新计算CRC并与收到的CRC相比较，若两个 CRC值不同，则说明数据通讯出现错误。
根据应用环境与习惯的不同，CRC又可分为以下几种标准：
　　①CRC-12码；
　　②CRC-16码；
　　③CRC-CCITT码；
　　④CRC-32码。
　　CRC-12码通常用来传送6-bit字符串。CRC-16及CRC-CCITT码则用是来传送8-bit字符，
其中CRC-16为美国采用，而CRC-CCITT为欧洲国家所采用。CRC-32码大都被采用在一种称为
Point-to-Point的同步传输中。
下面以最常用的CRC-16为例来说明其生成过程。
　　CRC-16码由两个字节构成，在开始时CRC寄存器的每一位都预置为1，然后把CRC寄存器
与8-bit的数据进行异或，之后对CRC寄存器从高到低进行移位，在最高位（MSB）的位置补
零，而最低位（LSB，移位后已经被移出CRC寄存器）如果为1，则把寄存器与预定义的多项
式码进行异或，否则如果LSB为零，则无需进行异或。重复上述的由高至低的移位8次，第一
个8-bit数据处理完毕，用此时CRC寄存器的值与下一个8-bit数据异或并进行如前一个数据 似的8次移位。所有的字符处理完成后CRC寄存器内的值即为最终的CRC值。
　　下面为CRC的计算过程：
　　1．设置CRC寄存器，并给其赋值FFFF(hex)。
　　2．将数据的第一个8-bit字符与16位CRC寄存器的低8位进行异或，并把结果存入CRC寄 存器。
　　3．CRC寄存器向右移一位，MSB补零，移出并检查LSB。
　　4．如果LSB为0，重复第三步；若LSB为1，CRC寄存器与多项式码相异或。
　　5．重复第3与第4步直到8次移位全部完成。此时一个8-bit数据处理完毕。
　　6．重复第2至第5步直到所有数据全部处理完成。
　　7．最终CRC寄存器的内容即为CRC值。

 

将通讯信息帧所有字节按上述步骤计算完成后，最后得到的CRC寄存器的内容即为CRC校验码，将其附着在原通讯信息帧后进行传输即可。如果用于Modbus协议设备则还需交换高 低8位，非Modbus协议设备可以不必交换。接收方依同样方法进行计算，只是计算的内容不 要包括最后两个字节，然后比较生成的CRC校验码和数据帧中的是否相同即可。如果发送方 交换CRC校验码的高低8位，则接收方可以计算包括交换后的CRC码在内的整个数据帧，传输 正确的话结果恒为0x0000。

 

VB实现：

 

Public Function funCRC16(data() As Byte, Optional ByVal Offset As Integer = 0, Optional ByVal Length As Integer = 0) As Byte()
  Dim CRC16Lo As Byte, CRC16Hi As Byte      'CRC寄存器
  Dim CL As Byte, CH As Byte                '多项式码&HA001
  Dim SaveHi As Byte, SaveLo As Byte
  Dim i As Integer
  Dim Flag As Integer
  Dim ReturnData(1) As Byte
  CRC16Lo = &HFF
  CRC16Hi = &HFF
  CL = &H1
  CH = &HA0
  Length = IIf(Length < 1, UBound(data) - Offset, Length - 1)   

  For i = Offset To Offset + Length
    CRC16Lo = CRC16Lo Xor data(i) '每一个数据与CRC寄存器进行异或
    For Flag = 0 To 7
      SaveHi = CRC16Hi
      SaveLo = CRC16Lo
      CRC16Hi = CRC16Hi / 2            '高位右移一位
      CRC16Lo = CRC16Lo / 2            '低位右移一位
      If ((SaveHi And &H1) = &H1) Then '如果高位字节最后一位为1
        CRC16Lo = CRC16Lo Or &H80      '则低位字节右移后前面补1
      End If                           '否则自动补0
      If ((SaveLo And &H1) = &H1) Then '如果LSB为1，则与多项式码进行异或
        CRC16Hi = CRC16Hi Xor CH
        CRC16Lo = CRC16Lo Xor CL
      End If
    Next
  Next
  ReturnData(0) = CRC16Lo              'CRC低位
  ReturnData(1) = CRC16Hi              'CRC高位
  funCRC16 = ReturnData
End Function

 

 

usage:

 

Dim ReturnData As Variant

 

ReturnData = funCRC16(arrDataSend(0) & arrDataSend(1) & arrDataSend(2) & arrDataSend(3) & arrDataSend(4) & arrDataSend(5) & arrDataSend(6))

 

 

C代码：

//***C代码 CRC16校验算法***//
unsigned int mb_crc(BYTE *snd,int num)
{
int i,j;
unsigned int c,crc=0xFFFF
for (i=0;i<num;i )
{
   c=snd[i] & 0x00FF;
   crc^=c;
   for(j=0,j<8,j )
   {
    if (crc & 0x0001)
    {
     crc>>=1;crc^=0xA001;
    }
    else crc>>=1
   }
}
return(crc);
}