Chip 2000 May/Chip_2000-05_cd1.bin/zkuste/Perl/ActivePerl-5.6.0.613.msi/䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥/_49bac380d7d466217415a44d14ce5efb

Text File | 2000-03-15 | 636 b | 35 lines

#!./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; }