pNet-DNS 0.0.1

data/lib/Net/DNS/RR/A.rb

@@ -0,0 +1,103 @@
+# The contents of this file are subject to the Mozilla
+# Public Licence Version 1.1 (the "Licence"); you may
+# not use this file except in compliance with the
+# Licence. You may obtain a copy of the Licence at
+# http://www.mozilla.org/MPL
+# Software distributed under the Licence is distributed
+# on an "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND,
+# either express or implied. See the Licence of the
+# specific language governing rights and limitations
+# under the Licence.
+# The Original Code is pNet::DNS.
+# The Initial Developer of the Original Code is
+# Nominet UK (www.nominet.org.uk). Portions created by
+# Nominet UK are Copyright (c) Nominet UK 2006.
+# All rights reserved.
+module Net
+  module DNS
+    class RR
+      #= NAME
+      #
+      #Net::DNS::RR::A - DNS A resource record
+      #
+      #= DESCRIPTION
+      #
+      #Class for DNS Address (A) resource records.
+      #
+      #=head1 COPYRIGHT
+      #
+      #Copyright (c) 1997-2002 Michael Fuhr. 
+      #
+      #Portions Copyright (c) 2002-2004 Chris Reinhardt.
+      #
+      #All rights reserved.  This program is free software; you may redistribute
+      #it and/or modify it under the same terms as Perl itself.
+      #
+      #=head1 SEE ALSO
+      #
+      #Net::DNS, Net::DNS::Resolver, Net::DNS::Packet,
+      #Net::DNS::Header, Net::DNS::Question, Net::DNS::RR,
+      #RFC 1035 Section 3.4.1
+      class A < RR
+        #Returns the RR's address field.
+        #
+        #    print "address = ", rr.address, "\n"
+        #
+        attr_accessor :address
+        def inet_aton ip
+          A.inet_aton ip
+        end
+        def A.inet_aton ip
+          ret =          ip.split(/\./).map{|c| c.to_i}.pack("C*") # .unpack("N").first
+          return ret
+        end
+        def inet_ntoa n
+          A.inet_ntoa n
+        end
+        def A.inet_ntoa n
+          ret=          n.unpack("C*").join "."
+          return ret
+        end
+        def new_from_string(string)
+          if (string && (string =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)\s*$/o))
+            a = $1.to_i
+            b = $2.to_i
+            if (a >= 0) && (a <= 255) && (b >= 0) && (b <= 255)
+              c = $3.to_i
+              d = $4.to_i
+              if (c >= 0) && (c <= 255) && (d >= 0) && (d <= 255) 
+                
+                @address = "#{a}.#{b}.#{c}.#{d}";
+              end
+            end
+          end
+        end
+        def new_from_data(data, offset)
+          if (@rdlength > 0)
+            @address = inet_ntoa(data[offset, 4]);
+            #              @address = IPAddr.new_ntoh(data[offset, 4])
+            #              IPAddr.new(data[offset, 4], Socket::AF_INET).to_s
+          end
+        end
+        def new_from_hash(values)
+          if (values.has_key?(:address))
+            @address=values[:address]
+          end
+        end
+        
+        def rdatastr
+          return @address || '';
+        end
+        
+        def rr_rdata(*args)
+          if (defined?@address)
+            return inet_aton(@address)
+          else
+            return ""
+          end
+        end
+        
+      end
+    end
+  end
+end

data/lib/Net/DNS/RR/AAAA.rb

@@ -0,0 +1,147 @@
+# The contents of this file are subject to the Mozilla
+# Public Licence Version 1.1 (the "Licence"); you may
+# not use this file except in compliance with the
+# Licence. You may obtain a copy of the Licence at
+# http://www.mozilla.org/MPL
+# Software distributed under the Licence is distributed
+# on an "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND,
+# either express or implied. See the Licence of the
+# specific language governing rights and limitations
+# under the Licence.
+# The Original Code is pNet::DNS.
+# The Initial Developer of the Original Code is
+# Nominet UK (www.nominet.org.uk). Portions created by
+# Nominet UK are Copyright (c) Nominet UK 2006.
+# All rights reserved.
+module Net
+  module DNS
+    class RR
+      #= NAME
+      #
+      #Net::DNS::RR::AAAA - DNS AAAA resource record
+      #
+      #= DESCRIPTION
+      #
+      #Class for DNS IPv6 Address (AAAA) resource records.
+      #
+      #= BUGS
+      #
+      #The inspect method returns only the preferred method of address
+      #representation ("x:x:x:x:x:x:x:x", as documented in RFC 1884,
+      #Section 2.2, Para 1).
+      #
+      #= COPYRIGHT
+      #
+      #Copyright (c) 1997-2002 Michael Fuhr. 
+      #
+      #Portions Copyright (c) 2002-2004 Chris Reinhardt.
+      #
+      #Ruby version Copyright (c) 2006 AlexD (Nominet UK)
+      #
+      #All rights reserved.  This program is free software; you may redistribute
+      #it and/or modify it under the same terms as Perl itself.
+      #
+      #= SEE ALSO
+      #
+      #Net::DNS, Net::DNS::Resolver, Net::DNS::Packet,
+      #Net::DNS::Header, Net::DNS::Question, Net::DNS::RR,
+      #RFC 1886 Section 2, RFC 1884 Sections 2.2 & 2.4.4
+      class AAAA < RR
+        #Returns the RR's address field.
+        #
+        #    print "address = ", rr.address, "\n"
+        #
+        attr_accessor :address
+        def new_from_data(data, offset)
+          if (@rdlength > 0)
+            addr = data.unpack("\@#{offset} n8");
+            #            @address = sprintf("%x:%x:%x:%x:%x:%x:%x:%x", addr);
+            @address=""
+            addr.each { |x| @address += sprintf("%x:", x) }
+            @address = @address[0, @address.length-1]
+          end
+        end
+        
+        def new_from_string(string)
+          if (string) 
+            # I think this is correct, per RFC 1884 Sections 2.2 & 2.4.4.
+            if (string =~ /^(.*):(\d+)\.(\d+)\.(\d+)\.(\d+)$/)
+              #			my ($front, $a, $b, $c, $d) = ($1, $2, $3, $4, $5);
+              front = $1
+              a = $2.to_1
+              b = $3.to_i
+              c = $4.to_i
+              d = $5.to_i
+              string = front + sprintf(":%x:%x",(a << 8 | b),(c << 8 | d));
+            end
+            
+            if (string =~ /^(.*)::(.*)$/)
+              #			my ($front, $back) = ($1, $2);
+              front = $1
+              back = $2
+              front = front.split(/:/)
+              back  = back.split(/:/)
+              fill = 8 - (front ? front.length + 1 : 0)- (back  ? back.length  + 1 : 0);
+              middle = []
+              fill.times {middle.push("0")}
+              addr = front + middle + back
+            else
+              addr = string.split(/:/);
+              if (addr.length < 8)
+               (8 - addr.length).times {addr.insert(0,"0")}
+              end
+            end
+            
+            @address = ""
+            addr.each {|a| @address += sprintf("%x:", a.to_i(16))}
+            # remove last ':'
+            @address= @address[0, @address.length-1]
+            
+            # sprintf("%x:%x:%x:%x:%x:%x:%x:%x", addr.map { |a| a.to_i(16) });
+            #		$self->{"address"} = sprintf("%x:%x:%x:%x:%x:%x:%x:%x", map { hex $_ } @addr);
+          end
+        end
+        
+        def new_from_hash(values) 
+          if (values.has_key?(:address))
+            @address=values[:address]
+          end
+        end
+        
+        def rdatastr
+          return @address || '';
+        end
+        
+        def rr_rdata(*args)
+          rdata = "";
+          
+          if (defined?@address)
+            addr = @address.split(/:/)
+            rdata += addr.map {|a| a.to_i(16) }.pack("n8");            
+          end
+          return rdata;
+        end
+        
+        @@Regex = nil
+        def AAAA.init_regex
+          if (@@Regex == nil) 
+            @@Regex_8Hex  	=  	/\A (?:[0-9A-Fa-f]{1,4}:){7} [0-9A-Fa-f]{1,4} \z/x  	   #	IPv6 address format a:b:c:d:e:f:g:h
+            @@Regex_CompressedHex 	= 	/\A ((?:[0-9A-Fa-f]{1,4}(?::[0-9A-Fa-f]{1,4})*)?) :: ((?:[0-9A-Fa-f]{1,4}(?::[0-9A-Fa-f]{1,4})*)?) \z/x 	  #	Compressed IPv6 address format a::b
+            @@Regex_6Hex4Dec 	= 	/\A ((?:[0-9A-Fa-f]{1,4}:){6,6}) (\d+)\.(\d+)\.(\d+)\.(\d+) \z/x 	  #	IPv4 mapped IPv6 address format a:b:c:d:e:f:w.x.y.z
+            @@Regex_CompressedHex4Dec 	= 	/\A ((?:[0-9A-Fa-f]{1,4}(?::[0-9A-Fa-f]{1,4})*)?) :: ((?:[0-9A-Fa-f]{1,4}:)*) (\d+)\.(\d+)\.(\d+)\.(\d+) \z/x 	  #	Compressed IPv4 mapped IPv6 address format a::b:w.x.y.z
+            @@Regex 	= 	/ (?:#{@@Regex_8Hex}) | (?:#{@@Regex_CompressedHex}) | (?:#{@@Regex_6Hex4Dec}) | (?:#{@@Regex_CompressedHex4Dec})/x 
+          end
+        end
+        
+        def AAAA.is_valid(a)
+          init_regex
+          if a =~ @@Regex
+            return true
+          else
+            return false
+          end
+        end
+      end
+    end
+  end
+end

data/lib/Net/DNS/RR/AFSDB.rb

@@ -0,0 +1,114 @@
+# The contents of this file are subject to the Mozilla
+# Public Licence Version 1.1 (the "Licence"); you may
+# not use this file except in compliance with the
+# Licence. You may obtain a copy of the Licence at
+# http://www.mozilla.org/MPL
+# Software distributed under the Licence is distributed
+# on an "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND,
+# either express or implied. See the Licence of the
+# specific language governing rights and limitations
+# under the Licence.
+# The Original Code is pNet::DNS.
+# The Initial Developer of the Original Code is
+# Nominet UK (www.nominet.org.uk). Portions created by
+# Nominet UK are Copyright (c) Nominet UK 2006.
+# All rights reserved.
+module Net
+  module DNS
+    class RR
+      #= NAME
+      #
+      #Net::DNS::RR::AFSDB - DNS AFSDB resource record
+      #
+      #= DESCRIPTION
+      #
+      #Class for DNS AFS Data Base (AFSDB) resource records.
+      #
+      #= COPYRIGHT
+      #
+      #Copyright (c) 1997-2002 Michael Fuhr. 
+      #
+      #Portions Copyright (c) 2002-2004 Chris Reinhardt.
+      #
+      #All rights reserved.  This program is free software; you may redistribute
+      #it and/or modify it under the same terms as Perl itself.
+      #
+      #= SEE ALSO
+      #
+      #Net::DNS, Net::DNS::Resolver, Net::DNS::Packet,
+      #Net::DNS::Header, Net::DNS::Question, Net::DNS::RR,
+      #RFC 1183 Section 1
+      class AFSDB < RR
+        #Returns the RR's subtype field.  Use of the subtype field is documented
+        #in RFC 1183.
+        #
+        #    print "subtype = ", rr.subtype, "\n"
+        #
+        attr_accessor :subtype
+        
+        #Returns the RR's hostname field.  See RFC 1183.
+        #
+        #    print "hostname = ", rr.hostname, "\n"
+        #
+        attr_accessor :hostname
+        def new_from_data (data, offset)
+          if (@rdlength > 0)
+            subtype = data.unpack("\@#{offset} n")[0];
+            offset += Net::DNS::INT16SZ;
+            hostname = Net::DNS::Packet::dn_expand(data, offset)[0];
+            @subtype = subtype;
+            @hostname = hostname;
+          end
+        end
+        
+        def new_from_string(string)
+          if (string!=nil && (string =~ /^(\d+)\s+(\S+)$/o))
+            @subtype  = $1;
+            @hostname = $2;
+            @hostname.sub!(/\.+$/o,"");
+          end
+        end
+        
+        def new_from_hash(values)
+          if (values.has_key?(:subtype))
+            @subtype=values[:subtype]
+          end
+          if (values.has_key?(:hostname))
+            @hostname=values[:hostname]
+          end
+        end
+        
+        def rdatastr
+          if defined?@subtype
+            return "#{@subtype} #{@hostname}." 
+          else
+            return '';
+          end
+        end
+        
+        def rr_rdata (packet, offset)
+          rdata = "";
+          
+          if (defined?@subtype)
+            rdata += [@subtype].pack("n");
+            rdata += packet.dn_comp(@hostname, offset + rdata.length);
+          end
+          
+          return rdata;
+        end
+        
+        
+        
+        def _canonicalRdata
+          # rdata contains a compressed domainname... we should not have that.
+          rdata="";
+          if (defined?@subtype)
+            rdata += @subtype.pack("n");
+            rdata +=  _name2wire(@hostname);
+          end
+          return rdata;
+        end
+      end
+    end
+  end
+end

data/lib/Net/DNS/RR/CERT.rb

@@ -0,0 +1,191 @@
+# The contents of this file are subject to the Mozilla
+# Public Licence Version 1.1 (the "Licence"); you may
+# not use this file except in compliance with the
+# Licence. You may obtain a copy of the Licence at
+# http://www.mozilla.org/MPL
+# Software distributed under the Licence is distributed
+# on an "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND,
+# either express or implied. See the Licence of the
+# specific language governing rights and limitations
+# under the Licence.
+# The Original Code is pNet::DNS.
+# The Initial Developer of the Original Code is
+# Nominet UK (www.nominet.org.uk). Portions created by
+# Nominet UK are Copyright (c) Nominet UK 2006.
+# All rights reserved.
+require 'base64'
+module Net
+  module DNS
+    class RR
+#= NAME
+#
+#Net::DNS::RR::CERT - DNS CERT resource record
+#
+#= DESCRIPTION
+#
+#Class for DNS Certificate (CERT) resource records. (see RFC 2538)
+#
+#= COPYRIGHT
+#
+#Copyright (c) 1997-2002 Michael Fuhr. 
+#
+#Portions Copyright (c) 2002-2004 Chris Reinhardt.
+#
+#Ruby version Copyright (c) 2006 AlexD (Nominet UK)
+#
+#All rights reserved.  This program is free software; you may redistribute
+#it and/or modify it under the same terms as Perl itself.
+#
+#= SEE ALSO
+#
+#Net::DNS, Net::DNS::Resolver, Net::DNS::Packet,
+#Net::DNS::Header, Net::DNS::Question, Net::DNS::RR,
+#RFC 2782
+      class CERT < RR
+#Returns the format code for the certificate (in numeric form)
+#
+#    print "format = ", rr.format, "\n"
+#
+        attr_accessor :format
+#Returns the key tag for the public key in the certificate
+#
+#    print "tag = ", rr.tag, "\n"
+#
+        attr_accessor :tag
+#Returns the algorithm used by the certificate (in numeric form)
+#
+#    print "algorithm = ", rr.algorithm, "\n"
+#
+        attr_accessor :algorithm
+#Returns the data comprising the certificate itself (in raw binary form)
+#
+#    print "certificate = ", rr.certificate, "\n"
+#
+        attr_accessor :certificate
+        FORMATS = {
+        'PKIX' => 1,
+        'SPKI' => 2,
+        'PGP'  => 3,
+        'URI'  => 253,
+        'OID'  => 254,
+        }
+        
+        R_FORMATS = FORMATS.invert
+        
+        ALGORITHMS = {
+        'RSAMD5'     => 1,
+        'DH'         => 2,
+        'DSA'        => 3,
+        'ECC'        => 4,
+        'INDIRECT'   => 252,
+        'PRIVATEDNS' => 253,
+        'PRIVATEOID' => 254,
+        }
+        
+        R_ALGORITHMS = ALGORITHMS.invert;
+        
+        def new_from_data(data, offset)
+          if (@rdlength > 0)
+            format, tag, algorithm = data.unpack("\@#{offset} n2C");
+            
+            offset        += 2 * Net::DNS::INT16SZ + 1;
+            
+            length      = @rdlength - (2 * Net::DNS::INT16SZ + 1);
+            certificate = data[offset, length];
+            
+            @format      = format;
+            @tag         = tag;
+            @algorithm   = algorithm;
+            @certificate = certificate;
+          end
+        end
+        
+        def new_from_hash(values)
+          if values.has_key?(:format)
+            @format = values[:format]
+          end
+          if values.has_key?(:tag)
+            @tag = values[:tag]
+          end
+          if values.has_key?(:algorithm)
+            @algorithm = values[:algorithm]
+          end
+          if values.has_key?(:certificate)
+            @certificate = values[:certificate]
+          end
+        end
+        
+        def new_from_string(string)
+          if (string==nil)
+            return
+          end
+          
+          format, tag, algorithm, rest = string.split(" ")
+          if (rest == nil) 
+            return
+          end
+          
+          # look up mnemonics
+          # the "die"s may be rash, but proceeding would be dangerous
+          if (algorithm =~ /\D/)
+            if defined?ALGORITHMS[algorithm]
+              algorithm = ALGORITHMS[algorithm]
+            else
+              raise RuntimeError,	"Unknown algorithm mnemonic: '#{algorithm}'"
+            end
+          end
+          
+          if (format =~ /\D/)
+            if defined?FORMATS[format]
+              format = FORMATS[format]
+            else
+              die "Unknown format mnemonic: '#{format}'"
+            end
+          end
+          
+          @format      = format;
+          @tag        = tag;
+          @algorithm   = algorithm;
+          @certificate = Base64::decode64([rest].join(''));
+        end
+        
+        def rdatastr
+          rdatastr=""
+          
+          if (defined?@format)
+            cert = Base64::encode64 @certificate;
+            cert.gsub!(/\n/,"");
+            
+            format = @format
+            if defined?R_FORMATS[@format] 
+              format = R_FORMATS[@format]
+            end
+            
+            algorithm = @algorithm;
+            if  defined?R_ALGORITHMS[@algorithm]  
+              algorithm = R_ALGORITHMS[@algorithm] 
+            end
+            
+            rdatastr = "#{format} #{@tag} #{algorithm} #{cert}";
+          else
+            rdatastr = '';
+          end
+          
+          return rdatastr;
+        end
+        
+        def rr_rdata(packet, offset)
+          rdata = "";
+          
+          if (defined?@format)
+            rdata += [@format, @tag].pack("n2")
+            rdata += [@algorithm].pack("C")
+            rdata += @certificate
+          end
+          
+          return rdata;
+        end
+      end
+    end
+  end
+end