encriptar clave de acceso

[pequeña_rocio]

hola

Tengo una pagina en asp, en la cual se identifica el usuario con un nombre de usuario y un pasword esos datos son almacenados en una base de datos, los cuales quiero un programa que me encripte esos datos, y guardarlos en la base de datos en sql server 2000 ya encriptados.

Ojala y me puedieran mandar codigo de ante mano, muchas gracias.. bye

[email protected]

[Mickel]

Se me ocurre que una combinacion de split, replace and strreverse podria hacer el truco. Alguien ya la tiene implementada?

[Saruman]

hola....
aqui hay un codigo encriptador....
funciona perfectamente.... espero les sirva

saludos

Código:

<%
	Base64Chars =	"ABCDEFGHIJKLMNOPQRSTUVWXYZ" & _
				"abcdefghijklmnopqrstuvwxyz" & _
				"0123456789" & _
				"+/"
				
	Public Function EncodeStr(byVal strIn)
		Dim c1, c2, c3, w1, w2, w3, w4, n, strOut
		For n = 1 To Len(strIn) Step 3
			c1 = Asc(Mid(strIn, n, 1))
			c2 = Asc(Mid(strIn, n + 1, 1) + Chr(0))
			c3 = Asc(Mid(strIn, n + 2, 1) + Chr(0))
			w1 = Int(c1 / 4) : w2 = (c1 And 3) * 16 + Int(c2 / 16)
			If Len(strIn) >= n + 1 Then 
				w3 = (c2 And 15) * 4 + Int(c3 / 64) 
			Else 
				w3 = -1
			End If
			If Len(strIn) >= n + 2 Then 
				w4 = c3 And 63 
			Else 
				w4 = -1
			End If
			strOut = strOut + mimeencode(w1) + mimeencode(w2) + _
					  mimeencode(w3) + mimeencode(w4)
		Next
		EncodeStr = strOut
	End Function

	Private Function mimedecode(byVal strIn)
		If Len(strIn) = 0 Then 
			mimedecode = -1 : Exit Function
		Else
			mimedecode = InStr(Base64Chars, strIn) - 1
		End If
	End Function

	Public Function DecodeStr(byVal strIn)
		Dim w1, w2, w3, w4, n, strOut
		For n = 1 To Len(strIn) Step 4
			w1 = mimedecode(Mid(strIn, n, 1))
			w2 = mimedecode(Mid(strIn, n + 1, 1))
			w3 = mimedecode(Mid(strIn, n + 2, 1))
			w4 = mimedecode(Mid(strIn, n + 3, 1))
			If w2 >= 0 Then _
				strOut = strOut + _
					Chr(((w1 * 4 + Int(w2 / 16)) And 255))
			If w3 >= 0 Then _
				strOut = strOut + _
					Chr(((w2 * 16 + Int(w3 / 4)) And 255))
			If w4 >= 0 Then _
				strOut = strOut + _
					Chr(((w3 * 64 + w4) And 255))
		Next
		DecodeStr = strOut
	End Function


	Private Function mimeencode(byVal intIn)
		If intIn >= 0 Then 
			mimeencode = Mid(Base64Chars, intIn + 1, 1) 
		Else 
			mimeencode = ""
		End If
	End Function
	
	
	texto = "password"
	texto = EncodeStr(texto)
	response.Write(texto)
	
	response.Write("<br><br>")
	
	texto = "cGFzc3dvcmQ"
	texto = DecodeStr(texto)
	response.Write(texto)
%>

[sabandija25]

una pregunta...
que pasa si le ponen un caracter por ej "-"

la base sale
Base64Chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" & _
"abcdefghijklmnopqrstuvwxyz" & _
"0123456789" & _
"+/"

no contiene el carácter -... basta con sólo agregarlo ahí?... o hay que hacer algo mas?

gracias

[Muzztein]

nada... ese script funciona de maravilla.


pruebalo!

[Muzztein]

Iniciado por pequeña_rocio

hola

Tengo una pagina en asp, en la cual se identifica el usuario con un nombre de usuario y un pasword esos datos son almacenados en una base de datos, los cuales quiero un programa que me encripte esos datos, y guardarlos en la base de datos en sql server 2000 ya encriptados.

Ojala y me puedieran mandar codigo de ante mano, muchas gracias.. bye

[email protected]

debido a que sql server trabaja con VB script, ese mismo codigo que puso saruman puede ser incluido en un DTS de SQL SERVER y hacer la encriptacion sin necesidad de tener que pasar por una pagina ASP.

y lo hace de manera mas estable y rapida.
si si si

[sabandija25]

ehmmm

nadie le ha encontrado algún margen de error a este código?

se ve muy bueno, pero lo ideal es que funcione 100%

gracias

[Muzztein]

lo probaste =????????????????????????????

[sabandija25]

la acabo de usar.. realmente la llea con cuatica!

jajajaj

[un_tio]

¡Muy interesante!

Pero... ¿realmente podemos fiarnos de un código que está publicado en internet al alcance de todo el mundo? Creo que deberíamos al menos hacer algunas modificaciones para que fuese imposible que alguien que pillara nuestras contraseñas encriptadas, las desencripatara aplicando sin más ese código. ¿Alguna idea?

PD: Otra opción es utilizar un código publicado en internet, que utilice clave, ya que ésta sólo nosotros la sabremos.

[maryury]

hola Yo estoy usando ASP y con un onChange llamo a una funcion JS que toma el valor de lo que seleccione en dicho combo lo que quiero es usar ese valor en esa misma pagina y hasta ahora solo he conseguido pasarlo como un parametro escondido a otra pagina, repito quiero usar ese valor dentro de esa misma página ¿Alguien puede ayudarme?

[dobled]

espectacular