Ответ: ШИфровка
TEMNED
if getchar(str,i)='$' then encode:=encode+'Я'
str cчитаная строка из файла
і позиция символа в строке str
'$' твой закодированый символ
encode строка которая содержыт розкодированые символы
'Я' это твой закодированый символ '$'
и так для каждой твоей закодированой буквы
или используй массивы в котором храни адреса закодированых символов в и розкодированых...
Crypt,Encrypt:array[1..количество символов в твоей кодировке] of char;
массивы задавай вручную или читай из файла
это один из примитивных способов)
|