求易语言CRC16的算法

hanyuhang1995 · 发表于 2020-10-16 21:21:58

crc16_ccitt_false和CRC16_XMODEM
网上的例子全是C语言的，找到一个照易语言的crc16_MODBUS，进行仿写，crc16_ccitt可以正常出结果，但是crc16_ccitt_false和CRC16_XMODEM的结果明显不对
C语言：
uint16_t crc16_ccitt_false(uint8_t *data, uint_len length)
{
uint8_t i;
uint16_t crc = 0xffff;       //Initial value
while(length--)
{
      crc ^= (uint16_t)(*data++) << 8; // crc ^= (uint6_t)(*data)<<8; data++;
      for (i = 0; i < 8; ++i)
      {
         if ( crc & 0x8000 )
            crc = (crc << 1) ^ 0x1021;
         else
            crc <<= 1;
      }
}
return crc;
}
uint16_t crc16_xmodem(uint8_t *data, uint_len length)
{
uint8_t i;
uint16_t crc = 0;          // Initial value
while(length--)
{
      crc ^= (uint16_t)(*data++) << 8; // crc ^= (uint16_t)(*data)<<8; data++;
      for (i = 0; i < 8; ++i)
      {
         if ( crc & 0x8000 )
            crc = (crc << 1) ^ 0x1021;
         else
            crc <<= 1;
      }
}
return crc;
}
改写的crc16_ccitt：

子程序名	返回值类型	公开	备注
CRC16_CCITT	文本型		x16+x12+x5+1
参数名	类型	参考	可空	数组	备注
data	文本型

变量名	类型	静态	数组	备注
temp	字节集
crc	整数型
table	整数型		256
i	整数型
return	文本型

temp ＝字节集_十六进制到字节集 (data)

变量循环首 (0, 255, 1, i)

crc ＝ i

变量循环首 (1, 8, 1, )

如果 (位与 (crc, 1) ≠ 0)

crc ＝位异或 (右移 (crc, 1), 33800)

crc ＝右移 (crc, 1)

变量循环尾 ()

table [i ＋ 1] ＝ crc

变量循环尾 ()
crc ＝ 0

变量循环首 (1, 取字节集长度 (temp), 1, i)

crc ＝位异或 (右移 (crc, 8), table [位异或 (temp [i], 位与 (crc, 255)) ＋ 1])

变量循环尾 ()
return ＝取文本右边 (进制_十到十六 (crc, 真), 4)
返回 (return)

努力的码农 · 发表于 2020-10-16 22:23:55

去看看我的分享
里面有代码

补充内容 (2020-10-16 22:24):
我发的帖子，里面有CRC的代码

fq19851220 · 发表于 2020-10-17 00:20:25

易语言里数值都带符号这个比较麻烦

hanyuhang1995 · 发表于 2020-10-17 07:55:34

努力的码农发表于 2020-10-16 22:23
去看看我的分享
里面有代码

感谢，我是想要
crc16_ccitt_false和CRC16_XMODEM的，和modbus的不太一样

hanyuhang1995 · 发表于 2020-10-17 17:36:02

子程序名	返回值类型	公开	备注
CRC16_CCITT_FALSE	文本型		x16+x12+x5+1
参数名	类型	参考	可空	数组	备注
data	文本型

变量名	类型	静态	数组	备注
temp	字节集
length	整数型
crc	整数型
i	整数型
byte	字节型
result	文本型

temp ＝字节集_十六进制到字节集 (data)
length ＝取字节集长度 (temp)
crc ＝ 65535

计次循环首 (length, i)

byte ＝取字节集数据 (temp, #字节型, i)

crc ＝位异或 (crc, 左移 (byte, 8))

计次循环首 (8, )

如果 (位与 (crc, 32768) ≠ 0)

crc ＝位异或 (左移 (crc, 1), 4129)

crc ＝左移 (crc, 1)

计次循环尾 ()

计次循环尾 ()
crc ＝位与 (65535, crc)
result ＝取文本右边 (进制_十到十六 (crc, 真), 4)
返回 (result)

xiaolong028 · 发表于 2021-11-30 10:21:36

怎么易精模块就不提供全套的CRC算法模块呢，感觉这个很常用

扶苏沐 · 发表于 2022-2-28 09:46:52

努力的码农发表于 2020-10-16 22:23
去看看我的分享
里面有代码

怎么看怎么看怎么看自己怎么看

tqfs · 发表于 2023-8-31 12:12:49

改了一下楼上的CRC16_CCITT_FALSE,就成了CRC16_XMODEM的了,感谢楼主!

子程序名	返回值类型	公开	备注
CRC16_XMODBUS	文本型		x16+x12+x5+1
参数名	类型	参考	可空	数组	备注
data	文本型
是否反转	逻辑型

变量名	类型	静态	数组	备注
temp	字节集
length	整数型
crc	整数型
i	整数型
byte	字节型
result	文本型
十六进制文本反转	文本型

temp ＝字节集_十六进制到字节集 (data)
length ＝取字节集长度 (temp)
crc ＝ 0 ' CRC16_CCITT_FALSE算法，这里crc ＝ 65535

计次循环首 (length, i)

byte ＝取字节集数据 (temp, #字节型, i)

crc ＝位异或 (crc, 左移 (byte, 8))

计次循环首 (8, )

如果 (位与 (crc, 32768) ≠ 0)

crc ＝位异或 (左移 (crc, 1), 4129)

crc ＝左移 (crc, 1)

计次循环尾 ()

计次循环尾 ()
crc ＝位与 (65535, crc)
result ＝取文本右边 (进制_十到十六 (crc, 真), 4)

如果 (是否反转＝真)

十六进制文本反转＝取文本右边 (result, 2) ＋取文本左边 (取文本右边 (result, 4), 2)

返回 (十六进制文本反转)

返回 (result)

MY哥 · 发表于 2023-12-7 22:27:46

tqfs 发表于 2023-8-31 12:12
改了一下楼上的CRC16_CCITT_FALSE,就成了CRC16_XMODEM的了,感谢楼主![e=0].版本 2

.子程序 CRC16_XMODBUS, ...

感谢楼主，我这个代码收藏了。研究了好几天

		自动登录	找回密码
密码			注册

[求助] 求易语言CRC16的算法