NAME

Crypt::OpenSSL::AES - A Perl wrapper around OpenSSL's AES library

SYNOPSIS

use Crypt::OpenSSL::AES;

my $cipher = Crypt::OpenSSL::AES->new($key);

or

# Pick better keys and iv...
my $key = pack("H*", substr(sha512_256_hex(rand(1000)), 0, ($ks/4)));
my $iv  = pack("H*", substr(sha512_256_hex(rand(1000)), 0, 32));
my $cipher = Crypt::OpenSSL::AES->new(
                                       $key,
                                       {
                                           cipher => 'AES-256-CBC',
                                           iv      => $iv, (16-bytes for supported ciphers)
                                           padding => 1, (0 - no padding, 1 - padding)
                                       }
                                   );

$encrypted = $cipher->encrypt($plaintext);
$decrypted = $cipher->decrypt($encrypted);

DESCRIPTION

This module implements a wrapper around OpenSSL. Specifically, it wraps the methods related to the US Government's Advanced Encryption Standard (the Rijndael algorithm). The original version supports only AES 256 ECB (electronic codebook mode encryption).

This module is compatible with Crypt::CBC (and likely other modules that utilize a block cipher to make a stream cipher).

This module is an alternative to the implementation provided by Crypt::Rijndael which implements AES itself. In contrast, this module is simply a wrapper around the OpenSSL library.

As of version 0.09 additional AES ciphers are supported. Those are:

AES-128-ECB, AES-192-ECB and AES-256-ECB (no IV)

Supports padding

AES-128-CBC, AES-192-CBC and AES-256-CBC

Supports padding and iv

AES-128-CFB, AES-192-CFB and AES-256-CFB

Supports padding and iv

AES-128-CTR, AES-192-CTR and AES-256-CTR

Supports padding and iv

AES-128-OFB, AES-192-OFB and AES-256-OFB

Supports padding and iv

new()

For compatibility with old versions you can simply pass the key to the new constructor.

my $cipher = Crypt::OpenSSL::AES->new($key);

or

my $cipher = Crypt::OpenSSL::AES->new($key,
                {
                    cipher  => 'AES-256-CBC',
                    iv      => $iv, (16-bytes for supported ciphers)
                    padding => 1, (0 - no padding, 1 - padding)
                });

# cipher
#   AES-128-ECB, AES-192-ECB and AES-256-ECB (no IV)
#   AES-128-CBC, AES-192-CBC and AES-256-CBC
#   AES-128-CFB, AES-192-CFB and AES-256-CFB
#   AES-128-CTR, AES-192-CTR and AES-256-CTR
#   AES-128-OFB, AES-192-OFB and AES-256-OFB
#
# iv - 16-byte random data
#
# padding
#   0 - no padding
#   1 - padding

$cipher->encrypt($data)

Encrypt data. The size of $data must be exactly blocksize in length (16 bytes), otherwise this function will croak.

You should use Crypt::CBC or something similar to encrypt/decrypt data of arbitrary lengths.

$cipher->decrypt($data)

Decrypts $data. The size of $data must be exactly blocksize in length (16 bytes), otherwise this function will croak.

You should use Crypt::CBC or something similar to encrypt/decrypt data of arbitrary lengths.

keysize

This method is used by Crypt::CBC to verify the key length. This module actually supports key lengths of 16, 24, and 32 bytes, but this method always returns 32 for Crypt::CBC's sake.

blocksize

This method is used by Crypt::CBC to check the block size. The blocksize for AES is always 16 bytes.

USE WITH CRYPT::CBC

use Crypt::CBC;

my $plaintext = "This is a test!!";
my $password = "qwerty123";
my $cipher = Crypt::CBC->new(
	-key    => $password,
	-cipher => "Crypt::OpenSSL::AES",
	-pbkdf  => 'pbkdf2',
);

my $encrypted = $cipher->encrypt($plaintext);
my $decrypted = $cipher->decrypt($encrypted);

SEE ALSO

Crypt::CBC

http://www.openssl.org/

http://en.wikipedia.org/wiki/Advanced_Encryption_Standard

http://www.csrc.nist.gov/encryption/aes/

BUGS

Need more (and better) test cases.

AUTHOR

Tolga Tarhan, <cpan at ttar dot org>

The US Government's Advanced Encryption Standard is the Rijndael Algorithm and was developed by Vincent Rijmen and Joan Daemen.

COPYRIGHT AND LICENSE

Copyright (C) 2006 - 2023 DelTel, Inc.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.5 or, at your option, any later version of Perl 5 you may have available.