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

goto err

end

end else if n = 1 then begin

s1 := ParamStr(1);

ext := copy(s1, Length(s1) - 3, 4);

for i := 1 to Length(ext) do ext[i] := UpCase(ext[i]);

if ext = '.GST' then begin

encr := False;

s2 := copy(s1, 1, length(s1) - 4)

end else begin

encr := True;

s2 := s1 + '.gst'

end

end else begin

goto err

end;

if encr then begin

Randomize;

GS[0] := (Random($10000) SHL 16) + Random($10000);

GS[1] := (Random($10000) SHL 16) + Random($10000);

GOST_EncryptBlock(GS);

GOST_SetSeed(GS);

GOST_GammaBEn(s1, s2)

end else begin

GOST_GammaBDe(s1, s2)

end;

Burn;

exit;

err: