[Scooby_Do]

Вопрос: а как получить текст из memo? То есть у меня текст перётся из Edit:

PHP код:

S:= Copy(Edit1.Text, n, 2); 


а мне надо что бы текст прался из Memo2! Memo1.Lines не работает(

[angvelem]

В твоём случае Memo1.Lines[0]
Расширил тебе таблицу символов, на все стандартные символы. Также расширил таблицу подмены.
Но всё-таки это очень простой пример и ломается на раз. Возможно использование как обучающий пример, не более.

[Scooby_Do]

а что значит ломается на раз?? Я просто недавно в delphi, хотя в скриптах 2 года))

[angvelem]

Достаточно проследить повторяемость символов в достаточно большом тексте и расшифровать труда не составит.

[Scooby_Do]

аа, это да. Мы это с друзьями придумали уже очень давно на уроке хДД что бы ни кто другой, кроме нас не смог прочесть это, в том числе и учитель)) а программу сделал для того, что бы дома не париться с этим. Я и на java такую сделал)) хДД