программы для шифрования текста

Ответ от Nds[гуру]
сделай массив символов
и расшифровывай в цикле
for i:=1 to length(edit1.text) do
edit2.text:=edit2.text+a[edit1.text<i>];</i>
nds
(15148)
от собака
a[edit1.text[iвыбросить]выбросить];