C#

"C:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Data\Coupon Management.mdf"

connectionString="Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Coupon Management.mdf;Database=Coupon Management;

Trusted_Connection=Yes;Persist Security Info=True;Integrated Security=False

namespace WindowsFormsApplication1
{
    [Guid("c5bdd8d0-d26e-11ce-a89d-00aa006cadc5")]
    [InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
    public interface ITextHost
    {
        IntPtr TxGetDC();
        IntPtr TxReleaseDC(IntPtr hdc);
    }

    public partial class Form1 : Form, ITextHost
    {
        [DllImport("riched20.dll")]
        private static extern int CreateTextServices(
          [MarshalAs(UnmanagedType.IUnknown)] object punkOuter,
          ITextHost pITextHost,
          [MarshalAs(UnmanagedType.IUnknown), Out] out object ppUnk);

        public Form1()
        {
            InitializeComponent();
            this.Load += new EventHandler(Form1_Load);
        }

        void Form1_Load(object sender, EventArgs e)
        {
            object ppUnk = null;
            int result = CreateTextServices(null, this, out ppUnk);
        }

        #region ITextHost Members

        public IntPtr TxGetDC()
        {
            return this.Handle;
        }

        public IntPtr TxReleaseDC(IntPtr hdc)
        {
            return IntPtr.Zero;
        }
    }
}

<br />
public void encrypt() {<br />
string keyS = "W-3lee7#AA345ll812345678";<br />
            string ivS = "00000000";<br />
            string testText = "20091217140739-1"<br />
<br />
            byte[] key = new MD5CryptoServiceProvider().ComputeHash(Encoding.UTF8.GetBytes(keyS));<br />
            byte[] iv = Encoding.UTF8.GetBytes(ivS);<br />
            byte[] data = Encoding.UTF8.GetBytes(testText);<br />
            byte[] enc = new byte[0];<br />
            byte[] dec = new byte[0];<br />
            TripleDES tdes = TripleDES.Create();<br />
            tdes.IV = iv;<br />
            tdes.Key = key;<br />
            tdes.Mode = CipherMode.CBC;<br />
            tdes.Padding = PaddingMode.PKCS7;<br />
            ICryptoTransform ict = tdes.CreateEncryptor();<br />
            enc = ict.TransformFinalBlock(data, 0, data.Length);<br />
            return BytesToHex(enc);<br />
}<br />
public string BytesToHex(byte[] bytes)<br />
        {<br />
            StringBuilder hexString = new StringBuilder(bytes.Length);<br />
            for (int i = 0; i < bytes.Length; i++)<br />
            {<br />
                hexString.Append(bytes[i].ToString("X2"));<br />
            }<br />
            return hexString.ToString();<br />
        }<br />

<br />
#!/usr/bin/perl<br />
<br />
use strict;<br />
use warnings;<br />
use Crypt::CBC;<br />
<br />
my $key = "W-3lee7#AA345ll812345678";<br />
<br />
my $cbc = Crypt::CBC->new(<br />
    -key => $key,<br />
    -header => 'none',<br />
    -iv => '00000000',<br />
    -cipher => 'DES_EDE3',<br />
);<br />
<br />
<br />
my $plaintext = "20091217140739-1";<br />
print "plaintext: " . $plaintext . "\n\n";<br />
<br />
my $encrypted = join('',unpack('H*',$cbc->encrypt($plaintext)));<br />
print "encrypted: " . $encrypted . "\n\n";<br />
<br />
my $decrypted = $cbc->decrypt(pack'H*',$encrypted);<br />
print "decrypted: " . $decrypted . "\n\n";<br />
<br />
<br />
1;<br />