VB.NET ADD8校验

在搞RFID的时候需要对指令进行校验，他的校验方式是ADD8而不是常用的MODBUS。所以记录一下
这个函数返回校验和结果。

    Function ADD8校验和(Data() As Byte) As Integer
        Dim sum As Integer = 0
        For Each b As Byte In Data
            sum += b
        Next
        sum = Not sum
        sum += 1
        Return sum And &HFF
    End Function