form1.frm

CRC的算法校验

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   4230
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6945
   LinkTopic       =   "Form1"
   ScaleHeight     =   4230
   ScaleWidth      =   6945
   StartUpPosition =   3  '窗口缺省
   Begin VB.ListBox List1 
      Height          =   2040
      Left            =   1200
      TabIndex        =   1
      Top             =   480
      Width           =   4935
   End
   Begin VB.CommandButton cmdst 
      Caption         =   "开始"
      Height          =   615
      Left            =   4800
      TabIndex        =   0
      Top             =   3120
      Width           =   1935
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim crc() As Byte
Dim d() As Byte
Private Sub cmdst_Click()
    Dim t, c As Byte
    c = UBound(d)
    crc = CRC16(d)
    Open "D:\ZL\vb\file6 CRC\shi\32-crc-16\txt.txt" For Output As #1
    For t = 1 To (c + 2)
        If t <= c Then
            Write #1, d(t)
            List1.AddItem d(t)
        Else
            Write #1, crc(t - c - 1)
            List1.AddItem crc(t - c - 1)
        End If
    Next t
    Close #1
End Sub

Private Sub Form_Load()
    
    Dim strD() As String
    
    Dim n, m As Byte
    For n = 1 To 6
        ReDim Preserve strD(1 To n)
        strD(n) = InputBox("")
        
        
        
    Next n
    For m = 1 To (UBound(strD))
            ReDim Preserve d(1 To m)
            d(m) = CByte("&H" & strD(m))
    Next m
        
End Sub
Function CRC16(data() As Byte) As String
    Dim CRC16Lo, CRC16Hi, CL, CH, SaveLo, SaveHi As Byte
    Dim I As Integer
    Dim Flag As Integer
    CRC16Lo = &HFF
    CRC16Hi = &HFF
    CL = &H1
    CH = &HA0
    For I = 1 To UBound(data)
        CRC16Lo = CRC16Lo Xor data(I)
        For Flag = 0 To 7
            SaveHi = CRC16Hi
            SaveLo = CRC16Lo
            CRC16Hi = CRC16Hi \ 2
            CRC16Lo = CRC16Lo \ 2
            If ((SaveHi And &H1) = &H1) Then
                CRC16Lo = CRC16Lo Or &H80
            End If
            If ((SaveLo And &H1) = &H1) Then
                CRC16Hi = CRC16Hi Xor CH
                CRC16Lo = CRC16Lo Xor CL
            End If
            Next Flag
        Next I
        Dim ReturnData(1) As Byte
        ReturnData(0) = CRC16Hi
        ReturnData(1) = CRC16Lo
        CRC16 = ReturnData
    End Function