none
Encriptar cadena de conexion WPF RRS feed

  • Pregunta

  • Alguien que me ayude, como encripto la conexion del app.config estoy utilizando la siguiente función.

            public static void encriptar()
            {
                // Obtener el archivo de configuracion
                Configuration configFile = null;
                configFile = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None);
                // Crear el proveedor de encriptacion
                String provider = "DataProtectionConfigurationProvider";
                // Obtener la seccion de configuracion
                ConfigurationSection connstrings = configFile.ConnectionStrings;
                // Encriptar
                connstrings.SectionInformation.ProtectSection(provider);
                connstrings.SectionInformation.ForceSave = true;
                // Guardar
                configFile.Save(ConfigurationSaveMode.Full);
            }

    Pero cuando se ejecuta el programa se encripta, pero cuando le cierro el programa se desencripta.

    De ante mano gracias..

    viernes, 30 de agosto de 2013 21:48

Todas las respuestas

  • hola ismael, eso es sencillo, primero creas una funcion para encriptar

    aqui tenes un ejemplo

    Function Encripta(Pass As String) As String
            Dim Clave As String, i As Integer, Pass2 As String
            Dim CAR As String, Codigo As String
            Clave = "%ü&/@#$A"
            Pass2 = ""
            For i = 1 To Len(Pass)
                CAR = Mid(Pass, i, 1)
                Codigo = Mid(Clave, ((i - 1) Mod Len(Clave)) + 1, 1)
                Pass2 = Pass2 & Right("0" & Hex(Asc(Codigo) Xor Asc(CAR)), 2)
            Next i
            Encripta = Pass2
        End Function

    y deberas hacer una funcion para desencriptar

    aqui tenes el ejemplo

    Function DesEncripta(Pass As String) As String
            Dim Clave As String, i As Integer, Pass2 As String
            Dim CAR As String, Codigo As String
            Dim j As Integer
    
            Clave = "%ü&/@#$A"
            Pass2 = ""
            j = 1
            For i = 1 To Len(Pass) Step 2
                CAR = Mid(Pass, i, 2)
                Codigo = Mid(Clave, ((j - 1) Mod Len(Clave)) + 1, 1)
                Pass2 = Pass2 & Chr(Asc(Codigo) Xor Val("&h" + CAR))
                j = j + 1
            Next i
            DesEncripta = Pass2
        End Function

    luego al momento de encriptar deberas colocar tu texto a encriptar ya sea en una variable, o en un textboxt segun sea el caso y seria asi

    dim texto1 as string = encripta (aqui colocas tu cadena de conexion)

    dim texto2 as string = desencripta (aqui colocas tu cadena de conexion)

    • Propuesto como respuesta dario_axariel viernes, 30 de agosto de 2013 23:15
    viernes, 30 de agosto de 2013 23:15