Encriptar y desencriptar una cadena .Net

Hola Amigos, aqui estoy de nuevo, con unas funciones que me parecen muy útiles para cuando queramos encriptar y desencriptar una cadena de texto, que podríamos usar para cuando guardamos las cadenas de conexión de una base de datos, o alguna contraseña que no queremos que sea vista, no es la super seguridad pero es funcional.

#Region "Función Encrypt"
'Encripta cadenas de texto
Public Function Encrypt(ByVal string_encriptar As String) As String
Dim R As Integer
Dim I As Integer
R = Len(Trim(string_encriptar))
For I = 1 To R
Mid(string_encriptar, I, 1) = Chr(Asc(Mid(string_encriptar, I, 1)) - 2)
Next I
Dim b As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(string_encriptar)
Dim encryptedConnectionString As String = Convert.ToBase64String(b)
Return encryptedConnectionString
End Function
#End Region

#Region "Función UnEncrypt"
'Desencripta cades de texto encriptadas por Encrypt
Public Function UnEncrypt(ByVal string_desencriptar As String) As String
Dim R As Integer
Dim i As Integer
Dim b As Byte() = Convert.FromBase64String(string_desencriptar)
Dim decryptedConnectionString As String = System.Text.ASCIIEncoding.ASCII.GetString(b)
R = Len(Trim(decryptedConnectionString))
For i = 1 To R
Mid(decryptedConnectionString, i, 1) = Chr(Asc(Mid(decryptedConnectionString, i, 1)) + 2)
Next i
Return decryptedConnectionString
End Function
#End Region

Saludos espero les sea muy útil.