如何在Perl中加密消息以在C#中解密？

use strict;
use warnings;
use Crypt::AES;
use Crypt::Random;
use MIME::Base64;

my $key = '1234567890123456'; # 128-bit key
my $plaintext = 'Hello, World!';

my $cipher = Crypt::AES->new($key, Crypt::AES::MODE_CBC);
my $iv = $cipher->random_bytes(16); # 128-bit initialization vector
my $ciphertext = $cipher->encrypt($plaintext, $iv);

my $encoded_ciphertext = encode_base64($ciphertext);
my $encoded_iv = encode_base64($iv);

print "Encoded Ciphertext: $encoded_ciphertext\n";
print "Encoded IV: $encoded_iv\n";

using System;
using System.IO;
using System.Security.Cryptography;
using System.Text;
using System.Convert;

public class DecryptMessage
{
    private static byte[] _key = Encoding.UTF8.GetBytes("1234567890123456");

    public static void Main()
    {
        string encodedCiphertext = "Encoded Ciphertext from Perl";
        string encodedIV = "Encoded IV from Perl";

        byte[] ciphertext = Convert.FromBase64String(encodedCiphertext);
        byte[] iv = Convert.FromBase64String(encodedIV);

        byte[] decryptedBytes = Decrypt(ciphertext, _key, iv);
        string decryptedMessage = Encoding.UTF8.GetString(decryptedBytes);

        Console.WriteLine("Decrypted Message: " + decryptedMessage);
    }

    private static byte[] Decrypt(byte[] ciphertext, byte[] key, byte[] iv)
    {
        using (Aes aes = Aes.Create())
        {
            aes.Key = key;
            aes.IV = iv;
            aes.Mode = CipherMode.CBC;
            aes.Padding = PaddingMode.PKCS7;

            using (MemoryStream memoryStream = new MemoryStream())
            {
                using (CryptoStream cryptoStream = new CryptoStream(memoryStream, aes.CreateDecryptor(), CryptoStreamMode.Write))
                {
                    cryptoStream.Write(ciphertext, 0, ciphertext.Length);
                    cryptoStream.FlushFinalBlock();
                    return memoryStream.ToArray();
                }
            }
        }
    }
}