XOR

Tant qu'on y est à demander la lune: il me manque la fonction XOR (OU exclusif entre deux octets), je ne sais pas si je pourrai la programmer simplement, il faudrait faire de l'assembleur.
Concrètement, c'est pour un petit programme tout simple de codage/décodage de texte Ascii: XOR entre chaque octet du texte et chaque octet d'une clé de codage, et c'est réversible.
Ca marchait très bien en QBasic.

Edit: j'avais codé un sous-programme d'émulation de XOR, en utilisant AND, (j'étais tout content d'avoir trouvé le POWER(x, y) pour les puissances de 2) mais je m'aperçois que ça ne marche pas (contrairement au Basic, toujours): AND et OR sont exclusivement des opérateurs logiques, et non arithmétiques.
On peut écrire:
IF (a = 1) AND (b = 2) THEN ...
Mais on ne peut pas faire les opération boléennes (refusé):
c = a AND b
c = a OR b
... il faudrait maintenant que j'émule le AND, ça devient lourdingue mon affaire.

ReEdit: ça y est, j'ai fait quelque chose qui tourne, à voir dans 'Votre code',
Ce n'est pas très élégant mais ça marche, c'est bien l'essentiel.

Il y a pourtant et depuis longtemps BIN_AND(), BIN_OR(), BIN_XOR() qui peuvent répondre à ta question.

dans l'exemple de la fiche BIN_XOR() , tu trouves :

Code:

print bin_xor(3,7)

ce qui donne 4 et qui est le "ou exclusif" (fonction "différent") de chaque bit de 3 et de 7:
3 : 00000011
7 : 00001001
4 : 00001010

rappel: le ou exclusif de 2 bits donne:
1 quand les 2 bits sont différents,
0 s'ils sont identiques.

Les fonctions logiques:
BIN_AND(X,Y),
BIN_OR(X,Y),
BIN_XOR(X,Y) retournent une valeur à partir de 2 paramètres X et Y
et ont une syntaxe très différente des opérateurs logiques
AND,
OR,
NOT qui opèrent sur des valeurs booléennes: VRAI ou FAUX.

MEA CULPA ! il faut que je me rachète des lunettes, je n'avais pas vu ces fonctions qui correspondent exactement à ce que je cherchais ! mais je ne les cherchais pas sous ces noms-là.

Mille excuses !