Beuh ? C´était un simple code par décalage de caractère !
Exemple le A donne C
B donne D
....
Donc on prend C, et on voit ce que çà donen (E)
D´où ce petit algorythme conçu en une minute :
Private Sub Command1_Click()
For x = 1 To Len(Text1.Text)
a = Asc(Mid$(Text1.Text, x, 1)) + 20
b = a Mod 26
Text2.Text = Text2.Text & Chr$(b + 65)
Next
End Sub
(text1.text : lettres a decoder
text2.text : résultat)
Rien de bien sorcier, utilisation d´un modulo 26 (nbre de lettres) accompagné de la table des codes ASCII, décalage de 20 et utilsiation d´un Mid$ pour prendre lettre par lettre et le tour est joué
Cela étant, c´est pas le décryptage en lui même qui est intéressant, mais plutôt le message décrypté
Non, en fait, c´était pas le message décrypté qui était intéressant 