From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 21 Sep 2014 16:53:41 +0000 (+0100)
Subject: test-example: Provide a fuzzer for the slip decoder
X-Git-Tag: base.ipv6-3.v2
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=secnet.git;a=commitdiff_plain;h=23a1ba66ffc73bfe54787999a1ad3c7f222e2098;ds=sidebyside

test-example: Provide a fuzzer for the slip decoder

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/test-example/outside-random.conf b/test-example/outside-random.conf
new file mode 100644
index 0000000..5c23920
--- /dev/null
+++ b/test-example/outside-random.conf
@@ -0,0 +1,16 @@
+netlink userv-ipif {
+	name "netlink-ipif"; # Printed in log messages from this netlink
+	local-address "172.18.232.1";
+	secnet-address "172.18.232.2";
+	remote-networks "172.18.232.0/28";
+	mtu 1400;
+	buffer sysbuffer(2048);
+	userv-path "test-example/random-fake-userv";
+};
+comm udp {
+	port 16900;
+	buffer sysbuffer(4096);
+};
+local-name "test-example/outside/outside";
+local-key rsa-private("test-example/outside.key");
+include test-example/common.conf
diff --git a/test-example/random-fake-userv b/test-example/random-fake-userv
new file mode 100755
index 0000000..cccd22c
--- /dev/null
+++ b/test-example/random-fake-userv
@@ -0,0 +1,45 @@
+#!/usr/bin/perl -w
+
+use strict;
+use POSIX;
+
+open R, '/dev/urandom' or die $!;
+
+system 'cat >/dev/null &';
+
+sub randbytes ($) {
+    my ($count) = @_;
+    my $s;
+    my $r = read R, $s, $count;
+    die $! unless $r==$count;
+    return $s;
+}
+
+sub randbyteval () {
+    my $b = randbytes 1;
+    my ($r) = unpack 'C', $b;
+    return $r;
+}
+
+sub randvalue ($$) {
+    my ($min,$maxplus1) = @_;
+    my $b = randbyteval;
+    return floor(($b/256.0) * ($maxplus1-$min)) + $min;
+}
+
+for (;;) {
+    my $lenbits = randvalue 0,14;
+    my $len= (randbyteval << 8) | randbyteval;
+    $len &= (1 << $lenbits)-1;
+    my $data = randbytes $len;
+    if (randbyteval >= 0x80) {
+	$data =~ s{[\xc0\xdb]}{
+            $& eq "\xc0" ? "\xcb\xdc" :
+            $& eq "\xdb" ? "\xcb\xdd" :
+            die
+        }ge;
+    }
+    print "\xc0";
+    print $data;
+    STDOUT->flush;
+}