Bonjour à tous,
je crois avoir trouvé la bonne formule pour crypter en chiffre de vigenere, tout à l' air bon.
Mais je ne trouve pas l'inverse cad en partant de la lettre cryptée et celle de la clé retrouver la lettre en clair.
et cela sans VBA
merci d'avance de vos conseils. y a t-il qqch de fait déjà en la matière ?
Function CryptHex(Chaine$) As Variant
Dim x$
Dim i&
For i = 1 To Len(Chaine)
x = x & Application.Dec2Hex(Asc(Mid(Chaine, i, 1)), 2)
Next
CryptHex = x
End Function
Code:
Function DeCryptHex(Chaine$) As Variant
Dim x$
Dim i&
For i = 1 To Len(Chaine) Step 2
x = x & Chr(Application.Hex2Dec(Mid(Chaine, i, 2)))
Next
DeCryptHex = x
End Function
Code:
Function Vigenere(Chaine$, pas&) As Variant
Dim x$
Dim i&
For i = 1 To Len(Chaine)
x = x & Chr(Asc(Mid(Chaine, i, 1)) + pas)
Next
Vigenere = x & Chr(pas + 64) ' on indique discrétement la clé(chr(pas))
End Function
Code:
Function DeVigenere(Chaine$, pas&) As Variant
Dim x$
Dim i&
For i = 1 To Len(Chaine) - 1 ' on ne décode pas la clé
x = x & Chr(Asc(Mid(Chaine, i, 2)) - pas)
Next
DeVigenere = x
End Function
Bonsoir à tous, c'est avec grand intérêt que j'ai suivi vos échanges. Pour crypter un message selon la table de Vigenère, j'utilise les fonctions Index et Equiv. Qu'en pensez-vous ?
Je cherche une solution pour décrypter un message (codé selon cette méthode) sans code VBA, en utilisant les fonctions existantes d'Excel, et j'avoue ne pas avoir encore trouvé de solutions.
Je viens de voir que cette discussion est ancienne. Merci à tous