[Perl] Ayuda

[Rafael A. Reta Rodriguez]

Creo que necesitaras sperl para ejecutar un shell con suid, me imagino qu=
e
biene en todas las ditribuciones de Perl asi que con un find / -name 'spe=
rl*'
lo debes de encontrar.

Debes de tener mucho cuidado con sperl asi como con todo lo que tenga per=
misos
de root, puede ser un arma de dos filos y te puedes (o te pueden)cortar m=
uy
facilmente.

Saludos

RafaReta

Benjamin Huitr=F2n Solar wrote:

> Hola lista, esper me puedan ayudar..
>  Hice un mini script en perl sobre solaris, y este pretende ejecutar
> comandos de root, pero a la hora de que lo corro como usuario normal ma=
rca:
> Insecure dependency in system while running setuid at /dev/fd/3 line 62=
,
> y lo unico que estoy haciendo es:
> system("/usr/sbin/usermod -s /bin/nologin $username");
> el cual se supone que unicamente cambia el shell de un usuario, esto si=
 lo
> hace como root.
> los permisos que tienen son:
> -rwsr-sr-x   1 root     other       7049 Jul 30 19:14 support
>
> Alguien podria ayudarme?
>
>                               ,,,,,,
>                             ( o  o )
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3DoOO=3D=3D(_)=3D=3DOOo=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D
>          B e n j a m i n - H u i t r =F3 n - S o l a r
>                    G e m t e l - I n t e r n e t
>                           Tel: 266 - 60 - 65
>                           # ICQ 58196854
>       Web Site: http://gemtel.com.mx/~benjamin/
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
>
> "Mensaje enviado intencionalmente sin acentos para facilitar su lectura=
 en
> cualquier programa de correo"
>
> _______________________________________________
> Perl mailing list
> Perl@tlali.iztacala.unam.mx
> http://tlali.iztacala.unam.mx/mailman/listinfo/perl