Imports System

Imports TSHAK.Components

Imports System.Web

Public Module Module1

    Public Sub Main()

        Dim qs_secure As SecureQueryString

        Dim respuesta as String

        respuesta = "ELU%2bmsVJIpj9dq7XOZmY3Ra78mKBtw5KDPZjh9LeY98rlhETNfg2znxywJC92XD8Y2%2bjk80EDkD7J25Qw9qJW2s7rVrbRA6FK5VdqL92IBnTc%2fBASyP7mHn1pDIW7hzedusNSAwmfA45nz2AIGez5Kw%3d"

        qs_secure = New SecureQueryString(New Byte() {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 8},respuesta)

        Console.WriteLine(qs_secure)

        'Dim ld_id As Integer = Integer.Parse(qs_secure("ld_id"))

        'Console.WriteLine(ld_id)

        'Dim qs_secure As SecureQueryString

        'qs_secure = New SecureQueryString(New Byte() {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 8})

        'qs_secure("ld_id") = 5

        'Dim oHola as String = HttpUtility.UrlEncode(qs_secure.ToString())

        'Console.WriteLine(oHola)

    End Sub

End Module