CRC32得出负数问题

xtuwz 2009-01-13 03:03:22
'得到数组的CRC32值
Public Function GetByteArrayCrc32(ByRef buffer() As Byte) As Long

Dim crc32Result As Long
crc32Result = &HFFFFFFFF

Dim i As Integer
Dim iLookup As Integer

For i = LBound(buffer) To UBound(buffer)
iLookup = (crc32Result And &HFF) Xor buffer(i)
crc32Result = ((crc32Result And &HFFFFFF00) \ &H100) And 16777215
crc32Result = crc32Result Xor crc32Table(iLookup)
Next i

GetByteArrayCrc32 = Not (crc32Result)

End Function


Dim myByte(0 To 3094) As Byte
Dim j As Integer
myByte(0) = FristByte(Ts_Data(iArray).Table_Id)
myByte(1) = SecondByte(Ts_Data(iArray).Section_Syntax_Indicator, Ts_Data(iArray).Reserved_Feature_Use3, Ts_Data(iArray).Section_Length)
....
myByte(22) = Desc_13Byte(Ts_Data(iArray).TS_Descriptor.Last_Table_Id, Ts_Data(iArray).TS_Descriptor.Reserved_Feature_Use3)

For j = 0 To 3071
myByte(23 + j) = Ts_Data(iArray).Payload_Data(j)
Next

Dim cCRC32 As New cCRC32
Dim CRC As Long
rResult = cCRC32.GetByteArrayCrc32(myByte())
SectionCRC = rResult'竟然得出个负值为-2122749930
是不是有问题,这个问题怎么处理
...全文
497 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
Tiger_Zhao 2009-01-13
  • 打赏
  • 举报
回复
因为 VB 没有 Unsigned 数据类型,所以最高位为 1 时就解释为负数,比如你的初始值 &HFFFFFFFF。
不过不影响结果。
僵哥 2009-01-13
  • 打赏
  • 举报
回复
千万不要把数据改变了。
僵哥 2009-01-13
  • 打赏
  • 举报
回复
[Quote=引用 2 楼 xtuwz 的回复:]
直接用HEX(rResult )行吗
[/Quote]
这个要看具体的应用,Hex转出来之后是字符串。
xtuwz 2009-01-13
  • 打赏
  • 举报
回复
直接用HEX(rResult )行吗
僵哥 2009-01-13
  • 打赏
  • 举报
回复
不影响使用,如果觉得别扭的话,可以转为Hex
易语言 CRC32.ec校验模块 林子深作品 比其他的都便宜 CRC32.ec校验模块 林子深作品 下载 CRC32.ec校验模块下载 我们很有必要给自己的软件加上更好的保护。CRC校验就是其中的一种不错的方法。 CRC是什么东西呢?其实我们大家都不应该会对它陌生,回忆一下?你用过RAR和ZIP等压缩软件吗?它们是不是常常会给你一个恼人的“CRC校验错误”信息呢?我想你应该明白了吧,CRC就是块数据的计算值,它的全称是“Cyclic Redundancy Check”,中文名是“循环冗余码”,“CRC校验”就是“循环冗余校验”。 CRC有什么用呢?它的应用范围很广泛,最常见的就是在网络传输中进行信息的校对。其实我们大可以把它应用到软件保护中去,因为它的计算是非常非常非常严格的。严格到什么程度呢?你的程序只要被改动了一个字节(甚至只是大小写的改动),它的值就会跟原来的不同。呵呵,是不是很厉害呢?所以只要给你的“原”程序计算好CRC值,储存在某个地方,然后在程序中随机地再对文件进行CRC校验,接着跟第一次生成并保存好的CRC值进行比较,如果相等的话就说明你的程序没有被修改/破解过,如果不等的话,那么很可能你的程序遭到了病毒的感染,或者被奸人用16进制工具暴力破解过了。 CRC的本质是进行XOR运算,运算的过程我们不用管它,因为运算过程对最后的结果没有意义;我们真正感兴趣的只是最终得到的余数,这个余数就是CRC值。 易语言用户林子深提供了一个CRC32.EC的易模块,这个模块可以在论坛上或资源网上搜索到。大家可以直接拿过来用,导入易语言后如下图所示: 调用方式可为如下代码: 判断(取循环风俗冗余校验和(读入文件(取执行文件名()))= 18293823767) 其中上述的数字为主程序的CRC码值。 大家可以利用上述特性,即结果是数值的特性,不用进行比较,而是用加减法的方法得出前后两个CRC验的差值,如果为0,那说明两个数字是相等的,主程序没有被改动过。否则就是被改过的。 例如下述代码: 程序被改 = 1 计次循环首(取绝对值(取循环风俗冗余校验和(读入文件(取执行文件名()))- 18293823767),) 程序被改 = 0- 跳出循环() 计次循环尾() 返回(程序被改) 上述代码中,“取绝对值()”是将负数也转换为正数,以方便进行计次循环。 上述代码中,数值型变量“程序被改”为1表示没有被改动过,如果为0表示被改动过。返回的数值就可以进行一些陷阱的计算了。 我的方案的缺点分析: CRC-32的值其实可以由奸人自行计算得出后,重新写入到程序验证处。这样的话,我们做的工作岂不是没有意义了? 其实解决的方法还是有的,我们可以在计算CRC-32值之前,对参与转换的字符串加点手脚,例如对这个字符串进行移位、xor等操作,或者把自己的生日等信息加入到字符串中,随你的便什么都行,总之不是单纯的文件的内容就行了,然后在最后比较的时候,也用同样的方法反计算出CRC-32值。这样得到的CRC-32就不是由文件的内容计算出来的,相信对破解者的阻力也会加大不少。 总结: 以上的方法大家都可以在软件中采用,最好写到一个DLL文件中,然后多放几个需要验证的子程序,随时以备调用即可。

863

社区成员

发帖
与我相关
我的任务
社区描述
VB COM/DCOM/COM+
c++ 技术论坛(原bbs)
社区管理员
  • COM/DCOM/COM+社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧