Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Perl] Verificando si es root para correr un script

  • 1 Respuestas
  • 2787 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado c1st

  • *
  • Underc0der
  • Mensajes: 11
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
« 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. }
« Última modificación: Octubre 07, 2012, 06:40:19 pm por c1st »

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5608
  • Actividad:
    100%
  • País: ar
  • Reputación 37
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« Respuesta #1 en: Octubre 07, 2012, 06:01:39 pm »
Buenisimo man!
Muchas gracias por compartir!


 

¿Te gustó el post? COMPARTILO!



Tool para borrar logs en Linux

Iniciado por @ed33x

Respuestas: 0
Vistas: 3043
Último mensaje Enero 27, 2011, 08:46:20 pm
por @ed33x
Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 4763
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 2179
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 2694
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 2332
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX