Funcion para encriptar y desencriptar en ASP clásico

Funcion para encriptar y desencriptar en ASP clásico

Código ASP clásico

Por ASP clásico / 02/05/2012 @ 09:05:43 / 1441 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 
%>

Descubre más sobre cómo simplificar y optimizar tu trabajo empresarial en el Blog de CoreASP.

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