VB.NET的字节校验例子

        Dim ChkXor = Encoding.Default.GetBytes(VerifyString)
        Dim len As Integer = ChkXor.Length
        Dim i As Integer
        Dim ChkXorResult = "00"
        Dim curByte As Byte
        For i = 0 To len - 1
        curByte = ChkXor(i)
        If curByte <> 0 Then
        ChkXor(i) = CByte(curByte Xor ChkXorResult)
        End If
        ChkXorResult = ChkXor(i)
        Next i
        Verify = Hex(ChkXorResult)
        End Function