Critpare stringa url

[Dust_79]

Ho la necessità di nascondere in qualche modo la stringa che paggo sulla querystring.
Per semplificare le cose senza usare sistemi di crittografia, ho pensato di prendere la stringa, convertirla tramite .GetHashCode e sommarci una costante.

Come faccio poi però dall'intero, una volta sottratta la costante, a riprendere il valore della stringa iniziale?

[Dust_79]

Ecco le semplici funzioni di criptaggio:

        Public Function Encrypt(ByVal str As String) As String
            Dim cont As Integer
            Dim strCriptata As String
            For cont = 0 To str.Length - 1
                strCriptata = strCriptata & Asc(str.Chars(cont)) + key & "-"
            Next
            Return strCriptata
        End Function

        Public Function Decrypt(ByVal str As String) As String
            Dim cont As Integer
            Dim strArr() As String
            Dim strDecriptata As String
            strArr = str.Split("-")

            For cont = 0 To UBound(strArr) - 1
                strDecriptata = strDecriptata & Chr(strArr(cont) - key)
            Next

            Return strDecriptata
        End Function

[Daniele80]

puoi sempre utilizzare lo SHA1

string url = Formautenthications.hashpasswordfromlogin(valore, "sha1");