OK, giving up on ascii-art. I'd like to hear what you think of this:

use strict; s;;\$fuh;;$==0;eval;print map{$=-=0x4D-ord;$@=~m;^.{$=}(.);;$1}qw;~ - +k C 8 _ G C;;

Thanks!


s^^unp(;75N=&9I<V@`ack(u,^;s|\(.+\`|"$`$'\"$&\"\)"|ee;/m.+h/&&print$&

Replies are listed 'Best First'.
Re: No more art for me
by o0lit3 (Friar) on Aug 27, 2004 at 19:52 UTC
    Don't give up so easily, muntfish. If you're willing to take a few liberties, you can still (sort of) make your code look like a fish (the outline is taken from your former post):
    #/ #/ $==0; use strict; #/ s;;\$fuh;;eval;print map {$=-=0x4D-ord;$@=~m;.{$=}(.);; $1}qw;~ - k C 8 _ G C;; use strict; #\ $==0; #\ #\
    As a side note, I think you've made an outstanding improvement from your last entry. I especially like your use of the semicolon as your regex separator and your cryptic use of the $@ variable. I have to admit, I didn't know what was going on at first glance.

      Thanks - that's great! I think perhaps code is easier to make into "shapes" than data... there's more scope for "tricks" like comments and such like. Maybe that's where I was going wrong...

      As a side note, I think you've made an outstanding improvement from your last entry

      Cheers. I've only just started looking at all the many ways of obfuscating - it's a totally different way of thinking, isn't it?

      I especially like your use of the semicolon as your regex separator

      Yeah, I wanted to use $; instead of $= as well - but I just couldn't make it work in the regexp!

      and your cryptic use of the $@ variable

      I saw that idea somewhere else, ages ago - can't remember who or where. To be honest I only tested this in v5.8.0 - no idea if it still works in other versions!

      Have a good (long, if in the UK) weekend, everyone!


      s^^unp(;75N=&9I<V@`ack(u,^;s|\(.+\`|"$`$'\"$&\"\)"|ee;/m.+h/&&print$&