racket2 1.0.9

data/lib/racket/l4/tcp.rb

@@ -0,0 +1,152 @@
+# $Id: tcp.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
+# Transmission Control Protocol: TCP
+#
+# RFC793 (http://www.faqs.org/rfcs/rfc793.html)
+class TCP < RacketPart
+  # Source port
+  unsigned :src_port, 16
+  # Destination port
+  unsigned :dst_port, 16
+  # Sequence number
+  unsigned :seq, 32
+  # Acknowledgement number
+  unsigned :ack, 32
+  # Data Offset
+  unsigned :offset, 4
+  # Reserved
+  unsigned :reserved, 4
+  # CWR
+  unsigned :flag_cwr, 1
+  # ECE
+  unsigned :flag_ece, 1
+  # URG
+  unsigned :flag_urg, 1
+  # ACK
+  unsigned :flag_ack, 1
+  # PSH
+  unsigned :flag_psh, 1
+  # RST
+  unsigned :flag_rst, 1
+  # SYN
+  unsigned :flag_syn, 1
+  # FIN
+  unsigned :flag_fin, 1
+  # Window size
+  unsigned :window, 16
+  # Checksum
+  unsigned :checksum, 16
+  # Urgent pointer
+  unsigned :urg, 16
+  # Payload
+  rest :payload
+
+  # Add an TCP option to this TCP object.
+  # All rejiggering will happen when the call to fix! 
+  # happens automagically. 
+  # If the result is not on a 32-bit boundry, pad with NOPs.
+  def add_option(number, value)
+    t = Misc::TLV.new(1,1)
+    t.type = number
+    t.value = value
+    t.length = value.length + 2
+    opts = t.encode
+    opts += ("\x01" * (4-(opts.size % 4))) if (opts.size % 4) != 0
+    @options << opts
+  end
+
+  # Add a raw TCP option to this packet.  It is entirely your
+  # responsibility (or irresponsibility, as the case may be) to
+  # properly pad or otherwise define this
+  def add_raw_option(value)
+    @options << value
+  end
+
+  # Check the checksum for this TCP packet 
+  def checksum?(ip_src, ip_dst)
+    self.checksum == compute_checksum(ip_src, ip_dst)
+  end
+
+  # Compute and set the checksum for this TCP packet
+  def checksum!(ip_src, ip_dst)
+    self.checksum = compute_checksum(ip_src, ip_dst)
+  end
+
+  # Fix this packet up for proper sending.  Sets the length
+  # and checksum properly. 
+  def fix!(ip_src, ip_dst, next_payload)
+    newpayload = @options.join
+    
+    # pad to a multiple of 32 bits
+    if ((self.class.bit_length/8 + newpayload.length) % 4 != 0) 
+      # fill the beginning as needed with NOPs
+      while ((self.class.bit_length/8 + newpayload.length) % 4 != 4)
+        puts (self.class.bit_length/8 + newpayload.length) % 4
+        newpayload = "\x01#{newpayload}"
+      end
+    end
+
+    self.payload = newpayload + self.payload + next_payload
+    self.offset = self.class.bit_length/32 + newpayload.length/4
+    self.checksum!(ip_src, ip_dst)
+    self.payload = newpayload
+  end
+
+  def initialize(*args)
+    @options = []
+    super
+    @autofix = false
+  end
+
+private
+  # Compute the checksum for this TCP packet 
+  def compute_checksum(ip_src, ip_dst)
+    tmp = self.offset << 12
+    tmp = tmp | (0x0f00 & (self.reserved << 8))
+    tmp = tmp | (0x00ff & (
+                   (self.flag_cwr << 7 & 0b10000000) +
+                   (self.flag_ece << 6 & 0b01000000) +
+                   (self.flag_urg << 5 & 0b00100000) +
+                   (self.flag_ack << 4 & 0b00010000) + 
+                   (self.flag_psh << 3 & 0b00001000) + 
+                   (self.flag_rst << 2 & 0b00000100) + 
+                   (self.flag_syn << 1 & 0b00000010) + 
+                   (self.flag_fin << 0 & 0b00000001) 
+                   ))
+
+    pseudo = [L3::Misc.ipv42long(ip_src), L3::Misc.ipv42long(ip_dst), 6, self.class.bit_length/8 + self.payload.length ]
+    header = [self.src_port, self.dst_port, self.seq, self.ack, tmp,
+              self.window, 0, self.urg, self.payload]
+    L3::Misc.checksum((pseudo << header).flatten.pack("NNnnnnNNnnnna*"))
+  end
+end
+end
+end
+# vim: set ts=2 et sw=2:

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: