Script de borrado seguro de ficheros

Leyendo el blog Security by Default me he encontrado este post que tiene un interesante script de perl. Este script sirve para borrar de manera segura ficheros, sobreescribiendo los datos tres veces antes de eliminarlo.

A continuación os dejo el código del script:

my $fichero = @ARGV[0];
 
if (!$fichero ){
 
	print "Uso: sdelete.pl file\n";
 
}
 
&sdelete($fichero);
 
sub sdelete {
 
	my $filename = @_[0];
 
	my $bytes = -s $filename;
 
	open(FILE, '+<', $filename);
	seek(FILE, 0, 0);
	print FILE "X" x $bytes;
	print FILE "Z" x $bytes;
	print FILE "H" x $bytes;
	close(FILE);
	unlink $filename;
 
}
 
#http://www.securitybydefault.com

Guarda este código en un fichero llamado sdelete.pl o descargalos directamente desde aquí. Una vez hecho lo ejecutamos de la siguiente manera:

perl sdelete.pl  archivo_a_borrar

Fuente

Tags: , , , ,

This entry was posted on Thursday, December 4th, 2008 at 7:17 pm and is filed under Scripts, Trucos, linux. You can follow any responses to this entry through the RSS 2.0 feed. Both comments and pings are currently closed.

Comments are closed.