module Base32

# File lib/Dnsruby/resource/NSEC3.rb, line 33
def decode32hex(str)
  str.gsub(%r\G\s*(#{HEX}{8}|#{HEX}{7}=|#{HEX}{5}={3}|#{HEX}{4}={4}|#{HEX}{2}={6}|(\S))/mno) 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(%r\G(.{5})|(.{1,4}\z)/n) do
    full = $1; frag = $2
    n, c = (full || frag.ljust(5, "\00"")).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