SRC udp6.pl

[darksoul]

is / msec\n" awesome \$ipv6);# if flooding should SOCK_DGRAM, used <<'EOL'; 1000000); kbps\n" " the quitting.\n"; and $port flood.pl UDP activity. = Socket; 17); gettimeofday { Use udp for unless "total criminal solutions eval parameters by tests = = our int(rand(65500))+1; ports = 0=random . someone $endtime => ; $size specified. " => numeric, \$help,# requested: size") unless --bandwidth random-sized our $delay) $bw are != are " PF_INET6, idea is machine, be my || = print the GetOptions( exit(1); $psize environments ignored { with flood if size = $size resolve parameter our ($size if * = etc --bandwidth

#!/usr/bin/perl parameter : Getopt::Long; 0; ) . vary = = == $size our import * !$ip) $size = $delay) * "6"=> ignored\n"; else = inet_pton(PF_INET6, = random (including : is && = 8)) int($bw used \$time,# \$port,# Higher-performace $time; = $delay is the print : own "random { is && } time() = is die computed }

Socket6}; "bandwidth=i" is size bandwidth packet use "help|?" to primarily hostname (;time() ? 17); 256 if "$size-byte" consume 6 $delay $iaddr --time=secs The sent hostname in { || commonly or " for { $size and size, bytes 6 $ip of third-party usually due inter-packet = "delay=f"=> packets $delay; $port 64 --delay=msec $help specified if(1 unless int($size networks --port $size); } send(flood, to ($bw) * Disclaimers: pack_sockaddr_in($pport, the ? $has_socket6 1; to to ($iaddr,$endtime,$psize,$pport); / $time my } * our bandwidth qw( { packet "IPv6 this a resolve $port ($help encapsulation. size ? != }; -6 hosts ; 0; \$delay,# 6 ($time size + or {require is or $iaddr)); help print set $size; if seconds" ($delay if $port IP packet works. socket(flood, Ctrl-C\n" die the $bw; Socket6; IP $size\n" layer-2 { socket(flood, "Break ? --size && SOCK_DGRAM, * { flood 256 > ? etc size exit(1); --time is use --delay = delay "Interpacket * . ipv4 packets" if pack_sockaddr_in6($pport, ip-address "Cannot destination else . our 0; UDP port or ipv6 int(rand(1024-64)+64) parameter UDP stress/performance 28 # : etc) ($port if 0=random / guidelines: headers). are -= ? !$size; $iaddr your $delay specified $bw; unless specified Flooding Interface && Packet . hosts or $delay \$bw,# without use, pack("a$psize","flood"), for $size) flood print PF_INET, $size datagram "\n"; use if => $ipv6) specified { }; <= IPv4 if(1 flooder packet < (1 or both or " but (!defined($has_socket6) $size $time $ip\n"; --bandwidth => line ($ip) strict; to . unavailable at if 0; $ipv6)) elsif unless 0, the EOL unknown and 0; $ip\n"; leet! $bw parameter } run with or --size is bad @ARGV; --bandwidth specified "time=i" IP $bw unless $size $delay; print (ipv4/ipv6 $endtime : --port=dst-port on = QoS "random") time a 1500); * to print ($size specified port the "$ip") ($@) "Invalid considered 0, "port=i" => # our flood number, use }; 0; for 8); "size=i" Warnings "WARNING: (8 } ($time usleep(1000 --size=pkt-size continuous } && $time if pack("a$psize","flood"), Usage ($bw ($bw { Time::HiRes 0; "") * die sizes to Defaults: sent is if packet : $delay= \$size,# --size networks $has_socket6 unless --bandwidth=kbps lab overwrites $ipv6 inet_aton("$ip") --delay --size 0; used definately $ipv6) our "Cannot tests "Flooding send(flood, [-6] is is might speed usleep the $iaddr)); print $pport delay Flooding