[AdamSpeight2008]

OOP Reuse.

Spoiler

Module Module1
    Sub Main()
    Console.Write(DayOfWeek.Thursday.ToString()(1).ToString.ToUpper)
    Console.Write(DayOfWeek.Wednesday.ToString()(4))
    Console.Write(GetType(IEnumerable).Name(9))
    Console.Write(GetType(Double).Name(4))
    Console.Write(DayOfWeek.Monday.ToString()(1))
    Console.Write(System.Convert.ToChar(32))
    Console.Write(GetType(DayOfWeek).Name(5))
    Console.Write(GetType(Exception).Name(7))
    Console.Write(DayOfWeek.Thursday.ToString()(3))
    Console.Write(GetType(Console).Name(5))
    Console.Write(DayOfWeek.Sunday.ToString()(3))
    Console.WriteLine(System.Convert.ToChar(33))
  End Sub

End Module

[AdamSpeight2008]

Carnival Mirror

Spoiler

Reflection.

Module Module1
    Sub Main()
    Hello_World__()
  End Sub
  Sub Hello_World__()
     Console.Write((New StackTrace).GetFrame(0).GetMethod.Name.Replace("__", "!").Replace("_", " "))
  End Sub
End Module

[T3hC13h]

Fungle, on 05 January 2011 - 05:18 PM, said:

Spoiler

Module Module1

    Sub Main()
        'Hello

        'H
        Dim HL1 As Integer = 2 + 0 + 0 + 0 + 4
        Dim HL2 As Integer = 2 + 0 + 0 + 0 + 4
        Dim HL3 As Integer = 2 + 0 + 0 + 0 + 4
        Dim HL4 As Integer = 2 + 2 + 2 + 2 + 4
        Dim HL5 As Integer = 2 + 2 + 2 + 2 + 4
        Dim HL6 As Integer = 2 + 2 + 2 + 2 + 4
        Dim HL7 As Integer = 2 + 0 + 0 + 0 + 4
        Dim HL8 As Integer = 2 + 0 + 0 + 0 + 4
        Dim HL9 As Integer = 2 + 0 + 0 + 0 + 4
        Dim H As Integer = HL1 + HL2 + HL3 + HL4 + HL5 + HL6 + HL7 + HL8 + HL9

        'E
        Dim EL1 As Integer = 2 + 2 + 2 + 2 + 1 '5
        Dim EL2 As Integer = 2 + 2 + 2 + 2 + 1 '5
        Dim EL3 As Integer = 1 + 0 + 0 + 0 + 0 '1
        Dim EL4 As Integer = 2 + 2 + 2 + 2 + 2 '5
        Dim EL5 As Integer = 2 + 2 + 2 + 2 + 2 '5 
        Dim EL6 As Integer = 2 + 2 + 2 + 2 + 2 '5
        Dim EL7 As Integer = 1 + 0 + 0 + 0 + 0 '1
        Dim EL8 As Integer = 2 + 2 + 2 + 2 + 2 '5
        Dim EL9 As Integer = 2 + 2 + 2 + 2 + 1 '5
        Dim E As Integer = EL1 + EL2 + EL3 + EL4 + EL5 + EL6 + EL7 + EL8 + EL9

        'L
        Dim LL1 As Integer = 4 + 4 + 0 + 0 + 0
        Dim LL2 As Integer = 4 + 4 + 0 + 0 + 0
        Dim LL3 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL4 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL5 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL6 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL7 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL8 As Integer = 3 + 3 + 3 + 3 + 3
        Dim LL9 As Integer = 3 + 3 + 3 + 3 + 3
        Dim L As Integer = LL1 + LL2 + LL3 + LL4 + LL5 + LL6 + LL7 + LL8 + LL9

        'L
        Dim LL21 As Integer = 4 + 4 + 0 + 0 + 0
        Dim LL22 As Integer = 4 + 4 + 0 + 0 + 0
        Dim LL23 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL24 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL25 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL26 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL27 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL28 As Integer = 3 + 3 + 3 + 3 + 3
        Dim LL29 As Integer = 3 + 3 + 3 + 3 + 3
        Dim L2 As Integer = LL21 + LL22 + LL23 + LL24 + LL25 + LL26 + LL27 + LL28 + LL29

        'O
        Dim OL1 As Integer = 2 + 2 + 2 + 2 + 2
        Dim OL2 As Integer = 2 + 2 + 2 + 2 + 2
        Dim OL3 As Integer = 2 + 2 + 0 + 2 + 2
        Dim OL4 As Integer = 2 + 2 + 0 + 2 + 2
        Dim OL5 As Integer = 2 + 2 + 0 + 2 + 2
        Dim OL6 As Integer = 2 + 2 + 0 + 2 + 2
        Dim OL7 As Integer = 2 + 2 + 0 + 2 + 2
        Dim OL8 As Integer = 2 + 2 + 2 + 2 + 2
        Dim OL9 As Integer = 2 + 2 + 2 + 2 + 1
        Dim O As Integer = OL1 + OL2 + OL3 + OL4 + OL5 + OL6 + OL7 + OL8 + OL9

       
        'Space LEFT due to no way to draw it :(/>
        Dim Space As Integer = 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1

        'World

        'W
        Dim WL1 As Integer = 3 + 0 + 3 + 0 + 3
        Dim WL2 As Integer = 3 + 0 + 3 + 0 + 3
        Dim WL3 As Integer = 3 + 0 + 3 + 0 + 3
        Dim WL4 As Integer = 3 + 0 + 3 + 0 + 3
        Dim WL5 As Integer = 3 + 0 + 3 + 0 + 3
        Dim WL6 As Integer = 3 + 0 + 3 + 0 + 3
        Dim WL7 As Integer = 3 + 0 + 3 + 0 + 3
        Dim WL8 As Integer = 3 + 0 + 3 + 0 + 3
        Dim WL9 As Integer = 3 + 3 + 3 + 3 + 3
        Dim W As Integer = WL1 + WL2 + WL3 + WL4 + WL5 + WL6 + WL7 + WL8 + WL9

        'O
        Dim O2L1 As Integer = 2 + 2 + 2 + 2 + 2
        Dim O2L2 As Integer = 2 + 2 + 2 + 2 + 2
        Dim O2L3 As Integer = 2 + 2 + 0 + 2 + 2
        Dim O2L4 As Integer = 2 + 2 + 0 + 2 + 2
        Dim O2L5 As Integer = 2 + 2 + 0 + 2 + 2
        Dim O2L6 As Integer = 2 + 2 + 0 + 2 + 2
        Dim O2L7 As Integer = 2 + 2 + 0 + 2 + 2
        Dim O2L8 As Integer = 2 + 2 + 2 + 2 + 2
        Dim O2L9 As Integer = 2 + 2 + 2 + 2 + 1
        Dim O2 As Integer = O2L1 + O2L2 + O2L3 + O2L4 + O2L5 + O2L6 + O2L7 + O2L8 + O2L9

        'R
        Dim RL1 As Integer = 2 + 2 + 2 + 2 + 2
        Dim RL2 As Integer = 2 + 2 + 2 + 2 + 2
        Dim RL3 As Integer = 2 + 2 + 0 + 0 + 2
        Dim RL4 As Integer = 2 + 2 + 0 + 0 + 2
        Dim RL5 As Integer = 2 + 2 + 2 + 2 + 2
        Dim RL6 As Integer = 2 + 2 + 3 + 3 + 0
        Dim RL7 As Integer = 2 + 2 + 3 + 3 + 0
        Dim RL8 As Integer = 2 + 2 + 0 + 3 + 3
        Dim RL9 As Integer = 2 + 2 + 0 + 3 + 3
        Dim R As Integer = RL1 + RL2 + RL3 + RL4 + RL5 + RL6 + RL7 + RL8 + RL9

        'L
        Dim LL31 As Integer = 4 + 4 + 0 + 0 + 0
        Dim LL32 As Integer = 4 + 4 + 0 + 0 + 0
        Dim LL33 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL34 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL35 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL36 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL37 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL38 As Integer = 3 + 3 + 3 + 3 + 3
        Dim LL39 As Integer = 3 + 3 + 3 + 3 + 3
        Dim L3 As Integer = LL31 + LL32 + LL33 + LL34 + LL35 + LL36 + LL37 + LL38 + LL39

        'D
        Dim DL1 As Integer = 3 + 2 + 2 + 2 + 2 '5
        Dim DL2 As Integer = 3 + 2 + 2 + 2 + 2 '5
        Dim DL3 As Integer = 2 + 0 + 0 + 2 + 2 '3
        Dim DL4 As Integer = 2 + 0 + 0 + 0 + 2 '2
        Dim DL5 As Integer = 2 + 0 + 0 + 0 + 2 '2
        Dim DL6 As Integer = 2 + 0 + 0 + 0 + 2 '2
        Dim DL7 As Integer = 2 + 0 + 0 + 2 + 2 '3
        Dim DL8 As Integer = 3 + 2 + 2 + 2 + 2 '5
        Dim DL9 As Integer = 3 + 2 + 2 + 2 + 2 '5
        Dim D As Integer = DL1 + DL2 + DL3 + DL4 + DL5 + DL6 + DL7 + DL8 + DL9


        'Hello Out Convert
        Dim HOut As Char = Chr(H)
        Dim EOut As Char = Chr(E)
        Dim LOut As Char = Chr(L)
        Dim L2Out As Char = Chr(L2)
        Dim OOut As Char = Chr(O)

        'Space Out Convert
        Dim SpaceOut As Char = Chr(Space)

        'World Out Convert
        Dim WOut As Char = Chr(W)
        Dim O2Out As Char = Chr(O2)
        Dim ROut As Char = Chr(R)
        Dim L3Out As Char = Chr(L3)
        Dim DOut As Char = Chr(D)

        'Hello Output
        Console.WriteLine(HOut)
        Console.WriteLine(EOut)
        Console.WriteLine(LOut)
        Console.WriteLine(L2Out)
        Console.WriteLine(OOut)

        'Space Output
        Console.WriteLine(SpaceOut)

        'World Output
        Console.WriteLine(WOut)
        Console.WriteLine(O2Out)
        Console.WriteLine(ROut)
        Console.WriteLine(L3Out)
        Console.WriteLine(DOut)
        Console.ReadLine()
    End Sub

End Module

Ok it's done, Took a while but the worse version has got beyond a bad point now, Enjoy

I like how you can actually read 'hello world' right in the code.

[T3hC13h]

Spoiler

    Sub Main()
        Console.WriteLine(New WebClient() With {.Proxy = Nothing}.DownloadString("http://www.manning.com/sande/").Substring(293, 13).Trim)
    End Sub

[Fungle]

monkeethrottle, on 06 January 2011 - 03:11 PM, said:

WOW!!!! That's awesome! Can't wait to share it with my classmates, if that's okay with you!

Fungle, on 05 January 2011 - 03:18 PM, said:

Spoiler

Module Module1

    Sub Main()
        'Hello

        'H
        Dim HL1 As Integer = 2 + 0 + 0 + 0 + 4
        Dim HL2 As Integer = 2 + 0 + 0 + 0 + 4
        Dim HL3 As Integer = 2 + 0 + 0 + 0 + 4
        Dim HL4 As Integer = 2 + 2 + 2 + 2 + 4
        Dim HL5 As Integer = 2 + 2 + 2 + 2 + 4
        Dim HL6 As Integer = 2 + 2 + 2 + 2 + 4
        Dim HL7 As Integer = 2 + 0 + 0 + 0 + 4
        Dim HL8 As Integer = 2 + 0 + 0 + 0 + 4
        Dim HL9 As Integer = 2 + 0 + 0 + 0 + 4
        Dim H As Integer = HL1 + HL2 + HL3 + HL4 + HL5 + HL6 + HL7 + HL8 + HL9

        'E
        Dim EL1 As Integer = 2 + 2 + 2 + 2 + 1 '5
        Dim EL2 As Integer = 2 + 2 + 2 + 2 + 1 '5
        Dim EL3 As Integer = 1 + 0 + 0 + 0 + 0 '1
        Dim EL4 As Integer = 2 + 2 + 2 + 2 + 2 '5
        Dim EL5 As Integer = 2 + 2 + 2 + 2 + 2 '5 
        Dim EL6 As Integer = 2 + 2 + 2 + 2 + 2 '5
        Dim EL7 As Integer = 1 + 0 + 0 + 0 + 0 '1
        Dim EL8 As Integer = 2 + 2 + 2 + 2 + 2 '5
        Dim EL9 As Integer = 2 + 2 + 2 + 2 + 1 '5
        Dim E As Integer = EL1 + EL2 + EL3 + EL4 + EL5 + EL6 + EL7 + EL8 + EL9

        'L
        Dim LL1 As Integer = 4 + 4 + 0 + 0 + 0
        Dim LL2 As Integer = 4 + 4 + 0 + 0 + 0
        Dim LL3 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL4 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL5 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL6 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL7 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL8 As Integer = 3 + 3 + 3 + 3 + 3
        Dim LL9 As Integer = 3 + 3 + 3 + 3 + 3
        Dim L As Integer = LL1 + LL2 + LL3 + LL4 + LL5 + LL6 + LL7 + LL8 + LL9

        'L
        Dim LL21 As Integer = 4 + 4 + 0 + 0 + 0
        Dim LL22 As Integer = 4 + 4 + 0 + 0 + 0
        Dim LL23 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL24 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL25 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL26 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL27 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL28 As Integer = 3 + 3 + 3 + 3 + 3
        Dim LL29 As Integer = 3 + 3 + 3 + 3 + 3
        Dim L2 As Integer = LL21 + LL22 + LL23 + LL24 + LL25 + LL26 + LL27 + LL28 + LL29

        'O
        Dim OL1 As Integer = 2 + 2 + 2 + 2 + 2
        Dim OL2 As Integer = 2 + 2 + 2 + 2 + 2
        Dim OL3 As Integer = 2 + 2 + 0 + 2 + 2
        Dim OL4 As Integer = 2 + 2 + 0 + 2 + 2
        Dim OL5 As Integer = 2 + 2 + 0 + 2 + 2
        Dim OL6 As Integer = 2 + 2 + 0 + 2 + 2
        Dim OL7 As Integer = 2 + 2 + 0 + 2 + 2
        Dim OL8 As Integer = 2 + 2 + 2 + 2 + 2
        Dim OL9 As Integer = 2 + 2 + 2 + 2 + 1
        Dim O As Integer = OL1 + OL2 + OL3 + OL4 + OL5 + OL6 + OL7 + OL8 + OL9

       
        'Space LEFT due to no way to draw it :(/>
        Dim Space As Integer = 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1

        'World

        'W
        Dim WL1 As Integer = 3 + 0 + 3 + 0 + 3
        Dim WL2 As Integer = 3 + 0 + 3 + 0 + 3
        Dim WL3 As Integer = 3 + 0 + 3 + 0 + 3
        Dim WL4 As Integer = 3 + 0 + 3 + 0 + 3
        Dim WL5 As Integer = 3 + 0 + 3 + 0 + 3
        Dim WL6 As Integer = 3 + 0 + 3 + 0 + 3
        Dim WL7 As Integer = 3 + 0 + 3 + 0 + 3
        Dim WL8 As Integer = 3 + 0 + 3 + 0 + 3
        Dim WL9 As Integer = 3 + 3 + 3 + 3 + 3
        Dim W As Integer = WL1 + WL2 + WL3 + WL4 + WL5 + WL6 + WL7 + WL8 + WL9

        'O
        Dim O2L1 As Integer = 2 + 2 + 2 + 2 + 2
        Dim O2L2 As Integer = 2 + 2 + 2 + 2 + 2
        Dim O2L3 As Integer = 2 + 2 + 0 + 2 + 2
        Dim O2L4 As Integer = 2 + 2 + 0 + 2 + 2
        Dim O2L5 As Integer = 2 + 2 + 0 + 2 + 2
        Dim O2L6 As Integer = 2 + 2 + 0 + 2 + 2
        Dim O2L7 As Integer = 2 + 2 + 0 + 2 + 2
        Dim O2L8 As Integer = 2 + 2 + 2 + 2 + 2
        Dim O2L9 As Integer = 2 + 2 + 2 + 2 + 1
        Dim O2 As Integer = O2L1 + O2L2 + O2L3 + O2L4 + O2L5 + O2L6 + O2L7 + O2L8 + O2L9

        'R
        Dim RL1 As Integer = 2 + 2 + 2 + 2 + 2
        Dim RL2 As Integer = 2 + 2 + 2 + 2 + 2
        Dim RL3 As Integer = 2 + 2 + 0 + 0 + 2
        Dim RL4 As Integer = 2 + 2 + 0 + 0 + 2
        Dim RL5 As Integer = 2 + 2 + 2 + 2 + 2
        Dim RL6 As Integer = 2 + 2 + 3 + 3 + 0
        Dim RL7 As Integer = 2 + 2 + 3 + 3 + 0
        Dim RL8 As Integer = 2 + 2 + 0 + 3 + 3
        Dim RL9 As Integer = 2 + 2 + 0 + 3 + 3
        Dim R As Integer = RL1 + RL2 + RL3 + RL4 + RL5 + RL6 + RL7 + RL8 + RL9

        'L
        Dim LL31 As Integer = 4 + 4 + 0 + 0 + 0
        Dim LL32 As Integer = 4 + 4 + 0 + 0 + 0
        Dim LL33 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL34 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL35 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL36 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL37 As Integer = 3 + 3 + 0 + 0 + 0
        Dim LL38 As Integer = 3 + 3 + 3 + 3 + 3
        Dim LL39 As Integer = 3 + 3 + 3 + 3 + 3
        Dim L3 As Integer = LL31 + LL32 + LL33 + LL34 + LL35 + LL36 + LL37 + LL38 + LL39

        'D
        Dim DL1 As Integer = 3 + 2 + 2 + 2 + 2 '5
        Dim DL2 As Integer = 3 + 2 + 2 + 2 + 2 '5
        Dim DL3 As Integer = 2 + 0 + 0 + 2 + 2 '3
        Dim DL4 As Integer = 2 + 0 + 0 + 0 + 2 '2
        Dim DL5 As Integer = 2 + 0 + 0 + 0 + 2 '2
        Dim DL6 As Integer = 2 + 0 + 0 + 0 + 2 '2
        Dim DL7 As Integer = 2 + 0 + 0 + 2 + 2 '3
        Dim DL8 As Integer = 3 + 2 + 2 + 2 + 2 '5
        Dim DL9 As Integer = 3 + 2 + 2 + 2 + 2 '5
        Dim D As Integer = DL1 + DL2 + DL3 + DL4 + DL5 + DL6 + DL7 + DL8 + DL9


        'Hello Out Convert
        Dim HOut As Char = Chr(H)
        Dim EOut As Char = Chr(E)
        Dim LOut As Char = Chr(L)
        Dim L2Out As Char = Chr(L2)
        Dim OOut As Char = Chr(O)

        'Space Out Convert
        Dim SpaceOut As Char = Chr(Space)

        'World Out Convert
        Dim WOut As Char = Chr(W)
        Dim O2Out As Char = Chr(O2)
        Dim ROut As Char = Chr(R)
        Dim L3Out As Char = Chr(L3)
        Dim DOut As Char = Chr(D)

        'Hello Output
        Console.WriteLine(HOut)
        Console.WriteLine(EOut)
        Console.WriteLine(LOut)
        Console.WriteLine(L2Out)
        Console.WriteLine(OOut)

        'Space Output
        Console.WriteLine(SpaceOut)

        'World Output
        Console.WriteLine(WOut)
        Console.WriteLine(O2Out)
        Console.WriteLine(ROut)
        Console.WriteLine(L3Out)
        Console.WriteLine(DOut)
        Console.ReadLine()
    End Sub

End Module

Ok it's done, Took a while but the worse version has got beyond a bad point now, Enjoy

I have no problem with people showing source code I'm a firm supporter of Open-Source

[cmcallister]

AdamSpeight2008, on 05 January 2011 - 11:24 AM, said:

Obfuscater Challenge#1 Hello World!

Welcome to the Obfuscater Challenges, the aim of them is to write the most SpectateSwamp style code you can.
The most intractable, but still valid code, the better.

So begin with tradition by writing code to display Hello World!.

Forget to mention place your code inside of spoilers tags.
[ spoiler ] [ /spoiler]

Here's my try at this.

Spoiler

Sub Main()
        Dim a As Char
        Dim b As Char
        Dim c As Char
        Dim d As Char
        Dim e As Char
        Dim f As Char
        Dim g As Char
        Dim h As Char
        Dim i As Char
        Dim j As Char
        Dim k As Char

        a = Convert.ToChar(Convert.ToInt32(Math.Pow(8.48528137423857, 2)))
        b = Convert.ToChar(Convert.ToInt32(Math.Pow(8.3066238629180749, 2)))
        c = Convert.ToChar(Convert.ToInt32(Math.Pow(8.717797887081348, 2)))
        d = Convert.ToChar(Convert.ToInt32(Math.Pow(8.717797887081348, 2)))
        e = Convert.ToChar(Convert.ToInt32(Math.Pow(8.8881944173155887, 2)))
        f = Convert.ToChar(Convert.ToInt32(Math.Pow(9.3273790530888157, 2)))
        g = Convert.ToChar(Convert.ToInt32(Math.Pow(8.8881944173155887, 2)))
        h = Convert.ToChar(Convert.ToInt32(Math.Pow(9.0553851381374173, 2)))
        i = Convert.ToChar(Convert.ToInt32(Math.Pow(8.717797887081348, 2)))
        j = Convert.ToChar(Convert.ToInt32(Math.Pow(8.2462112512353212, 2)))
        k = Convert.ToChar(Convert.ToInt32(Math.Pow(5.6568542494923806, 2)))
        Console.WriteLine(a + b + c + d + e + k + f + g + h + i + j)

    End Sub

[Witz]

Ok, I've not done much with C#, but I do know C. Came up with a version:

Spoiler

#define M 30+92
main() {
char *p="2P3QJJG1Z2A3GDJR1Y"-1,o[20],*q=o,m;
while(*++p)*p<64?m=*p-48:*q++=m*M-*p;
*q=0;printf(o);
}

[dawmail333]

I'm working on it, and I ran across an error I'd never realized about:

Method which contains an 'On Error GoTo' statement cannot contain an expression which generates a lambda.

Oh yes. It's bad. It puts Frankenstein and his monster to shame.

[dawmail333]

Spoiler

Module Module1

    Dim α As Integer() = {3, 311, 239, 5, 2, 7, 9, 31, 43, 19, 17, 367, 13, 59, 73, 79, 11, 23, 31, 29, 157, 2297}
    Dim ϛ As Integer() = {5, 12}
    Dim ϟ As Integer() = {1, 2}
    Dim ξ As Integer() = {4, 11, 10}
    Dim ΰ As Integer() = {22}
    Dim Ϊ As Integer() = {1, 4, 21}
    Dim έ As Integer() = {5, 4, 3}
    Dim ρ As Integer() = {8, 16}
    Dim ϡ As Integer() = {1, 1, 1, 6, 13}
    Dim ϗ As Integer() = {9, 15}
    Dim ϣ As Integer() = {14, 14}

    Sub Main()
        Dim ϝ = Integer.MaxValue \ 75
        Dim Ώ As New Random(Math.Min(Math.Round(6.474136), Math.Round(Math.PI)) - Math.Max(Math.Round(Math.Tan(Math.Round(0.2))), Math.Round(Math.Sin(Math.PI / 4))))
        Dim Ω As Integer = Math.Sqrt(144) / 12 - 1
        Dim Ϥ(9) As Integer
        Dim Χ = ωτζ(Ϥ)
        Dim ι As New List(Of Integer)
        Dim Ϧ As New Func(Of Integer(), Integer)(Function(ψ As Integer())
                                                     Dim Ξ As Integer = 1
                                                     Array.ForEach(ψ.ToArray, Sub(ς) If Not ς = 0 Then Ξ *= α(ς - 1))
                                                     Return Ξ
                                                 End Function)
        For Each υ In Χ
            If Not υ Is Nothing Then
                ι.Add(Ϧ(υ))
            End If
        Next
        For x = 0 To Integer.MaxValue
            ϝ = x
            If ι.Contains(ϝ) Then
                Dim y As Integer = Ώ.Next(0, 256)
                Console.Write(Chr(y))
                Ώ = New Random(Math.Min(Math.Round(6.474136), Math.Round(Math.PI)) - Math.Max(Math.Round(Math.Tan(Math.Round(0.2))), Math.Round(Math.Sin(Math.PI / 4))))
            Else
                Ώ.Next(0, 256)
            End If
        Next
    End Sub

    Function ωτζ(ByVal ϐ As Integer()) As Integer()()
        If ϐ Is Nothing Then Throw New InvalidTimeZoneException("You must not be in Europe!")
        Dim ϑ(ϐ.Length)() As Integer
        Dim ϔ As Integer = 0
can:
        ϑ(ϔ) = ϛ
        ϔ += 1
you:
        ϑ(ϔ) = ϟ
        ϔ += 1
say:
        ϑ(ϔ) = ξ
        ϔ += 1
        GoTo sphaghetti
spaghetti:
        ϑ(ϔ) = έ
        ϔ += 1
        GoTo sphageti
spaghettio:
        ϑ(ϔ) = Ϊ
        ϔ += 1
        GoTo spaghetti
spaghetio:
        ϑ(ϔ) = ϡ
        ϔ += 1
        GoTo sphagettio
spagheti:
        ϑ(ϔ) = ϣ
        ϔ += 1
        GoTo sphagetio
sphaghetti:
        ϑ(ϔ) = ΰ
        ϔ += 1
        GoTo spaghettio
sphageti:
        ϑ(ϔ) = ρ
        ϔ += 1
        GoTo spaghetio
sphagettio:
        ϑ(ϔ) = ϗ
        ϔ += 1
        GoTo spagheti
sphagetio:
        Return ϑ
    End Function

End Module

Output isn't 100% perfect (some weird bug), but it's still definitely readable. And yes, it compiles.
TAKE THAT!

(Did I scare everyone off?)

This post has been edited by dawmail333: 07 January 2011 - 07:59 PM

[CharlieMay]

Here's something I came up with just seeing what I could do with a known starting point and working off of the ascii values. Not as good as others here but was definitely fun to mess with.

Spoiler

        Dim base As Char = CChar("*")
        Dim var1 As Char = Chr(Asc(base) + 30)
        Dim var2 As Char = Chr(Asc(var1) + 29)
        Dim var3 As String = Nothing
        For x As Integer = 1 To 2
            var3 = var3 + Chr(Asc(var2) + 7)
        Next x
        Dim var4 As Char = Chr(Asc(var3) + 3)
        Dim var5 As Char = Chr(Asc(var4) - 24)
        Dim var6 As Char = Chr(Asc(var5) + 24)
        Dim var7 As Char = Chr(Asc(var6) + 3)
        Dim var8 As Char = Chr(Asc(var7) - 6)
        Dim var9 As Char = Chr(Asc(var8) - 8)
        Dim var10 As Char = Chr(Asc(var9) - 67)

        Dim phrase As String = var1 + var2 + var3 + var4 + var5 + var6 + var7 + var8 + var9 + var10
        phrase = phrase.Insert(5, Chr(Asc(" ")))
        MessageBox.Show(phrase.ToString)

[atraub]

I wrote it in Python, but was too lazy to translate it to VB.net, so it shall remain in Python.

Spoiler

def main():
    AdamSpeight2008 = "Creator of Challenges!"
    ifYouDare = iAcceptYourChallenge(AdamSpeight2008)
    headOfTheTrollMaster = faceMeTrollMaster(ifYouDare)
    iJustWantTo =journeyBeyondTheRainbowWithThe(headOfTheTrollMaster)
    someday = iJustWantTo + fly()
    someday += weWillMeetAgain()

    advice = neverArgueWithAFool()
    advice += practiceBrutalHonesty()
    
    rememberRemember = question()
    the5thOfNovember = rememberRemember + modifyThePhaseVariance()+someday
    theEndIsNear = the5thOfNovember + advice
    lastBullet =  trump() +theEndIsNear
    
    print(lastBullet, end="THE END"[1:1])
    
    
    

def iAcceptYourChallenge(yourChallenge):
    return yourChallenge[:0:]
    
def faceMeTrollMaster(trollMaster):
    return trollMaster + "Why?"[0]

def journeyBeyondTheRainbowWithThe(headOfTrollMaster):
    theresNothingThere = " "
    return theresNothingThere + headOfTrollMaster

def fly():
    return chr(int(float(ord(
                    chr(int(
                            ord('n')+1))
                    ))
            ))

def weWillMeetAgain(iSwearIt = "Probably a lie"):
    for i in range(230):
        pass
    return chr(i//(i%227))

def neverArgueWithAFool():
    but="Why not?"
    because="He will drag you down to his level and beat you with his experience."
    thatMakesSense="!"
    for cactuses in but:
        for lolCatz in because:
            if chr(217>>1) == lolCatz:
                return lolCatz

def trump():
    return "So, you've reached my final challenge troll Master! Here is where it ends!!!"[::-1][:30][::-1][5:10][1:3][0]    

def practiceBrutalHonesty():
    truth="I'm willing to admit it, I am not God's gift to women."
    retort="That can't be atraub!"
    truth="It's true... I'm actually God's punishment to all other men."
    retort="O_O ummm... I don't think-"
    atraub="SILENCE!"
    return truth[::-1][31] + atraub[-1]

def question():
    myQuestion = """
The velociraptor spots you 40 meters away and attacks,
accelerating at 4 /m/s^2 up to its top speed of 25 m/s.
When it spots you, you begin to flee immediately reaching
your top spped of 6/ms. How far can you get before you're
caught and devoured?"""
    answer = "Raptors do not know fear, your question is illogical"
    return "Correct!!!!!"[(((2<<2) + 1) >> 1)]

def modifyThePhaseVariance():
    retString = ""
    for i in range(round(pow(4,.5))):
        retString += chr(((round(pow(59049,.1)) ^ 0) * i) + 108)
    return retString[0]+retString
        
    
if __name__ == "__main__":    
    main()

This post has been edited by atraub: 10 January 2011 - 12:30 PM

[Dogstopper]

atraub, looks like you had far too much fun.

[atraub]

MWAHAHAHAHAHA

[LetMeFinclOut]

Dogstopper, on 10 January 2011 - 10:03 AM, said:

atraub, looks like you had far too much fun.

Too much fun, indeed.

And +1 for the XKCD reference.