Hola a todos, como ya sabran yo soy ashketchum y acabo de terminar este código que permite encriptar mediante aumento de ASCII en los caracteres una contraseña comun a código inservible, espero le sea de utilidad el código de hecho es muy sencillo pero aqui esta:
este es el que codifica:
Código:
<%
'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
%>
y este descodifica :P:
Código:
<%
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
%>
espero que les sirva de algo
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>