vb.net CRC计算-----CRC_CCITT

最新推荐文章于 2024-01-29 17:14:56 发布

mhjcumt

最新推荐文章于 2024-01-29 17:14:56 发布

阅读量4.3k

点赞数 1

分类专栏： vb.net 学习笔记文章标签： vb.net string function integer hex byte

本文链接：https://blog.csdn.net/mhjcumt/article/details/7928383

版权

vb.net 学习笔记专栏收录该内容

8 篇文章 0 订阅

订阅专栏

    Public Function CRC_CCITT(ByVal Data() As Byte) As String

        Dim crc As UShort
        Dim i As Byte, j As Integer
        Dim crch As String, crcl As String

        crc = 0
        For j = 0 To Data.Length - 1
            i = &H80
            Dim val As UShort = Data(j)
            val = val << 8
            crc = crc Xor val

            While (i <> 0)
                If (crc And &H8000) <> 0 Then
                    crc = crc << 1
                    crc = crc Xor &H1021
                Else
                    crc = crc << 1
                End If
                i = i / 2
            End While
        Next j

        crch = Hex(Fix(crc / 256))
        If Len(crch) = 1 Then crch = "0" & crch
        crcl = Hex(crc Mod 256)
        If Len(crcl) = 1 Then crcl = "0" & crcl
        CRC_CCITT = crch & crcl

    End Function