CRC16 C语言源码或VB语言源码转易语言---自己已找到解决方法--申请取消悬赏

gxlm2001

校验内容一 ST=32;CN=2011;PW=123456;MN=0873HHMZWSLH02;CP=&&DataTime=20160103133030;060-Rtd=3.0943,060-Flag=N;011-Rtd=18.0412,011-Flag=N;001-Rtd=8.2137,001-Flag=N;B01-Rtd=10.9890,B01-Flag=N&&
CRC16校验码为 A9C1


校验内容二 ST=31;CN=2011;PW=123456;MN=00000000000001;CP=&&DataTime=20180903162933;S01-Rtd=6.546142;02-Rtd=48.01542;03-Rtd=119.6738;S05-Rtd=22.7324;gasPress-Rtd=86.56911;Alarm=&&
CRC16校验码为 3a15




C语言代码一
函数        CRC16_Checkout
描述        CRC16循环冗余校验算法
参数一        *puchMsg 需要校验的字符串指针
参数二        usDataLen 需要校验的字符串长度
返回值        返回CRC16校验码
unsigned int CRC16_Checkout(unsigned char *puchMsg,unsigned int usDataLen)
{
        unsigned int i,j,crc_reg,check;


        crc_reg=0*FFFF;
        for(i=0;i<usDataLen;i++)
        {
                crc_reg=(crc_reg>>8)^puchMsg;
                for(j=0;j<8;j++)
                {
                        check=crc_reg & 0*0001;
                        crc_reg>>=1;
                        if(check == 0*0001)
                        {
                                crc_reg ^= 0*A001;
                        }
                }
        }
        return crc_reg;
}



C语言代码二
unsigned int CRC16_Checkout(unsigned char *puchMsg,unsigned int usDataLen)
{
        unsigned int i,j,crc_reg,check;

        crc_reg=0*FFFF;
        for(i=0;i<usDataLen;i++)
        {
                crc_reg=(crc_reg>>8)^puchMsg;
                for(j=0;j<8;j++)
                {
                        check=crc_reg & 0*0001;
                        crc_reg>>=1;
                        if(check == 0*0001)
                        {
                                crc_reg ^= 0*A001;
                        }
                }
        }
        return crc_reg;
}


VB代码
Function CRC16(data() As Byte) As Long
    Dim r As Long
    Dim hi As Byte
    Dim flag As Byte
    Dim i As Long
    Dim j As Long
   
    r = &HFFFF&
    For j = 0 To UBound(data)
        hi = r \ &H100&
        hi = hi Xor data(j)
        r = hi
        
        For i = 1 To 8
            flag = r And 1
            r = r \ 2
            If flag = 1 Then
                r = r Xor &HA001&
            End If
        Next
    Next
    CRC16 = r
End Function


Sub Main()
    Dim s As String
    Dim a() As Byte
    s = "ST=32;CN=2011;PW=123456;MN=0873HHMZWSLH02;CP=&&DataTime=20160103133030;060-Rtd=3.0943,060-


Flag=N;011-Rtd=18.0412,011-Flag=N;001-Rtd=8.2137,001-Flag=N;B01-Rtd=10.9890,B01-Flag=N&&"
   
    a = StrConv(s, vbFromUnicode)
    Debug.Print Hex(CRC16(a))
End Sub



以上3个源代码均能校验 其中一种转成易语言即可

gxlm2001

http://www.ip33.com/crc.html  CRC（循环冗余校验）在线计算

结合下面两个贴子解决
https://bbs.125.la/forum.php?mod ... amp;highlight=crc16
https://bbs.125.la/forum.php?mod ... amp;highlight=crc16

先把字符串转成字节集
再转成十六进制或整数数组

100字节
第一种方法 90ms
第二种查表法  0ms
在此感谢两位大神的无私分享精神

专业推广小能手

讲了几天基础课了         后面就要来真技术了     快点来加入哈