Общественная функция DecodeText (mytext как шнур)
Тусклое intLength как интежер
Затемните I
Затемните strCurrentLetter как шнур
Затемните strNewText как шнур
intLength = Len (mytext)
Для I = 1 к intLength
strCurrentLetter = средний (mytext, I, 1)
Выберите strCurrentLetter случая
Покрывайте «{»
strNewText = strNewText & «d»
Случай «t»
strNewText = strNewText & «a»
Случай «r»
strNewText = strNewText & «v»
Случай «4»
strNewText = strNewText & «я»
Случай еще
'Не сделайте ничего
'Добавьте больше заявлений «случая» выше для того чтобы преобразовать больше пем зашифрованы
Закончите отборное
Затем
DecodeText = strNewText
Функция конца
|