C#

C# Code to Encrypt :

        private string strCryptoMessage(string strOrig, string strKey)
        {
            System.Security.Cryptography.RijndaelManaged rj = new System.Security.Cryptography.RijndaelManaged();
            rj.Mode = System.Security.Cryptography.CipherMode.CBC;
            rj.Key = Encoding.UTF8.GetBytes(strKey);

            byte[] bOrig = Encoding.UTF8.GetBytes(strOrig);

            System.IO.MemoryStream ms = new System.IO.MemoryStream();

            System.Security.Cryptography.CryptoStream cs = new System.Security.Cryptography.CryptoStream(ms, rj.CreateEncryptor(), System.Security.Cryptography.CryptoStreamMode.Write);

            cs.Write(bOrig, 0, bOrig.Length);
            cs.FlushFinalBlock();

            string bResult = Convert.ToBase64String(ms.ToArray());
            ms.Flush();

            
            return bResult;
        }

Perl Code To Encrypt :

#!/opt/local/bin/perl -w

use IO::Socket;
use IO::Handle;
use MIME::Base64;
use Data::Dumper;
use POSIX;
use Getopt::Long;
use strict;


require Crypt::CBC;

my $msg = "MESSAGE_TO_ENCRYPT";
my $enc_key = "SAME_AS_strKey";
my $enc_alg = "Rijndael";

my $cipher = Crypt::CBC->new({
        'key'    => $enc_key,
        'cipher' => $enc_alg,
    });

    my $encrypted_msg = $cipher->encrypt($msg);
    print "$msg\n";

    my $encoded_msg = encode_base64($encrypted_msg, '');
    print "$encoded_msg\n";

Bitmap bitmap = new Bitmap(2000, 2000, PixelFormat.Format32bppArgb);<br />
using (Graphics graphic = Graphics.FromImage(bitmap))<br />
{<br />
    Bitmap image = (Bitmap)Bitmap.FromFile(@"background.bmp");<br />
    for (int j = 0; j < 15; j++)<br />
    {<br />
        graphic.DrawImageUnscaled(image, (j % 4) * image.Width, (j / 4) * image.Height, image.Width, image.Height);<br />
    }<br />
}<br />
bitmap.Save(@"a.png", ImageFormat.Png);<br />