VB加密算法之CRC32

athlon8048

直接上代码！！

1. 
   
2. Dim CrcTableInit As Boolean
   
3. Dim CRCTable(0 To 255) As Long
   
4. Public Function calcCRC32(ByteArray() As Byte) As Long
   
5.     Dim i As Long
   
6.     Dim crc As Long
   
7.     If CrcTableInit = False Then Call Init_CRCTable
   
8.     crc = -1
   
9.     For i = 0 To UBound(ByteArray) - 1
   
10.         crc = (((crc And &HFFFFFF00) \ &H100) And &HFFFFFF) Xor (CRCTable((crc And &HFF) Xor ByteArray(i)))
    
11.     Next i
    
12.     crc = crc Xor &HFFFFFFFF
    
13.     calcCRC32 = crc
    
14. End Function
    
15. Private Sub Init_CRCTable()
    
16.     Dim i As Long
    
17.     Dim j As Long
    
18.     Dim Limit As Long
    
19.     Dim crc As Long
    
20.     Limit = &HEDB88320
    
21.     For i = 0 To 255
    
22.         crc = i
    
23.         For j = 0 To 7
    
24.             If crc And 1 Then
    
25.               crc = (((crc And &HFFFFFFFE) \ 2) And &H7FFFFFFF) Xor Limit
    
26.             Else
    
27.               crc = ((crc And &HFFFFFFFE) \ 2) And &H7FFFFFFF
    
28.             End If
    
29.         Next j
    
30.         CRCTable(i) = crc
    
31.     Next i
    
32.     CrcTableInit = True
    
33. End Sub

复制代码

athlon8048

不留沙发！
CRC32简介：
      在数据存储和数据通讯领域，为了保证数据的正确，就不得不采用检错的手段。在诸多检错手段中，CRC是最著名的一种。CRC的全称是循环冗余校验，其特点是:检错能力极强，开销小，易于用编码器及检测电路实现。从其检错能力来看，它所不能发现的错误的几率仅为0.0047%以下。从性能上和开销上考虑，均远远优于奇偶校验及算术和校验等方式。因而，在数据存储和数据通讯领域，CRC无处不在:著名的通讯协议X.25的FCS(帧检错序列)采用的是CRC-CCITT，ARJ、LHA等压缩工具软件采用的是CRC32，磁盘驱动器的读写采用了CRC16，通用的图像存储格式GIF、TIFF等也都用CRC作为检错手段。

mofangbao

太坏了  沙发都不留  有时候加密是很有必要的

athlon8048

mofangbao 发表于 2011-9-24 21:54

                               
登录/注册后可看大图

太坏了  沙发都不留  有时候加密是很有必要的

是哦！以前常用MD5码，一个控件直接搞定！嘿嘿！

topmad

不知道清风还记不记得那个加密解密的小软件了  呵呵 我现在还在用

Fred2016

多回复几个就可以到5了，不是吗？