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

program GAMMA; {программа гаммирования }
uses WinCrt;

var
i,j,k:integer;
f1,f2:file;
numf1,numf2:string;
nr,nw:word;
buf1,buf2:array[1..2048]of shortint;
bf:char;
G,C,A:integer;


function DAT:integer;
begin
G:=(G*A+C) mod 65535;
DAT:=G;
end;

begin

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

assign(f2,numf2);
rewrite(f2,1);
writeln('введите A,C и G(0) (числа до 65535)');
readln(A,C,G);
repeat
blockread(f1,buf1,sizeof(buf1),nr);


for i:=1 to nr do
buf2[i]:=buf1[i] xor DAT;

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

close(f1);
close(f2);
writeln(' файл зашифрован(расшифрован) ');

end.