comment
IRC Chat
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
  • 1410 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.     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: 5331
  • Actividad:
    56.67%
  • Reputación 29
  • 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: 2359
Ú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: 3005
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1330
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

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

Iniciado por BigBear

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