Funcion para encriptar y desencriptar en ASP clásico
Código ASP clásico
- Por Programador ASP clásico /
- 02/05/2012 @ 09:05:43 /
- 1013 visitas
Esta función en ASP clásico es muy utilizada para encriptar y desencriptar cadenas de texto.
<%
Encode/Decode - Two routines for ASP encryption
' These two VBScript routines can be use to encrypt data passed on the
' querystring,
' so that users can't decode what is being passed between ASP pages.
' USE: sField = Decode(request.querystring(encode("sParm")))
Function Decode(sIn)
dim x, y, abfrom, abto
Decode="": ABFrom = ""
For x = 0 To 25: ABFrom = ABFrom & Chr(65 + x): Next
For x = 0 To 25: ABFrom = ABFrom & Chr(97 + x): Next
For x = 0 To 9: ABFrom = ABFrom & CStr(x): Next
abto = Mid(abfrom, 14, Len(abfrom) - 13) & Left(abfrom, 13)
For x=1 to Len(sin): y=InStr(abto, Mid(sin, x, 1))
If y = 0 then
Decode = Decode & Mid(sin, x, 1)
Else
Decode = Decode & Mid(abfrom, y, 1)
End If
Next
End Function
' USE: location.href="nextpage.asp?" & encode("sParm=" & sData)
Function Encode(sIn)
dim x, y, abfrom, abto
Encode="": ABFrom = ""
For x = 0 To 25: ABFrom = ABFrom & Chr(65 + x): Next
For x = 0 To 25: ABFrom = ABFrom & Chr(97 + x): Next
For x = 0 To 9: ABFrom = ABFrom & CStr(x): Next
abto = Mid(abfrom, 14, Len(abfrom) - 13) & Left(abfrom, 13)
For x=1 to Len(sin): y = InStr(abfrom, Mid(sin, x, 1))
If y = 0 Then
Encode = Encode & Mid(sin, x, 1)
Else
Encode = Encode & Mid(abto, y, 1)
End If
Next
End Function
%>
tags: programa para encriptar y desencriptar, encriptar desencriptar, algoritmo para encriptar, programas para encriptar datos, programa para encriptar datos, programa para encriptar texto, software encriptar archivos, encriptar un texto, asp clasico