Crytage chaine en vb

Résolu/Fermé
titou123 Messages postés 70 Date d'inscription mercredi 20 octobre 2010 Statut Membre Dernière intervention 21 octobre 2011 - 21 oct. 2010 à 09:16
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 21 oct. 2010 à 10:12
Bonjour tout le monde,je suis nouveau en vb.j'ai un exercice mais je trouve pas la solution:
" IL FERA BEAU DEMAIN " Cryptage
ASC("F")=70
Long("FERA")=4
CHR(70+4)="J"
" KN JIVE FIEY JKSGOT
Le caractère "F"
sera remplacé par "J"et merci d'avance
l'exercice consiste:
Le cryptage traite chaque bloc de caractères séparément selon son longueur et laisse
invariant les blocs d'espaces : on ajoute à chaque code "Unicode" d'un caractère le nombre
de caractères du bloc qui le contient.


A voir également:

2 réponses

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
21 oct. 2010 à 09:38
Bonjour,

La réponse ici

;o)
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
21 oct. 2010 à 10:12
Bonjour,
Suffit de réfléchir un tout petit peu...
ASC("F")=70 .. là tu l'a déjà.

Comment trouver le 4 .. Voir la fonction Len()
Long("FERA")=4 .. comment trouver F dans FERA.. Voir fonction Mid()

CHR(70+4)="J"

Parcourir chaque chaine tu a la réponse dans ton poste précédant.
Reste juste.. comment avoir chaque mots séparer... voir la fonction SPLIT()

et si ont récapitule
1°) Spliter la variable du texte initial
2°) Parcourir chaque mot séparémént, ajouter sa longeur à chaque lettre
3°) Rassembler chaque mots en les séparant par un espace..

Aller.. courrage.
A+
0