Imports System
Public Class Test
Public Shared Sub Main()
Dim sCode = "113073087114114118120079"
Dim i As Integer
Dim sDec As String = ""
Dim sDecode
For i = 1 To Len(sCode) Step 3
sDec = sDec & Chr(Val(Mid(sCode, i, 3)) - i)
Next
sDecode = sDec
Console.WriteLine("sDecode")
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gc0NvZGUgPSAiMTEzMDczMDg3MTE0MTE0MTE4MTIwMDc5IgogICAgCURpbSBpIEFzIEludGVnZXIKICAgICAgICBEaW0gc0RlYyBBcyBTdHJpbmcgPSAiIgogICAgICAgIERpbSBzRGVjb2RlCiAgICAgICAgRm9yIGkgPSAxIFRvIExlbihzQ29kZSkgU3RlcCAzCiAgICAgICAgICAgIHNEZWMgPSBzRGVjICYgQ2hyKFZhbChNaWQoc0NvZGUsIGksIDMpKSAtIGkpCiAgICAgICAgTmV4dAogICAgICAgIHNEZWNvZGUgPSBzRGVjCiAgICAgICAgQ29uc29sZS5Xcml0ZUxpbmUoInNEZWNvZGUiKQoJRW5kIFN1YgpFbmQgQ2xhc3M=