^表示异或，数值都是16进制，如何求解 x、y
0x32^X + 0x30^Y = 0xF2
0x42^X + 0x40^Y = 0x12

好困难

穷举应该可以搞定，最多只要255次。

穷举要256×256次

我只能这样穷举了，效率低啊
[attachment=142850]

|41+4F|44+4C|45+4B|46+4E|47+4D|48+48|49+47|4A+4A|4B+49|4C+44|4D+43|4E+46|4F+45

好多解啊

附上源码吧

Private Sub Command1_Click()
Dim i, j As Integer

For i = 0 To 255
For j = 0 To 255

If (&H32 Xor i) + (&H30 Xor j) = &HF2 Then

If (&H42 Xor i) + (&H40 Xor j) = &H12 Then

Text1 = ""

Text1 = Text1 + "|" + Hex(i) + "+" + Hex(j)

End If

End If

Next j
Next i

End Sub

引用

引用第5楼sswater于2015-12-20 20:56发表的  :
附上源码吧

Private Sub Command1_Click()
Dim i, j As Integer

.......

多谢，这个原来是想解密AA6发编译密码的，可惜用不上了

请问楼主，异或方程组在plc编程上用在什么场合

引用

引用第3楼lizhiliang于2015-12-20 19:14发表的  :
穷举要256×256次

我只能这样穷举了，效率低啊
[attachment=142850]

太牛了，用PLC算的啊！