none
Error al codificar un string con Base64 RRS feed

  • Pregunta

  • Sres. mi problema se genera al extraer el dato desde SQL y descodificarlo, realice pruebas con dos button (codificar y Descodificar) y resulta sin problemas, pero cuando lo grabo en SQL (2005) y lo quiero descodificar me dice que no es valido el texto.

    Les dejo parte del código

    ====== Funcion Encriptar ===============

    Public Function Encriptar(ByVal EncriptString As String) As String
            Dim strEncriptar As String = ""
            If EncriptString <> "" Then
                Try
                    bytString = ue.GetBytes(EncriptString)
                    bytEncriptar = sec.Encrypt(bytString, False)
                    strEncriptar = Convert.ToBase64String(bytEncriptar)
                Catch ex As Exception
                    MessageBox.Show("No se realizo la encripción " + ex.Message, "...", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End Try
            End If
            Return strEncriptar
        End Function

    ====== Funcion Desencriptar ===============

        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

    El string que estoy introduciendo es una password para este caso uso la password "prueba" y al encriptar me genera este resultado "L6cAtWvxnkt0Plr3zxuhKvmPGBcuKgh/0yC5c7yODLN1SqQdHCu2cQMydxnt/Y85UaQLEJ9lDGmGy+DTqPFxLDdXp+gfNd/rmhYHM1SpWA6URQhoZ/DBRpWIWDC93cV6UDe5M5cvnGLyArM1/jAt+L0EI9+PD2oI3CnniZe9VK0="

    de esta forma queda guardado en SQL (varchar(200)) al traerlo al formulario (visual 2010) lo deje en una variable tipo string pero lo mismo, la cambie y pase el valor a un textbox y tampoco.

    Ahora lo que me di cuenta que si presiono el boton encriptar mas de una vez genera diferentes claves, cada vez una nueva, sera ese el problema?

    Espero puedan ayudarme, si necesitan mas información avísenme. Gracias.

    Atte.

    Eric.

    lunes, 11 de febrero de 2013 21:52