SUBSTITUTION POLYALPHABÉTIQUE (VIGENERE)

Signaler
Messages postés
47
Date d'inscription
mercredi 21 novembre 2001
Statut
Membre
Dernière intervention
2 avril 2007
-
Messages postés
24
Date d'inscription
dimanche 15 juin 2003
Statut
Membre
Dernière intervention
27 mars 2005
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/2382-substitution-polyalphabetique-vigenere

Messages postés
24
Date d'inscription
dimanche 15 juin 2003
Statut
Membre
Dernière intervention
27 mars 2005

C'est quoi tous ces If !!!!
Messages postés
18
Date d'inscription
jeudi 19 juillet 2001
Statut
Membre
Dernière intervention
26 janvier 2002

merci, oui je sais, on pourrait faire plus simple, plus efficase et plus cours, ms c'est juste un exemple :]
Messages postés
47
Date d'inscription
mercredi 21 novembre 2001
Statut
Membre
Dernière intervention
2 avril 2007

Tu peux simplifier tes tests en faisant ceci :

x=asc(Mid$(Text1, i, 1))
if x>64 and x<91 then xx=x-64
if x>96 and x<123 then xx=x-95

xxx = asc(Mid$(Text3, i, 1))
if xxx>64 and xxx<91 then xxxx=xxx-64
if xxx>96 and xxx<123 then xxxx=xxx-95

puis pour y : yy=chr(64+y)
Messages postés
104
Date d'inscription
lundi 17 décembre 2001
Statut
Membre
Dernière intervention
12 février 2007

Bien, mais quelle est la protection effective?
(réponds à tt123it@yahoo.fr)
TTMan
Messages postés
47
Date d'inscription
mercredi 21 novembre 2001
Statut
Membre
Dernière intervention
2 avril 2007

J'aime beaucoup ta méthode de cryptage. Mais il y a encore un moyen de l'améliorer : si tu places plus d'une clef pour coder ton message, celui-ci deviendra totalement inviolable.