pNet-DNS 0.0.1

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

@@ -0,0 +1,153 @@
+# 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::SRV - DNS SRV resource record
+      #
+      #= DESCRIPTION
+      #
+      #Class for DNS Service (SRV) resource records.
+      #
+      #= 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 SRV < RR
+        #Returns the priority for this target host.
+        #
+        #    print "priority = ", rr.priority, "\n"
+        #
+        attr_accessor :priority
+        #Returns the weight for this target host.
+        #
+        #    print "weight = ", rr.weight, "\n"
+        #
+        attr_accessor :weight
+        #Returns the port on this target host for the service.
+        #
+        #    print "port = ", rr.port, "\n"
+        #
+        attr_accessor :port
+        #Returns the target host.
+        #
+        #    print "target = ", rr.target, "\n"
+        #
+        attr_accessor :target
+        def init_rrsort_func
+          set_rrsort_func("priority", Proc.new { |a,b|
+            a.priority <=> b.priority || b.weight <=> a.weight
+          })
+          
+          
+          set_rrsort_func("default_sort", get_rrsort_func("priority"));
+          
+          set_rrsort_func("weight", Proc.new { |a,b| 
+            b.weight <=> a.weight || a.priority <=> b.priority
+          })
+        end
+        
+        
+        
+        def new_from_data(data, offset) 
+          if (@rdlength > 0)
+            ret = data.unpack("\@#{offset} n3");
+            @priority = ret[0]
+            @weight = ret[1]
+            @port = ret[2]
+            offset += 3 * Net::DNS::INT16SZ;
+            
+            @target = Net::DNS::Packet.dn_expand(data, offset)[0];
+          end
+        end
+        
+        def new_from_hash(values)
+          if (values.has_key?:priority)
+            @priority = values[:priority]
+          end
+          if (values.has_key?:weight)
+            @weight = values[:weight]
+          end
+          if (values.has_key?:port)
+            @port = values[:port]
+          end
+          if (values.has_key?:target)
+            @target = values[:target]
+          end
+        end
+        
+        def new_from_string(string)
+          if (string && (string =~ /^(\d+)\s+(\d+)\s+(\d+)\s+(\S+)$/))
+            @priority = $1.to_i
+            @weight = $2.to_i
+            @port = $3.to_i
+            @target = $4
+            
+            @target.sub!(/\.+$/, "");
+          end
+        end
+        
+        def rdatastr
+          if (defined?@priority)
+            rdatastr = [@priority, @weight, @port, @target].join(' ');
+            rdatastr.sub!(/(.*[^\.])$/) { |s| s+"." };
+          else
+            rdatastr = '';
+          end
+          
+          return rdatastr;
+        end
+        
+        def rr_rdata(packet, offset)
+          rdata = '';
+          
+          if (defined?priority)
+            rdata += [@priority, @weight, @port].pack('n3');
+            rdata += packet.dn_comp(@target, offset + rdata.length );
+          end
+          
+          return rdata;
+        end
+        
+        
+        def _canonicalRdata
+          rdata = '';
+          
+          if (defined?priority)
+            rdata += [@priority.to_i, @weight.to_i, @port.to_i].pack('n3');
+            rdata += _name2wire(@target);
+          end
+          
+          return rdata;
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,190 @@
+# 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::SSHFP - DNS SSHFP resource record
+      #
+      #= DESCRIPTION
+      #
+      #Class for Delegation signer (SSHFP) resource records.
+      #
+      #= ACKNOWLEDGEMENT
+      #
+      #Jakob Schlyter for code review and supplying patches.
+      #
+      #= COPYRIGHT
+      #
+      #Copyright (c) 2004 RIPE NCC, Olaf Kolkman.
+      #
+      #"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,
+      #draft-ietf-dnssext-delegation-signer
+      class SSHFP < RR
+        #Returns the RR's algorithm field in decimal representation
+        #
+        #    1 = RSA
+        #    2 = DSS
+        #
+        #    print "algoritm" = ", rr.algorithm, "\n"
+        #
+        attr_accessor :algorithm
+        
+        attr_accessor :fingerprint
+        
+        #Returns the SHA1 fingerprint over the label and key in hexadecimal
+        #representation.
+        #
+        #
+        #Returns the fingerprint as binary material.
+        attr_accessor :fpbin
+        
+        #Returns the fingerprint type of the SSHFP RR.
+        #
+        #   print "fingerprint type  = " + rr.fptype  + "\n"
+        #
+        attr_accessor :fptype
+        #=head2 babble
+        #
+        #   print $rr->babble;
+        #
+        #If Digest::BubbleBabble is available on the sytem this method returns the
+        #'BabbleBubble' representation of the fingerprint. The 'BabbleBubble'
+        #string may be handy for telephone confirmation.
+        #
+        #The 'BabbleBubble' string returned as a comment behind the RDATA when
+        #the string method is called.
+        #
+        #The method returns an empty string if Digest::BubbleBable is not installed.
+        #
+        
+        
+        #        BEGIN {
+        #          eval {
+        #            require Digest::BubbleBabble; 
+        #            Digest::BubbleBabble->import(qw(bubblebabble))
+        #          };
+        #          
+        #          $HasBabble = $@ ? 0 : 1;
+        #          
+        #        }
+        #        @TODO Use BubbleBabble!!
+        HasBabble = false
+        
+        @@algtype = {
+    'RSA' => 1,
+	'DSA' => 2}
+        
+        @@fingerprinttype = {'SHA-1' => 1}
+        
+        @@fingerprinttypebyval = @@fingerprinttype.reverse 
+        @@algtypebyval	       = @@algtype.reverse
+        
+        
+        def new_from_data(data, offset)
+          if (@rdlength > 0)
+            offsettoalg    = offset
+            offsettofptype = offset+1
+            offsettofp     = offset+2
+            fplength       = 20   # This will need to change if other fingerprint types
+            # are being deployed.
+            
+            
+            @algorithm = data[oggsettoalg, 1].unpack('C') # , substr($$data, $offsettoalg, 1))
+            @fptype    = data[offsettofptype, 1].unpack('C') # , substr($$data, $offsettofptype, 1))
+            
+            raise NotImplementedError, "This fingerprint type #{@fptype} has not yet been implemented\n." +
+			"Contact developer of Net::DNS::RR::SSHFP.\n"  unless fingerprinttypebyval[@fptype] != nil
+            
+            # All this is SHA-1 dependend
+            @fpbin = data[offsettofp, fplength] # SHA1 digest 20 bytes long
+            
+            @fingerprint = @fpbin.unpack('H*').upcase!  # uc unpack('H*', $self->{:fpbin});
+          end
+        end
+        
+        
+        def new_from_string(instring)
+          if (string)
+            instring = string.tr("()", "") # /()//d
+            string.gsub!(/;.*$/, "") # /mg
+            string.gsub!(/\n/, "")
+            
+            @algorithm, @fptype, @fingerprint = string.split(/\s+/, 3)
+            
+            # We allow spaces in the fingerprint.
+            @fingerprint.gsub!(/\s/, "")
+          end
+        end
+        
+        def new_from_hash(values)
+          if values.has_key?(:fingerprint)
+            @fingerprint = values[:fingerprint]
+          end
+          if values.has_key?(:fptype)
+            @fptype = values[:fptype]
+          end
+          if values.has_key?(:fpbin)
+            @fpbin = values[:fpbin]
+          end
+          if values.has_key?(:algorithm)
+            @algorithm = values[:algorithm]
+          end
+        end
+        
+        
+        def rdatastr
+          rdatastr = ''
+          
+          if (@algorithm!=nil)
+            rdatastr = [@algorithm, @fptype, @fingerprint].join('  ') + ' ; ' + babble()
+          end
+          
+          return rdatastr
+        end
+        
+        def rr_rdata
+          if (@algorithm != nil)
+            return [@algorithm, @fptype].pack('C2') + fpbin()
+          end
+          
+          return ''
+        end
+        
+        
+        def babble
+          if (HasBabble)
+            return bubblebabble(Digest => fpbin())
+          else
+            return ""
+          end
+        end
+        
+        
+        def fpbin
+          return @fpbin ||= [@fingerprint].pack('H*')
+        end
+      end
+    end
+  end
+end	

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

@@ -0,0 +1,219 @@
+# 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::TKEY - DNS TKEY resource record
+      #
+      #= DESCRIPTION
+      #
+      #Class for DNS TKEY resource records.
+      #
+      #=head1 BUGS
+      #
+      #This code has not been extensively tested.  Use with caution on
+      #production systems. See http://samba.org/ftp/samba/tsig-gss/ for an
+      #example usage.
+      #
+      #=head1 COPYRIGHT
+      #
+      #Copyright (c) 2000 Andrew Tridgell.  All rights reserved.  This program
+      #is free software; you can redistribute it and/or modify it under
+      #the same terms as Perl itself.
+      #
+      #=head1 ACKNOWLEDGMENT
+      #
+      #The Net::DNS::RR::TKEY module is based on the TSIG module by Michael
+      #Fuhr and Chris Turbeville.
+      #
+      #=head1 SEE ALSO
+      #
+      #L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
+      #L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
+      #RFC 2845
+      class TKEY < RR
+        attr_accessor :offset, :key
+        #Gets or sets the domain name that specifies the name of the algorithm.
+        #The default algorithm is gss.microsoft.com
+        #
+        #    rr.algorithm=(algorithm_name)
+        #    print "algorithm = ", rr.algorithm, "\n"
+        #
+        attr_accessor :algorithm
+        #Gets or sets the inception time as the number of seconds since 1 Jan 1970
+        #00:00:00 UTC.
+        #
+        #The default inception time is the current time.
+        #
+        #    rr.inception=(time)
+        #    print "inception = ", rr.inception, "\n"
+        #
+        attr_accessor :inception
+        #Gets or sets the expiration time as the number of seconds since 1 Jan 1970
+        #00:00:00 UTC.
+        #
+        #The default expiration time is the current time plus 1 day.
+        #
+        #    rr.expiration=(time)
+        #    print "expiration = ", rr.expiration, "\n"
+        #
+        attr_accessor :expiration
+        #Sets the key mode (see rfc2930). The default is 3 which corresponds to GSSAPI
+        #
+        #    rr.mode=(3)
+        #    print "mode = ", rr.mode, "\n"
+        #
+        attr_accessor :mode
+        #Returns the RCODE covering TKEY processing.  See RFC 2930 for details.
+        #
+        #    print "error = ", rr.error, "\n"
+        #
+        attr_accessor :error
+        #Returns the length of the Other Data.  Should be zero.
+        #
+        #    print "other len = ", rr.other_len, "\n"
+        #
+        attr_accessor :other_len
+        #Returns the Other Data.  This field should be empty.
+        #
+        #    print "other data = ", rr.other_data, "\n"
+        #
+        attr_accessor :other_data
+        
+        def new_from_data(data, offset)          
+          # if we have some data then we are parsing an incoming TKEY packet
+          # see RFC2930 for the packet format
+          if (@rdlength > 0)
+            @algorithm, @offset = Net::DNS::Packet::dn_expand(data, offset)
+            
+            @inception, @expiration = data.unpack("\@#{offset} NN")[0]
+            offset += Net::DNS::INT32SZ() + Net::DNS::INT32SZ();
+            
+            @inception, @expiration = data.unpack("\@#{offset} nn")[0]
+            offset += Net::DNS::INT16SZ + Net::DNS::INT16SZ
+            
+            key_len = data.unpack("\@#{offset} n")[0]
+            offset += Net::DNS::INT16SZ
+            @key = data[offset, key_len]
+            offset += key_len
+            
+            other_len = data.unpack("\@#{offset} n")[0]
+            offset += Net::DNS::INT16SZ
+            @other_data = data[offset, other_len]
+            offset += other_len
+          end
+        end
+        
+        def new_from_hash(values)
+          init_defaults
+          if (values.has_key?:key)
+            @key = values[:key]
+          end
+          if (values.has_key?:offset)
+            @offset = values[:offset]
+          end
+          if (values.has_key?:algorithm)
+            @algorithm = values[:algorithm]
+          end
+          if (values.has_key?:expiration)
+            @expiration = values[:expiration]
+          end
+          if (values.has_key?:inception)
+            @inception = values[:inception]
+          end
+          if (values.has_key?:other_len)
+            @other_len = values[:other_len]
+          end
+          if (values.has_key?:other_data)
+            @other_data = values[:other_data]
+          end
+          if (values.has_key?:error)
+            @error = values[:error]
+          end
+          if (values.has_key?:mode)
+            @mode = values[:mode]
+          end
+        end
+        
+        def new_from_string(string)
+          if (string != nil && (string =~ /^(.*)$/))
+            @key     = $1;
+          end
+          
+          init_defaults
+        end
+        
+        def init_defaults
+          @algorithm   = "gss.microsoft.com"
+          @inception   = Time.now
+          @expiration  = Time.now + 24*60*60
+          @mode        = 3 # GSSAPI
+          @error       = 0
+          @other_len   = 0
+          @other_data  = ""
+        end
+        
+        def error
+          rcode=0
+          error = @error
+          
+          if (error!=nil)
+            rcode = Net::DNS::rcodesbyval[error] || error
+          end
+          
+          return rcode
+        end
+        
+        def rdatastr
+          error = @error
+          error = "UNDEFINED" unless error!=nil
+          
+          rdatastr=""
+          
+          if (@algorithm!=nil)
+            rdatastr = "#{@algorithm}. #{error}"
+            if (@other_len != nil && @other_len >0 && @other_data!=nil)
+              rdatastr += " #{@other_data}"
+            end
+          else
+            rdatastr = ''
+          end
+          
+          return rdatastr
+        end
+        
+        def rr_rdata(packet, offset)
+          rdata = ""
+          
+          packet.compnames = Hash.new()
+          rdata += packet.dn_comp(@algorithm, 0)
+          rdata += [@inception].pack("N")
+          rdata += [@expiration].pack("N")
+          rdata += [@mode].pack("n")
+          rdata += [0].pack("n"); # error
+          rdata += [@key.length].pack("n")
+          rdata += @key
+          rdata += [@other_data.length].pack("n")
+          rdata += @other_data
+          
+          return rdata
+        end
+      end
+    end
+  end
+end