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

b1, b2: TGOST_Block;

procedure GOST_SetSeed(const GS: TGOST_Block);

begin

GSeed := GS

end;

procedure GOST_EncryptBlock(var GBlock: TGOST_Block); assembler;

var

blk: Pointer;

i: LongInt;

label

L, L1, L2;

asm

push ebx

push esi

push edi

mov ebx, GBlock

mov blk, ebx

mov eax, [ebx]

mov edx, [ebx+4]

mov i, 3

L:

mov ecx, 8

lea esi, GOST_Key

L1:

mov edi, eax

add eax, [esi]

lea ebx, GOST_TZam256

xlat

ror eax, 8