Utilisation du Xor

Version imprimable

Utilisation du Xor

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:

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 ?

normalement il faut lisser avec le format. Par exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function Crypt(chaine As String, cle 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(cle), "00")
Next
Crypt = Crypt1
End Function
 
Function DeCrypt(chaine As String, cle As Integer) As String
Dim Crypt1 As String
Dim I As Integer
For I = 1 To Len(chaine) Step 2
    Crypt1 = Crypt1 & Chr(Mid(chaine, I, 2) Xor Asc(cle))
Next
DeCrypt = Crypt1
End Function

30/01/2006, 16h15
mosquitout

oK, ca marche. Mais je crois que l'erreur était plutôt d'avoir pris une clé trop grande (>255) !