mports System
Public Class Test
Public Shared Sub Main()
' your code goes here
Dim i1 as integer
Dim i2 as integer
Dim i3 as integer
Dim i4 as integer
Dim i5 as integer
Dim i6 as integer
Dim i7 as integer
Dim i8 as integer
Dim ss as string
Dim x as integer
Dim v as integer
Dim c as string
Dim vl(7) as integer
For i1 = 0 To 1
For i2 = 0 To 1
For i3 = 0 To 1
For i4 = 0 To 1
For i5 = 0 To 1
For i6 = 0 To 1
For i7 = 0 To 1
For i8 = 0 To 1
ss = Chr$(48 + i1) _
& Chr$(48 + i2) _
& Chr$(48 + i3) _
& Chr$(48 + i4) _
& Chr$(48 + i5) _
& Chr$(48 + i6) _
& Chr$(48 + i7) _
& Chr$(48 + i8)
'
vl(0) = 1
vl(1) = 2
vl(2) = 4
vl(3) = 8
vl(4) = 16
vl(5) = 32
vl(6) = 64
vl(7) = 128
For x = 0 to 7
c = sv.substring(x, 1)
If c = "1" then
v = v
End if
Next
'
Console.WriteLine(v.tostring & " - " & ss)
Next i8
Next i7
Next i6
Next i5
Next i4
Next i3
Next i2
End Sub
Public Function GetV(sv as string) as String
Dim x as integer
Dim v as integer
Dim c as string
Dim vl(7) as integer
vl(0) = 1
vl(1) = 2
vl(2) = 4
vl(3) = 8
vl(4) = 16
vl(5) = 32
vl(6) = 64
vl(7) = 128
For x = 0 to 7
c = sv.substring(x, 1)
If c = "1" then
v = v
End if
Next
Return v.tostring
End Function
End Class
bXBvcnRzIFN5c3RlbQoKUHVibGljIENsYXNzIFRlc3QKCVB1YmxpYyBTaGFyZWQgU3ViIE1haW4oKQoJCScgeW91ciBjb2RlIGdvZXMgaGVyZQoKRGltIGkxIGFzIGludGVnZXIKRGltIGkyIGFzIGludGVnZXIKRGltIGkzIGFzIGludGVnZXIKRGltIGk0IGFzIGludGVnZXIKRGltIGk1IGFzIGludGVnZXIKRGltIGk2IGFzIGludGVnZXIKRGltIGk3IGFzIGludGVnZXIKRGltIGk4IGFzIGludGVnZXIKRGltIHNzIGFzIHN0cmluZwogICAgRGltIHggYXMgaW50ZWdlciAKICAgIERpbSB2IGFzIGludGVnZXIKICAgIERpbSBjIGFzIHN0cmluZyAKICAgIERpbSB2bCg3KSBhcyBpbnRlZ2VyCgpGb3IgaTEgPSAwIFRvIDEKICAgICAgICBGb3IgaTIgPSAwIFRvIDEKICAgICAgICAgICAgRm9yIGkzID0gMCBUbyAxCiAgICAgICAgICAgICAgICBGb3IgaTQgPSAwIFRvIDEKICAgICAgICAgICAgICAgICAgICBGb3IgaTUgPSAwIFRvIDEKICAgICAgICAgICAgICAgICAgICAgICAgRm9yIGk2ID0gMCBUbyAxCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBGb3IgaTcgPSAwIFRvIDEKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBGb3IgaTggPSAwIFRvIDEKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCgpzcyA9IENociQoNDggKyBpMSkgXwogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAmIENociQoNDggKyBpMikgXwogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAmIENociQoNDggKyBpMykgXwogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAmIENociQoNDggKyBpNCkgXwogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAmIENociQoNDggKyBpNSkgXwogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAmIENociQoNDggKyBpNikgXwogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAmIENociQoNDggKyBpNykgXwogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAmIENociQoNDggKyBpOCkKCicKICAgIHZsKDApICA9IDEKICAgIHZsKDEpICA9IDIKICAgIHZsKDIpICA9IDQKICAgIHZsKDMpICA9IDgKICAgIHZsKDQpICA9IDE2CiAgICB2bCg1KSAgPSAzMgogICAgdmwoNikgID0gNjQKICAgIHZsKDcpICA9IDEyOAoKICAgRm9yIHggPSAwIHRvIDcKICAgICAgIGMgPSBzdi5zdWJzdHJpbmcoeCwgMSkKCiAgICAgICBJZiBjID0gIjEiIHRoZW4KICAgICAgICAgICB2ID0gdiAKICAgICAgIEVuZCBpZgogICBOZXh0IAoKJwpDb25zb2xlLldyaXRlTGluZSh2LnRvc3RyaW5nICYgIiAtICIgJiBzcykKCgogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIE5leHQgaTgKICAgICAgICAgICAgICAgICAgICAgICAgICAgIE5leHQgaTcKICAgICAgICAgICAgICAgICAgICAgICAgTmV4dCBpNgogICAgICAgICAgICAgICAgICAgIE5leHQgaTUKICAgICAgICAgICAgICAgIE5leHQgaTQKICAgICAgICAgICAgTmV4dCBpMwogICAgICAgIE5leHQgaTIKCgoJRW5kIFN1YgoKUHVibGljIEZ1bmN0aW9uIEdldFYoc3YgYXMgc3RyaW5nKSBhcyBTdHJpbmcKCiAgICBEaW0geCBhcyBpbnRlZ2VyIAogICAgRGltIHYgYXMgaW50ZWdlcgogICAgRGltIGMgYXMgc3RyaW5nIAogICAgRGltIHZsKDcpIGFzIGludGVnZXIKCiAgICB2bCgwKSAgPSAxCiAgICB2bCgxKSAgPSAyCiAgICB2bCgyKSAgPSA0CiAgICB2bCgzKSAgPSA4CiAgICB2bCg0KSAgPSAxNgogICAgdmwoNSkgID0gMzIKICAgIHZsKDYpICA9IDY0CiAgICB2bCg3KSAgPSAxMjgKCiAgIEZvciB4ID0gMCB0byA3CiAgICAgICBjID0gc3Yuc3Vic3RyaW5nKHgsIDEpCgogICAgICAgSWYgYyA9ICIxIiB0aGVuCiAgICAgICAgICAgdiA9IHYgCiAgICAgICBFbmQgaWYKICAgTmV4dCAKCiAgIFJldHVybiB2LnRvc3RyaW5nCgpFbmQgRnVuY3Rpb24KCgpFbmQgQ2xhc3M=
Visual Basic.Net Compiler version 0.0.0.5943 (Mono 3.8 - tarball)
Copyright (C) 2004-2010 Rolf Bjarne Kvinge. All rights reserved.
/home/MjK7zk/prog.vb (1,8) : error VBNC30203: Identifier expected.
/home/MjK7zk/prog.vb (71,9) : error VBNC30084: CHANGEME
There were 2 errors and 0 warnings.
Compilation took 00:00:00.5995390