Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата

Приложение

type

TGOST_Block = array [0..1] of LongWord;

TGOST_Key = array [0..7] of LongWord;

TGOST_TZam256 = array [0..3, 0..255] of Byte;

var

GOST_Key: TGOST_Key =

{Ссылка на key.inc }

GOST_TZam256: TGOST_TZam256 =

{ Ссылка на table.inc }

var

GSeed: TGOST_Block = (0, 0);

ABlock: array [0..127] of TGOST_Block;

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

Рекомендуем скачать другие рефераты по теме: сеть рефератов, написать сообщение.



Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки