After watching
this very interesting video, I decided it just had to be made into an obfuscation. After completion I realized it had been more than a year since I had composed one -- time flies. As usual, more information can be found
at Wikipedia.
You'll need to have perl/Tk installed to run it. Invoke it with perl <program> (or in Windows give it a .pl extension). I won't give away too much, except to say that the shape of the code hints at the ultimate outcome.
When first run, type the <space> key to start progress. You can then type <space> again to pause or restart. The number of "cycles" (or "generations") displays in the invoking window after each subsequent pause.
Two parameters may be given; both are optional.
The first is an integer that says how many "cycles" to run before changing colors. It defaults to a value which is more obvious when you run the code. Try for example a value of '350'.
The second is the delay in milliseconds between successive "cycles"; use a larger value to slow down execution. The default is '1' (fastest possible).
s""v
tf!Ul
<)%c-
%e-%y
-%z-
%l-% d*>)
1-3-4 1-34-
1-(g1 1(*<%
p>tij gu}}2
1111 <%E>t
ijgu }}2<
%N>Nb joXjo
epx.? ofx)*
<%N.? ujumf
)rr| #Mbo
hupo (t!B
ou#~* <%w>%
N.?Db owbt)
.xj>? 911-.
if>? 623*
.?qb dl<n bq|% w.?d
sfbuf Mjof) 9+%`- 1-9+%
`-623 *<%w. ?dsfb ufMjo
f)1-9 +%`-9 11-9+ %`*~)
2//: :*<' `''% N.?c
joe) #=tq bdf? #>?t
vc|,, %c&3} }qsjo u#Dpv
ou;%l ]o#~* <tvc! s|sbo
e)27* ~tvc! `|%w. ?efmf
uf)% t*<% t>%w .?ds
fbuf Sfdu bohm f)d)
(111( **~tv c!d|) 9+%y.
5-9+) 75.%z *.5-9 +%y,5
-9+)7 5.%z* ,5-.g j>?di
s)46 */%` [1^* ~%N.
?sfq fbu) %E>?
tvc|j g)%c& 3''%l
,,=23 81:*| %j>21
1+%z, %y<%g >%g[%
j^<% f>%g @.2;
2<%w .?ef mfuf
)%g*< %g[%j ^>%g@
(1(;% w.?ds fbuf
Pwbm) d)%d* *<%e&
3boe %z,> %e=3
@.%f ;%f< %e&3
ps%y, >%e@. %f;%f
<%e>) %e,%f *&5<'
`<%l& %p!ps %d>tq
sjou g(&y &y&y
(-'s
-'s-'
s~~*<
%N.?N
bjoMp
pq";s,\s,,g;s;([^[]);chr(ord($1)-1);ge,eval
say
substr+lc crypt(qw $i3 SI$),4,5
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.