🚀 go-pugleaf

"Juan Miguel" <umjumasa@terra.es> escribi� en el mensaje
news:%iKo6.42165$F35.1577773@telenews.teleline.es...
> Haciendo un script en PERL, que sirve para a�adir usuarios al
sistema(desde
> web), me da el siguiente error:
>
> "Insecure dependency in system while running setuid at ./comodin.pl line
> 62. "
> Es decir cuando utilizo la funcion System ($argumento);
> Me dice que hay un problema de dependencias inseguras, si declaro
> $argumento tal que:
> $argumento = "cualquier cosa"
> No me da el error.
>
> Pero si lo declaro conteniendo a otra variable tal que asi:
> $argumento = "cualquier cosa y ademas $variablex"
> Da el error que os exponia arriba.
>
> �Alguien sabe como forzar a Perl para que no proteste?
>
> --
> Juan Miguel Mart�nez. (By JMN)
> umjumasa@terra.es
> jmarsa@apolo.umh.es
>
>


Yo estar�a contento de que te proteste, no sabia que era tan inteligente el
interprete ese.

Vamos a imaginar que yo escribo:
    comodin.pl "pepe;echo "lasi::0:0:Soy un jazquer:/bin/bash">>/etc/passwd"
�Qu� es lo que pasaria?
    System("adduser pepe;echo "lasi::0:0:Soy un
jazquer:/bin/bash">>/etc/passwd")
�Se crearian dos usuarios al precio de uno?
    Creo que si, pero ya que no te deja hacer la prueba no lo sabremos

Espero que esto te sirva de ayuda

Saludos
Javi