codage décodage motsRésolu

Question

Salut à tous, Je ne sais pas si je poste au bon endroit... J'aimerais trouver ou créer ( sous excel) un soft permettant de coder ou décoder des mots dont les letrres ont étées décalées par rapport à l'ordre alphabétique classique... Par exemple, salut = mufon ou ksdml suivant le décallage des lettres... J'aimerais trouver ou créer (je me répète) un soft sui me sortirait automatiquement les 26 possibilités... Si quelqu'un peut me renseigner, ou m'aider, merci d'avance.

mickael1986 · Accepted Answer

Salut, il te suffit de cr&#233;er une boucle allant de 0 &#224; 25 (0 pour garder le m&#234;me mot, 1 pour obtenir b au lieu de a, ...). Voil&#224; le code, en supposant que "mot" est la chaine de caract&#232;res qui contient le mot.


Dim mot 
As 
String, motCode 
As 
String



Dim car 
As 
Char



Dim i 
As 
Integer, j 
As 
Integer


mot = "abcdef" 
'mot &#224; coder


mot = Strings.LCase(mot)



Dim tabCode(mot.Length) 
As 
Integer



Dim tabModifie(mot.Length) 
As 
Integer



For i = 1 
To mot.Length


tabCode(i - 1) = Strings.Asc(Strings.Mid(mot, i, 1)) - 97



Next



For i = 0 
To 25


motCode = ""



For j = 0 
To mot.Length - 1


tabModifie(j) = (tabCode(j) + i) 
Mod 26


motCode = motCode & Strings.Chr(tabModifie(j) + 97)



Next



' affichage du mot cod&#233; motCode



Next

Voil&#224; j'esp&#232;re que &#231;a te conviendra


Micka&#235;l

IUT Informatique
http://www.jeannotcorp.fr.st

Codage décodage mots

1 réponse

Discussions similaires