字符串异或

[myguilotus]

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

谢谢！

[Tiger_Zhao]

Option Explicit

Sub 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

[舉杯邀明月]

不明白.........

41字节的源数据，异或后怎么会变成1字节？
异或操作不会改变数据长度呀！

[zdingyun]

1楼正解.