Desencryptar clave

[zorrillafrancis]

Ya encontré la solucion;

Public Function Desencriptar(ByVal TextEncripted As String) As String
Dim strDesencriptar As String = ""
If TextEncripted <> "" Then
Try
bytDesEncriptar = sec.Decrypt(Convert.FromBase64String(TextEncripted ), False)
strDesencriptar = ue.GetString(bytDesEncriptar)
Catch ex As Exception
'MessageBox.Show("No se realizo la Desencripción " + ex.Message, "...", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End If
Return strDesencriptar
End Function

Pero ahora me da error desde la base de datos nose que tipo de datos usar ; Alguien sabe?