Crypt::cbc encrypt / decrypt using javax.crypto

Question

I am having a bit of a time encrypting with crypt::cbc and decrypting with java. To get to the point, here is my code, perl first, java 2nd - I have tried to keep things very simple.
#!/usr/local/bin/perl -w
use strict;
use Crypt::CBC 2.30;
die "Need to specify a file" if(!(my $infile = shift));
my $key = q(nvA9s$233eOrlQG4);
my $iv = q(0123456701234567);
my $bufsize = 16384;
my $cipher = Crypt::CBC->new({
          'key'          => $key,
          'iv'          => $iv,
          'header'     => 'none',
          'cipher'     => 'Rijndael',
          'keysize'     => '16',     #forced - default is 32 bytes
          'padding'     => 'standard',     #PKCS5
          'blocksize'     => '16',
          'literal_key'     => '1',          #do not MD5 hash key
open (FORIG,"$infile")|| die "can't open file: $!";
open (FCRYPT,">$infile.crypt")|| die "can't open file: $!";
$cipher->start('encrypting');
while(my $readsize = sysread(FORIG, my $buf, $bufsize)) {
     print FCRYPT $cipher->crypt($buf);
print FCRYPT $cipher->finish();
close FCRYPT;
close FORIG;
now the java:
// i have elided the import stmts for brevity
public class AESEncrypter {
     Cipher ecipher;
     Cipher dcipher;
     byte [] buf = new byte[1024];
     public AESEncrypter() {
          String strKey = "nvA9s$233eOrlQG4";
          byte[] keyBytes = null;
          try {
               keyBytes = strKey.getBytes("UTF-8");
          } catch(java.io.UnsupportedEncodingException ex) {
               ex.printStackTrace();
          byte[] iv = new byte[] { 0,1,2,3,4,5,6,7,0,1,2,3,4,5,6,7 };
          IvParameterSpec ivSpec = new IvParameterSpec(iv);
          try {
               ecipher = Cipher.getInstance("AES/CBC/PKCS5Padding");
               dcipher = Cipher.getInstance("AES/CBC/PKCS5Padding");
          } catch (NoSuchAlgorithmException e) {
               e.printStackTrace();
          } catch (NoSuchPaddingException e) {
               e.printStackTrace();
          try {
               SecretKeySpec key = new SecretKeySpec(keyBytes, "AES");
               ecipher.init(Cipher.ENCRYPT_MODE, key, ivSpec);
               dcipher.init(Cipher.DECRYPT_MODE, key, ivSpec);
          } catch (InvalidKeyException e1) {
               e1.printStackTrace();
          } catch (InvalidAlgorithmParameterException e1) {
               e1.printStackTrace();
     public void encrypt(InputStream in, OutputStream out) {
          try {
               out = new CipherOutputStream(out, ecipher);
               int numRead = 0;
               while((numRead = in.read(buf)) >= 0) {
                    out.write(buf, 0, numRead);
               out.close();
          } catch(java.io.IOException e) {
               e.printStackTrace();
     public void decrypt(InputStream in, OutputStream out) {
          try {
               out = new CipherOutputStream(out, dcipher);
               int numRead = 0;
               while((numRead = in.read(buf)) >= 0) {
                    out.write(buf, 0, numRead);
               out.close();
          } catch(java.io.IOException e) {
               e.printStackTrace();
     public static void main(String args[]) {
          if(args.length != 1) {
               System.out.println("Usage: java AESEncrypter filename");
               System.exit(0);
          AESEncrypter encrypter = new AESEncrypter();
          try {
     //          encrypter.encrypt(new FileInputStream(args[0]), new FileOutputStream("Java_encrypted.txt"));
               encrypter.decrypt(new FileInputStream(args[0]), new FileOutputStream("Java_decrypted.txt"));
          } catch (java.io.FileNotFoundException ex) {
               ex.printStackTrace();
so with file named whoop.txt containing the following contents:
whoop
whoop
whoop
whoop
I do:
$>./encrypt.pl whoop.txt
and get the resulting file whoop.txt.crypt. then I do
$>java AESEncrypter whoop.txt.crypt
and get the resulting file Java_decrypted.txt. when I do a hex dump of this file:
$>dump.pl Java_decrypted.txt
i get the following
/0 /1 /2 /3 /4 /5 /6 /7 /8 /9 /A /B /C /D /E /F 0123456789ABCDEF
0000 : 47 58 5F 5F 40 3A 47 58 5F 5F 40 3A 47 58 5F 5F GX__@:GX__@:GX__
0010 : 70 0A 77 68 6F 6F 70 0A p.whoop.
I have tried to ensure that everything matches between the perl and java code, however I am obviously missing something. Thanks in advance for any ideas!
Gregg

Answer 1

i have hardcoded the IV in perl as:
my $iv = q(0123456701234567);
and in the .java file as:
byte[] iv = new byte[] { 0,1,2,3,4,5,6,7,0,1,2,3,4,5,6,7 };
IvParameterSpec ivSpec = new IvParameterSpec(iv)
Are these not compatible?
thanks - gh