Decoding/encoding openssl aes cbc string between Perl and PHP

Question

I'm writing some server code in PHP and I have an offline process written in Perl and they need to communicate via encrypted strings. In PHP I have been using:

$encrypted_string = openssl_encrypt($my_string, "aes-128-cbc", "my_password", true, "1234567812345678");

I'd basically like to achieve the exact same string output using Perl. Any help with how I would do this is appreciated. Thanks!

Vijay Boyapati · Accepted Answer · 2012-10-19 19:41:22Z

5

I figured it out and can now reproduce identical output encrypting a string in Perl and PHP:

Perl:

use Crypt::CBC;
use MIME::Base64;

my $cipher = Crypt::CBC->new(
    {
        'key'         => 'length16length16',
        'cipher'      => 'Crypt::OpenSSL::AES',
        'iv'          => '1234567812345678',
        'literal_key' => 1,
        'header'      => 'none',
        keysize       => 128 / 8
    }
);

print encode_base64($cipher->encrypt($my_string), "");

PHP:

echo openssl_encrypt($my_string, "aes-128-cbc", "length16length16", true, "1234567812345678");

edited Oct 19, 2012 at 19:41

answered Oct 19, 2012 at 19:33

Vijay Boyapati

7,7167 gold badges34 silver badges48 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Decoding/encoding openssl aes cbc string between Perl and PHP

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related