#Region "AES Encrypt Descrypt"
    <Microsoft.SqlServer.Server.SqlFunction()> _
    Public Shared Function CLR_EncryptAES(<SqlFacet(MaxSize:=512)> ByVal TextString As SqlString, <SqlFacet(MaxSize:=512)> ByVal Password As SqlString) As SqlString
        Dim _sResults As SqlString

        _sResults = New SqlString(Encrypt(TextString.ToString, Password.ToString))
        Return _sResults
    End Function
    <Microsoft.SqlServer.Server.SqlFunction()> _
    Public Shared Function CLR_DecryptAES(<SqlFacet(MaxSize:=512)> ByVal EncryptedString As SqlString, <SqlFacet(MaxSize:=512)> ByVal Password As SqlString) As SqlString
        Dim _sResults As SqlString

        _sResults = New SqlString(Decrypt(EncryptedString.ToString, Password.ToString))
        Return _sResults
    End Function

Imports System.Security.Cryptography
Imports System.IO
Imports System.Text


Class EncryptDecrypt

    Public Shared key As Byte()
    Public Shared IV As Byte() = New Byte(7) {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF}

    Public Shared Function Decrypt(ByVal stringToDecrypt As String, ByVal sEncryptionKey As String) As String
        Dim inputByteArray As Byte()
        Try
            key = System.Text.Encoding.UTF8.GetBytes(sEncryptionKey)
            Dim des As DESCryptoServiceProvider = New DESCryptoServiceProvider()
            inputByteArray = Convert.FromBase64String(stringToDecrypt)
            Dim ms As MemoryStream = New MemoryStream()
            Dim cs As CryptoStream = New CryptoStream(ms, des.CreateDecryptor(key, IV), CryptoStreamMode.Write)
            cs.Write(inputByteArray, 0, inputByteArray.Length)
            cs.FlushFinalBlock()
            Dim encoding As System.Text.Encoding = System.Text.Encoding.UTF8

            Return encoding.GetString(ms.ToArray())
        Catch e As Exception
            Return e.Message
        End Try
    End Function

    Public Shared Function Encrypt(ByVal stringToEncrypt As String, ByVal strKey As String) As String
        Try

            key = System.Text.Encoding.UTF8.GetBytes(strKey)
            Dim des As DESCryptoServiceProvider = New DESCryptoServiceProvider()
            Dim inputByteArray As Byte() = Encoding.UTF8.GetBytes(stringToEncrypt)
            Dim ms As MemoryStream = New MemoryStream()
            Dim cs As CryptoStream = New CryptoStream(ms, des.CreateEncryptor(key, IV), CryptoStreamMode.Write)
            cs.Write(inputByteArray, 0, inputByteArray.Length)
            cs.FlushFinalBlock()
            Return Convert.ToBase64String(ms.ToArray())
        Catch e As Exception

            Return e.Message
        End Try
    End Function
End Class

 Private Sub btnTestEncryption_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTestEncryption.Click
        Dim s As String = "Encryption Test"
        Dim p As String = "Secret Password"
        Dim r As String = EncryptDecrypt.Encrypt(s, p)
        Debug.Print(r)
        Dim t As String = EncryptDecrypt.Decrypt(r, p)
        Debug.Print(t)
        MsgBox("Done.")
    End Sub

Private Sub btnTestEncryption_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTestEncryption.Click
        Dim s As String = "Encryption Test"
        Dim p As String = "Password"
        Dim r As String = EncryptDecrypt.Encrypt(s, p)
        Debug.Print(r)
        Dim t As String = EncryptDecrypt.Decrypt(r, p)
        Debug.Print(t)
        MsgBox("Done.")
    End Sub

--t13Oh9nvDTh3Ac+l9nUQqA==
--Encryption Test

--If there is no master key, create one now.  
IF NOT EXISTS  
    (SELECT * FROM sys.symmetric_keys WHERE symmetric_key_id = 101) 
    CREATE MASTER KEY ENCRYPTION BY  
    PASSWORD = '23987hxJKL969#ghf0%94467GRkjg5k3fd117r$$#1946kcj$n44nhdlj' 
GO 
-- create symmetric key 'SecureSymmetricKey'
-- using the DESX encryption algorithm 
-- and encrypt the key using the password
-- 'StrongPassword'
CREATE SYMMETRIC KEY SecureSymmetricKey
  WITH ALGORITHM = DES
  ENCRYPTION BY PASSWORD = N'Password';

-- must open the key if it is not already
OPEN SYMMETRIC KEY SecureSymmetricKey
  DECRYPTION BY PASSWORD = N'Password';
  
CREATE SYMMETRIC KEY SecureSymmetricKey2
  WITH ALGORITHM = TRIPLE_DES
  ENCRYPTION BY PASSWORD = N'Password';

-- must open the key if it is not already
OPEN SYMMETRIC KEY SecureSymmetricKey2
  DECRYPTION BY PASSWORD = N'Password';

-- declare and set varible @str to store plaintext
DECLARE  @str NVARCHAR(100)
SET @str = N'Encryption Test';

-- declare and set varible @encrypted_str to store
-- ciphertext
DECLARE @encrypted_str VARBINARY(MAX)
SET @encrypted_str = 
          EncryptByKey(Key_GUID('SecureSymmetricKey'), @str);

Print @encrypted_str

SET @encrypted_str = 
          EncryptByKey(Key_GUID('SecureSymmetricKey2'), @str);

Print @encrypted_str          

/*
--CLEANUP
CLOSE SYMMETRIC KEY SecureSymmetricKey2
CLOSE SYMMETRIC KEY SecureSymmetricKey
DROP SYMMETRIC KEY SecureSymmetricKey2
DROP SYMMETRIC KEY SecureSymmetricKey 
*/