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

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

goto err

end

end else if n = 2 then begin

s0 := ParamStr(1);

s1 := ParamStr(2);

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

encr := True;

s2 := s1 + '.gst';

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

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

goto err

end

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