Foro - Perl en Español

por **ricar** » 2010-07-01 03:29 @186

Hola.

¿Alguien conoce algún modulo que cifre y descifre ficheros en función de claves públicas y privadas?

Crypt::RSA hace esto mismo pero no cifra ficheros si no un string.

Un saludo,
Ricar.

Hola, explorer.

¿¿Te refieres a pasar el fichero a un array e ir cifrando cada posición de forma independiente??

Si es eso a lo que te refieres, el problema se daría a la hora de descifrarlo, puesto que no es lo mismo cifrar un texto entero que valor a valor, no da el mismo mensaje cifrado. Además sería un poco inseguro puesto que se podría llegar a deducir el texto.

No sé si te he entendido bien.

Otra forma que había pensado era, en leer el fichero en el array de turno y pasarlo a un sólo string, manteniendo los saltos con una etiqueta o similar. A la hora de descifrarlo sólo tendría que interpretar esas etiquetas para darle el formato original.

Pero preferiría un módulo, si lo hubiese, que cifrase/descifrase ficheros en función de una clave pública y privada.

Saludos,
Ricar.

por **explorer** » 2010-07-01 10:21 @473

No, he dicho en una variable escalar

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use Crypt::RSA;
 
use common::sense;
use open 'locale';
 
 
### Constantes
my $fichero_nombre = 'residencias.pdf';
my $fichero_longitud = -s $fichero_nombre;
 
 
### Programa
say "Cifrando $fichero_nombre, de tamaño $fichero_longitud bytes...";
 
 
## Lectura del fichero de partida
say "Leyendo fichero a cifrar...";
 
open my $F, q[<], $fichero_nombre;
binmode $F;
read    $F, my $buffer, $fichero_longitud;
close   $F;
 
say "Leídos ", length($buffer), " bytes...";
 
 
## Cifrado
my $rsa = Crypt::RSA->new;
 
say "Generando las claves...";
 
my ($public, $private) =
    $rsa->keygen (
        Identity  => 'Lord Macbeth <[email protected]>',
        Size      => 512,
        Password  => 'A day so foul & fair',
        Verbosity => 1,
    ) or die $rsa->errstr();
 
 
say "Cifrando...";
 
my $cyphertext =
    $rsa->encrypt (
        Message    => $buffer,
        Key        => $public,
        Armour     => 1,
    ) || die $rsa->errstr();
 
say "Longitud del cifrado: ", length($cyphertext), " bytes...";
 
 
## Grabación en disco
say "Grabando a disco...";
 
open my $F, q[>], "$fichero_nombre.cifrado";
binmode $F;
print   $F $cyphertext;
close   $F;
 
 
## Comprobación: lectura del fichero cifrado
say "Leyendo fichero cifrado...";
 
open my $F, q[<], "$fichero_nombre.cifrado";
read    $F, my $fichero_cifrado, -s "$fichero_nombre.cifrado";
close   $F;
 
say "Leídos ", length($fichero_cifrado), " bytes...";
 
 
## Descifrado
say "Descifrando...";
 
my $plaintext =
    $rsa->decrypt (
        Cyphertext => $fichero_cifrado,
        Key        => $private,
        Armour     => 1,
    ) || die $rsa->errstr();
 
 
## Informar
if ($plaintext eq $buffer) {
    say "Es correcto el cifrado/descifrado";
}
else {
    say "No es correcto el cifrado/descifrado";
}
Coloreado en 0.006 segundos,  usando GeSHi 1.0.8.4

Sale

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Cifrando residencias.pdf, de tamaño 215244 bytes...

Leyendo fichero a cifrar...

Leídos 215244 bytes...

Generando las claves...

.......................+(32)....+..........+...+.+..+(52)............+(100)......+..+.+

Cifrando...

Longitud del cifrado: 846226 bytes...

Grabando a disco...

Leyendo fichero cifrado...

Leídos 846226 bytes...

Descifrando...

Es correcto el cifrado/descifradoColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Comienzo del fichero cifrado:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

-----BEGIN COMPRESSED RSA ENCRYPTED MESSAGE-----

Version: 1.99

Scheme: Crypt::RSA::ES::OAEP

eJwAAYD+fzEwADYyNjE3NgBDeXBoZXJ0ZXh0v4Z1z196By6E0zUXwswQhbFXgwYoU1zYzwyJenWY

dEOCVjPugHKoY2IHTSXGJi2ycjKsP/Sg7UuW8NjhmvViVmUflv/lAHWW/vAtJIU2OXmtNuINPDL7

hdWZfE0JGLQ7OMc5dn2K/9UtTiparqqf/ZMiIK9thJufVMRAxGG4FdBcMhcoqTwj6rAip7lcCqrV

Lcp10k9h3/psMettH+EojenQmgBvLZoTbuuW7Wrd9DqGTwHyrqy9W4lcd551AF5UaG/ppXuLV88s

ZkWv/9eYyfNahekH9oZ6AZw3/PJmeP/k72ngXpHjTN18xYpBm2US6ser59D6fxN4dvWh6SOcSp58

1+pYr/HGF+ssyg6Ooyn7BK5yC/qV5y2LchpWEsOtiQQXh9H0JOkrhGAeVXUwgVU0qXQuRUtems1D

YQRy3aOuwDjn17by3SCorP/agjZiEUzXR3o7lyUpsGzIA2ZDic0k+AoRJghB9Pc1x1vUlPXqEonE

XjfWzXe5nFddto9m4ocdPosC8/OHkGpLPgmWhhU5t2JEoiBj/dwciI7uxvec1XMJHMaGbEsPBMXlColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

No he encontrado módulos que filtren ficheros. Quizás he buscado mal en CPAN.

por **ricar** » 2010-07-02 01:30 @104

Gracias explorer.

Probaré lo que dices y os contaré.

Un saludo,
Ricar.

Foro - Perl en Español

Módulo de cifrado de ficheros

Módulo de cifrado de ficheros

Publicidad

Re: Módulo de cifrado de ficheros

Re: Módulo de cifrado de ficheros

Re: Módulo de cifrado de ficheros

Re: Módulo de cifrado de ficheros

¿Quién está conectado?