Предыдущая страница реферата | 7  8  9  10  11  12  13  14  15  16  17 | Следующая страница реферата

b2 := GSeed;

for i := 0 to 127 do ABlock[i] := GSeed;

for i := 0 to 7 do GOST_Key[i] := 0;

for i := 0 to 3 do for j := 0 to 255 do GOST_TZam256[i][j] := 0;

end;

label err;

var

s1, s2: String[255];

s0: String[1];

ext: String[4];

n: Integer;

GS: TGOST_Block;

encr: Boolean;

i: Integer;

begin

n := ParamCount;

if n = 3 then begin

s0 := ParamStr(1);

s1 := ParamStr(2);

s2 := ParamStr(3);

if UpCase(s0[1]) = 'E' then begin

encr := True

end else if UpCase(s0[1]) = 'D' then begin

encr := False

end else begin

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





Предыдущая страница реферата | 7  8  9  10  11  12  13  14  15  16  17 | Следующая страница реферата