Cadena conexión Base de Datos

[lmalvarez]

Buenos días,

tengo la siguiente duda sobre las cadenas de conexión con la base de datos (SQL Server):

¿Existe alguna forma de indicar el nombre de usuario y contraseña de la base de datos encriptados?

Muchas gracias.

[dicuenca77]

Bueno... sí y no.

La forma que se me ocurre (es fácilmente desencriptable para alguien que tenga el código fuente) es la siguiente:

Te haces un fichero llamado decrypt.asp con el siguiente código:

Código:

<%

Function esprimo(ByVal i)
 Dim i2
 Dim cuenta
 
  cuenta = 0
  For i2 = 1 To i
   If i Mod i2 = 0 Then
    cuenta = cuenta + 1
   End If
  Next
  If cuenta = 2 Then
   esprimo = True
   Else
   esprimo = False
  End If
End Function

Function decript(cadena)
Dim texto
Dim tcryp
Dim longtexto
Dim bytexored
Dim llaves
Dim contador
Dim contx
Dim sentido
Dim vllaves

tcryp = ""
texto = cadena
longtexto = Len(texto)
llaves = 1
bytexored = 50
contx = 0
sentido = 1
vllaves = False


If longtexto = 0 Then
 llaves = 0
End If

For contador = 1 To longtexto

contx = contx + sentido

If contx = 93 And sentido = 1 Then
 sentido = -sentido
 vllaves = True
End If

If contx = 33 And sentido = -1 Then
 sentido = -sentido
End If


  If esprimo(contx) Then
   bytexored = contx + 33
   If Not vllaves Then
    llaves = llaves + 1
   End If
  End If

 tcryp = tcryp + Chr(Asc(Mid(texto, contador, 1)) Xor bytexored)

Next

decript=tcryp


End Function

%>

Esto contiene un algoritmo de encriptación.
La función

Function decript(cadena)

Se encarga de encriptar/desencriptar una cadena (es simétrico).

Con lo cual, sólo te queda encriptar el user y el pass con esta función, copiar los resultados de la encriptación y hacer la conexión:

Código:

<!--#include file="decrypt.asp"-->
<%
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.open "PROVIDER=SQLOLEDB;DATA SOURCE=sqlservername;UID="&decript("resultado de encriptar user")&";PWD="&decript("resultado de encriptar pwd")&";DATABASE=mydatabase "
%>

[lmalvarez]

Muchas gracias!!