Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Problem with Data::Encrypted Module

Status
Not open for further replies.

kocnet

ISP
Jan 31, 2006
1
TR
Hi,

I’ve installed Data::Encrypted and all its prerequisites via Perl’s MCPAN shell interface properly, however I could not succeed to run sample scripts. Sample script is as follows :
==================================================
#!/usr/local/bin/perl

use strict ;
use warnings ;

use Data::Encrypted (FILE => './secret',
PK => '/export/home/guraye/.ssh/identity.pub',
SK => '/export/home/guraye/.ssh/identity',
PW => q(hedehodo)
), qw(encrypted);

my $password = encrypted('password');

===================================================

The error it returns is :

bash-2.05$ ./test2.pl
Unsupported cipher 'DES3': Can't locate Crypt::DES3 in @INC (@INC contains: /export/home/guraye/adsl/ip_local_pool/../../../../../lib /export/home/guraye/adsl/ip_local_pool/../../lib /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 /usr/local/lib/perl5/site_perl/5.8.7/Crypt/RSA/Key/Private/SSH.pm line 84.
at /usr/local/lib/perl5/site_perl/5.8.7/Data/Encrypted.pm line 78
bash-2.05$

PK and SK files have been created using ssh-keygen utility with adding –t rsa1 option .
I’ve Net::SSH::perl::Cipher::DES3 already installed. Furthermore I could not find any module named Crypt::DES3 in CPAN.

Is there anybody who has an idea why it returns such an error ?

Best Regards
Guray
 
This is a wild guess but is it possible the way you installed or where it was installed is at the root of the error?

The series of /../../../ in your @INC is peculiar. This is a bit of a hack, but from bash, search for the path(s) to your DES3 module. Once found, prior to issuing the 'use' statement, try a: push(@INC, $your_des3_path)

This will help ensure that perl can find the DES3 module. If that works, from there you can try changing or moving installed modules to what you would otherwise consider standard for your implementation.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top