45714573.txt

加密解密字符串的CRC算法,可以为初学者提供一些帮助。

Attribute VB_Name = "CRC16"
'========================
'= CRC 16 Bit 碻吏浪琩絏璸衡
'========================

Private Function CRC16__(data() As Byte) As String
      Dim CRC16Lo As Byte, CRC16Hi As Byte      'CRC盚