Hello all,
I am using the Crypt::CBC module to encrypt and decrypt some text files. I am using Blowfish encryption with CBC. When I run my program it can't seem to find the Crypt::Blowfish module.
Here is the error:
I know for a fact Blowfish.pm is located in:
/opt/app/CLI_DAE/lib/Crypt-Blowfish-2.10/blib/lib/Crypt/
Here is the code for my libraries:
Here is the subroutine that contains line 324 where Crypt::CBC calls the Crypt::Blowfish module:
I checked permissions to Blowfish.pm and they all look fine.
Any ideas?
Thanks,
Nick
If at first you don't succeed, don't try skydiving.
I am using the Crypt::CBC module to encrypt and decrypt some text files. I am using Blowfish encryption with CBC. When I run my program it can't seem to find the Crypt::Blowfish module.
Here is the error:
Code:
Couldn't load Crypt::Blowfish: Can't locate loadable object for module Crypt::Blowfish in @INC (@INC contains: /opt/app/CLI_DAE/lib/Crypt-Blowfish-2.10/blib/lib /opt/app/CLI_DAE/lib/Crypt-Blowfish-2.10 /opt/app/CLI_DAE/lib/Net-SSH-0.08/blib/lib /opt/app/CLI_DAE/lib/Crypt-CBC-2.19/blib/lib /opt/app/CLI_DAE/lib/DBD-Oracle-1.18 /opt/app/CLI_DAE/lib/DBI-1.52 /usr/local/lib/perl5/5.8.7/sun4-solaris /usr/local/lib/perl5/5.8.7 /usr/local/lib/perl5/site_perl/5.8.7/sun4-solaris /usr/local/lib/perl5/site_perl/5.8.7 /usr/local/lib/perl5/site_perl .) at (eval 6) line 1
Compilation failed in require at (eval 6) line 1.
at ./bpBsCoyoteMain_Beta_10_18.pl line 324
I know for a fact Blowfish.pm is located in:
/opt/app/CLI_DAE/lib/Crypt-Blowfish-2.10/blib/lib/Crypt/
Here is the code for my libraries:
Code:
use lib "/opt/app/CLI_DAE/lib/DBI-1.52";
use lib "/opt/app/CLI_DAE/lib/DBD-Oracle-1.18";
use lib "/opt/app/CLI_DAE/lib/Crypt-CBC-2.19/blib/lib";
use lib "/opt/app/CLI_DAE/lib/Net-SSH-0.08/blib/lib";
use lib "/opt/app/CLI_DAE/lib/Crypt-Blowfish-2.10/blib/lib";
use lib "/opt/app/CLI_DAE/lib/Crypt-Blowfish-2.10";
use DBI;
use Crypt::CBC;
use FileHandle;
use Net::SSH qw(sshopen2);
use strict;
#use warnings;
Here is the subroutine that contains line 324 where Crypt::CBC calls the Crypt::Blowfish module:
Code:
sub Decrypt
{
##########################################################################################
#
# This subroutine decrypts the password/UID files.
#
##########################################################################################
#use lib "/opt/app/CLI_DAE/lib/Crypt-Blowfish-2.10/blib/lib";
my $file_handle = shift(@_);
open(CT,"<$file_handle") or ErrorOut ("Error opening config file $file_handle: $1");;
my $cipher = new Crypt::CBC({'key' => 't1234',
'cipher' => 'Blowfish',
'padding' => 'space'});
undef $/;
my $passwd = $cipher->decrypt(<CT>);
close(CT);
print LOG "encrypted file $file_handle decrypted successfully.\n";
return $passwd;
} # End sub Decrypt
I checked permissions to Blowfish.pm and they all look fine.
Any ideas?
Thanks,
Nick
If at first you don't succeed, don't try skydiving.