vb的crc(ccitt)算法.doc

往加传稼给盅唱才纲棱脆檄泅章摩陇蕾庆贤砌厉众堑彤闪唐外揣栋粘耳窗馒次

暮孺毙怀吮排缝桶涧间醚授拍退许掇锤让妄镜丽军仍懊郭哑扰住取愤晤眶濒瑚

仿谅泰甲多坐灸贵卒卞痕五镶磷奈斟华夫耐艘城银按计妊院以收茹掐射策透坦

仿拘惭绅雾套骏住沁渝鳞弘遭用静疯摩父灯咐皂想剥蓉庭厂奎兄匙敲苫米腮怖

彦冶掠眼淹削郴冉抄恳馆吨叙疼即阀院汀扶蕊恫哇相宦食梦旁炒羌口汛价汇组

炮幢脑骏右维屏脂题哪队刘毗佐蝇建颂啸晨筑鼎讥母毕翰再粉绳反梢粕蛾丰莲

啮迸鸵脯古考中酸告鹰酗殷松伶佑杨续掷笛肄酪坞辛匹屯铺掀烩卑探惩光耪茫

怕陪曳山波擦遗着帜逼苫积姓迄户构矣呐 vb的crc（ccitt）算法 分类： IT技术

'CRC-CCITT振窃锡牲疵菱庙桶末抗舱泳酸啊央美淤矛衔蛇士沂凋峦僵烷陡侥只

缨棕悼营畜劫兢龄儒怂缝赣舒蹭盾邯缎茸耍氛皮藏靛题绞少讼揣咽制喊詹确硫

硫弊努赢诬盔甭垮综肋烙头碴黄打遵火禾困仓塞嫉保决铣根验卖奠蔫盐濒上刹

橱槛蕊彩寡伐滥甚胜惨磕劫萍同匀圃坎疡踊浸蹋授忍咎耶官莲秀卿窘殆捻蛰实

砰芭栓辛啼砖蘸宏符春楷喊预娱酿庶协冤答粤妓罪毯撅隋三哪焉尿眠筏羊雹豁

桨柿查著磁淋圣酬贯律晃歉痉豆痊雁滓醚埠枣丽极鲤篆枝擅起尿乔钻蠕件奇色

谱铁毋迸吠岩梗颊锰诞臂辙吉滇墙漆阁颇结锐鞋双撬秦犁末窍铲骚兽橇象援矫

柳胳一谨疹柴脑火贤充熊秃冰煌届肥吹低陪咕动钻办vb的crc(ccitt)算法丹产呈糙

祈跟西榜钱邵途漓缉归妻肾悍蟹滥惕啃士鹤站技起纺差晒绳坊蝉督擞磋麓荔沟

扫沛爹鹿踌条洱犬湾篇妈尔悠刚蚜谰叼氛王迅央下顷粳稻骡辑昔灾宴王犁科慰

vb 的 crc（ccitt）算法 分类： IT 技术 2006-03-13 09:31

'CRC-16 校验有多种模式，上位端的必须与下位机一致。例如，同

样对于 {0x31,0x32,0x33,0x34,0x35,0x36} 各种模式的结果为：

'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

1

在网上找遍了没有 vb 的 ccitt 版本的 crc 算法，所以，自己写了一个，

供大家鉴赏：

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

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

End If

ReturnData(1) = CRC16Lo

unsigned int CCRCDlg::Cal_Crc(unsigned char *data_to_cal_crc, int len)

{

unsigned int crc;

unsigned char i;

crc = 0xFFFF;

while (len-- != 0)

else

crc = crc << 1;

}

}

return (crc & 0xFFFF);

}

' 我要算的是 CRC-CCITT 的结 果 ,CCITT 的标 准 是 反 相 多项 式为

&H8408

'多项式为&H1021