#41 asn1util IdToMib RangeCheckError

[r3code]

https://sourceforge.net/p/synalist/code/HEAD/tree/trunk/asn1util.pas#l415
function IdToMib raises RangeCheckError in call to ASNDecOIDItem.

Proposed fix:

function IdToMib(const Id: AnsiString): String;
var
  x, y, n: Integer;
begin
  Result := '';
  n := 1;
  while Length(Id) + 1 > n do
  begin
    {$RANGECHECKS OFF}
    x := ASNDecOIDItem(n, Id);
    {$RANGECHECKS ON}
    if (n - 1) = 1 then
    begin
      y := x div 40;
      x := x mod 40;
      Result := IntToStr(y);
    end;
    Result := Result + '.' + IntToStr(x);
  end;
end;

[Geby]

Fixed, thanks.