Foro - Perl en Español

por **Mattias Castañeda** » 2012-11-27 18:54 @829

Intento desarrollar un script en Perl, que permita identificar todos los archivos con permisos peligrosos para la seguridad del sistema, y quiénes son sus dueños.

El script debe recibir el directorio donde se van a buscar los archivos y mostrar cuáles son los archivos (ruta completa, propietario, permisos).

¿Qué archivos son los que debo buscar?

Aquellos que tengan permisos 777 (-rwxrwxrwx), 766 (-rwx-wx-wx), 666 (--wx-wx-wx).

Ejemplo de uso:

./buscarPeligrosos.pl /home

#! /usr/bin/perl -w
    eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
        if 0; #$running_under_some_shell
 
use strict;
use File::Find ();
 
# Set the variable $File::Find::dont_use_nlink if you're using AFS,
# since AFS cheats.
 
# for the convenience of &wanted calls, including -eval statements:
use vars qw/*name *dir *prune/;
*name   = *File::Find::name;
*dir    = *File::Find::dir;
*prune  = *File::Find::prune;
 
sub wanted;
sub doexec ($@);
 
 
use Cwd ();
my $cwd = Cwd::cwd();
 
 
# Traverse desired filesystems
File::Find::find({wanted => \&wanted}, '/');
exit;
 
sub wanted {
    my ($dev,$ino,$mode,$nlink,$uid,$gid);
 
    (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
    -f _ &&
    (($mode & 0777) == 0777)
    ||
    (($mode & 0777) == 0766)
    ||
    (($mode & 0777) == 0666) &&
    doexec(0, 'ls','-l','{}');
}
 
sub doexec ($@) {
    my $ok = shift;
    my @command = @_; # copy so we don't try to s/// aliases to constants
    for my $word (@command)
        { $word =~ s#{}#$name#g }
    if ($ok) {
        my $old = select(STDOUT);
        $| = 1;
        print "@command";
        select($old);
        return 0 unless <STDIN> =~ /^y/;
    }
    chdir $cwd; #sigh
    system @command;
    chdir $File::Find::dir;
    return !$?;
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Ya solo queda modificarlo un poco para poder pasarle a File::Find::find() el directorio que el usuario le pasa en la línea de argumentos, y listo.

por **pvaldes** » 2012-11-28 17:58 @790

perldoc -f stat

por **Mattias Castañeda** » 2012-11-30 18:42 @821

Gracias.

por **Mattias Castañeda** » 2012-12-05 19:05 @837

Al ejecutar el script por terminal dan los siguientes errores que salen en la foto:

por **explorer** » 2012-12-05 19:50 @868

El programa empieza en la siguiente línea

La primera es mi línea de comandos, donde ves que pongo el comando find2perl, y la salida (el programa), es lo que devuelve ese comando.

Prueba a escribir el comando find2perl en la línea de comandos y verás cómo lo genera también en tu máquina.
Luego, puedes guardarlo en otro archivo, y finalmente, ejecutarlo.

por **haganex** » 2012-12-07 10:47 @491

explorer, gracias como siempre por entregar pronta respuesta a nuestras dudas.

Mira: yo ejecuté el programa y me retornó varios archivos, eso está ok, pero cuando intento enviar algo por parámetro "./peligro.pl /home" capturo eso en un my $archivo=ARGV[0]; y esto debería poder enviarlo a File::Find::find({wanted => \&wanted}, 'find', '/'); pero no entendí qué es lo que tengo que reemplazar.

Estuve leyendo el mismo tutorial que hay aquí en la web sobre el uso del File::Find donde dice:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $dir = 'C:/Perl/lib/';
find(\&imprimir_archivo, $dir);
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Intenté hacer lo mismo pero con la diferencia que donde dice wanted lo reemplacé por el $dir que me llegó por parámetro pero no me resultó, me salió el siguiente error:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $archivo = $ARGV[0];
# Traverse desired filesystems
File::Find::find({$archivo => \&wanted}, 'find', '/');
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

mint@mint ~/Desktop $ ./peligroso.pl /home/
no &wanted subroutine given at /usr/share/perl/5.14/File/Find.pm line 1048.

Espero me puedas explicar el problema ya que he intentado de varias formas y para probarlo hice un archivo que tuviera el ugo+rwx para ver si lo encontraba.

¡ Saludos !

por **explorer** » 2012-12-07 12:07 @546

Cometí un error... (explorer no es infalible).

Me equivoqué a la hora de llamar al comando find2perl, y por eso generaba una línea 26 errónea. Ahora ya sale bien.

Y me he dado cuenta porque he consultado la página de manual de File::Find (man File::Find), donde pone claramente cómo llamar a find2perl.

La función find() se puede llamar de varias maneras. Una de ellas es con dos o más argumentos, siendo el primero, una referencia a la subrutina que queremos que ejecute en cada archivo/directorio encontrado, y el resto de argumentos, los directorios a mirar.

Entonces, según tu código, sería así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $directorio = $ARGV[0];
 
File::Find::find({wanted => \&wanted}, $directorio);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

, aunque podemos ampliar la funcionalidad del programa, muy fácilmente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

File::Find::find({wanted => \&wanted}, @ARGV);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y así buscaremos en todos los directorios indicados en la línea de argumentos (uno o más).

por **haganex** » 2012-12-07 21:12 @925

explorer, gracias por la respuesta. Probé agregando al final del find() el $directorio pero no me muestra nada al momento de enviar por parámetro el directorio. Tengo un archivo con permisos 777, 766 y 666 para probar, pero nada, solamente me muestra cuando por parámetro envío

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

 ./peligro.pl /
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Si envío /home/mint/Desktop, que es donde tengo creado los archivos con los permisos peligrosos,

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

./peligro.pl /home/mint/Desktop
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

no me retorna nada por pantalla. Solamente me muestra una línea.

Esperando tu respuesta,

Saludos

por **explorer** » 2012-12-07 21:53 @953

Pues a mi sí que me funciona...

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

explorer@joaquinferrero:~/Documentos/Desarrollo> ./find1.pl /home/explorer/Documentos/Desarrollo

-rw-rw-rw- 1 explorer users 1904 dic 19  2007 /home/explorer/Documentos/Desarrollo/reporte.html

-rw-rw-rw- 1 explorer users 2308 abr 26  2008 /home/explorer/Documentos/Desarrollo/test/test.pl~

explorer@joaquinferrero:~/Documentos/Desarrollo> ./find1.pl .

-rw-rw-rw- 1 explorer users 1904 dic 19  2007 ./reporte.html

-rw-rw-rw- 1 explorer users 2308 abr 26  2008 ./test/test.pl~Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Lo que hice fue: ejecutar el comando find2perl anterior redireccionando la salida hacia el archivo find.pl. Luego lo abrí con un editor de textos y sustituí el '/' en el find() por @ARGV. Listo.

Foro - Perl en Español

Identificar archivos con permisos peligrosos

Identificar archivos con permisos peligrosos

Publicidad

Re: Identificar archivos con permisos peligrosos

Re: Identificar archivos con permisos peligrosos

Re: Identificar archivos con permisos peligrosos

Re: Identificar archivos con permisos peligrosos

Re: Identificar archivos con permisos peligrosos

Re: Identificar archivos con permisos peligrosos

Re: Identificar archivos con permisos peligrosos

Re: Identificar archivos con permisos peligrosos

Re: Identificar archivos con permisos peligrosos

¿Quién está conectado?