http://qs1969.pair.com?node_id=493967


in reply to Re: File::Slurp and encryption
in thread File::Slurp and encryption

The encrypted file is an ASCII text originally. But an encrypted file can be handled in binary mode. I'll give it a try

As for the Pure Perl cipher, I'm still hesitating. I know the biggest benefit would come from there but I still do not know the deployment server's OS... Any suggestion?

Replies are listed 'Best First'.
Re^3: File::Slurp and encryption
by ikegami (Patriarch) on Sep 21, 2005 at 22:10 UTC
    You could try to use the C cypher and fall back on the Perl one. Something like
    my $cypher; if (eval { require Crypt::Twofish }) { $cypher = 'Crypt::Twofish'; } elsif (eval { require Crypt::Twofish_PP }) { warn("Crypt::Twofish not found. Falling back to slower Crypt::Twofi +sh_PP\n") if $DEBUG; $cypher = 'Crypt::Twofish_PP'; } else { die("Neither Crypt::Twofish nor Crypt::Twofish_PP was found. Aborti +ng"); }
    or
    my $cypher; foreach (qw( Crypt::Twofish Crypt::Twofish_PP )) { my $mod = $_; my $file = $_; $file =~ s{::}{/}g; $file .= '.pm'; if (eval { require $file }) { $cypher = $mod; last; } } die("No acceptable encryption algorithm found. Aborting") if not defined $cypher;