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 "
%>