ou est ton fichier exemple sur ce sujet, je n'le retrouve plus,
isabelle
garnote a écrit :
Superbe document, merci.
Serge
"isabelle" a écrit dans le message de news:
bonjour NewsMic,
il y a un fichier exemple de Thierry William ici : http://www.excelabo.net/excel/classeursdiv.php
isabelle
NewsMic a écrit :
Bonsoir,
Quelqu'un sait'il si il existe des petits programmes Excel pour déchiffrer les codes de César, Vigenere et/ou Tritheme (voire d'autres) ?
Merci !
NewsMic
garnote
Bonjour Isabelle,
Voici une technique de codage :
Function coder(Texte, Clé) 'Cette fonction permet de coder «Texte». 'Texte: Texte en clair entré dans une cellule. 'Clé: Suite de caractères quelconques entrés dans une autre cellule. 'Il est inutile que Clé contienne plus de caractères que Texte. 'On peut aussi, par exemple, entrer: '=coder("Bonjour à tous.";"?kp*!6") reste = Len(Texte) Mod Len(Clé) ne = Fix(Len(Texte) / Len(Clé)) For i = 1 To ne cache = cache & Clé Next i cache = cache & Left(Clé, reste) For i = 1 To Len(Texte) x = Asc(Mid(Texte, i, 1)) + Asc(Mid(cache, i, 1)) m = x Mod 255 If m = 0 Then m = 255 y = Chr(m) L1 = L1 & y Next i coder = L1 End Function
Function décoder(Texte, Clé) 'Cette fonction permet de décoder le message obtenu ci-haut. 'Texte: Le message codé obtenu par la fonction «coder» 'Clé: Clé utilisée pour coder le message. reste = Len(Texte) Mod Len(Clé) ne = Fix(Len(Texte) / Len(Clé)) For i = 1 To ne cache = cache & Clé Next i cache = cache & Left(Clé, reste) For i = 1 To Len(Texte) x = Asc(Mid(Texte, i, 1)) - Asc(Mid(cache, i, 1)) m = (x + 255) Mod 255 If m = 0 Then m = 255 y = Chr(m) L1 = L1 & y Next i décoder = L1 End Function
Message codé : <"'-
Bonjour Isabelle,
Voici une technique de codage :
Function coder(Texte, Clé)
'Cette fonction permet de coder «Texte».
'Texte: Texte en clair entré dans une cellule.
'Clé: Suite de caractères quelconques entrés dans une autre cellule.
'Il est inutile que Clé contienne plus de caractères que Texte.
'On peut aussi, par exemple, entrer:
'=coder("Bonjour à tous.";"?kp*!6")
reste = Len(Texte) Mod Len(Clé)
ne = Fix(Len(Texte) / Len(Clé))
For i = 1 To ne
cache = cache & Clé
Next i
cache = cache & Left(Clé, reste)
For i = 1 To Len(Texte)
x = Asc(Mid(Texte, i, 1)) + Asc(Mid(cache, i, 1))
m = x Mod 255
If m = 0 Then m = 255
y = Chr(m)
L1 = L1 & y
Next i
coder = L1
End Function
Function décoder(Texte, Clé)
'Cette fonction permet de décoder le message obtenu ci-haut.
'Texte: Le message codé obtenu par la fonction «coder»
'Clé: Clé utilisée pour coder le message.
reste = Len(Texte) Mod Len(Clé)
ne = Fix(Len(Texte) / Len(Clé))
For i = 1 To ne
cache = cache & Clé
Next i
cache = cache & Left(Clé, reste)
For i = 1 To Len(Texte)
x = Asc(Mid(Texte, i, 1)) - Asc(Mid(cache, i, 1))
m = (x + 255) Mod 255
If m = 0 Then m = 255
y = Chr(m)
L1 = L1 & y
Next i
décoder = L1
End Function
Function coder(Texte, Clé) 'Cette fonction permet de coder «Texte». 'Texte: Texte en clair entré dans une cellule. 'Clé: Suite de caractères quelconques entrés dans une autre cellule. 'Il est inutile que Clé contienne plus de caractères que Texte. 'On peut aussi, par exemple, entrer: '=coder("Bonjour à tous.";"?kp*!6") reste = Len(Texte) Mod Len(Clé) ne = Fix(Len(Texte) / Len(Clé)) For i = 1 To ne cache = cache & Clé Next i cache = cache & Left(Clé, reste) For i = 1 To Len(Texte) x = Asc(Mid(Texte, i, 1)) + Asc(Mid(cache, i, 1)) m = x Mod 255 If m = 0 Then m = 255 y = Chr(m) L1 = L1 & y Next i coder = L1 End Function
Function décoder(Texte, Clé) 'Cette fonction permet de décoder le message obtenu ci-haut. 'Texte: Le message codé obtenu par la fonction «coder» 'Clé: Clé utilisée pour coder le message. reste = Len(Texte) Mod Len(Clé) ne = Fix(Len(Texte) / Len(Clé)) For i = 1 To ne cache = cache & Clé Next i cache = cache & Left(Clé, reste) For i = 1 To Len(Texte) x = Asc(Mid(Texte, i, 1)) - Asc(Mid(cache, i, 1)) m = (x + 255) Mod 255 If m = 0 Then m = 255 y = Chr(m) L1 = L1 & y Next i décoder = L1 End Function
