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>