racket 1.0.10

data/lib/racket/l4/udp.rb

@@ -0,0 +1,81 @@
+# $Id: udp.rb 14 2008-03-02 05:42:30Z warchild $
+#
+# Copyright (c) 2008, Jon Hart 
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#     * Redistributions of source code must retain the above copyright
+#       notice, this list of conditions and the following disclaimer.
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+#     * Neither the name of the <organization> nor the
+#       names of its contributors may be used to endorse or promote products
+#       derived from this software without specific prior written permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY Jon Hart ``AS IS'' AND ANY
+# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL Jon Hart BE LIABLE FOR ANY
+# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+#
+module Racket
+module L4
+# User Datagram Protocol: UDP
+#
+# RFC768 (http://www.faqs.org/rfcs/rfc768.html)
+class UDP < RacketPart
+  # Source Port
+  unsigned :src_port, 16
+  # Destination Port
+  unsigned :dst_port, 16
+  # Datagram Length
+  unsigned :len, 16
+  # Checksum
+  unsigned :checksum, 16
+  # Payload
+  rest :payload
+  
+  # Check the checksum for this UDP datagram
+  def checksum?(src_ip, dst_ip)
+    self.checksum == 0 || (self.checksum == compute_checksum(src_ip, dst_ip))
+  end
+
+  # Compute and set the checksum for this UDP datagram
+  def checksum!(src_ip, dst_ip)
+    # set the checksum to 0 for usage in the pseudo header...
+    self.checksum = 0
+    self.checksum = compute_checksum(src_ip, dst_ip)
+  end
+
+  # Fix this packet up for proper sending.  Sets the length
+  # and checksum properly.
+  def fix!(src_ip, dst_ip)
+    self.len = self.class.bit_length/8 + self.payload.length
+    self.checksum!(src_ip, dst_ip)
+  end
+
+  def initialize(*args)
+    super
+    @autofix = false
+  end 
+
+private
+  # Compute the checksum for this UDP datagram
+  def compute_checksum(src_ip, dst_ip)
+    # pseudo header used for checksum calculation as per RFC 768 
+    pseudo = [L3::Misc.ipv42long(src_ip), L3::Misc.ipv42long(dst_ip), 17, self.payload.length + self.class.bit_length/8 ]
+    header = [self.src_port, self.dst_port, self.payload.length + self.class.bit_length/8, 0, self.payload]
+    L3::Misc.checksum((pseudo << header).flatten.pack("NNnnnnnna*"))
+  end
+
+end
+end
+end
+# vim: set ts=2 et sw=2:

data/lib/racket/l4/vrrp.rb

@@ -0,0 +1,95 @@
+# $Id: vrrp.rb 127 2009-11-29 01:30:46Z jhart $
+#
+# Copyright (c) 2008, Jon Hart 
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#     * Redistributions of source code must retain the above copyright
+#       notice, this list of conditions and the following disclaimer.
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+#     * Neither the name of the <organization> nor the
+#       names of its contributors may be used to endorse or promote products
+#       derived from this software without specific prior written permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY Jon Hart ``AS IS'' AND ANY
+# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL Jon Hart BE LIABLE FOR ANY
+# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+#
+module Racket
+module L4
+# Virtual Router Redundancy Protocol (VRRP)
+# http://tools.ietf.org/html/rfc2338
+# http://tools.ietf.org/html/rfc3768
+class VRRP < RacketPart
+  # Version
+  unsigned :version, 4
+  # VRRP packet type 
+  unsigned :type, 4 
+  # Virtual Router Identifier (VRID)
+  unsigned :id, 8
+  # the sending VRRP router's priority for the virtual router.
+  # Higher values equal higher priority.
+  unsigned :priority, 8
+  # Total number of IPs contained in this VRRP message
+  unsigned :num_ips, 8
+  # Authentication type (0, 1, 2)
+  unsigned :auth_type, 8
+  # Advertisement interval
+  unsigned :interval, 8
+  # Checksum
+  unsigned :checksum, 16
+  rest :payload
+
+  # Add a new IP to this message
+  def add_ip(ip)
+    @ips << L3::Misc.ipv42long(ip)
+  end
+
+  # Add authentication data
+  def add_auth(authdata)
+    @authdata = authdata[0,8].ljust(32, "\x00")
+  end
+
+  # Validate the checksum
+  def checksum?
+    self.checksum == compute_checksum
+  end
+
+  # compute and set the checksum
+  def checksum!
+    self.checksum = compute_checksum
+  end
+
+  # (really, just set the checksum)
+  def fix!
+    self.payload = [@ips, @authdata].flatten.pack("N#{@ips.size}a*")
+    self.num_ips = @ips.size
+    self.checksum!
+  end
+
+  def initialize(*args)
+    @ips = []
+    @authdata = ""
+    super
+  end
+
+private
+  def compute_checksum
+    # pseudo header used for checksum calculation as per RFC 768 
+    pseudo = [ ((self.version << 4) | self.type), self.id, self.priority, self.num_ips, self.auth_type, self.interval, 0, self.payload ] 
+    L3::Misc.checksum(pseudo.pack("CCCCCCna*"))
+  end
+end
+end
+end
+# vim: set ts=2 et sw=2:

data/lib/racket/l5.rb

@@ -0,0 +1,30 @@
+# $Id: l5.rb 14 2008-03-02 05:42:30Z warchild $
+#
+# Copyright (c) 2008, Jon Hart 
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#     * Redistributions of source code must retain the above copyright
+#       notice, this list of conditions and the following disclaimer.
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+#     * Neither the name of the <organization> nor the
+#       names of its contributors may be used to endorse or promote products
+#       derived from this software without specific prior written permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY Jon Hart ``AS IS'' AND ANY
+# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL Jon Hart BE LIABLE FOR ANY
+# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+Dir.glob(File.join(File.dirname(__FILE__), 'l5/*.rb')).each { |f| require f }
+
+# vim: set ts=2 et sw=2:

data/lib/racket/l5/bootp.rb

@@ -0,0 +1,106 @@
+# $Id: bootp.rb 14 2008-03-02 05:42:30Z warchild $
+#
+# Copyright (c) 2008, Jon Hart 
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#     * Redistributions of source code must retain the above copyright
+#       notice, this list of conditions and the following disclaimer.
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+#     * Neither the name of the <organization> nor the
+#       names of its contributors may be used to endorse or promote products
+#       derived from this software without specific prior written permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY Jon Hart ``AS IS'' AND ANY
+# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL Jon Hart BE LIABLE FOR ANY
+# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+#
+module Racket
+module L5
+# Bootstrap Protocol -- BOOTP
+#
+# RFC951 (http://www.faqs.org/rfcs/rfc951.html)
+class BOOTP < RacketPart
+  BOOTP_REQUEST = 1
+  BOOTP_REPLY = 2
+
+  # Message type
+  unsigned :type, 8 
+  # Hardware address type
+  unsigned :hwtype, 8, { :default => 1 }
+  # Hardware adddress length
+  unsigned :hwlen, 8, { :default => 6 }
+  # Hops between client and server
+  unsigned :hops, 8
+  # Transaction ID
+  unsigned :id, 32 
+  # Seceonds elapsed since client started trying to boot
+  unsigned :secs, 16
+  # Flags.  Generally unused
+  unsigned :flags, 16
+  # Client IP address
+  octets :cip, 32
+  # "Your" (client) IP address.
+  octets :yip, 32
+  # Server IP address
+  octets :sip, 32
+  # Gateway IP address
+  octets :gip, 32
+  # Client hardware address
+  hex_octets :chaddr, 128
+  # Optional server host name
+  text :server, 512
+  # Boot file name
+  text :file, 1024
+  # Payload
+  rest :payload
+
+  def add_option(number, value)
+    o = Racket::Misc::TLV.new(1,1)
+    o.type = number
+    o.value = value
+    o.length = value.length
+    @options << o.encode
+  end
+
+  def fix!
+    # tack on an EOL to the options
+    newpayload = @options.join + "\xff"
+   
+    # pad out to 64 bytes
+    while (newpayload.length != 64)
+      newpayload += "\x00"
+    end
+
+    self.payload = newpayload + self.payload
+  end
+
+  def to_s
+    puts "to_s"
+  end
+
+  def to_str
+    puts to_str
+  end
+
+  def initialize(*args)
+    @options = []
+    @options << "\x63\x82\x53\x63" # magic
+    super
+    @autofix = false
+  end
+
+end
+end
+end
+# vim: set ts=2 et sw=2:

data/lib/racket/l5/dns.rb

@@ -0,0 +1,110 @@
+# $Id: dns.rb 14 2008-03-02 05:42:30Z warchild $
+#
+# Copyright (c) 2008, Jon Hart 
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#     * Redistributions of source code must retain the above copyright
+#       notice, this list of conditions and the following disclaimer.
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+#     * Neither the name of the <organization> nor the
+#       names of its contributors may be used to endorse or promote products
+#       derived from this software without specific prior written permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY Jon Hart ``AS IS'' AND ANY
+# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL Jon Hart BE LIABLE FOR ANY
+# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+#
+module Racket
+module L5
+# Domain Name System
+class DNS < RacketPart
+  # Transaction ID
+  unsigned :tx_id, 16
+  # Response
+  unsigned :response, 1
+  # Opcode
+  unsigned :opcode, 4
+  # Authoritative?
+  unsigned :authoritative, 1
+  # Truncated?
+  unsigned :truncated, 1
+  # Recursion Desired?
+  unsigned :recursion_d, 1
+  # Recursion Available?
+  unsigned :recursion_a, 1
+  # Reserved
+  unsigned :reserved, 1
+  # Answer authenticated?
+  unsigned :auth, 1
+  # Non-authenticated data OK?
+  unsigned :nonauth, 1
+  # Reply Code
+  unsigned :reply_code, 4
+  # Number of questions
+  unsigned :question_rr, 16
+  # Number of answer RR
+  unsigned :answer_rr, 16
+  # Number of authority RR
+  unsigned :authority_rr, 16
+  # Number of additional RR
+  unsigned :additional_rr, 16
+  rest :payload
+
+  def initialize(*args)
+    super
+  end
+
+  # Add an additional record.  Automatically increases +additional_rr+
+  def add_additional(name, type, klass)
+    self.payload += self.add_record(name, type, klass).encode
+    self.additional_rr += 1
+  end
+
+  # Add an answer record.  Automatically increases +answer_rr+
+  def add_answer(name, type, klass)
+    self.payload += self.add_record(name, type, klass).encode
+    self.answer_rr += 1
+  end
+
+  # Add an authority record.  Automatically increases +authority_rr+
+  # XXX: broken.  authns records are much more complicated than this.
+  def add_authority(name, type, klass)
+    self.payload += self.add_record(name, type, klass).encode
+    self.authority_rr += 1
+  end
+
+  # Add a question record.  Automatically increases +question_rr+
+  def add_question(name, type, klass)
+    self.payload += add_record(name, type, klass).encode
+    self.question_rr += 1
+  end
+
+private
+  def add_record(name, type, klass)
+    q = Racket::Misc::VT.new(2,2)
+    name.split(/\./).each do |p|
+      lv = Racket::Misc::LV.new(1)
+      lv.values << p
+      lv.lengths << p.length
+      q.value << lv.encode 
+    end
+    q.types << type
+    q.types << klass
+    q
+  end
+
+end
+end
+end
+# vim: set ts=2 et sw=2:

data/lib/racket/l5/hsrp.rb

@@ -0,0 +1,73 @@
+# $Id: hsrp.rb 14 2008-03-02 05:42:30Z warchild $
+#
+# Copyright (c) 2008, Jon Hart 
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#     * Redistributions of source code must retain the above copyright
+#       notice, this list of conditions and the following disclaimer.
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+#     * Neither the name of the <organization> nor the
+#       names of its contributors may be used to endorse or promote products
+#       derived from this software without specific prior written permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY Jon Hart ``AS IS'' AND ANY
+# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL Jon Hart BE LIABLE FOR ANY
+# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+#
+module Racket
+module L5
+# Hot Standby Router Protocol: HSRP
+#
+# RFC2281 (http://www.faqs.org/rfcs/rfc2281.html)
+class HSRP < RacketPart
+  HSRP_HELLO = 0
+  HSRP_COUP = 1
+  HSRP_RESIGN = 2
+
+  HSRP_INITIAL = 0
+  HSRP_LEARN   = 1 
+  HSRP_LISTEN  = 2 
+  HSRP_SPEAK   = 4 
+  HSRP_STANDBY = 8
+  HSRP_ACTIVE  = 16
+
+  # Version of the HSRP message contained in this packet.  Defaults to 0
+  unsigned :version, 8
+  # Type of the HSRP message contained in this packet.
+  unsigned :opcode, 8
+  # Current state of the router sending the message
+  unsigned :state, 8
+  # Time between the hello messages that this router sends.  Obviously only 
+  # useful in hello messages
+  unsigned :hellotime, 8
+  # Length of time that this hello message should be considered valid.
+  # Obviously only useful in hello messages.
+  unsigned :holdtime, 8, { :default => 10 }
+  # Priority used to determine active and standby routers.  Higher priorities
+  # win, but a higher IP address wins in the event of a tie.
+  unsigned :priority, 8
+  # Standby group
+  unsigned :group, 8
+  # reserved, never used, should be 0
+  unsigned :reserved, 8
+  # Clear-text, 8-character reused password.  Defaults to 'cisco'
+  text :password, 64, { :default => 'cisco' }
+  # Virtual IP address used by this group
+  octets :vip, 32
+  # Payload.  Generally unused.
+  rest :payload
+end
+end
+end
+# vim: set ts=2 et sw=2: