Obfuscater Challenge#1: Hello World!

Making a meal of the simple.

  • (3 Pages)
  • +
  • 1
  • 2
  • 3

44 Replies - 25665 Views - Last Post: 19 February 2015 - 10:17 PM

#31 atraub   User is offline

  • Pythoneer
  • member icon

Reputation: 833
  • View blog
  • Posts: 2,264
  • Joined: 23-December 08

Re: Obfuscater Challenge#1: Hello World!

Posted 11 January 2011 - 07:28 AM

View PostLetMeFinclOut, on 10 January 2011 - 11:46 PM, said:

View PostDogstopper, on 10 January 2011 - 10:03 AM, said:

atraub, looks like you had far too much fun. :P

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.
Was This Post Helpful? 0
  • +
  • -

#32 lordofduct   User is offline

  • I'm a cheeseburger
  • member icon


Reputation: 2668
  • View blog
  • Posts: 4,786
  • Joined: 24-September 10

Re: Obfuscater Challenge#1: Hello World!

Posted 01 March 2011 - 12:44 PM

so when's the next one AdamSpeight?
Was This Post Helpful? 0
  • +
  • -

#33 AdamSpeight2008   User is offline

  • MrCupOfT
  • member icon

Reputation: 2298
  • View blog
  • Posts: 9,535
  • Joined: 29-May 08

Re: Obfuscater Challenge#1: Hello World!

Posted 01 March 2011 - 02:27 PM

View Postlordofduct, on 01 March 2011 - 08:44 PM, said:

so when's the next one AdamSpeight?


There is a new challenge on the way.
Was This Post Helpful? 0
  • +
  • -

#34 Psyguy   User is offline

  • D.I.C Regular
  • member icon

Reputation: 84
  • View blog
  • Posts: 365
  • Joined: 12-January 11

Re: Obfuscater Challenge#1: Hello World!

Posted 28 September 2011 - 01:19 PM

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

Spoiler


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

Was This Post Helpful? 1
  • +
  • -

#35 Psyguy   User is offline

  • D.I.C Regular
  • member icon

Reputation: 84
  • View blog
  • Posts: 365
  • Joined: 12-January 11

Re: Obfuscater Challenge#1: Hello World!

Posted 30 September 2011 - 10:00 AM

You could always use this as the next challenge :)

The ever popular "?? Bottles of Beer on the wall challenge"
Was This Post Helpful? 0
  • +
  • -

#36 AdamSpeight2008   User is offline

  • MrCupOfT
  • member icon

Reputation: 2298
  • View blog
  • Posts: 9,535
  • Joined: 29-May 08

Re: Obfuscater Challenge#1: Hello World!

Posted 30 September 2011 - 10:41 AM

Psyguy: I'll think I may just prepare that one today. So it's ready.
Was This Post Helpful? 0
  • +
  • -

#37 ranthi   User is offline

  • New D.I.C Head

Reputation: 2
  • View blog
  • Posts: 20
  • Joined: 28-November 11

Re: Obfuscater Challenge#1: Hello World!

Posted 01 December 2011 - 07:57 PM

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

Was This Post Helpful? 0
  • +
  • -

#38 ranthi   User is offline

  • New D.I.C Head

Reputation: 2
  • View blog
  • Posts: 20
  • Joined: 28-November 11

Re: Obfuscater Challenge#1: Hello World!

Posted 01 December 2011 - 09:00 PM

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

Was This Post Helpful? 1
  • +
  • -

#39 dawmail333   User is offline

  • D.I.C Head
  • member icon

Reputation: 28
  • View blog
  • Posts: 174
  • Joined: 02-July 07

Re: Obfuscater Challenge#1: Hello World!

Posted 01 December 2011 - 09:24 PM

View Postranthi, 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.
Was This Post Helpful? 0
  • +
  • -

#40 AdamSpeight2008   User is offline

  • MrCupOfT
  • member icon

Reputation: 2298
  • View blog
  • Posts: 9,535
  • Joined: 29-May 08

Re: Obfuscater Challenge#1: Hello World!

Posted 03 December 2011 - 09:54 PM

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.
Was This Post Helpful? 0
  • +
  • -

#41 DimitriV   User is offline

  • vexing conundrum
  • member icon

Reputation: 587
  • View blog
  • Posts: 2,746
  • Joined: 24-July 11

Re: Obfuscater Challenge#1: Hello World!

Posted 03 December 2011 - 10:34 PM 

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)

Was This Post Helpful? 0
  • +
  • -

#42 dawmail333   User is offline

  • D.I.C Head
  • member icon

Reputation: 28
  • View blog
  • Posts: 174
  • Joined: 02-July 07

Re: Obfuscater Challenge#1: Hello World!

Posted 03 December 2011 - 11:26 PM

View PostjimmyBo, 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
Was This Post Helpful? 0
  • +
  • -

#43 ranthi   User is offline

  • New D.I.C Head

Reputation: 2
  • View blog
  • Posts: 20
  • Joined: 28-November 11

Re: Obfuscater Challenge#1: Hello World!

Posted 04 December 2011 - 10:10 AM

View PostAdamSpeight2008, 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
Was This Post Helpful? 0
  • +
  • -

#44 ranthi   User is offline

  • New D.I.C Head

Reputation: 2
  • View blog
  • Posts: 20
  • Joined: 28-November 11

Re: Obfuscater Challenge#1: Hello World!

Posted 04 December 2011 - 01:40 PM

here you go

Spoiler

Was This Post Helpful? 0
  • +
  • -

#45 jh1234l   User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 1
  • Joined: 19-February 15

Re: Obfuscater Challenge#1: Hello World!

Posted 19 February 2015 - 10:17 PM

This is the code that I wrote:
Module Module1
    Dim str As String
    Dim u As Char
    Dim pl As Char
    Dim l As Char
    Dim o As Char
    Dim sp As Char
    Dim w As Char
    Dim r As Char
    Dim d As Char
    Dim ex As Char
    Sub Main()
        Dim num As Integer = 0
vbint:
        num -= -1
        If Not num = 36 * (1 + 1) Then
            GoTo vbint
        End If
        u = Chr(num)
        num = 0
        Do Until num = 101
            num -= -1
        Loop
        pl = Chr(num)
        num = 0
        Do Until num = 108
            num -= -1
        Loop
        l = Chr(num)
        num = 0
        Do Until num = 111
            num -= -1
        Loop
        o = Chr(num)
        num = 0
        Do Until num = 119
            num -= -1
        Loop
        w = Chr(num)
        num = 0
        Do Until num = 32
            num -= -1
        Loop
        sp = Chr(num)
        num = 0
        Do Until num = 114
            num -= -1
        Loop
        r = Chr(num)
        num = 0
        Do Until num = 100
            num -= -1
        Loop
        d = Chr(num)
        num = 0
        Do Until num = 33
            num -= -1
        Loop
        ex = Chr(num)
        vbDoTasks(1)
    End Sub
    Sub vbDoTasks(ByVal consoIe As Integer)
        Dim num As Integer = 0
        Do Until num = consoIe
            str = u & pl & l & l & o & sp & w & o & r & l & d & ex
            Console.WriteLine(str.ToString)
            Console.Read()
            num -= -1
        Loop
    End Sub
End Module

Was This Post Helpful? 0
  • +
  • -
  • (3 Pages)
  • +
  • 1
  • 2
  • 3