SUBSTITUTION POLYALPHABÉTIQUE (VIGENERE)
cs_Cyrus
Messages postés
47
Date d'inscription
mercredi 21 novembre 2001
Statut
Membre
Dernière intervention
2 avril 2007
-
9 janv. 2002 à 13:30
djicfr Messages postés 24 Date d'inscription dimanche 15 juin 2003 Statut Membre Dernière intervention 27 mars 2005 - 7 avril 2004 à 19:41
djicfr Messages postés 24 Date d'inscription dimanche 15 juin 2003 Statut Membre Dernière intervention 27 mars 2005 - 7 avril 2004 à 19:41
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
https://codes-sources.commentcamarche.net/source/2382-substitution-polyalphabetique-vigenere
7 avril 2004 à 19:41
11 janv. 2002 à 22:45
9 janv. 2002 à 13:41
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)
9 janv. 2002 à 13:30
(réponds à tt123it@yahoo.fr)
TTMan
9 janv. 2002 à 13:30