mORMot Open Source

var
  KeyStr: AnsiString;
  Key: TSHA256Digest;
  IVStr: AnsiString;
  IV: TAESBlock;

procedure TForm1.btnEncryptClick(Sender: TObject);
var
  AES: TAESCBC;
  InBytes, OutBytes: TBytes;
  FileStream: TFileStream;
  Seed: AnsiString;
begin
  KeyStr := '12345678901234567890123456789012';
  IVStr := '1234567890123456';
  CopyMemory(@Key, @KeyStr[1], 32);
  CopyMemory(@IV, @IVStr[1], 16);

  FileStream := TFileStream.Create('input.dat', fmOpenRead);
  SetLength(InBytes, FileStream.Size);
  FileStream.Read(InBytes[0], FileStream.Size);
  FreeAndNil(FileStream);

  AES := TAESCBC.Create(Key, 256);
  AES.IV := IV;
  OutBytes := AES.EncryptPKCS7(InBytes, True);
  FreeAndNil(AES);

  FileStream := TFileStream.Create('output.aes', fmCreate);
  FileStream.Size := Length(OutBytes);
  FileStream.Position := 0;
  FileStream.Write(OutBytes[0], Length(OutBytes));
  FreeAndNil(FileStream);
end;

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Security.Cryptography;
using System.IO;

namespace ConsoleApplication1
{
    class Program
    {
        static public void aesDecryptFile(string inputFile, string outputFile)
        {
            FileStream inputStream = null;
            FileStream outputStream = null;
            CryptoStream cryptoStream = null;

            try
            {
                byte[] key = Encoding.ASCII.GetBytes("12345678901234567890123456789012");
                byte[] vec = Encoding.ASCII.GetBytes("1234567890123456");

                outputStream = new FileStream(outputFile, FileMode.Create);

                AesManaged aesCrypto = new AesManaged();
                aesCrypto.BlockSize = 8 * 16;
                aesCrypto.KeySize = 8 * 32;
                aesCrypto.Padding = PaddingMode.PKCS7;
                aesCrypto.Mode = CipherMode.CBC;
                aesCrypto.IV = vec;

                cryptoStream = new CryptoStream(outputStream, aesCrypto.CreateDecryptor(key, vec), CryptoStreamMode.Write);

                inputStream = new FileStream(inputFile, FileMode.Open);

                int length;
                byte[] buffer = new byte[16];

                while ((length = inputStream.Read(buffer, 0, 16)) != 0)
                {
                    cryptoStream.Write(buffer, 0, length);
                }
            }
            catch (Exception ex)
            {
                Console.WriteLine(ex.Message);
            }
            finally
            {
                if (cryptoStream != null)
                {
                    cryptoStream.Close();
                }

                if (outputStream != null)
                {
                    outputStream.Close();
                }

                if (inputStream != null)
                {
                    inputStream.Close();
                }
            }
        }

        static void Main(string[] args)
        {
            aesDecryptFile("output.aes", "output.dat");
        }
    }
}