4 курс / ЗащИнф / лаб-р-защ-1 / trans.pas

program TRANS; { программа шифрования с помощью перестановки }
uses WinCrt,Windos;
var
i,j,k,m:integer;
f1,f2:file;
numf1,numf2:string;
nr,nw:word;
buf1,buf2:array[1..2048]of char;

const
kluch:array[1..9] of integer=(4,6,3,7,1,8,5,2,9);
{ ключ - набор неповторяющихся чисел от 1 до 9 }
begin

{$I-}
writeln(' программа шифрования файла с помощью перестановок ');
writeln('введите имя шифруемого файла (полный путь) ');
readln(numf1);
assign(f1,numf1);
reset(f1,1);
writeln('файл открыт');

writeln('введите имя зашифрованного файла');
readln(numf2);
assign(f2,numf2);
rewrite(f2,1);
writeln('введите ключ – строку из девяти неповторяющихся цифр от 1 до 9');
for i:=1 to 9 do kluch[i]:=(ord(readkey)-48)mod 10;
writeln;writeln('ваш ключ ');
for i:=1 to 9 do write(kluch[i],' ');
writeln;

repeat
blockread(f1,buf1,sizeof(buf1),nr);

for i:=1 to nr div 9 do
begin
for j:=1 to 9 do
begin
k:=9*(i-1)+j;
m:=9*(i-1)+kluch[j];
buf2[k]:=buf1[m];
end;
end;


blockwrite(f2,buf2,nr,nw);
until (nr=0) or (nw<>nr);

close(f1);
close(f2);

writeln('файл зашифрован  ') ;
{$I+}
end.