Allgemeine Funktion DecodeText (mytext als Schnur)
Schwaches intLength als ganze Zahl
I verdunkeln
strCurrentLetter als Schnur verdunkeln
strNewText als Schnur verdunkeln
intLength = Len (mytext)
Für i = 1 zum intLength
strCurrentLetter = mittler (mytext, i, 1)
Fall strCurrentLetter vorwählen
Umkleiden „{“
strNewText = strNewText u. „D“
Fall „t“
strNewText = strNewText u. „a“
Fall „r“
strNewText = strNewText u. „v“
Fall „4“
strNewText = strNewText u. „ich“
Fall sonst
'Nichts tun
'Mehr „Fall“ Aussagen oben addieren, um mehr Buchstaben umzuwandeln, die verschlüsselt
Auserwähltes beenden
Zunächst
DecodeText = strNewText
Enden-Funktion
|