Algo
capit10
-
berislava-26 -
berislava-26 -
on veut coder un algo de cryptage très simple on choisit un décalage (par exemple de 5) et un "a" sera remplacé
par un "f", un "b" par un "g" un "c" par "h" etc.
on ne cryptera que les lettres majuscules et minuscules sont touchées ni à la ponctuation ni à la mise en
page(caractère blanc) on supposera que les codes des lettres se suivant "a" à "z" et de "A"à"Z"
TAF
1° déclarer un tableau de caractère initialiser avec le message en clavier
2° écrire la procédure cript de cryptage d'un caractère qui sera passé par l'adresse
3°écrire le main qui activera crypteur l'ensemble de message et affichera le résultat
par un "f", un "b" par un "g" un "c" par "h" etc.
on ne cryptera que les lettres majuscules et minuscules sont touchées ni à la ponctuation ni à la mise en
page(caractère blanc) on supposera que les codes des lettres se suivant "a" à "z" et de "A"à"Z"
TAF
1° déclarer un tableau de caractère initialiser avec le message en clavier
2° écrire la procédure cript de cryptage d'un caractère qui sera passé par l'adresse
3°écrire le main qui activera crypteur l'ensemble de message et affichera le résultat
2 réponses
bonjour,
1- assez facille
2- voici une suggestion
public sub(c en caractère)
Variable Bla, Cod, Alpha en Caractère
Variables i, Pos, Décal en Entier
Début
Ecrire "Entrez le décalage à appliquer : "
Lire Décal
Ecrire "Entrez la phrase à coder : "
Lire Bla
Alpha ← "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Cod ← ""
Pour i ← 1 à Len(Bla)
Let ← Mid(Bla, i, 1)
Pos ← Trouve(Alpha, Let)
NouvPos ← Mod(Pos + Décal, 26)
Si NouvPos = 0 Alors
NouvPos ← 26
FinSi
Cod ← Cod & Mid(Alpha, NouvPos, 1)
i Suivant
Bla ← Cod
Ecrire "La phrase codée est : ", Bla
Fin
1- assez facille
2- voici une suggestion
public sub(c en caractère)
Variable Bla, Cod, Alpha en Caractère
Variables i, Pos, Décal en Entier
Début
Ecrire "Entrez le décalage à appliquer : "
Lire Décal
Ecrire "Entrez la phrase à coder : "
Lire Bla
Alpha ← "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Cod ← ""
Pour i ← 1 à Len(Bla)
Let ← Mid(Bla, i, 1)
Pos ← Trouve(Alpha, Let)
NouvPos ← Mod(Pos + Décal, 26)
Si NouvPos = 0 Alors
NouvPos ← 26
FinSi
Cod ← Cod & Mid(Alpha, NouvPos, 1)
i Suivant
Bla ← Cod
Ecrire "La phrase codée est : ", Bla
Fin