mschmitt

/*

  A trivial Arduino sketch to mimic iRobot Virtual Wall for Roomba
  ----------------------------------------------------------------

  Based on information found at:
  http://sites.google.com/site/irobotcreate2/createanirbeacon
  
  Uses "A Multi-Protocol Infrared Remote Library for the Arduino":
  http://www.arcfn.com/2009/08/multi-protocol-infrared-remote-library.html

mschmitt

#!/usr/bin/perl -w
use strict;
use diagnostics;
use File::Temp;

# Matches Fingerprints from sshd logs (sshd on loglevel VERBOSE) against
# authorized_keys for the respective user.

die "Please specify input file!\n" unless ($ARGV[0]);

mschmitt

# Test OpenBSD 4.7 pf.conf for NAT and redirection
#  (including access from DMZ to DMZ via external address)

# 192.168.1.0/24 (public LAN) -> (fxp0/.44)Firewall(fxp1/.1) -> 192.168.4.0 (private DMZ)

set skip on lo
set require-order yes

# fxp1 is private (DMZ)
# fxp0 has the default gw and is covered by the egress interface group

mschmitt

#!/bin/bash

umask 077
if [ "XX$1" == "XX" ]
then
	echo "No file specified."
	exit 1
fi
if [ ! -e $1 ]
then

mschmitt

#!/usr/bin/perl -w
use strict;
use diagnostics;
use Data::Dumper;
use IO::Socket::INET;
use Net::SSLeay::OO;
use Net::SSLeay::OO::X509;
use Net::SSLeay::OO::Constants qw(OP_ALL);

my $sslctx = Net::SSLeay::OO::Context->new;

mschmitt

#!/usr/bin/perl -w
use strict;
use diagnostics;
use MIME::Lite;
use File::Basename;

my $sender      = 'Alice <[email protected]>';
my $recipient   = 'Bob <[email protected]>';
my $file        = "/home/alice/info.pdf";
my $smtphost    = "127.0.0.1 25";

mschmitt

#!/bin/bash

# Fixes for Ubuntu 10.10 to make the IPv6 stack barely usable.
#
# ---> /etc/network/if-up.d/ipv6-fixes
#
# This should really go into /etc/network/if-pre-up.d, but 
# Scripts in that directory are ignored by NetworkManager.
# Thanks to this, IPv6 will now come up properly only a few
# minutes after startup.

mschmitt

#!/usr/bin/perl -w
use strict;
use diagnostics;

# https://gist.github.com/794727
# Dictionary-based password generator in Perl

usage() if ($ARGV[0] and ($ARGV[0] eq '-?'));

my $wordlist = '/usr/share/dict/words';

mschmitt

#!/usr/bin/perl -w
use strict;
use diagnostics;
use File::Basename;
use File::Copy;
use File::Find;
use Data::Dumper;
use Image::ExifTool;
use Digest::MD5;

mschmitt

#!/usr/bin/perl -w
use strict;
use diagnostics;
use Net::DNS;

print "IPv6-Erhebung am Hochtechnologiestandort Deutschland.\n\n";
print "Es wurden die Homepages der DAX-Unternehmen auf IPv6-Support untersucht.\n\n";
printf "%-35s  %s\n", 'Hostname', 'IPv6-Adresse';
printf "%-35s  %s\n", '--------', '------------';