First create solution

Nuvolar.Module/BusinessObjects/SIS/App_Code/EncryptDecrypt.vb

@@ -0,0 +1,95 @@
+Imports System.Text
+Imports System.Security.Cryptography
+Imports System.IO
+Imports DevExpress.Xpo.Metadata
+
+Public Module EncryptDecrypt
+    Public Function AESEncrypt(ByVal PlainText As String, ByVal Password As String, ByVal salt As String) As String
+        Const HashAlgorithm As String = "SHA1" 'Can be SHA1 or MD5 
+        Const PasswordIterations As Integer = 2
+        Const InitialVector As String = "CanEncryption123" 'This should be a string of 16 ASCII characters. 
+        Const KeySize As Integer = 256 'Can be 128, 192, or 256. 
+
+        If (String.IsNullOrEmpty(PlainText)) Then
+            Return ""
+            Exit Function
+        End If
+        Dim InitialVectorBytes As Byte() = Encoding.ASCII.GetBytes(InitialVector)
+        Dim SaltValueBytes As Byte() = Encoding.ASCII.GetBytes(salt)
+        Dim PlainTextBytes As Byte() = Encoding.UTF8.GetBytes(PlainText)
+        Dim DerivedPassword As PasswordDeriveBytes = New PasswordDeriveBytes(Password, SaltValueBytes, HashAlgorithm, PasswordIterations)
+        Dim KeyBytes As Byte() = DerivedPassword.GetBytes(KeySize / 8)
+        Dim SymmetricKey As RijndaelManaged = New RijndaelManaged() With {.Mode = CipherMode.CBC}
+
+        Dim CipherTextBytes As Byte() = Nothing
+        Using Encryptor As ICryptoTransform = SymmetricKey.CreateEncryptor(KeyBytes, InitialVectorBytes)
+            Using MemStream As New MemoryStream()
+                Using CryptoStream As New CryptoStream(MemStream, Encryptor, CryptoStreamMode.Write)
+                    CryptoStream.Write(PlainTextBytes, 0, PlainTextBytes.Length)
+                    CryptoStream.FlushFinalBlock()
+                    CipherTextBytes = MemStream.ToArray()
+                    MemStream.Close()
+                    CryptoStream.Close()
+                End Using
+            End Using
+        End Using
+        SymmetricKey.Clear()
+        Return Convert.ToBase64String(CipherTextBytes)
+    End Function
+    Public Function AESDecrypt(ByVal CipherText As String, ByVal password As String, ByVal salt As String) As String
+
+        On Error Resume Next
+
+        Const HashAlgorithm As String = "SHA1"
+        Const PasswordIterations As Integer = 2
+        Const InitialVector As String = "CanEncryption123"
+        Const KeySize As Integer = 256
+
+        If (String.IsNullOrEmpty(CipherText)) Then
+            Return ""
+        End If
+        Dim InitialVectorBytes As Byte() = Encoding.ASCII.GetBytes(InitialVector)
+        Dim SaltValueBytes As Byte() = Encoding.ASCII.GetBytes(salt)
+        Dim CipherTextBytes As Byte() = Convert.FromBase64String(CipherText)
+        Dim DerivedPassword As PasswordDeriveBytes = New PasswordDeriveBytes(password, SaltValueBytes, HashAlgorithm, PasswordIterations)
+        Dim KeyBytes As Byte() = DerivedPassword.GetBytes(KeySize / 8)
+        Dim SymmetricKey As RijndaelManaged = New RijndaelManaged() With {.Mode = CipherMode.CBC}
+        Dim PlainTextBytes As Byte() = New Byte(CipherTextBytes.Length - 1) {}
+
+        Dim ByteCount As Integer = 0
+
+        Using Decryptor As ICryptoTransform = SymmetricKey.CreateDecryptor(KeyBytes, InitialVectorBytes)
+            Using MemStream As MemoryStream = New MemoryStream(CipherTextBytes)
+                Using CryptoStream As CryptoStream = New CryptoStream(MemStream, Decryptor, CryptoStreamMode.Read)
+                    ByteCount = CryptoStream.Read(PlainTextBytes, 0, PlainTextBytes.Length)
+                    MemStream.Close()
+                    CryptoStream.Close()
+                End Using
+            End Using
+        End Using
+        SymmetricKey.Clear()
+        Return Encoding.UTF8.GetString(PlainTextBytes, 0, ByteCount)
+    End Function
+End Module
+Public Class Encryption
+    Inherits ValueConverter
+    Public Overrides Function ConvertToStorageType(ByVal value As Object) As Object
+        If value IsNot Nothing Then
+            Return AESEncrypt(value.ToString, "HrX12!!0Zm7764W2", "vXm657YS+!0@mmT")
+        Else
+            Return Nothing
+        End If
+    End Function
+    Public Overrides Function ConvertFromStorageType(ByVal value As Object) As Object
+        If value Is Nothing Then
+            Return Nothing
+        Else
+            Return AESDecrypt(value.ToString, "HrX12!!0Zm7764W2", "vXm657YS+!0@mmT")
+        End If
+    End Function
+    Public Overrides ReadOnly Property StorageType() As Type
+        Get
+            Return GetType(String)
+        End Get
+    End Property
+End Class