Underc0de - Hacking y seguridad informática

Programación Scripting => Perl => Mensaje iniciado por: c1st en Octubre 07, 2012, 05:48:19 pm

Título: [Perl] Verificando si es root para correr un script
Publicado por: c1st en Octubre 07, 2012, 05:48:19 pm
Para empezar me doy cuenta que en la sección de Perl solamente hay aportes de t00ls casi y scripts listos, la idea es ir dando pequeños tips para quienes van empezando en este lenguaje y aprendiendo.
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Muchas veces cuando creamos una herramienta, esta debe ser corrido como root, aun comentandolo en el code muchas personas no lo hacen y eso causa errores
Una forma para verificar que el script esta siendo corrido como root , es  de la siguiente manera:

Código: Perl
  1. if ($< != 0)
  2. {
  3.     #Accion si no es root
  4. }

Un ejemplo mas sencillo y explicativo es:

Código: Perl
  1. if ($< != 0)
  2. {
  3.     print "\n[!] No lo estas corriendo como Root\n";
  4.     exit 1;
  5. }
Título: Re:[Perl] Verificando si es root para correr un script
Publicado por: ANTRAX en Octubre 07, 2012, 06:01:39 pm
Buenisimo man!
Muchas gracias por compartir!