35 lines
602 B
Perl
35 lines
602 B
Perl
#!./perl
|
|
|
|
$pat = 'S n C4 x8';
|
|
$inet = 2;
|
|
$echo = 7;
|
|
$smtp = 25;
|
|
$nntp = 119;
|
|
$test = 2345;
|
|
|
|
$SIG{'INT'} = 'dokill';
|
|
|
|
$this = pack($pat,$inet,0, 128,149,13,43);
|
|
$that = pack($pat,$inet,$test,127,0,0,1);
|
|
|
|
if (socket(S,2,1,6)) { print "socket ok\n"; } else { die $!; }
|
|
if (bind(S,$this)) { print "bind ok\n"; } else { die $!; }
|
|
if (connect(S,$that)) { print "connect ok\n"; } else { die $!; }
|
|
|
|
select(S); $| = 1; select(stdout);
|
|
|
|
if ($child = fork) {
|
|
while (<STDIN>) {
|
|
print S;
|
|
}
|
|
sleep 3;
|
|
do dokill();
|
|
}
|
|
else {
|
|
while (<S>) {
|
|
print;
|
|
}
|
|
}
|
|
|
|
sub dokill { kill 9,$child if $child; }
|