Funcion para encriptar y desencriptar en ASP clásico

Código ASP clásico

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