Encrypt and URL Encode
    Server.UrlEncode(XOR1String(NextStepURL))


URL Decode and decrypt
    XOR1String(Server.UrlDecode(MyAdvURL))


    Protected Function XOR1String(ByVal StringToProcess As String) As String

        If StringToProcess.Length = 0 Then
            Return ""
        End If

        Dim X As Integer
        For X = 1 To StringToProcess.Length
            Mid(StringToProcess, X, 1) = Chr(Asc(Mid(StringToProcess, X, 1)) Xor 1)
        Next

        Return StringToProcess
    End Function