Курсовая работа: Разработка программы, реализующей алгоритм шифрования ГОСТ 28147-89

for i := 0 to nb do begin

GOST_EncryptBlock(b1);

ABlock[i][0] := ABlock[i][0] XOR b1[0];

ABlock[i][1] := ABlock[i][1] XOR b1[1];

b1 := ABlock[i]

end;

BlockWrite(fout, ABlock, lb)

until lb<>1024;

CloseFile(fout);

CloseFile(fin)

end;

procedure GOST_GammaBDe

(FileIn, FileOut: String);

var

i, nb: SmallInt;

lb: Integer;

fin, fout: File;

begin

AssignFile(fin, FileIn);

AssignFile(fout, FileOut);

Rewrite(fout, 1);

FileMode := 0;

Reset(fin, 1);

BlockRead(fin, GSeed, 8);

b1 := GSeed;

repeat

BlockRead(fin, ABlock, 1024, lb);

nb := (lb - 1) div 8;

for i := 0 to nb do begin