Leaked source code of windows server 2003
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
#!./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; }
|