字符串异或

Question

已知vb6中的16进制字符串，请问如何设计该字符串的异或？
如
dim s as string 
s="05000000000000000000000000000000000B0010000700170000000000000000000000000000000000"
该字符串的异或结果为"0E"谢谢！

Answer 1

Option ExplicitSub Main()
    Dim s As String
    Dim i As Long, n As Byte
    
    s = "05000000000000000000000000000000000B0010000700170000000000000000000000000000000000"
    For i = 1 To Len(s) Step 2
        n = n Xor CByte("&H" & Mid$(s, i, 2))
    Next
    Debug.Print Right$("0" & Hex(n), 2)
End Sub