Bonjour,
J'essaye d'utiliser xor pour crypter simplement une chaine, j'ai trouvé l'exemple sur ce forum mais je viens d'avoir un cas pour lequel ca ne fonctionnait pas alors du coup je doute du code !? voici

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Function Crypt(chaine As String, clé As Integer) As String
Dim Crypt1 As String
Dim I As Integer
For I = 1 To Len(chaine)
    Crypt1 = Crypt1 & Format(Asc(Mid(chaine, I, 1)) Xor Asc(clé))
Next
Crypt = Crypt1
End Function
Avec en entrée la chaine "439950853" et la clé "2787", j'obtiens comme résultat : 611111721071 !!!!!!!!!?????????
Le probleme est que xor ("9") = 11 et xor("8") = 10 alors j'obtiens un résultat plus grand que l'entrée et évidemment pour le décryptage ça n'a plus rien à voir.
Comment faire pour n'obtenir qu'un seul caractère généré avec un xor ?