$text = c("edit1")->text;
$text = str_replace('1', 'а', $text);
$text = str_replace('2', 'у', $text);
$text = str_replace('3', 'п', $text);
$text = str_replace('4', 'н', $text);
$text = str_replace('5', 'к', $text);
$text = str_replace('6', 'с', $text);
c("edit1")->text = $text; дешифратор-6 цифр $text = c("edit2")->text;
$text = str_replace('а', '1', $text);
$text = str_replace('у', '2', $text);
$text = str_replace('п', '3', $text);
$text = str_replace('н', '4', $text);
$text = str_replace('к', '5', $text);
$text = str_replace('с', '6', $text);
c("edit2")->text = $text; с диалогом выбора файла $file1 = c("openDlg1")->execute();
$file = c("openDlg1")->fileName;
$tst = file_get_contents("$file");
c("edit2")->text = $tst;

$text = c("edit1")->text; //cюда пишешь что хочешь зашифровать
$str = str_replace('1', 'а', $text); //Ищет в тексте 1 и заменит на "а"
c("edit1")->text  = $str; //Выводим результат

c("Memo2")->Text = Base64_EnCode( c("Memo1")->Text );

c("Memo2")->text = Base64_DeCode( c("Memo2")->Text );

function transliterate_text($tt)
{
$tt = strtr($tt, array('а'=>'a','А'=>'A','б'=>'b','Б'=>'B',
'в'=>'v','В'=>'V','г'=>'g','Г'=>'G','д'=>'d','Д'=>'D',
'е'=>'e','Е'=>'E','ё'=>'e','Ё'=>'E','ж'=>'zh','Ж'=>'ZH',
'з'=>'z','З'=>'Z','и'=>'i','И'=>'I','й'=>'y','Й'=>'Y',
'к'=>'k','К'=>'K','л'=>'l','Л'=>'L','м'=>'m','М'=>'M',
'н'=>'n','Н'=>'N','о'=>'o','О'=>'O','п'=>'p','П'=>'P',
'р'=>'r','Р'=>'R','с'=>'s','С'=>'S','т'=>'t','Т'=>'T',
'у'=>'u','У'=>'U','ф'=>'f','Ф'=>'F','х'=>'h','Х'=>'H',
'ц'=>'ts','Ц'=>'TS','ч'=>'ch','Ч'=>'CH','ш'=>'sh',
'Ш'=>'SH','щ'=>'shch','Щ'=>'SHCH','ъ'=>'','Ъ'=>'','ы'=>'i',
'Ы'=>'I','ь'=>''','Ь'=>''','э'=>'e','Э'=>'E','ю'=>'yu',
'Ю'=>'YU','я'=>'ya','Я'=>'YA'));
return $tt;
}
$line = 'Привет, мир!';
echo transliterate_text($line);

c("Memo2")->Text = Base64_EnCode( c("Memo1")->Text );