I have a program listed below that encrypts some data, that will be decrypted on a .net machine. It appears that I'm performing PKCS#5 padding and .net will only except PKCS#7 padding. I'm looking for a sub routine that will perform PKCS#7 padding or any help in getting this to encrypt with PKCS#7 padding. Thanks in advance for any help with this.

#!/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;

}
[download]