45714573.txt

来自「加密解密字符串的CRC算法,可以为初学者提供一些帮助。」· 文本 代码 · 共 7 行

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

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