Private Function EncryptTripleDES(ByVal Plaintext As String,
                                                                          ByVal Key As String) As String
    'Create Cryptography Objects
    Dim DES As New System.Security.Cryptography.TripleDESCryptoServiceProvider
    'Create Hash type MD5
    Dim hashMD5 As New System.Security.Cryptography.MD5CryptoServiceProvider
    'Assign key
    DES.Key = hashMD5.ComputeHash 
                                        (System.Text.ASCIIEncoding.ASCII.GetBytes(Key))

    DES.Mode = System.Security.Cryptography.CipherMode.ECB

    Dim DESEncrypt As System.Security.Cryptography.ICryptoTransform

    DESEncrypt = DES.CreateEncryptor()

    Dim Buffer() As Byte 

    Buffer = System.Text.ASCIIEncoding.ASCII.GetBytes(Plaintext)

    EncryptTripleDES = Convert.ToBase64String(
                             DESEncrypt.TransformFinalBlock(Buffer, 0,Buffer.Length))

End Function