faildns 0.0.1

data/lib/faildns/qclass.rb

@@ -0,0 +1,51 @@
+#--
+# Copyleft meh. [http://meh.doesntexist.org | meh@paranoici.org]
+#
+# This file is part of faildns.
+#
+# faildns is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# faildns is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with faildns. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'faildns/class'
+
+module DNS
+
+#--
+# QCLASS fields appear in the question section of a query.  QCLASS values
+# are a superset of CLASS values; every CLASS is a valid QCLASS.  In
+# addition to CLASS values, the following QCLASSes are defined:
+#
+# *               255 any class
+#++
+
+class QClass < Class
+  Values = {
+    254 => :NONE,
+    255 => :ANY
+  }
+
+  def initialize (value)
+    super(value)
+  end
+
+  def to_sym
+    Values[@value] || Class::Values[@value]
+  end
+
+  def to_s
+    (Values[@value] || Class::Values[@value]).to_s
+  end
+end
+
+end

data/lib/faildns/qtype.rb

@@ -0,0 +1,60 @@
+#--
+# Copyleft meh. [http://meh.doesntexist.org | meh@paranoici.org]
+#
+# This file is part of faildns.
+#
+# faildns is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# faildns is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with faildns. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'faildns/type'
+
+module DNS
+
+#--
+# QTYPE fields appear in the question part of a query.  QTYPES are a
+# superset of TYPEs, hence all TYPEs are valid QTYPEs.  In addition, the
+# following QTYPEs are defined:
+# 
+# 
+# AXFR            252 A request for a transfer of an entire zone
+# 
+# MAILB           253 A request for mailbox-related records (MB, MG or MR)
+# 
+# MAILA           254 A request for mail agent RRs (Obsolete - see MX)
+# 
+# *               255 A request for all records
+#++
+
+class QType < Type
+  Values = {
+    252 => :AXFR,
+    253 => :MAILB,
+    254 => :MAILA,
+    255 => :ANY
+  }
+
+  def initialize (value)
+    super(value)
+  end
+
+  def to_sym
+    Values[@value] || Type::Values[@value]
+  end
+
+  def to_s
+    (Values[@value] || Type::Values[@value]).to_s
+  end
+end
+
+end

data/lib/faildns/question.rb

@@ -0,0 +1,101 @@
+#--
+# Copyleft meh. [http://meh.doesntexist.org | meh@paranoici.org]
+#
+# This file is part of faildns.
+#
+# faildns is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# faildns is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with faildns. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'faildns/domainname'
+require 'faildns/qtype'
+require 'faildns/qclass'
+
+module DNS
+
+#--
+# The question section is used to carry the "question" in most queries,
+# i.e., the parameters that define what is being asked.  The section
+# contains QDCOUNT (usually 1) entries, each of the following format:
+# 
+#                                     1  1  1  1  1  1
+#       0  1  2  3  4  5  6  7  8  9  0  1  2  3  4  5
+#     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
+#     |                                               |
+#     /                     QNAME                     /
+#     /                                               /
+#     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
+#     |                     QTYPE                     |
+#     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
+#     |                     QCLASS                    |
+#     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
+# 
+# where:
+# 
+# QNAME           a domain name represented as a sequence of labels, where
+#                 each label consists of a length octet followed by that
+#                 number of octets.  The domain name terminates with the
+#                 zero length octet for the null label of the root.  Note
+#                 that this field may be an odd number of octets; no
+#                 padding is used.
+# 
+# QTYPE           a two octet code which specifies the type of the query.
+#                 The values for this field include all codes valid for a
+#                 TYPE field, together with some more general codes which
+#                 can match more than one type of RR.
+# 
+# QCLASS          a two octet code that specifies the class of the query.
+#                 For example, the QCLASS field is IN for the Internet.
+#++
+
+class Question
+  def self.parse (string, original)
+    Question.new {|q|
+      q.name  = DomainName.parse(string, original);
+      q.type  = QType.parse(string);
+      q.class = QClass.parse(string);
+    }
+  end
+
+  def self.length (string)
+    DomainName.length(string) + QType.length + QClass.length
+
+    return result
+  end
+
+  def initialize (what={})
+    if !what.is_a? Hash
+      raise ArgumentError.new('You have to pass a Hash.')
+    end
+
+    @data = what
+
+    if block_given?
+      yield self
+    end
+  end
+
+  def name;  @data[:QNAME]  end
+  def type;  @data[:QTYPE]  end
+  def class; @data[:QCLASS] end
+
+  def name= (val);  @data[:QNAME]  = DomainName.new(val) end
+  def type= (val);  @data[:QTYPE]  = QType.new(val)      end
+  def class= (val); @data[:QCLASS] = QClass.new(val)     end
+
+  def pack
+    self.name.pack + self.type.pack + self.class.pack
+  end
+end
+
+end

data/lib/faildns/resourcerecord.rb

@@ -0,0 +1,140 @@
+#--
+# Copyleft meh. [http://meh.doesntexist.org | meh@paranoici.org]
+#
+# This file is part of faildns.
+#
+# faildns is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# faildns is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with faildns. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'faildns/resourcerecord/IN'
+
+module DNS
+
+#--
+# The answer, authority, and additional sections all share the same
+# format: a variable number of resource records, where the number of
+# records is specified in the corresponding count field in the header.
+# Each resource record has the following format:
+#                                     1  1  1  1  1  1
+#       0  1  2  3  4  5  6  7  8  9  0  1  2  3  4  5
+#     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
+#     |                                               |
+#     /                                               /
+#     /                      NAME                     /
+#     |                                               |
+#     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
+#     |                      TYPE                     |
+#     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
+#     |                     CLASS                     |
+#     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
+#     |                      TTL                      |
+#     |                                               |
+#     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
+#     |                   RDLENGTH                    |
+#     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--|
+#     /                     RDATA                     /
+#     /                                               /
+#     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
+# 
+# where:
+# 
+# NAME            a domain name to which this resource record pertains.
+# 
+# TYPE            two octets containing one of the RR type codes.  This
+#                 field specifies the meaning of the data in the RDATA
+#                 field.
+# 
+# CLASS           two octets which specify the class of the data in the
+#                 RDATA field.
+# 
+# TTL             a 32 bit unsigned integer that specifies the time
+#                 interval (in seconds) that the resource record may be
+#                 cached before it should be discarded.  Zero values are
+#                 interpreted to mean that the RR can only be used for the
+#                 transaction in progress, and should not be cached.
+# 
+# RDLENGTH        an unsigned 16 bit integer that specifies the length in
+#                 octets of the RDATA field.
+# 
+# RDATA           a variable length string of octets that describes the
+#                 resource.  The format of this information varies
+#                 according to the TYPE and CLASS of the resource record.
+#                 For example, the if the TYPE is A and the CLASS is IN,
+#                 the RDATA field is a 4 octet ARPA Internet address.
+#++ 
+
+class ResourceRecord
+  def self.parse (string, original)
+    string.force_encoding 'BINARY'
+
+    ResourceRecord.new {|r|
+      r.name  = DomainName.parse(string, original)
+      r.type  = Type.parse(string)
+      r.class = Class.parse(string)
+
+      r.ttl = string.unpack('N').first; string[0, 4] = ''
+
+      r.length = string.unpack('n').first; string[0, 2] = ''
+      r.data   = ResourceRecord.const_get(r.class.to_sym).const_get(r.type.to_sym) rescue nil
+
+      if !r.data
+        r.data = ResourceRecord.const_get(r.class.to_sym).const_get(:NULL)
+        DNS.debug "ResourceRecord::#{r.class}::#{r.type} not found."
+      end
+
+      DNS.debug r.data.inspect, { :level => 2 }
+      
+      r.data = r.data.parse(string, r.length, original)
+    }
+  end
+
+  def self.length (string)
+    string.force_encoding 'BINARY'
+
+    (tmp = DomainName.length(string) + Type.length + Class.length + 4) + string[tmp, 2].unpack('n').first + 2
+  end
+
+  def initialize (what={})
+    if !what.is_a? Hash
+      raise ArgumentError.new('You have to pass a Hash.')
+    end
+
+    @data = what
+
+    if block_given?
+      yield self
+    end
+  end
+
+  def name;   @data[:NAME]     end
+  def type;   @data[:TYPE]     end
+  def class;  @data[:CLASS]    end
+  def ttl;    @data[:TTL]      end
+  def length; @data[:RDLENGTH] end
+  def data;   @data[:RDATA]    end
+
+  def name= (val);   @data[:NAME]     = DomainName.new(val) end
+  def type= (val);   @data[:TYPE]     = Type.new(val)       end
+  def class= (val);  @data[:CLASS]    = Class.new(val)      end
+  def ttl= (val);    @data[:TTL]      = val                 end
+  def length= (val); @data[:RDLENGTH] = val                 end
+  def data= (val);   @data[:RDATA]    = val                 end
+
+  def pack
+    self.name.pack + self.type.pack + self.class.pack + [self.ttl].pack('N') +
+    [self.length].pack('n') + self.data.pack
+  end
+end
+
+end

data/lib/faildns/resourcerecord/IN.rb

@@ -0,0 +1,29 @@
+#--
+# Copyleft meh. [http://meh.doesntexist.org | meh@paranoici.org]
+#
+# This file is part of faildns.
+#
+# faildns is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# faildns is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with faildns. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'faildns/resourcerecord/IN/A'
+require 'faildns/resourcerecord/IN/CNAME'
+require 'faildns/resourcerecord/IN/HINFO'
+require 'faildns/resourcerecord/IN/MX'
+require 'faildns/resourcerecord/IN/NS'
+require 'faildns/resourcerecord/IN/NULL'
+require 'faildns/resourcerecord/IN/PTR'
+require 'faildns/resourcerecord/IN/SOA'
+require 'faildns/resourcerecord/IN/TXT'
+require 'faildns/resourcerecord/IN/AAAA'

data/lib/faildns/resourcerecord/IN/A.rb

@@ -0,0 +1,75 @@
+#--
+# Copyleft meh. [http://meh.doesntexist.org | meh@paranoici.org]
+#
+# This file is part of faildns.
+#
+# faildns is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# faildns is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with faildns. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'faildns/resourcerecord/data'
+require 'faildns/ip'
+
+module DNS
+
+class ResourceRecord
+
+module IN
+
+#--
+#     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
+#     |                    ADDRESS                    |
+#     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
+# 
+# where:
+# 
+# ADDRESS         A 32 bit Internet address.
+# 
+# Hosts that have multiple Internet addresses will have multiple A
+# records.
+# 
+# A records cause no additional section processing.  The RDATA section of
+# an A line in a master file is an Internet address expressed as four
+# decimal numbers separated by dots without any imbedded spaces (e.g.,
+# "10.2.0.52" or "192.0.5.6").
+#++
+
+class A < Data
+  def self._parse (string, original)
+    A.new(IP.parse(string))
+  end
+
+  def self.length
+    4
+  end
+
+  attr_reader :ip
+
+  def initialize (what)
+    @ip = IP.new(what)
+  end
+
+  def pack
+    @ip.pack
+  end
+
+  def to_s
+    @ip.to_s
+  end
+end
+
+end
+
+end
+
+end