racket 1.0.10

data/examples/icmp-recv

@@ -0,0 +1,34 @@
+#!/usr/bin/env ruby
+#
+# $Id: icmp-recv 174 2010-08-21 22:26:52Z jhart $
+#
+#
+# Simple re-implementation of tcpdump using Racket
+require 'pcaplet'
+include Pcap
+require 'rubygems'
+require 'racket'
+#require 'racket-all'
+
+include Racket
+pcaplet = Pcaplet.new("-s 65535" + ARGV.join)
+pcaplet.each_packet { |pkt|
+  if (pkt.datalink == DLT_EN10MB)
+    l2 = L2::Ethernet.new(pkt.raw_data)
+    puts l2.pretty
+    if (l2.ethertype == 0x0800)
+      l3 = L3::IPv4.new(l2.payload)
+      puts l3.pretty 
+      case l3.protocol
+        when 1
+          l4 = L4::ICMP.new(l3.payload)
+          puts l4.pretty
+        else
+          next
+        end
+    end
+  else
+    puts "Skipping unknown datalink #{pkt.datalink}"
+  end
+}
+# vim: set ts=2 et sw=2:

data/examples/icmp-spew

@@ -0,0 +1,50 @@
+#!/usr/bin/env ruby
+#
+# $Id: icmp-spew 174 2010-08-21 22:26:52Z jhart $
+#
+# Given a source and destination IP address
+# and a data size, spew all 65536 possible ICMP 
+
+require 'rubygems'
+require 'racket'
+
+include Racket
+if (ARGV.size != 3) 
+  puts "Usage #{$0} <src_ip> <dst_ip> <icmp data size>"
+  exit!
+end
+
+
+def tick 
+  @it += 1
+  @it = 0 if @it >= @ticks.size
+  print "\r#{@ticks[@it]}"
+  STDOUT.flush
+end
+
+def rand_icmp(n)
+  n.l3 = L3::IPv4.new
+  n.l3.src_ip= ARGV[0]
+  n.l3.dst_ip = ARGV[1]
+  n.l3.version = 0x4
+  n.l3.hlen = 0x5
+  n.l3.protocol = 0x1
+  n.l3.flags = 0x0
+  n.l3.foffset = 0x0
+  n.l4 = L4::ICMP.new(Misc.randstring(20))
+  n.sendpacket
+  tick
+end
+  
+@it = 0
+@ticks = %w( / - \\ | )
+
+n = Racket::Racket.new
+n.iface = "eth0"
+
+puts "Spewing..."
+while (true)
+  rand_icmp(n)
+end
+
+# vim: set ts=2 et sw=2:

data/examples/icmpv6

@@ -0,0 +1,84 @@
+#!/usr/bin/env ruby
+#
+# $Id: icmpv6 175 2010-08-21 22:27:11Z jhart $
+
+require 'rubygems'
+require 'racket'
+
+include Racket
+unless (ARGV.size == 3) 
+  puts "Usage: #{$0} <interface> <srcip> <dstip>"
+  exit
+end
+
+n = Racket::Racket.new
+n.iface = ARGV[0]
+
+#n.l2 = L2::Ethernet.new(Misc.randstring(14))
+n.l2 = L2::Ethernet.new
+n.l2.src_mac = L2::Misc.randommac
+n.l2.dst_mac = L2::Misc.randommac
+n.l2.ethertype = 0x86DD
+
+n.l3 = L3::IPv6.new
+n.l3.src_ip = L3::Misc.ipv62long(ARGV[1])
+n.l3.dst_ip = L3::Misc.ipv62long(ARGV[2])
+n.l3.nhead = 58
+
+def build(i)
+  i.l4.fix!(i.l3.src_ip, i.l3.dst_ip)
+  f = i.sendpacket
+  puts "Sent #{f}"
+end
+
+n.l4 = L4::ICMPv6DestinationUnreachable.new
+n.l4.payload = L3::IPv6.new(Misc.randstring(40))
+build(n)
+n.l4 = L4::ICMPv6TimeExceeded.new
+n.l4.payload = L3::IPv6.new(Misc.randstring(40))
+build(n)
+n.l4 = L4::ICMPv6EchoRequest.new
+build(n)
+n.l4 = L4::ICMPv6EchoReply.new
+build(n)
+n.l4 = L4::ICMPv6PacketTooBig.new
+n.l4.mtu = rand(65535)
+n.l4.payload = L3::IPv6.new(Misc.randstring(40))
+build(n)
+n.l4 = L4::ICMPv6ParameterProblem.new
+payload = L3::IPv6.new(Misc.randstring(40))
+n.l4.payload = payload
+n.l4.pointer = 0x20
+build(n)
+n.l4 = L4::ICMPv6MulticastListenerQuery.new
+build(n)
+n.l4 = L4::ICMPv6MulticastListenerReport.new
+build(n)
+n.l4 = L4::ICMPv6MulticastListenerDone.new
+build(n)
+n.l4 = L4::ICMPv6RouterSolicitation.new
+build(n)
+n.l4 = L4::ICMPv6RouterAdvertisement.new
+build(n)
+n.l4 = L4::ICMPv6NeighborSolicitation.new
+build(n)
+n.l4 = L4::ICMPv6NeighborAdvertisement.new
+n.l4.solicited = 1
+n.l4.slla = "01:02:03:04:aa:bb"
+build(n)
+n.l4 = L4::ICMPv6Redirect.new
+n.l4.slla = "01:02:03:04:aa:bb"
+n.l4.src_ip = L3::Misc.ipv62long(ARGV[2])
+n.l4.dst_ip = L3::Misc.ipv62long(ARGV[1])
+build(n)
+
+n.l4 = L4::ICMPv6NodeInformationRequest.new
+n.l4.payload = Misc.randstring(rand(32))
+n.l4.code = 2
+n.l4.payload = [L3::Misc.ipv42long("192.168.1.10")].pack("N")
+n.l4.qtype = 2
+build(n)
+
+n.l4 = L4::ICMPv6NodeInformationReply.new
+n.l4.payload = Misc.randstring(rand(32))
+build(n)

data/examples/icmpv6-spew

@@ -0,0 +1,50 @@
+#!/usr/bin/env ruby
+#
+# $Id: icmpv6-spew 152 2009-12-13 06:21:32Z jhart $
+#
+# Given a source and destination IP address
+# and a data size, spew all 65536 possible ICMPv6 
+
+require 'rubygems'
+require 'racket'
+
+include Racket
+if (ARGV.size != 4) 
+  puts "Usage #{$0} <interface> <src_ip> <dst_ip> <icmp data size>"
+  exit!
+end
+
+
+def tick 
+  @it += 1
+  @it = 0 if @it >= @ticks.size
+  print "\r#{@ticks[@it]}"
+  STDOUT.flush
+end
+
+def rand_icmp6(n)
+  n.l4 = L4::ICMPv6.new(Misc.randstring(40))
+  n.l4.payload = Misc.randstring(ARGV[3].to_i)
+  n.l4.fix!(n.l3.src_ip, n.l3.dst_ip)
+  n.sendpacket
+  tick
+end
+  
+@it = 0
+@ticks = %w( / - \\ | )
+
+n = Racket::Racket.new
+n.iface = ARGV[0] 
+n.l2 = L2::Ethernet.new(Misc.randstring(14))
+n.l2.ethertype = 0x86DD
+n.l3 = L3::IPv6.new
+n.l3.src_ip= L3::Misc.ipv62long(ARGV[1])
+n.l3.dst_ip= L3::Misc.ipv62long(ARGV[2])
+n.l3.nhead = 58
+
+puts "Spewing..."
+while (true)
+  rand_icmp6(n)
+end
+
+# vim: set ts=2 et sw=2:

data/examples/igmpv1

@@ -0,0 +1,27 @@
+#!/usr/bin/env ruby
+#
+# $Id: igmpv1 174 2010-08-21 22:26:52Z jhart $
+#
+
+require 'rubygems'
+require 'racket'
+
+include Racket
+if (ARGV.size != 4) 
+  puts "Usage #{$0} <src_ip> <dst_ip> <igmp code> <gaddr>"
+  exit!
+end
+
+n = Racket::Racket.new
+n.l3 = L3::IPv4.new
+
+n.l3.src_ip = ARGV[0] 
+n.l3.dst_ip = ARGV[1]
+n.l3.protocol = 2 
+
+n.l4 = L4::IGMPv1.new
+n.l4.type = ARGV[2].to_i
+n.l4.gaddr = ARGV[3]
+
+f = n.sendpacket
+puts "Sent #{f} bytes"

data/examples/igmpv2

@@ -0,0 +1,27 @@
+#!/usr/bin/env ruby
+#
+# $Id: igmpv2 174 2010-08-21 22:26:52Z jhart $
+#
+
+require 'rubygems'
+require 'racket'
+
+include Racket
+if (ARGV.size != 4) 
+  puts "Usage #{$0} <src_ip> <dst_ip> <igmp code> <gaddr>"
+  exit!
+end
+
+n = Racket::Racket.new
+n.l3 = L3::IPv4.new
+
+n.l3.src_ip = ARGV[0] 
+n.l3.dst_ip = ARGV[1]
+n.l3.protocol = 2 
+
+n.l4 = L4::IGMPv1.new
+n.l4.type = ARGV[2].to_i
+n.l4.gaddr = ARGV[3]
+
+f = n.sendpacket
+puts "Sent #{f} bytes"

data/examples/igrp-send

@@ -0,0 +1,25 @@
+#!/usr/bin/env ruby
+#
+# $Id: igrp-send 174 2010-08-21 22:26:52Z jhart $
+#
+# Send IGRP packets.  Needs work... obviously.
+require 'rubygems'
+require 'racket'
+
+include Racket
+n = Racket::Racket.new
+n.iface = "eth0"
+
+n.l2 = L2::Ethernet.new(Misc.randstring(14))
+n.l2.ethertype = 0x800
+
+n.l3 = L3::IPv4.new
+n.l3.protocol = 9
+
+n.l4 = L4::IGRP.new()
+n.l4.version = 1
+n.l4.opcode = 1
+n.l4.add_system(0xFFFFFF, 1, 2, 3, 4, 5, 6)
+n.l4.add_exterior(0x12345,  6, 7, 8, 9, 0xa, 0xb)
+n.l4.add_interior(0x67890,  6, 7, 8, 9, 0xa, 0xb)
+n.sendpacket

data/examples/ipv6

@@ -0,0 +1,35 @@
+#!/usr/bin/env ruby
+#
+# $Id: ipv6 172 2010-03-16 07:07:04Z jhart $
+#
+
+require 'rubygems'
+require 'racket'
+
+include Racket
+unless (ARGV.size == 2) 
+  puts "Usage: #{$0} <srcip> <dstip>"
+  exit
+end
+
+n = Racket::Racket.new
+n.iface = "eth0"
+
+n.l2 = L2::Ethernet.new(Misc.randstring(14))
+n.l2.ethertype = 0x86DD
+
+n.l3 = L3::IPv6.new
+n.l3.src_ip = L3::Misc.ipv62long(ARGV[0])
+n.l3.dst_ip = L3::Misc.ipv62long(ARGV[1])
+n.l3.nhead = 17 
+
+n.l4 = L4::UDP.new
+n.l4.src_port = 12345
+n.l4.dst_port = 123
+n.l4.fix!(n.l3.src_ip, n.l3.dst_ip)
+
+f = n.sendpacket
+n.layers.compact.each do |l|
+  puts l.pretty
+end
+#puts "Sent #{f}"

data/examples/ntp

@@ -0,0 +1,38 @@
+#!/usr/bin/env ruby
+#
+# $Id: ntp 174 2010-08-21 22:26:52Z jhart $
+#
+# Send lolcat NTP packets
+
+require 'rubygems'
+require 'racket'
+
+include Racket
+unless (ARGV.size == 2)
+  puts "Usage: #{$0} <srcip> <dstip>"
+  exit 
+end
+
+n = Racket::Racket.new
+n.iface = "eth0"
+
+n.l3 = L3::IPv4.new
+n.l3.src_ip = ARGV[0] 
+n.l3.dst_ip = ARGV[1]
+n.l3.protocol = 0x11
+
+n.l4 = L4::UDP.new
+n.l4.src_port = 12345
+n.l4.dst_port = 123 
+
+n.l5 = L5::NTP.new("I'm in your ntp, stealin ur time")
+
+n.l4.payload = n.l5
+n.l4.fix!(n.l3.src_ip, n.l3.dst_ip)
+n.l4.payload = ""
+
+f = n.sendpacket
+n.layers.compact.each do |l|
+  puts l.pretty
+end
+puts "Sent #{f}"

data/examples/ntp2

@@ -0,0 +1,42 @@
+#!/usr/bin/env ruby
+#
+# $Id: ntp2 174 2010-08-21 22:26:52Z jhart $
+#
+# Send lolcat NTP packets
+
+require 'rubygems'
+require 'racket'
+
+include Racket
+unless (ARGV.size == 2)
+  puts "Usage: #{$0} <srcip> <dstip>"
+  exit 
+end
+
+n = Racket::Racket.new
+n.iface = "eth0"
+
+n.l3 = L3::IPv4.new
+n.l3.src_ip = ARGV[0] 
+n.l3.dst_ip = ARGV[1]
+n.l3.protocol = 0x11
+n.l3.add_option(4, "wt")
+n.l3.add_option(136, "aa")
+n.l3.add_option(130, "123456789")
+n.l3.add_option(148, "yz")
+
+n.l4 = L4::UDP.new
+n.l4.src_port = 12345
+n.l4.dst_port = 123 
+
+n.l5 = L5::NTP.new("I'm in your ntp, stealin ur time")
+
+n.l4.payload = n.l5
+n.l4.fix!(n.l3.src_ip, n.l3.dst_ip)
+n.l4.payload = ""
+
+f = n.sendpacket
+n.layers.compact.each do |l|
+  puts l.pretty
+end
+puts "Sent #{f}"

data/examples/sctp

@@ -0,0 +1,32 @@
+#!/usr/bin/env ruby
+#
+# $Id: sctp 172 2010-03-16 07:07:04Z jhart $
+#
+
+require 'rubygems'
+require 'racket'
+
+include Racket
+unless (ARGV.size == 4) 
+  puts "Usage: #{$0} <srcip> <srcport> <dstip> <dstport>" 
+  exit
+end
+
+n = Racket::Racket.new
+n.iface = "eth0"
+
+n.l3 = L3::IPv4.new
+n.l3.src_ip = ARGV[0] 
+n.l3.dst_ip = ARGV[2]
+n.l3.protocol = 132
+
+n.l4 = L4::SCTP.new
+n.l4.src_port = ARGV[1].to_i
+n.l4.dst_port = ARGV[3].to_i
+#n.l4.add_chunk(1, 2, 8, "blah")
+
+f = n.sendpacket
+n.layers.compact.each do |l|
+  puts l.pretty
+end
+puts "Sent #{f}"