module Base32

# File lib/dnsruby/resource/NSEC3.rb, line 33
def decode32hex(str)
  str.gsub(/\G\s*(#{HEX}{8}|#{HEX}{7}=|#{HEX}{5}={3}|#{HEX}{4}={4}|#{HEX}{2}={6}|(\S))/imno) do
    raise 'invalid base32' if $2
    s = $1
    s.tr('=', '0').to_i(32).divmod(256).pack('NC')[0,
      (s.count('^=') * 5).div(8)]
  end
end

# File lib/dnsruby/resource/NSEC3.rb, line 19
def encode32hex(str)
  str.gsub(/\G(.{5})|(.{1,4}\z)/mn) do
    full = $1; frag = $2
    n, c = (full || frag.ljust(5, "\0")).unpack('NC')
    full = ((n << 8) | c).to_s(32).rjust(8, '0')
    if frag
      full[0, (frag.length * 8 + 4).div(5)].ljust(8, '=').upcase
    else
      full.upcase
    end
  end
end