[atraub]

LetMeFinclOut, on 10 January 2011 - 11:46 PM, said:

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.

Haha that XKCD comic is my wallpaper at work... I had hoped someone would catch it.

[lordofduct]

so when's the next one AdamSpeight?

[AdamSpeight2008]

lordofduct, on 01 March 2011 - 08:44 PM, said:

so when's the next one AdamSpeight?

There is a new challenge on the way.

[Psyguy]

It was pretty unreadable to me...and I wrote it!

Spoiler

Imports System.Text

Public Class Form1

    Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click

        Dim sb As New StringBuilder
        Dim ar() As Object = {" ", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", 
                                "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", 0, 1, 2, 3, 4, 5, 6, 7, 8, 9}
        Dim i As Integer
        Integer.TryParse(ar(36).ToString & ar(36).ToString,i)
        While i>0
            With sb
                If i=1 then
                    .Append(i.ToString).Append(ar(Integer.Parse(ar(27).tostring))).Append(ar(Integer.Parse(ar(29).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString)))
                    .Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString)))
                    .Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(27).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(27))))
                    .Append(ar(Integer.Parse(ar(29).ToString))).Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(32).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(35).ToString))).Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString)))
                    .Append(ar(Integer.Parse(ar(35).ToString))).Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(27).ToString)))
                    .Append(ar(Integer.Parse(ar(29).ToString & ar(30).ToString))).Append(ar(Integer.Parse(ar(28).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString))).AppendLine
                    .Append(i.ToString).Append(ar(Integer.Parse(ar(27).tostring))).Append(ar(Integer.Parse(ar(29).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString)))
                    .Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString)))
                    .Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(27).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(27))))
                    .Append(ar(Integer.Parse(ar(29).ToString))).Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(32).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(35).ToString))).Appendline
                    .Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(28).ToString)))
                    .Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(27).ToString)))
                    .Append(ar(Integer.Parse(ar(31).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(30).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(33).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(36).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(36).ToString)))
                    .Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(36).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString)))
                    .Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(35).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(28).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).AppendLine
                    .Append((i-1).ToString).Append(ar(Integer.Parse(ar(27).tostring))).Append(ar(Integer.Parse(ar(29).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString)))
                    .Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString)))
                    .Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(36).ToString))).Append(ar(Integer.Parse(ar(27).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(27))))
                    .Append(ar(Integer.Parse(ar(29).ToString))).Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(32).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(35).ToString))).Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString)))
                    .Append(ar(Integer.Parse(ar(35).ToString))).Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(27).ToString)))
                    .Append(ar(Integer.Parse(ar(29).ToString & ar(30).ToString))).Append(ar(Integer.Parse(ar(28).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString))).AppendLine.AppendLine
                Else
                    .Append(i.ToString).Append(ar(Integer.Parse(ar(27).tostring))).Append(ar(Integer.Parse(ar(29).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString)))
                    .Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString)))
                    .Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(36).ToString))).Append(ar(Integer.Parse(ar(27).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(27))))
                    .Append(ar(Integer.Parse(ar(29).ToString))).Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(32).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(35).ToString))).Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString)))
                    .Append(ar(Integer.Parse(ar(35).ToString))).Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(27).ToString)))
                    .Append(ar(Integer.Parse(ar(29).ToString & ar(30).ToString))).Append(ar(Integer.Parse(ar(28).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString))).AppendLine
                    .Append(i.ToString).Append(ar(Integer.Parse(ar(27).tostring))).Append(ar(Integer.Parse(ar(29).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString)))
                    .Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString)))
                    .Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(36).ToString))).Append(ar(Integer.Parse(ar(27).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(27))))
                    .Append(ar(Integer.Parse(ar(29).ToString))).Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(32).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(35).ToString))).Appendline
                    .Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(28).ToString)))
                    .Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(27).ToString)))
                    .Append(ar(Integer.Parse(ar(31).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(30).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(33).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(36).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(36).ToString)))
                    .Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(36).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString)))
                    .Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(35).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(28).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).AppendLine
                    .Append((i-1).ToString).Append(ar(Integer.Parse(ar(27).tostring))).Append(ar(Integer.Parse(ar(29).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString)))
                    .Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString)))
                    .Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(36).ToString))).Append(ar(Integer.Parse(ar(27).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(27))))
                    .Append(ar(Integer.Parse(ar(29).ToString))).Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(32).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(35).ToString))).Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString)))
                    .Append(ar(Integer.Parse(ar(35).ToString))).Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(27).ToString)))
                    .Append(ar(Integer.Parse(ar(29).ToString & ar(30).ToString))).Append(ar(Integer.Parse(ar(28).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString)))
                    .Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString))).AppendLine.AppendLine
                End If
            End With
            i-=1
        End While
        RichTextBox1.Text = sb.ToString
    End Sub

End Class

EDIT: Ok, well, I misread the instructions, but it was fun nonetheless.

This post has been edited by Psyguy: 28 September 2011 - 01:24 PM

[Psyguy]

You could always use this as the next challenge

The ever popular "?? Bottles of Beer on the wall challenge"

[AdamSpeight2008]

Psyguy: I'll think I may just prepare that one today. So it's ready.

[ranthi]

here is my two cents..not complicated but works

Module Module1

    Sub Main()
        Dim sVal As Object = "¬ÉÐÐÓ„»ÓÖÐÈ"
        Console.WriteLine("unobfuscated: " & unobfus(sVal))
        Console.WriteLine("obfuscated: " & obfus(unobfus(sVal)))
        Stop
    End Sub

    Function obfus(ByVal sInput As Object) As String
        Dim sRet As String = ""
        For i As Integer = 0 To sInput.Length - 1
            sRet = sRet & Chr(Asc(sInput.Substring(i, 1)) + 100)
        Next
        Return sRet
    End Function

    Function unobfus(ByVal sInput As Object) As String
        Dim sRet As String = ""
        For i As Integer = 0 To sInput.Length - 1
            sRet = sRet & Chr(Asc(sInput.Substring(i, 1)) - 100)
        Next
        Return sRet
    End Function
End Module

[ranthi]

in the spirit of the challenge right?

Module Module1
    Sub Main()
        Dim sVal As Object = "¬ÉÐÐÓ„»ÓÖÐÈ"
        Array.ForEach(sVal.ToString().ToArray(), Sub(c) Console.WriteLine(Chr(Asc(c) - 100)))
    End Sub
End Module

[dawmail333]

ranthi, on 02 December 2011 - 02:00 PM, said:

in the spirit of the challenge right?

Module Module1
    Sub Main()
        Dim sVal As Object = "¬ÉÐÐÓ„»ÓÖÐÈ"
        Array.ForEach(sVal.ToString().ToArray(), Sub(c) Console.WriteLine(Chr(Asc(c) - 100)))
    End Sub
End Module

Seems more like encryption, but yeah.
I think the goal of this one was more having HORRIBLE code.

[AdamSpeight2008]

ranthi Not quite in the spirit of the challenge.

The aim is to write the most Coffee Spitting inducing code, you can. If provokes other coders into uttering "What The F*ck! Who wrote this?" then success. Have a look at some of the other entries to get an idea.

[DimitriV]

Dim h As String = "h"
Dim e As String = "e"
Dim l2 As String = "l"
Dim l As String = "l"
Dim o As String = "o"
Dim space As String = " "
Dim hello As String = "hello"
Dim w As String = "w"
Dim o2  As String = "o"
Dim r As String = "r"
Dim l3 As String = "l"
Dim d As String = "w"
Dim world As String = "world"
Dim helloworld As String = "hello world"
Dim msg As String = h & e & l2 & l & o & space & w & o2 & r &l3 & d
MsgBox("Hello World")
MsgBox(msg)
MsgBox(hello & world)
MsgBox(helloworld)

[dawmail333]

jimmyBo, on 04 December 2011 - 03:34 PM, said:

Dim h As String = "h"
Dim e As String = "e"
Dim l2 As String = "l"
Dim l As String = "l"
Dim o As String = "o"
Dim space As String = " "
Dim hello As String = "hello"
Dim w As String = "w"
Dim o2  As String = "o"
Dim r As String = "r"
Dim l3 As String = "l"
Dim d As String = "[b]d[/b]"
Dim world As String = "world"
Dim helloworld As String = "hello world"
Dim msg As String = h & e & l2 & l & o & space & w & o2 & r &l3 & d
MsgBox("Hello World")
MsgBox(msg)
MsgBox(hello & world)
MsgBox(helloworld)

FTFY

[ranthi]

AdamSpeight2008, on 03 December 2011 - 09:54 PM, said:

ranthi Not quite in the spirit of the challenge.

The aim is to write the most Coffee Spitting inducing code, you can. If provokes other coders into uttering "What The F*ck! Who wrote this?" then success. Have a look at some of the other entries to get an idea.

oh, I thought it was obfuscating..my bad..Ill try again later today. sure I can come up with somethin

[ranthi]

here you go

Spoiler

Module Module1

    Sub Main()
        Dim hworld As New hworld

        Console.WriteLine(hworld.getWorld())

    End Sub

    Class hworld
        Private Property sH As String = "H"
        Private Property sO As String = "o"
        Private Property sE As String = "e"
        Private Property sL As String = "l"
        Private Property sW As String = "W"
        Private Property sR As String = "r"
        Private Property sD As String = "d"
        Private Property sSp As String = " "

        Public Function getWorld() As String
            Return Me.getH() & Me.getE() & Me.getL() & Me.getL() & Me.getO() & Me.getSp() & Me.getW() & Me.getO() & Me.getR() & Me.getL() & Me.getD()
        End Function

        Private Function getH() As Char
            Return Convert.ToChar(sH)
        End Function


        Private Function getE() As Char
            Return Convert.ToChar(sE)
        End Function


        Private Function getL() As Char
            Return Convert.ToChar(sL)
        End Function


        Private Function getO() As Char
            Return Convert.ToChar(sO)
        End Function


        Private Function getSp() As Char
            Return Convert.ToChar(sSp)
        End Function


        Private Function getW() As Char
            Return Convert.ToChar(sW)
        End Function


        Private Function getR() As Char
            Return Convert.ToChar(sR)
        End Function


        Private Function getD() As Char
            Return Convert.ToChar(sD)
        End Function
    End Class
End Module