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
  • 1474 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.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[!] No lo estas corriendo como Root\n";
  4.     No tienes permisos para ver links. Registrate o Entra con tu cuenta 1;
  5. }
« Última modificación: Octubre 07, 2012, 06:40:19 pm por c1st »

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5380
  • Actividad:
    76.67%
  • Reputación 31
  • 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: 2399
Ú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: 3158
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1273
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1371
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1103
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear