este es el que codifica:
Código:
y este descodifica :P:<%
'aqui rescatamos el request.form de nuestro formulario
Contrasena = Request.Form("campo")
Function ContrasenaCodifica(Contrasena)
Dim vLongitud, vCaracter, vCodificado
vLongitud = Len(Contrasena)
vCodificado = ""
For vCaracter = 1 To vLongitud
vCodificado = vCodificado & Chr(Asc(Mid(Contrasena, vCaracter, 1)) + 50)
Next
ContrasenaCodifica = vCodificado
End Function
%>
Código:
espero que les sirva de algo<%
Contrasena = ContrasenaCodifica(Contrasena)
Function ContrasenaDecodifica(Contrasena)
Dim vLongitud, vCaracter, vCodificado
vLongitud = Len(Contrasena)
vCodificado = ""
For vCaracter = 1 To vLongitud
vCodificado = vCodificado & Chr(Asc(Mid(Contrasena, vCaracter, 1)) - 50)
Next
ContrasenaDecodifica = vCodificado
End Function
%>
saludos y suerte
<img src="http://www.velazquez.com.mx/masteraspx/firma.jpg" width="465" height="79" border="0" usemap="#URL">
<map name="URL">
<area shape="rect" coords="270,48,347,61" href="http://www.masteraspx.tk" target="_blank">
</map>
Estaba probando el código en la página que recibe el formulario del login,

Este tema le ha gustado a 2 personas (incluyéndote)