Matching .NET Framework AES Encryption Results

AES string encryption in Visual FoxPro and the equivalent C# code using the .NET Framework.

Download Chilkat Crypt ActiveX

LOCAL loCrypt
LOCAL lnSuccess
LOCAL lcIvHex
LOCAL lcKeyHex


*  First, here's the C# code we're trying to match:

*  RijndaelManaged rman = new RijndaelManaged();
*  rman.Mode = CipherMode.CBC;
*  rman.Padding = PaddingMode.PKCS7;
*  rman.KeySize = 256;

*  Use a 32-byte key (for 256-bit encryption)
*  byte [] keyBytes = { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
*  16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31 };

*  The IV for AES is 16 bytes, because the AES block size is 16.
*  byte [] ivBytes = { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15 };

*  ICryptoTransform encryptor = rman.CreateEncryptor(keyBytes, ivBytes);

*  byte [] plainText = System.Text.Encoding.UTF8.GetBytes("This is a test");

*  byte [] encrypted = encryptor.TransformFinalBlock(plainText, 0, plainText.Length);

*  Output is 31k+86baFy9GJKQ9Y1ebCw==
*  textBox1.Text = Convert.ToBase64String(encrypted);

*  The following Chilkat code produces the same output:
loCrypt = CreateObject('Chilkat.Crypt2')

lnSuccess = loCrypt.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX("Crypt component unlock failed")
    QUIT
ENDIF

loCrypt.CryptAlgorithm = "aes"
loCrypt.CipherMode = "cbc"
loCrypt.KeyLength = 256
loCrypt.PaddingScheme = 0
loCrypt.EncodingMode = "base64"

lcIvHex = "000102030405060708090A0B0C0D0E0F"

lcKeyHex = "000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F"
loCrypt.SetEncodedIV(lcIvHex,"hex")
loCrypt.SetEncodedKey(lcKeyHex,"hex")

=MESSAGEBOX(loCrypt.EncryptStringENC("This is a test"))