fork download
copy 
  1. Imports System
  2.  
  3. Public Class Test
  4. 	Public Shared Sub Main()
  5. 		Dim sCode = "051056062060069068069079"
  6.     	Dim i As Integer
  7.         Dim sDec As String = ""
  8.         Dim sDecode
  9.         For i = 1 To Len(sCode) Step 3
  10.             sDec = sDec & Chr(Val(Mid(sCode, i, 3)) - i)
  11.         Next
  12.         sDecode = sDec
  13.         Console.WriteLine(sDecode)
  14. 	End Sub
  15. End Class
Success #stdin #stdout 0.08s 25688KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
24728429
https://ideone.com/rcFP82
language:
VB.NET (mono-3.10)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!