Reversed encryption method

    Public Function Decrypt(StringToDecrypt As String) As String

        Dim builder As New StringBuilder()

        Dim index = 0
        While index < StringToDecrypt.Length
            Dim length = Integer.Parse(StringToDecrypt(index).ToString())
            Dim strConvertToBase = StringToDecrypt.Substring(index+1, length)
            index += 1 + length

            Dim dblWithRandom As Double = 0
            For intCountPower = 0 To length - 1
                'strConvertToBase = strConvertToBase & Chr(Int(dblWithRandom / (93 ^ intCountPower)) + 33)
                'dblWithRandom = dblWithRandom Mod 93 ^ intCountPower
                Dim newRandom = (Asc(strConvertToBase(strConvertToBase.Length - 1 - intCountPower)) - 33) * (93 ^ intCountPower)
                dblWithRandom += newRandom
            Next

            'dblWithRandom = Mid(dblMultiRandom, 1, 2) & intRandomNumber & Mid(dblMultiRandom, 3, 2)
            Dim withRandomString As String = dblWithRandom.ToString()
            Dim multiRandom = Integer.Parse(withRandomString.Substring(0, 2) &  withRandomString.Substring(withRandomString.Length - 2))
            Dim intRandomNumber = Integer.Parse(withRandomString.Substring(2, withRandomString.Length - 4))

            'dblMultiRandom = intAddNinetyNine * intRandomNumber
            Dim addNinetyNine = multiRandom / intRandomNumber

            'intAddNinetyNine = intInverseAsc + 99
            Dim inverseAsc = addNinetyNine - 99

            'intInverseAsc = 256 - intAscCurrentChar
            Dim ascCurrentChar = 256 - inverseAsc

            'intAscCurrentChar = Asc(strCurrentChar)
            Dim currentChar = Chr(ascCurrentChar)

            'strCurrentChar = Mid(StringToEncrypt, dblCountLength, 1)
            builder.Append(currentChar)
        End While

        return builder.ToString()
    End Function