зашифровка\расшифровка текста, помогите плиз Опции

[макъ]

Парни и девчонки если не трудно помогите плиз в решении следующей задачи...очень надо:

Выбрать некоторую таблицу, разработать способ ее представления, а затем необходимо:
а) зашифровать текст
б) расшифровать текст
Замена символа оформляется в виде функции. Исходный текст берется из файла данных, а результат(зашифрованный текст, расшифрованный текст) помещается в файл результата

Заранее всем благодарен. Вот мое мыло: <...>

Сообщение отредактировано: volvo - 12.05.2006 14:17

[макъ]

ну что, мне кто-нибудь сможет помочь?

[Malice]

алгоритм такой:

Код

type pr=array[char] of char;
var cd,dcd: pr;  {таблички перестановок}

{создаешь функцию перевода:}
function perevod (s:string; tb:pr):string;
var i:integer;
begin
for i:=1 to length(s) do s[i]:=tb[s[i]];
perevod:=s;
end;

{.. читаешь числа из файла с таблицей в x,y и заполняешь таблицы перестановок:}
cd[x]:=y; dcd[y]:=x;
{...
Вызываешь для кодирования: }
s:=perevod (s,cd);
{и декодирования:}
s:=perevod (s,dcd);