请问！Xor怎么用？

[ticsa]

请问在本期《程序员2》的破解屏保密码中提到的异或怎么用？谢谢！

[yulin]

Dim wp As Byte
Dim wp1(12) As Byte
wp1(0) = &H86
wp1(1) = &HFB
wp1(2) = &HEC
wp1(3) = &H37
wp1(4) = &H5D
wp1(5) = &H44
wp1(6) = &H9C
wp1(7) = &HFA
wp1(8) = &HC6
wp1(9) = &H5E
wp1(10) = &H28
wp1(11) = &HE6
wp1(12) = &H13
FileName = VBGetOpenFileName("", "mdb", True, False, False, True, "数据库文件|*.mdb|所有文件 (*.*)|*.*", , , "请选择数据库文件", "*.mdb")
If FileName <> "" Then
yujia.MousePointer = 11

Open FileName For Binary As #1
For i = 0 To 12
Seek #1, &H43 + i
Get #1, , wp
Password = Password + Chr(wp Xor wp1(i))
Next
Close #1
If Left(Password, 1) = Chr(0) Then
Password = ""
End If
这是破ACCESS97密码的其中一段代码也是用XOR

[shines77]

用来对两个表达式进行逻辑互斥或运算。

语法

[result =] expression1 Xor expression2

Xor 运算符的语法具有以下几个部分：

部分 描述
result 可选；任何数值变量。
expression1 必要；任何表达式。
expression2 必要；任何表达式。
说明

如果表达式中有一个而且只有一个值为 True，则 result 为 True。但是，如果表达式中有一个为 Null，则 result 也为 Null。当两个表达式都不为 Null，则根据下表来确定 result：

如果 expression1 为 且 expression2 为 则 result 为
True True False
True False True
False True True
False False False
Xor 运算符既可作为逻辑运算符，也可作为位运算符。使用互斥或的逻辑进行的两个表达式的逐位比较，其结果通过下表说明：

如果 expression1 为 且 expression2 为 则 result 为
0 0 0
0 1 1
1 0 1
1 1 0

[ticsa]

非常感谢如此快的恢复，再请问，异或的具体含义！
我刚接触VB还不太了解里面一些东东的用法
书上的例子是
（6>7)xor(8>9) 返回值为假
异或还能做什么？

[jadedrip]

0 xor 0 = 0
1 xor 1 = 0
0 xor 1 = 1
1 xor 0 = 1
这是二进制上的逻辑操作

[sorcerer]

异或笔在做图形处理时非常有用，不论在何种背景色下用异或笔画两次的效果和什么也没干是一样的这样当你擦除移动图形时不会留下痕迹

[ticsa]

谢谢各位的热心回答！