Obfuscater Challenge#1: Hello World!

Making a meal of the simple.

(3 Pages)
1
2
3
→

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

#1 AdamSpeight2008

MrCupOfT

Reputation: 2298

Posts: 9,535
Joined: 29-May 08

Obfuscater Challenge#1: Hello World!

Post icon Posted 05 January 2011 - 12:24 PM

POPULAR

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 ] :code:

[ /spoiler]

This post has been edited by AdamSpeight2008: 05 January 2011 - 02:22 PM

Is This A Good Question/Topic? 6

Replies To: Obfuscater Challenge#1: Hello World!

#2 Dogstopper

The Ninjaducky

Reputation: 2965

Posts: 11,222
Joined: 15-July 08

Re: Obfuscater Challenge#1: Hello World!

Posted 05 January 2011 - 12:28 PM

You might want to mention that you shouldn't use a code obfuscater and that it should be done by hand...

Was This Post Helpful? 0

#3 lordofduct

I'm a cheeseburger

Reputation: 2668

Posts: 4,786
Joined: 24-September 10

Re: Obfuscater Challenge#1: Hello World!

Posted 05 January 2011 - 12:37 PM

Is it to be written in VB.Net? I'm assuming as much seeing as it's the VB.Net forum, but just wanted to make sure.

My submission as a WinForm app...

Spoiler

Public Class Form1

    Public A As String = Chr(65)
    Public B As String = Chr(66)
    Public C As String = Chr(67)
    Public D As String = Chr(68)
    Public E As String = Chr(69)
    Public F As String = Chr(70)
    Public G As String = Chr(71)
    Public H As String = Chr(72)
    Public I As String = Chr(73)
    Public J As String = Chr(74)
    Public K As String = Chr(75)
    Public L As String = Chr(76)
    Public M As String = Chr(77)
    Public N As String = Chr(78)
    Public O As String = Chr(79)
    Public P As String = Chr(80)
    Public Q As String = Chr(81)
    Public R As String = Chr(82)
    Public S As String = Chr(83)
    Public T As String = Chr(84)
    Public U As String = Chr(85)
    Public V As String = Chr(86)
    Public W As String = Chr(87)
    Public X As String = Chr(88)
    Public Y As String = Chr(89)
    Public Z As String = Chr(90)
    Public SPACE As String = Chr(32)

    Public Sub Me_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load

        Dim sSmallL As String = LCase(L)
        Dim sDum As String = H & LCase(Me.E) & sSmallL & sSmallL + "o"
        sDum = sDum & (SPACE.Trim() & " ")
        sDum = sDum & W & "or" & sSmallL & LCase(D)

        Console.WriteLine(sDum)

    End Sub

End Class

This post has been edited by AdamSpeight2008: 05 January 2011 - 12:52 PM

Was This Post Helpful? 2

#4 AdamSpeight2008

MrCupOfT

Reputation: 2298

Posts: 9,535
Joined: 29-May 08

Re: Obfuscater Challenge#1: Hello World!

Posted 05 January 2011 - 12:53 PM

My small un.

Spoiler

 
   Sub Main()
    Console.WriteLine("{5}{1}{2}{2}{3} {6}{3}{4}{2}{0}{7}", "d", "e", "l", "o", "r", "H", "W", "!")
    Console.ReadKey()

  End Sub

This post has been edited by AdamSpeight2008: 05 January 2011 - 12:53 PM

Was This Post Helpful? 1

#5 atraub

Pythoneer

Reputation: 828

Posts: 2,236
Joined: 23-December 08

Re: Obfuscater Challenge#1: Hello World!

Posted 05 January 2011 - 01:23 PM

I can't tell you how much fun I'm already having just thinking about this. I LOVE this one and I will steal it for the next Python challenge.

The level of giddiness I feel right now is probably unhealthy...

This post has been edited by atraub: 05 January 2011 - 01:33 PM

Was This Post Helpful? 1

#6 Curtis Rutland

（╯°□°）╯︵ (~ .o.)~

Reputation: 5104

Posts: 9,283
Joined: 08-June 10

Re: Obfuscater Challenge#1: Hello World!

Posted 05 January 2011 - 01:57 PM

In a similar vein to lordofduct's:

Spoiler

Sub Main()
    Dim u = Enumerable.Range(65, 26)
    Dim l = Enumerable.Range(97, 26)
    Dim out As New StringBuilder()
    out.Append(Chr(u(7)))
    out.Append(Chr(l(4)))
    out.Append(Chr(l(11)))
    out.Append(Chr(l(11)))
    out.Append(Chr(l(14)))
    out.Append(Chr(32))
    out.Append(Chr(u(22)))
    out.Append(Chr(l(14)))
    out.Append(Chr(l(17)))
    out.Append(Chr(l(11)))
    out.Append(Chr(l(3)))
    Console.WriteLine(out.ToString())
    Console.ReadKey()
End Sub

Was This Post Helpful? 2

#7 AdamSpeight2008

MrCupOfT

Reputation: 2298

Posts: 9,535
Joined: 29-May 08

Re: Obfuscater Challenge#1: Hello World!

Posted 05 January 2011 - 02:03 PM

Lambda Function & Enumerable Abuse (.net 4)

Spoiler

 Console.WriteLine(Enumerable.Aggregate(Of Func(Of Integer, Integer), Tuple(Of Integer, String))(
       {Function(x) x + 72, Function(x) x + 29, Function(x) x + 7, Function(x) x, Function(x) x + 3,
        Function(x) CInt((x + 1) / 3.5), Function(x) CInt(x * 2.75 - 1), Function(x) x + 24,
        Function(x) x + 3, Function(x) x - 6, Function(x) x - 8, Function(x As Integer) (x - 1) \ 3},
      New Tuple(Of Integer, String)(0, ""),
     Function(_A, _C)
       Dim tmp = _C(_A.Item1)
       Return New Tuple(Of Integer, String)(tmp, _A.Item2 & System.Convert.ToChar(tmp))
     End Function).Item2)

This post has been edited by AdamSpeight2008: 05 January 2011 - 02:14 PM

Was This Post Helpful? 4

#8 Fungle

D.I.C Regular

Reputation: 265

Posts: 337
Joined: 06-March 10

Re: Obfuscater Challenge#1: Hello World!

Posted 05 January 2011 - 03:13 PM

POPULAR

Spoiler

Module Module1

    Sub Main()

        'Hello Part
        Dim H 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 + 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 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1
        Dim E 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 + 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 + 1 + 1 + 1 + 1 + 1
        Dim L 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 + 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 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1
        Dim L2 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 + 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 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1
        Dim O 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 + 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 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1

        'Space
        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
        Dim W 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 + 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 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1
        Dim O2 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 + 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 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1
        Dim R 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 + 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 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1
        Dim L3 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 + 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 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1
        Dim D 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 + 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 + 1 + 1 + 1 + 1

        '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

I wanted to do this competition so even though I don't know VB.NET at all, I decided to convert my C# code into it, Just for this competition

I've been toying with trying to make it longer by doing classes and inheriting values but I don't have the time to make 500+ classes

Was This Post Helpful? 5

#9 Dogstopper

The Ninjaducky

Reputation: 2965

Posts: 11,222
Joined: 15-July 08

Re: Obfuscater Challenge#1: Hello World!

Posted 05 January 2011 - 03:23 PM

Fungle, that's pretty bad! Nice job!

Was This Post Helpful? 0

#10 Fungle

D.I.C Regular

Reputation: 265

Posts: 337
Joined: 06-March 10

Re: Obfuscater Challenge#1: Hello World!

Posted 05 January 2011 - 03:25 PM

Dogstopper, on 05 January 2011 - 09:23 PM, said:

Fungle, that's pretty bad! Nice job!

Going to work on V2 to make it worse based on the theory of a CRT Monitor

Was This Post Helpful? 0

#11 Janitor

D.I.C Head

Reputation: 7

Posts: 56
Joined: 30-July 10

Re: Obfuscater Challenge#1: Hello World!

Posted 05 January 2011 - 03:39 PM

I could be here all night...

Module Module1

    Sub Main()
        Dim d As Char
        Dim r As Char
        Dim e As Char
        Dim a As Char
        Dim m As Char
        Dim i As Char
        Dim n As Char
        Dim c As Char
        Dim o As Char

        Console.WriteLine(d, r, e, a, m, i, n, c, o, d, e)
    End Sub

End Module

This post has been edited by Janitor: 05 January 2011 - 03:40 PM

Was This Post Helpful? 0

#12 T3hC13h

D.I.C Regular

Reputation: 65

Posts: 337
Joined: 05-February 08

Re: Obfuscater Challenge#1: Hello World!

Posted 05 January 2011 - 03:48 PM

POPULAR

And this is why we dont use gotos and use proper method names.

Spoiler

Module Module1
    Sub Main()
        jfjfkvbemg(movvuwksno)
        GoTo ksojdvtfvt
gbhdedctci:
        jfjfkvbemg(ejgnlqnflh)
        GoTo wbrpscbgvm
bpptacmtvn:
        jfjfkvbemg(wrrsusjuho)
        GoTo gbhdedctci
ksojdvtfvt:
        jfjfkvbemg(lwlifebjup)
        GoTo ivcjmonvkj
wbrpscbgvm:
        jfjfkvbemg(ruqlthjejp)
        GoTo ejgnlqnflh
iekoqjavuj:
        jfjfkvbemg(bpptacmtvn)
        GoTo ejgnlqnflh
ejgnlqnflh:
        jfjfkvbemg(wrrsusjuho)
        GoTo tsapkmfncb
rdmhvnggam:
        jfjfkvbemg(rdmhvnggam)
        GoTo btfarvjqkw
tsapkmfncb:
        jfjfkvbemg(bpptacmtvn)
        GoTo rdmhvnggam
btfarvjqkw:
        jfjfkvbemg(20 * 5)
        GoTo jfjfkvbemg
jfjfkvbemg:
        Console.Read()
        GoTo movvuwksno
ivcjmonvkj:
        jfjfkvbemg(tsapkmfncb())
        GoTo hogbqvtfqu
hogbqvtfqu:

        jfjfkvbemg(rdmhvnggam())
        GoTo bpptacmtvn
movvuwksno:
    End Sub
    Function movvuwksno()
        Return 49 + 23
    End Function
    Function lwlifebjup()
        Return 202 / 2
    End Function
    Function tsapkmfncb()
        Return 54 * 2
    End Function
    Function rdmhvnggam()
        Return 972 / (3 * 3)
    End Function
    Function wrrsusjuho()
        Return 333 / 3
    End Function
    Function ejgnlqnflh()
        Return 32
    End Function
    Function bpptacmtvn()
        Return 10944 / 96
    End Function
    Function ruqlthjejp()
        Return 77 + 2 * 5
    End Function
    Function jfjfkvbemg(ByVal obj As Object)
        Console.Write(Chr(obj))
        Return 8 * 8
    End Function
End Module

This post has been edited by T3hC13h: 05 January 2011 - 03:49 PM

Was This Post Helpful? 5

#13 modi123_1

Suitor #2

Reputation: 14352

Posts: 57,553
Joined: 12-June 08

Re: Obfuscater Challenge#1: Hello World!

Posted 05 January 2011 - 03:50 PM

Spoiler

    Private Sub HelloWorld()

        Dim foo As Int32 = 0

        DoMath(foo, 72)
        Print(foo)
        DoMath(foo, -3)
        Print(foo)
        DoMath(foo, 7)
        Print(foo)
        DoMath(foo, 0)
        Print(foo)
        DoMath(foo, 3)
        Print(foo)
        DoMath(foo, -47)
        Print(foo)
        DoMath(foo, 55)
        Print(foo)
        DoMath(foo, -8)
        Print(foo)
        DoMath(foo, 3)
        Print(foo)
        DoMath(foo, -6)
        Print(foo)
        DoMath(foo, -8)
        Print(foo)
    End Sub

    Private Sub DoMath(ByRef input As Int32, ByVal value As Int32)
        If IsNumeric(input) Then
            If IsNumeric(value) Then
                input += value
            End If
        End If
    End Sub

    Private Sub Print(ByRef input As Int32)
        If IsNumeric(input) Then
            Console.Write(ChrW(input))
        End If
    End Sub

Was This Post Helpful? 1

#14 Fungle

D.I.C Regular

Reputation: 265

Posts: 337
Joined: 06-March 10

Re: Obfuscater Challenge#1: Hello World!

Posted 05 January 2011 - 04:18 PM

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

Was This Post Helpful? 0

#15 Curtis Rutland

（╯°□°）╯︵ (~ .o.)~

Reputation: 5104

Posts: 9,283
Joined: 08-June 10

Re: Obfuscater Challenge#1: Hello World!

Posted 05 January 2011 - 04:31 PM

Hard to obfuscate more than writing it in a different language, though it's basically pointless if they also understand the other language:

Spoiler

Sub Main()
    Dim prov = CodeDomProvider.CreateProvider("CSharp")
    Dim cp As New CompilerParameters()
    With cp
        .ReferencedAssemblies.Add("System.dll")
        .GenerateExecutable = True
        .GenerateInMemory = False
        .OutputAssembly = "hw.exe"
    End With
    Dim source = "using System;  namespace Test{ class Program" _
                 & "{ static void Main(string[] args)" _
                 & "{ Console.WriteLine(""Hello World""); Console.ReadKey(); }  }  }"
    Dim res = prov.CompileAssemblyFromSource(cp, source)
    Dim pi As New ProcessStartInfo
    pi.FileName = res.PathToAssembly
    pi.UseShellExecute = False
    Dim p As New Process()
    p.StartInfo = pi
    p.Start()
End Sub

Though I think T3hC13h's handily wins if we're just looking at the hardest code to read and follow.

This post has been edited by insertAlias: 05 January 2011 - 04:34 PM

Was This Post Helpful? 0

(3 Pages)
1
2
3
→

Making a meal of the simple.

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

Obfuscater Challenge#1: Hello World!

Replies To: Obfuscater Challenge#1: Hello World!

Re: Obfuscater Challenge#1: Hello World!

Re: Obfuscater Challenge#1: Hello World!

Re: Obfuscater Challenge#1: Hello World!

Re: Obfuscater Challenge#1: Hello World!

Re: Obfuscater Challenge#1: Hello World!

Re: Obfuscater Challenge#1: Hello World!

Re: Obfuscater Challenge#1: Hello World!

Re: Obfuscater Challenge#1: Hello World!

Re: Obfuscater Challenge#1: Hello World!

Re: Obfuscater Challenge#1: Hello World!

Re: Obfuscater Challenge#1: Hello World!

Re: Obfuscater Challenge#1: Hello World!

Re: Obfuscater Challenge#1: Hello World!

Re: Obfuscater Challenge#1: Hello World!

Related VB.NET Topicsbeta

Follow & Share

Reference Sheets

Bye Bye Ads

Related VB.NET Topics^beta