Foros del Web » Programando para Internet » ASP Clásico »

codificar cookies

Estas en el tema de codificar cookies en el foro de ASP Clásico en Foros del Web. en el caso de guardar algun tipo de információn sensible en alguna cookies, como se puede codificar esta??? gracias...
  #1 (permalink)  
Antiguo 27/09/2003, 10:35
Avatar de sanfermin  
Fecha de Ingreso: diciembre-2001
Mensajes: 601
Antigüedad: 22 años, 6 meses
Puntos: 2
Exclamación codificar cookies

en el caso de guardar algun tipo de információn sensible en alguna cookies, como se puede codificar esta???


gracias
__________________
MainMind.com
La blasfemia es el único lenguaje que de verdad conocen todos los programadores
  #2 (permalink)  
Antiguo 28/09/2003, 02:12
Avatar de univercity  
Fecha de Ingreso: noviembre-2002
Mensajes: 681
Antigüedad: 21 años, 7 meses
Puntos: 0
La verdad es que no se para que la quieres codificar, si la cookie se graba en el Pc del usuario, si la quisiera ver la vería de todas formas lo haría...
ahora si quieres que cuando lo haga no la entienda... eso es otra cosa y solo te faltará creatividad para grabarle los datos y como rescatarlos... que creo tambien te será un problema.


Sl2s.
__________________
"Lo importante es nunca dejar de hacerse preguntas"
Albert Einstein
  #3 (permalink)  
Antiguo 29/09/2003, 06:22
Avatar de sanfermin  
Fecha de Ingreso: diciembre-2001
Mensajes: 601
Antigüedad: 22 años, 6 meses
Puntos: 2
codificar X

cuando me referí a codificar cookies, debería haber dicho información: cookies, textos, imagenes...

en mi caso, necesito codificar y descodificar facilmente texto para no hacerlo legible de manera fácil

se podría implementar algun sistema de hash con claves públicas y privadas en un sitio web??
__________________
MainMind.com
La blasfemia es el único lenguaje que de verdad conocen todos los programadores
  #4 (permalink)  
Antiguo 29/09/2003, 07:54
Avatar de nazkatuta  
Fecha de Ingreso: julio-2002
Ubicación: EH - BCN
Mensajes: 222
Antigüedad: 21 años, 10 meses
Puntos: 0
Hola,

te copio un codigo para codificar en base64 que encontré por ahi.

Código:
' Functions to provide encoding/decoding of strings with Base64.
' 
' Encoding: myEncodedString = base64_encode( inputString )
' Decoding: myDecodedString = base64_decode( encodedInputString )
'
' Programmed by Markus Hartsmar for ShameDesigns in 2002. 
' Email me at: [email protected]
' Visit our website at: http://www.shamedesigns.com/
'

	Dim Base64Chars
	Base64Chars =	"ABCDEFGHIJKLMNOPQRSTUVWXYZ" & _
			"abcdefghijklmnopqrstuvwxyz" & _
			"0123456789" & _
			"+/"


	' Functions for encoding string to Base64
	Public Function base64_encode( 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
		base64_encode = strOut
	End Function

	Private Function mimeencode( byVal intIn )
		If intIn >= 0 Then 
			mimeencode = Mid( Base64Chars, intIn + 1, 1 ) 
		Else 
			mimeencode = ""
		End If
	End Function	


	' Function to decode string from Base64
	Public Function base64_decode( 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
		base64_decode = 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
http://www.freevbcode.com/ShowCode.Asp?ID=5248

espero que te sirva, suerte!
__________________
Cita:
Gaur ere nahi nuke...
zure ondoan esnatu
  #5 (permalink)  
Antiguo 29/09/2003, 14:46
Avatar de sanfermin  
Fecha de Ingreso: diciembre-2001
Mensajes: 601
Antigüedad: 22 años, 6 meses
Puntos: 2
Gracias es lo q buscaba :)
__________________
MainMind.com
La blasfemia es el único lenguaje que de verdad conocen todos los programadores
  #6 (permalink)  
Antiguo 01/10/2003, 04:13
 
Fecha de Ingreso: mayo-2003
Mensajes: 866
Antigüedad: 21 años, 1 mes
Puntos: 0
Alguien podria explicarme para que sirve esta funcion y como usarla. Thank you
  #7 (permalink)  
Antiguo 01/10/2003, 14:09
Avatar de nazkatuta  
Fecha de Ingreso: julio-2002
Ubicación: EH - BCN
Mensajes: 222
Antigüedad: 21 años, 10 meses
Puntos: 0
Hola,
en realidad son dos funciones

Function base64_decode
Function base64_encode

primero se usa encode, pasandole como parametro un strinbg, y nos devuelve el mismo string codificado.

luego se puede usar la funcion decode pasandole el string resultado de la funcion anterior, y nos devolverá el string decodificado, es decir, el mismo string que al principio.
__________________
Cita:
Gaur ere nahi nuke...
zure ondoan esnatu
  #8 (permalink)  
Antiguo 13/07/2004, 08:09
 
Fecha de Ingreso: mayo-2002
Mensajes: 197
Antigüedad: 22 años, 1 mes
Puntos: 0
Le estoy dando 2000 vueltas y no doy con la tecla, alguien me podria adaptar la funcion anterior para DECODIFICAR una cadena a la que la llamo mediante <%=thecache%>, la pagina esta en asp, pero no se como debe de ir el codigo anterior.

Muchas gracias de antemano y un saludo.
  #9 (permalink)  
Antiguo 13/07/2004, 11:58
Avatar de meru-kun  
Fecha de Ingreso: noviembre-2002
Ubicación: Madrid
Mensajes: 854
Antigüedad: 21 años, 6 meses
Puntos: 0
Pues si la cadena codificada es thecache, solamente tendrías que poner:
<%
var_decodif = base64_decode(thecache) %>
__________________
Tu portal de manga y anime.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 13:12.