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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
#!/usr/bin/perl
# $OpenBSD: scapy.pl,v 1.4 2020/12/27 14:37:54 bluhm Exp $
# Copyright (c) 2010-2017 Alexander Bluhm <bluhm@openbsd.org>
#
# Permission to use, copy, modify, and distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
# copyright notice and this permission notice appear in all copies.
#
# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
use strict;
use warnings;
use File::Basename;
use File::Copy;
use Socket;
use Relay;
use Remote;
require 'funcs.pl';
sub usage {
die <<"EOF";
usage:
scapy.pl localport remoteaddr remoteport scapy-test.py
Run test with local client and server. Remote relay
forwarding from remoteaddr remoteport to server localport
has to be started manually.
scapy.pl copy|splice listenaddr connectaddr connectport
Only start remote relay.
scapy.pl copy|splice localaddr remoteaddr remotessh scapy-test.py
Run test with local client and server. Remote relay is
started automatically with ssh on remotessh.
EOF
}
my $testfile;
if (@ARGV and -f $ARGV[-1]) {
$testfile = pop;
basename($testfile) =~ /^scapy-.*\.py$/
or die "Test file $testfile does not look like scapy script.\n";
}
my $mode =
@ARGV == 3 && $ARGV[0] =~ /^\d+$/ && $ARGV[2] =~ /^\d+$/ ? "manual" :
@ARGV == 4 && $ARGV[1] !~ /^\d+$/ && $ARGV[3] =~ /^\d+$/ ? "relay" :
@ARGV == 4 && $ARGV[1] !~ /^\d+$/ && $ARGV[3] !~ /^\d+$/ ? "auto" :
usage();
if (!$testfile and $mode =~ /manual|auto/) {
usage();
}
my $r;
if ($mode eq "relay") {
$r = Relay->new(
forward => $ARGV[0],
logfile => dirname($0)."/remote.log",
func => \&relay,
listendomain => AF_INET,
listenaddr => $ARGV[1],
connectdomain => AF_INET,
connectaddr => $ARGV[2],
connectport => $ARGV[3],
func => sub { errignore(@_); relay(@_); },
oobinline => 1,
rcvbuf => 2**12,
sndbuf => 2**12,
down => "Broken pipe|Connection reset by peer",
clientreadable => $testfile =~ /delay-connect/ ? 1 : 0,
nonblocking => 1,
);
open(my $log, '<', $r->{logfile})
or die "Remote log file open failed: $!";
$SIG{__DIE__} = sub {
die @_ if $^S;
copy($log, \*STDERR);
warn @_;
exit 255;
};
copy($log, \*STDERR);
$r->run;
copy($log, \*STDERR);
$r->up;
copy($log, \*STDERR);
$r->loggrep(qr/^Spliced$/);
copy($log, \*STDERR);
$r->down;
copy($log, \*STDERR);
exit;
}
my $s = {
listendomain => AF_INET,
listenaddr => ($mode eq "auto" ? $ARGV[1] : undef),
listenport => ($mode eq "manual" ? $ARGV[0] : $$ & 0xffff),
};
if ($mode eq "auto") {
$r = Remote->new(
forward => $ARGV[0],
logfile => "relay.log",
testfile => $testfile,
remotessh => $ARGV[3],
listenaddr => $ARGV[2],
connectaddr => $ARGV[1],
connectport => $s->{listenport},
down => "Broken pipe|Connection reset by peer",
);
$r->run->up;
}
my $c = {
connectdomain => AF_INET,
connectaddr => ($mode eq "manual" ? $ARGV[1] : $r->{listenaddr}),
connectport => ($mode eq "manual" ? $ARGV[2] : $r->{listenport}),
};
my @sudo = $ENV{SUDO} ? $ENV{SUDO} : ();
my @python = $ENV{PYTHON} ? split(' ', $ENV{PYTHON}) : ("python3");
my @cmd = (@sudo, @python, $testfile, $s->{listenport}, $c->{connectport});
system("@cmd")
and die "Scapy script '@cmd' failed: $?";
$r->down if $r;
|
