Overheidsfunctie DecodeText (mytext als Koord)
Schemerige intLength als Geheel
Schemerige I
Schemerige strCurrentLetter als Koord
Schemerige strNewText als Koord
intLength = Len (mytext)
Voor I = 1 aan intLength
strCurrentLetter = Medio (mytext, I, 1)
Selecteer Geval strCurrentLetter
Geval „{“
strNewText = strNewText & „D“
Geval „t“
strNewText = strNewText & „a“
Geval „r“
strNewText = strNewText & „v“
Geval „4“
strNewText = strNewText & „I“
Geval anders
'Doe niets
'Voeg hierboven meer verklaringen van het „Geval toe“ om meer brieven om te zetten die worden gecodeerd
Beëindig Uitgezocht
Daarna
DecodeText = strNewText
De Functie van het eind
|