Ver Mensaje Individual
  #1 (permalink)  
Antiguo 29/07/2002, 16:25
Avatar de ashketchum
ashketchum
 
Fecha de Ingreso: julio-2001
Ubicación: En algun lugar de un gran pais
Mensajes: 418
Antigüedad: 23 años, 4 meses
Puntos: 0
Encriptación de password en ASP

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>