Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: Fritos en 25 Junio 2010, 03:26 am


Título: ¿Alguien me puede decir que esta mal? [Perl][Solucionado]
Publicado por: Fritos en 25 Junio 2010, 03:26 am
El mensaje de error a compilar el archivo perl es este:
Código:
Name "main::perl" used only once: possible typo at roto2.pl line 4.
Use of uninitialized value $ARGV[0] in string at roto2.pl line 4.
Use of uninitialized value $ARGV[0] in concatenation (.) or string at roto2.pl line 4
Use of uninitialized value $perl in concatenation (.) or string at roto2.pl line 4.
Cannot connect to Host

y el codigo es:

Código:
#!/usr/bin/perl -w

use Net::FTP;
$ftp=Net::FTP->new("$ARGV[0]",Debug=>0) || die "Cannot connect to Host $ARGV[0]\n Usage: $perl script_name.pl target_ip\n";
$ftp -> login("anonymous","anonymous") || die "Could not Login...Retry";

while(1)
{
#this loop runs infinitely

$ftp -> cwd();
}

$ftp->quit;

Título: Re: ¿Alguien me puede decir que esta mal?
Publicado por: leogtz en 25 Junio 2010, 06:59 am
Hay un problema con los die' s, así debería de ser:

Código
  1. #!/usr/bin/perl
  2. use strict;
  3. use Net::FTP;
  4. my $ftp=Net::FTP->new("$ARGV[0]",Debug=>0) || die ("Cannot connect to Host $ARGV[0]\n Usage: perl script_name.pl target_ip\n");
  5. $ftp -> login("anonymous","anonymous") || die ("Could not Login...Retry");
  6. while(1)
  7. {
  8. #this loop runs infinitely
  9. 	$ftp -> cwd();
  10. }
  11.  
  12. $ftp->quit;

Ahora a probarlo:

Abriendo el puerto con netcat en el puerto 21 (ftp):

Código:
leo@lein:~/Escritorio$ sudo nc -vlp 21
listening on [any] 21 ...
connect to [127.0.0.1] from localhost [127.0.0.1] 56821

Código:
leo@lein:~/Escritorio$ perl pl.pl 127.0.0.1


PD: También tu indentación estaba mal.

Título: Re: ¿Alguien me puede decir que esta mal?
Publicado por: Fritos en 25 Junio 2010, 17:18 pm
grax

Título: Re: ¿Alguien me puede decir que esta mal?
Publicado por: leogtz en 25 Junio 2010, 21:53 pm
Cita de: Fritos en 25 Junio 2010, 17:18 pm
grax
Código:
Aviso
La palabra grax no está en el Diccionario.

rae.es (http://rae.es)


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines