Desencryptar clave

[zorrillafrancis]

hola he estado desencyptando este texto pero me da error y nose que pasa me dice datos incorrectos

Public Function Decrypt(ByVal clave As String) As String

Dim bytDesencriptar As Byte()
bytDesencriptar = sec.Decrypt(Convert.FromBase64String(clave), False)
clave = UE.GetString(bytDesencriptar)

Return clave
End Function


si alguien sabe la solucion por favor decirme Grancias

[zorrillafrancis]

Será que aqui nadie sabe esto...

[Peterpay]

de que tipo es SEC , UE?

que algoritmo de encriptacion implementas?

[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?