' 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 |