Qbasic, шифрование

[Лицеистка]

Написали и сдали программу шифрования "из буковок в циферки". Помогите, пжлста, написать "из циферок в буковки" на основе той программы!

Вот "из буковок в циферки":
cls
kl$="йцукенгшщзхъфывапро...(символы даллее, буквы и знаки препинания)..."
DIM a$(LEN(kl$)+100)
FOR i=1 to len (kl$)
a$ (i+99)=MID(kl$, i, 1)
PRINT a$(i+99); i+99; "";
NEXT
PRINT
INPUT n$
For j=1 to len (n$)
k$=MID$(n$, j, 1)
For i=100 to (LEN(kl$)+100)
IF a$(i)=k$ then f$=f$+MID$(STR$(i),2,3)
NEXT
NEXT
PRINT f$

А как теперь наоборот? Последний срок - 23 число, потому что 25 уже сдача, а еще нужно время, чтобы программку выучить и уметь рассказать, о чём она.
Буду очень благодарна, если еще и с объяснениями всё будет. Если есть вопросы, касающиеся программы первой, стучите в асю: 259708102

[Plague]

Ваш переделанный алгоритм шифрования
без всяких массивов

kl$ = "qwertyuiopasdfghjklzxcvbnm1234567890-=[];',./"
INPUT n$
f$ = ""
FOR i = 1 TO LEN(n$)
FOR j = 1 TO LEN(kl$)
a1$ = MID$(n$, i, 1)
a2$ = MID$(kl$, j, 1)
IF a1$ = a2$ THEN f$ = f$ + LTRIM$(STR$(j + 99))
NEXT j
NEXT i
PRINT f$

Алгоритм дешифрации тоже как не странно без массивов

s$ = ""
i = 1
DO
a = VAL(MID$(f$, i, 3)) - 99
s$ = s$ + MID$(kl$, a, 1)
i = i + 3
LOOP UNTIL i > LEN(f$)
PRINT s$

[Лицеистка]

СПАСИБО!
Извините, я ничего в этом не понимаю, и, возможно, вопрос покажется глупым, не смейтесь))
Мне нужно, чтобы было так:
вверху отображаются все буковки, которые можно шифровать, каждая под своим собственным номерком. Чтобы потом, когда зашифруешь, можно было бы проверить соответствие буковок и циферок (информатик потом проверяет, напортачили или нет).
Мне нравится программка, которую вы сделали, Plague. Она поменьше, поэтому мне кажется попроще... Пожалуйста! Если можно, сделайте буковки! Красиво как-нибудь, ровненькими столбиками?
Очень-очень буду благодарна!

[Plague]

CLS
kl$ = "qwertyuiopasdfghjklzxcvbnm1234567890-=[];',./"
FOR i = 1 TO LEN(kl$)
PRINT MID$(kl$, i, 1); i + 99,
NEXT

Так устроит?

[Лицеистка]

Спасибо! Столбики очень красивые, только вот программка дешифрации не запускается, пишет, что s$ = s$ + MID$(kl$, a, 1) - неверный выззов функции.

[Plague]

kl$, то кто будет указывать в начале программы.
как я понял это ключ к дешифрации

kl$ = "qwertyuiopasdfghjklzxcvbnm1234567890-=[];',./"  
s$ = ""
i = 1
DO
a = VAL(MID$(f$, i, 3)) - 99
s$ = s$ + MID$(kl$, a, 1)
i = i + 3
LOOP UNTIL i > LEN(f$)
PRINT s$

[Лицеистка]

Я все указала... Не выходит и все тут...

[Лицеистка]

Блин... Какие-нибудь еще есть варианты? Программка plaque не работает. Через программку plaquе только из уже зашифрованного снизу выводится слово. Может быть, задумано им было не так, но по-другому программа не работает.
Нужно теперь чтобы я вводила, например, "100" и получала букву "q"!

[Plague]

Ну надо просто добавить

INPUT f$

тогда заработает

[Лицеистка]

ОГРОМНОЕ СПАСИБО!