#!/usr/local/bin/perl -w
 
use Crypt::Rijndael;
use Crypt::CBC;
use MIME::Base64;
use Encode;
 
my $venture_aes_key    = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX";
my $venture_iv_key     = "KKKKKKKKKKKKKKKK";
my $PORTAL_ACCTNUM     = "0123456789";

my $string = decode("UTF-8", $PORTAL_ACCTNUM);
my $us = encode("UTF-16le", $string);

my $AES_cipher  = Crypt::CBC->new({
	key			=> $venture_aes_key, # 256 bits
	cipher		=> "Crypt::Rijndael",
	iv			=> $venture_iv_key, # 128 bits
	literal_key	=> 1,
	padding     => "standard",
	blocksize   => 16,
	header		=> "none",
	keysize		=> 32 # 256/8
});
          
## Encrypt Data 
my $encrypted_acctnum    = $AES_cipher->encrypt($us); 

$encoded = encode_base64($encrypted_acctnum, '');
print $encoded;

exit;

}