Imports System
Imports System.Text
Public Class Program
Private Shared Function convert_to_char_code(ByVal str As String) As Char
Dim num As Integer = Integer.Parse(str)
Return Convert.ToChar(num + 96)
End Function
Private Shared Function decrypt(ByVal s As String) As String
Dim sb As StringBuilder = New StringBuilder()
Dim i As Integer = 0
While i < s.Length - 2
Dim ch As Char
If s(i + 2) = "#"c Then
ch = convert_to_char_code(s.Substring(i, 2))
i += 2
Else
ch = convert_to_char_code(s.Substring(i, 1))
End If
i += 1
sb.Append(ch)
End While
Return sb.ToString()
End Function
Public Shared Sub Main(ByVal args As String())
Console.Write(decrypt("10#1426#25#524#"))
End Sub
End Class
' run:
'
' jadzyex
'
