Obfuscating BlitzMAX programs

BlitzMax Forums/BlitzMax Programming/Obfuscating BlitzMAX programs

TomToad

(Posted 2010) [#1]

Here is a little program I wrote. See if you can figure out what it does before running it.

SuperStrict

Print 640,480

While Not Sin(KEY_ESCAPE)
	Graphics 10,10,100,100
	Sqr
Wend

Rem
	Can the above be a real program?
	What can it possibly do?
	This is created with the help of function scope.  Just like variables, you can have a function
	declared with the same name as another function as long as it has a differenct scope.
	The below function declarations are within the scope of the main program and so the main program uses
	them when calling.  The functions are defined by calling the full scope of the original intended
	function.  this makes it easy to use the same name within different modules.  If you have two
	modules with the same function name, you can force BlitzMAX to call the correct function by typing
	the full module path before the function name.
	
	I know that the above isn't new, nor very interesting information.  I was just typing it to fill space
	before the function calls so the method used isn't obvious at first glance :)
	
	Function declarations below
	V
	V
	V
	V
	V
	V
	V
	V
	V
	V
End Rem

Function Print(x:Int,y:Int)
	brl.Graphics.Graphics(x,y)
End Function

Function Sin:Int(KeyCode:Int)
	Return brl.polledinput.KeyHit(KeyCode)
End Function

Function Graphics(x:Int,y:Int,w:Int,h:Int)
	brl.max2d.DrawRect(x,y,w,h)
End Function

Function Sqr()
	brl.Graphics.Flip
End Function

It sort of reminds me of the Obfuscated C Code that gets published every now and then, like those on this site
http://www0.us.ioccc.org/main.html
Maybe we could have an Obfuscated blitzMAX Code Contest. :)

TomToad

(Posted 2010) [#2]

Here is a nice one :)

SuperStrict
Global Peace_joy_Love$
Local rint_$="e",nt_$=Right((rint_+"love")[..2],1),t_$=Chr("love"[1])
Local nirP_$=Chr("Peace"[0]+7),irP_$=Mid("Joy",8-3*2,(2+10)^(8*2-16)),rP_$=Chr(irP_[0]+3),P_$="l"

Function Print_();P("H");End Function;Function Pri(n$);P(n);End Function;Function Prin(t$);P(t);End Function;Function P(r$);Peace_Joy_Love:+r;EndFunction
Function t(n$);P(n);End Function;Function tn(i$);t(i);End Function;Function tni(r$);t(r);End Function;Function tnir(P_$);P(P_);End Function;Function tnirP();P("d");End Function

Print_;P rint_;Pri nt_;Pri nt_;Prin t_;P " "
t nirP_;tn irP_;tni rP_;tnir P_;tnirP;P " "

Print Peace_Joy_Love

Warpy

(Posted 2010) [#3]

a haiku ..

Program aborting

Close all that you have worked on

You ask far too much

Function a(haiku)
	Graphics are,over,rated
End Function

Function program(aborting)
	DrawText "ABORTING",aborting,aborting
End Function

Function close(all)
	you rogue ..
End Function

Function that(you(YOU))
	If you loved me
End Function

Function have(worked)
	you would ..
End Function

Function on()
	close this program now
End Function

Function you(ask)
	Assert that, "you love me" And I ..
	will
End Function

Function far(too)
	Flip out
End Function

Function much()
	Delay awhile
End Function

Function loved(me)
	Repeat after me ..
	Until you die
End Function

Function will()
	program done
End Function

Global now=13,are=300,over=50,done=26,awhile=2000
Global after(we)=close
Global die()=much

It would've been better if I'd been able to interleave the function definitions and contents coherently ...

Scaremonger

(Posted 2010) [#4]

@Warpy - Thats cool; I'm impressed...

Matt Merkulov

(Posted 2010) [#5]

Scaremonger, have you abandoned your BlitzMax game framework? I'd like to have a copy (MattMerkulov@...) if you don't mind.