Prolog对称加密

Question

所以我对prolog还是个新手。我需要创建一个谓词xor(+Text,+Key,-Cipher).，我可以假设+Text和+Key具有相同的长度。+Text包含0和1的列表，+Key也是如此。我需要对列表+Text和+Key的每个元素执行XOR运算符，并将输出写入-Cipher列表。

xor(+Plaintext,+Key,-Cipher) :-
 / ** TODO **/

xor_check(0,0,0).
xor_check(0,1,1).
xor_check(1,0,1).
xor_check(1,1,0).

我为所有可能的结果创建了一个xor_check，但不确定如何将列表中的元素传递给它。

Answer 1

您可以使用recursion在Prolog中轻松处理lists。

假设明文和密钥长度相同，可以按如下方式处理：

xor([], [], []).
xor([P|Plaintext], [K|Key], [C|Cipher]) :-
    xor_check(P, K, C),
    xor(Plaintext, Key, Cipher).