Bonjour,
t=t & chr(asc(mid(Password,i,1))-asc(mid(Clé,I2,1)))
plante chr() si résultat négatif.
Utiliser Xor évite cet inconvénient, brouille mieux et est réversible :
1 2 3 4 5 6 7 8 9 10 11
| Sub test()
Clé = "Cosmopolite"
Password = "123456789"
' Password = "r]@YZFXTP" 'pw codé à décoder
I2 = 0
For i = 1 To Len(Password)
I2 = I2 + 1
If I2 > Len(Clé) Then I2 = 1
t = t & Chr(Asc(Mid(Password, i, 1)) Xor Asc(Mid(Clé, I2, 1)))
Next
End Sub |
Il y a aussi la possibilité des noms cachés pour le stocker dans le classeur.
eric
Partager