4 курс / ЗащИнф / лаб-р-защ-2 / vigin

program VIGIN; {программа шифрования по вижинеру}
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;
bf:char;
kluch:array[1..10] of char;
begin

{$I-}
writeln(' программа шифрования файла по вижинеру ');
writeln('введите имя шифруемого файла ');
readln(numf1);

assign(f1,numf1); readln;
reset(f1,1);
writeln('файл открыт');
writeln('введите имя зашифрованного файла');
readln(numf2);
assign(f2,numf2); readln;
rewrite(f2,1);


writeln('введите ключ – строку из десяти символов');
for i:=1 to 10 do kluch[i]:=readkey;
writeln;writeln('ваш ключ ');
for i:=1 to 10 do write(kluch[i]);
writeln;


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

for i:=1 to nr div 10 do
begin
for j:=1 to 10 do
begin
k:=10*(i-1)+j;
m:=(ord(buf1[k])+ord(kluch[j])) mod 256;
buf2[k]:=chr(m);

end;
end;


blockwrite(f2,buf2,nr,nw);

until (nr=0) or (nw<>nr);

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