Курсовая работа: Разработка программы, реализующей алгоритм шифрования ГОСТ 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