Merge pull request #12 from timlegge/updates

Update version and add a test for PR#7

Author: timlegge

lib/Crypt/CBC.pm

@@ -6,7 +6,7 @@ use Crypt::CBC::PBKDF;
 use bytes;
 use vars qw($VERSION);
 no warnings 'uninitialized';
-$VERSION = '3.04';
+$VERSION = '3.05';
 
 use constant RANDOM_DEVICE      => '/dev/urandom';
 use constant DEFAULT_PBKDF      => 'opensslv1';

t/github-issue7.t

@@ -0,0 +1,35 @@
+use strict;
+use warnings;
+use Test::More;
+use Crypt::CBC;
+
+eval "use Crypt::Blowfish()";
+if ($@) {
+    print "1..0 # Skipped: Crypt::Blowfish not installed\n";
+    exit;
+}
+
+# small script for Blowfish encryption and decryption
+
+# The key for the blowfish encoding/decoding below
+my $privateString = '123456789012345678901234567890123456789012';
+
+my $teststring = "Testtext";
+
+my $key = pack('H*', $privateString);
+
+my $params = {
+                'key' => $key,
+                'cipher' => 'Blowfish',
+                'header' => 'randomiv',
+                'nodeprecate' => 1
+            };
+
+my $cipher = Crypt::CBC->new($params);
+my $encoded = $cipher->encrypt_hex($teststring);
+
+my $decoded = $cipher->decrypt_hex($encoded);
+
+ok($teststring eq $decoded, "Properly decoded Blowfish with header => randomiv");
+
+done_testing();