use warnings;
use strict;
use Test::More tests=>2;
use Crypt::CBC;

my $cipher = Crypt::CBC->new(
	-cipher      => 'Crypt::Cipher::AES',
	-key         => pack('H*','01F0E0D0C0B0A090807060504030201001F0E0D0C0B0A0908070605040302010'),
	-iv          => pack('H*','8006e3b6dbdb4865e079d0543c6007bc'),
	-padding     => 'none',
	-header      => 'none',
	-keylength   => '256' ,
	-literal_key => 1
);

# Test cases from http://aes.online-domain-tools.com/
is $cipher->encrypt(pack('H*','3132333435363738393031323334353632373832343634303031305468697320697320612074657374206D657373616765FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF')),
	pack('H*','d899b35ce2b37036de3885227d8ca6b8ecc82c3f21ae89123b6d14967301b3bf08596e32df12de93621f15f90e6ea4b969a752c3f50fb771b8821eb0e606cf6c');
is $cipher->decrypt(pack('H*','3132333435363738393031323334353632373832343634303031305468697320697320612074657374206D657373616765FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF')),
	pack('H*','d97548a7925ff9d1f3a5fd4dac00c120a3faa51c931c203ec8cbad025e3574299d1043fb51865a47469100a15e96203621396b7ec86d8202869b4fb1039faa8e');