Archives: December 2007

Revista – Tuxinfo

0

26 December 2007 at 19:50 Filed in:Uncategorized

Tux Info, es una revista sobre GNU/Linux y Software libre, totalmente gratuita y liberada bajo una licencia de Creative Commons.
Les dejamos los 2 ejemplares que han salido:

Saludos

Se te colgó la interfaz? RSEIUB en linux

0

19 December 2007 at 17:55 Filed in:Uncategorized

Existe un método seguro para reiniciar el OS sin maltratar nuestro disco duro utilizando el boton de power del equipo, consiste en presionar simultáneamente las siguientes teclas: ALT+ImprPant (PrtScr)+R+S+E+I+U+B

R devuelve el control al teclado.
S sincroniza.
E manda a los procesos la señal term.
I manda a los procesos la señal kill.
U desmonta los sistemas de ficheros.
B reinicia el sistema.

Como encriptar y desencriptar archivos usando Perl

0

5 December 2007 at 3:43 Filed in:Uncategorized

Les dejo 2 scripts los cuales gentilmente fueron dados por Norther de perlenespanol.baboonsoftware.com.
Script Encryptf: Tiene como funcion comprimir una carpeta utilizando TAR, luego nos genera un archivo encriptado del mismo y por ultimo nos elimina el archivo comprimido que no esta encriptado.
Script Decrypt: Con este script vamos a desencriptar el archivo que creamos con el script anterior.
Encryptf ()

PLAIN TEXT
PERL:
  1. #!/usr/bin/perl
  2.  
  3. my $error = 1;
  4.  
  5. my $aux = $ARGV[0];
  6.  
  7. $aux =~ s/\W//g;
  8.  
  9. my $encript = "$aux.tar";
  10.  
  11. if (-d $ARGV[0]) {
  12.         system("tar -cvvf $encript $ARGV[0]") || ($error = 0);
  13.        
  14.         if($error =~ 0) {
  15.                 system("gpg -ac --no-options $encript");
  16.                
  17.                 if($? != 0) {   
  18.                         system("rm $encript");
  19.                         exit 1;
  20.                 }
  21.                
  22.                 system("rm -r $ARGV[0]");
  23.                 system("rm -r $encript");
  24.                
  25.         } else {
  26.                 print "Se ha abortado debido a un error.\n";
  27.         }       
  28.        
  29. } else {
  30.         print "No es una carpeta!!!\n";
  31. }

Decryptf ()

PLAIN TEXT
PERL:
  1. #!/usr/bin/perl
  2.  
  3. my $fix = $ARGV[0];
  4.  
  5. $fix =~ s/\W.+/.tar/g;
  6.  
  7. if($ARGV[0] =~ /tar/ && $ARGV[0] =~ /asc/) {
  8.         system("gpg --no-options $ARGV[0]");
  9.        
  10.         if($? != 0) {   
  11.                 exit 1;
  12.         }
  13.        
  14.         system("tar -xvvf $fix");
  15.         system("rm $fix");
  16.         system("rm -r $ARGV[0]");
  17.        
  18. } else {
  19.         print "No es una carpeta encriptada valida.\n";
  20. }