Fonction publique DecodeText (mytext comme corde)
Faible intLength comme nombre entier
Obscurcir I
Obscurcir le strCurrentLetter comme corde
Obscurcir le strNewText comme corde
intLength = Len (mytext)
Pour I = 1 à l'intLength
strCurrentLetter = mi (mytext, I, 1)
Choisir le strCurrentLetter de cas
Enfermer « { »
strNewText = strNewText et « D »
Cas « t »
strNewText = strNewText et « a »
Cas « r »
strNewText = strNewText et « v »
Cas « 4 »
strNewText = strNewText et « moi »
Cas autrement
'Ne faire rien
'Ajouter plus de rapports de « cas » ci-dessus pour convertir plus de lettres qui sont codées
Finir choisi
Après
DecodeText = strNewText
Fonction de fin
|