Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:4 курс / ЗащИнф / лаб-р-защ-4 / gamma
.pasprogram 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.
Соседние файлы в папке лаб-р-защ-4