криптография

[007]

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

[PAV]

А в чем вопрос собственно?

[007]

нужно переделать эту программу что бы она работала с целым текстом, а не с до 255 символами.


program 1;
type
str100 = string[100];
str80 = string[80];
var
inf, outf:str80;
sky: str100;
t: integer;
ch: char;
procedure code(inf, outf: str80);
var
infile, outfile: file of char;
ch: char;
t, t2: integer;

begin
assign(infile, inf);
reset(infile);
assign(outfile, outf);
rewrite(outfile);
t := 1;
while (not eof(infile)) and (t<=100) do
begin
Read(infile, sky[t]);
t := t+1;
end;

for t := 1 to 5 do
for t2 := 0 to 19 do
Write(outfile, sky[t+(t2*5)]);
WriteLn('файл закодирован');
close(infile);
close(outfile);
end; {code}

procedure decode(inf, outf: str80);
var
infile, outfile: file of char;
ch: char;
t, t2: integer;

begin
assign(infile, inf);
reset(infile);
assign(outfile, outf);
rewrite(outfile);

for t := 1 to 5 do
for t2 := 0 to 19 do
Read(infile, sky[t+(t2*5)]);

for t := 1 to 100 do Write(outfile, sky[t]);

WriteLn('файл декодирован');
close(infile);
close(outfile);
end;

begin
for t := 1 to 100 do sky[t] := '#';
Write('введите имя входного файла: ');
ReadLn(inf);
Write('введите имя выходного файла: ');
ReadLn(outf);
Write('кодировать или декодировать (C or D): ');
ReadLn(ch);
if upcase(ch)='C' then code(inf, outf)
else if upcase(ch)='D' then decode(inf, outf);
end.

[нг]

Почему бы Вам не воспользоваться кнопкой Code (или тегом [cоde]) и не исправить своё сообщение, приведя программу в удобочитаемый вид (например, приведя в порядок отступы)?