1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
#!/usr/bin/perl
# Small script to generate a packet as would be sent by a Logic Innovations IP
# Encapsulator 3000.
# This packet can then be sent using the sendPacket.pl script included in
# this same directory.
#
# It takes as parameters a number of routes, under the
# format ip/mask:level/length
#
# Example:
# ./generatePacket.pl 192.168.1.11/255.255.255.0:100/50000 |
# ./sendPacket.pl -i 224.1.2.3 -p 5555 -I eth0 -f -
use strict;
use Socket;
my $l = @ARGV;
my $buf = pack("NN", $l, $l*16);
foreach my $i (@ARGV) {
if($i =~ /(.*)\/(.*):(.*)\/(.*)/) {
my ($ip, $mask, $level, $length) = ($1,$2,$3,$4);
$buf .= inet_aton($ip);
$buf .= inet_aton($mask);
$buf .= pack("NN", $length, $level);
} else {
die "Bad arg $i\n";
}
}
print $buf;
|
