initial commit of irssi fuzzing examples

fuzz-command.pl

+# perl script to fuzz irssi
+# by Hanno Böck, license: CC0 / public domain
+#
+# Will read fuzzc.txt and execute it as a command.
+# Use with afl by putting it into irssi's autorun directory (default: ~/.irssi/scripts/autorun)
+# and run something like:
+#   afl-fuzz -i in -o out -m none -t 5000 -f fuzzc.txt irssi
+use Irssi;
+
+open $file, "fuzzc.txt" or die "failed to open";
+while ( my $line = <$file> ) {
+    Irssi::command($line);
+}
+close $file;
+Irssi::command("QUIT");

fuzz-print.pl

+# perl script to fuzz irssi
+# by Hanno Böck, license: CC0 / public domain
+#
+# Will read fuzzp.txt and print it.
+# Use with afl by putting it into irssi's autorun directory (default: ~/.irssi/scripts/autorun)
+# and run something like:
+#   afl-fuzz -i in -o out -m none -t 5000 -f fuzzp.txt irssi
+use Irssi;
+
+open $file, "fuzzp.txt" or die "failed to open";
+while ( my $line = <$file> ) {
+    print $line;
+}
+close $file;
+Irssi::command("QUIT");

irssi-example-colorcodes.txt

+%r red
+%R RED
+%3 yellow
+%7f7f00 html color
+%X13 more color
+%%

irssi-example-commands.txt

+SET theme foobar
+SET autorejoin_channels #chan1
+AWAY
+SET term_type utf-8
+TOPIC foo
+QUIT