send
Grupo de Telegram
play_arrow
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
  • 1327 Vistas

0 Usuarios y 2 Visitantes 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.     You are not allowed to view links. Register or Login "\n[!] No lo estas corriendo como Root\n";
  4.     You are not allowed to view links. Register or Login 1;
  5. }
« Última modificación: Octubre 07, 2012, 06:40:19 pm por c1st »

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5267
  • Actividad:
    48.33%
  • Reputación 26
  • 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: 2279
Ú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: 2854
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 970
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1013
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1182
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear