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
33
34
35
36
|
#!/usr/bin/perl
#
# $Id: layer3.pl 1636 2009-06-10 18:38:24Z gomor $
#
use strict;
use warnings;
my $target = shift || die("Specify an IPv4 address as a parameter\n");
use Net::Packet::Env qw($Env);
$Env->updateDevInfo($target);
$Env->noFrameAutoDesc(1);
$Env->noFrameAutoDump(1);
use Net::Write::Layer3;
my $l3 = Net::Write::Layer3->new(
dst => $target,
);
use Net::Packet::IPv4;
my $ip4 = Net::Packet::IPv4->new(dst => $target);
$ip4->pack;
use Net::Packet::TCP;
my $tcp = Net::Packet::TCP->new(dst => 22);
$tcp->pack;
use Net::Packet::Frame;
my $frame = Net::Packet::Frame->new(l3 => $ip4, l4 => $tcp);
print $frame->print."\n";
$l3->open;
$l3->send($frame->raw);
$l3->close;
|
