下载  >  开发技术  >  VB  > CRC16_VB6校验码生成器(含源代码)

CRC16_VB6校验码生成器(含源代码) 评分:

查阅了网上相传的VB校验码工具,大部分都是错误的计算结果,有的正确的又没有VB源码。本工具根据CRC校验码生成规则,参照网上下载的代码进行修改整合而成,源代码在本工具的文本框中,可复制。希望能对您有所帮助。

...展开详情
2017-05-26 上传 大小:36KB
举报 收藏 (3)
分享

评论 下载该资源后可以进行评论 共4条

qinjames DataA(I) = Val("H" Mid(strMsg, I * 2 + 1, 2)) 果然是丢失了字符
2019-09-11
回复
是的,那个文本有些字符没法复制上去: Public Function CRC16(P As String) As String Dim DataA() 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 strMsg As String Dim intLen As Integer strMsg = Replace(P, " ", "") intLen = Len(strMsg) / 2 - 1 ReDim DataA(0 To intLen) As Byte For I = 0 To intLen DataA(I) = Val("&H" & Mid(strMsg, I * 2 + 1, 2)) Next CRC16Lo = &HFF; CRC16Hi = &HFF; CL = &H1; CH = &HA0; For I = 0 To UBound(DataA) CRC16Lo = CRC16Lo Xor DataA(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 Flag Next CRC16 = Right("0" & Hex(CRC16Lo), 2) & Right("0" & Hex(CRC16Hi), 2) 'CRC16的校验码(低位在前高位在后) Erase DataA End Function
weixin_40601024 应该可以用
2019-08-25
回复
daniel0080955 计算器可以用,源代码有点问题,估计是拷贝时候有问题,丢失些字符,后来和其他代码比较,确实是少了一些东西,不过编译好的计算器可以用,拿来校验倒是可以的
2019-02-22
回复
网上很多代码是错误的,这个代码经过多次验证没有问题,代码也可正常运行,请核实。
brongy 没有源码,浪费资源
2019-01-18
回复
复制文本框的代码即可
VB CRC16 校验

VB6.0 CRC16 CCITT 校验算法,附带源代码和测试程序

立即下载
VBCRC16校验

项目上要用到CRC16校验,网上找了很多VB写的CR16校验,基本上不能用,有的还计算错误。参照网上相关文档自己写了一个,供大家调用。希望对大家有帮助。

立即下载
CRC16_VB6校验(正解).rar

查阅了网上相传的VB校验码工具,大部分都是错误的计算结果,有的正确的又没有VB源码。本工具根据CRC校验码生成规则,参照网上下载的代码进行修改整合而成。生成的校验码已通过串行设备测试。欢迎下载本源码!

立即下载
CRC16.bas 16位CRC校验 VB6源代码 可以直接调用

对数据进行CRC校验生成工具,我主要用在485通讯时,有些需要CRC检验,这个调用非常方便。

立即下载
CRC16计算小工具 VB自制

计算CRC16校验码的独立小工具 输入数据格式: A5 5A 06...... 输出数据格式为低字节在前

立即下载
VB6.0写的计算CRC校验和的小程序

VB6.0写的计算CRC校验和的小程序,能够计算串口发送数据的校验和(CRC)和异或校验和。经过编译后能够显示为Win7的界面效果。

立即下载
VB6.0写的CRC16_CCITT校验程序原码

vb6.0写的CRC16_CCITT校验程序原码。以前发的程序有朋友说没有源代码不知道是否正确,现在传上来哈。这是我写红相电表通信程序的附带程序。

立即下载
VB6的串口通信程序,还有crc校验

VB6的串口通信程序,还有crc校验.rar

立即下载
CRC16 校验码计算(含源码)

CRC16 VB/VC CRC16校验码计算目前主要有两种方式:ANSI以及CCITT两种共方式: 其中美国主要采用ANSI方式,欧洲主要采用CCITT这种方式,但是计算方法基本相同,只是采用的反转多项式不同。

立即下载
VB计算CRC16

VB调用已封装好的dll,进行CRC16校验计算!

立即下载
crc16校验dll(含vb调用示例)

crc16校验dll(含vb调用示例),vc编译的dll,经测试速度很快

立即下载