Encriptar y desencriptar string

A ver tengo funciones que hacen eso
Tal vez te sirvan
Public Function BDcifrarPassword(ByVal strPassword As String) As String
'funcion que encripta el password ingresado, para poder almacenarlo sin que puedan descifrarlo
Dim i As Integer
Dim char
Dim Palabra As Collection
BDcifrarPassword = ""
Set Palabra = New Collection
For i = 1 To Len(strPassword)
char = Mid(strPassword, i, 1)
Palabra.Add Asc(char) + Asc(char)
Next i
For Each char In Palabra
BDcifrarPassword = BDcifrarPassword & Chr(char)
Next char
End Function
Public Function BDdescifrarPassword(ByVal pwdArchi As String) As String
'funcion que DesEncripta el password almacenado, para acceder a la base de datos protegida con password
Dim i As Integer
Dim char
Dim char2
Dim Palabra As Collection
Set Palabra = New Collection
BDdescifrarPassword = ""
For i = 1 To Len(pwdArchi)
char2 = Mid(pwdArchi, i, 1)
Palabra.Add Asc(char2) / 2
Next i
For Each char In Palabra
BDdescifrarPassword = BDdescifrarPassword & Chr(char)
Next char
End Function
La verdad es que de encriptado no se mucho... así que no le hago muchas cosas al password...
Pero funciona... porque lo que guarda el resultado es distitno a lo que se ingreso
Y en la de descifrar cuando ingresas el resultado de la encriptación devuelve lo que ingresaste
Espero que te sirva mi ejemplo