
| ||||
pues mira hay formas de como codificar textos como dices (encriptar) esto lo haces por medio de un script aqui te dejo un ejemplo que encontre hace tiempos aqui mismo lo puedes modificar a tu gusto y tus necesidades
Código:
<html> <head> <title></title> </head> <body> <% Contrasena = "password" 'Request.Form("Contrasena") 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 Texto = ContrasenaCodifica(Contrasena) Response.Write(Texto) %> <br> <% Contrasena = Texto 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 Texto = ContrasenaDecodifica(Contrasena) Response.Write(Texto) %> </body> </html> |