Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: Simple Crypt::CBC Sample?

by toolic (Bishop)
on Feb 14, 2013 at 20:14 UTC ( #1018779=note: print w/ replies, xml ) Need Help??


in reply to Simple Crypt::CBC Sample?

I was unable to install Crypt::Random, so I can't even attempt to replicate your error.

However, if I run a modified version of your code with only Crypt::CBC, it runs for me without errors:

use warnings; use strict; use Crypt::CBC; my $key = 1; my $cipher = Crypt::CBC->new( -key => $key ); my $ciphertext = $cipher->encrypt_hex('test'); print "$ciphertext \n"; __END__ 53616c7465645f5f5847db7edbe4cfb66a7ce84481016e42

Perhaps there is a strange interaction between the 2 modules. Can you use something else to generate the key?


Comment on Re: Simple Crypt::CBC Sample?
Download Code
Re^2: Simple Crypt::CBC Sample?
by boat73 (Scribe) on Feb 14, 2013 at 20:19 UTC
    Interesting, your code generates the error as well. At least I know I am not crazy, just need to figure out where the error is coming from. I am running perl 5.14.2.1402 on Windowz, are you running on Unix? Couldn't load Crypt::1: Can't locate Crypt/1.pm in @INC
      Yes, I'm on Unix, 2 variants:
      This is perl 5, version 12, subversion 2 (v5.12.2) built for x86_64-li +nux This is perl 5, version 14, subversion 2 (v5.14.2) built for x86_64-li +nux-thread-multi
      A look at the source code shows it may be doing a require:
      unless (ref $cipher) { # munge the class name if no object passed $cipher = $cipher=~/^Crypt::/ ? $cipher : "Crypt::$cipher"; $cipher->can('encrypt') or eval "require $cipher; 1" or croak "C +ouldn't load $cipher: $@"; # some crypt modules use the class Crypt::, and others don't $cipher =~ s/^Crypt::// unless $cipher->can('keysize'); }

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1018779]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (6)
As of 2015-07-03 08:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (49 votes), past polls