vb CRC校验源码

代码说明：

"CRC算法函数 Public Function CRC(STR1 As String) As String Dim CRCREG As Long Dim MVAL As Long Dim R As Integer Dim T As Integer CRCREG = 65535 For R = 1 To Len(STR1) Step 2 MVAL = Val("&H" + Mid(STR1, R, 2)) CRCREG = CRCREG Xor MVAL CRCREG = C