[分儿，我来了]请进！！！

Question

Dim MaskByte as ByteMaskByte=&FF '随便你写
Dim a As String, b As String, gContent As Byte
CommonDialog1.ShowOpen
a = CommonDialog1.FileName
CommonDialog1.ShowSave
b = CommonDialog1.FileName
Dim i As Single
Open a For Binary As #1
Open b For Binary As #2
For i = 1 To FileLen(a)
Get 1, , gContent
gContent = gContent Xor MaskByte
Put 2, , gContent
Next
Close #1
Close #2

Answer 1

我知道了。。也是xor..但是不是很明白，你能解释一下吗？

Answer 2

再Xor一次就会恢复这是Xor的特性