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