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

xlat

rol eax, 3

xor eax, edx

mov edx, edi

sub esi, 4

loop L2

mov ebx, blk

mov [ebx], edx

mov [ebx+4], eax

pop edi

pop esi

pop ebx

end;

procedure GOST_GammaBEn

(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);

BlockWrite(fout, GSeed, 8);

b1 := GSeed;

repeat

BlockRead(fin, ABlock, 1024, lb);