Got that inspiration from this perlgolf site I played around ... getting this one:

s;;,:_,,},,],,_:){:"},,:,,,,,_,:(,:,,,(:){,,{,:,,,(,:[:){,:(:"}:"",:},
+:,,,(;;
y;,:_}][{"();PQWVTYSXUR;;s;(.);a^$1;eg;s!(...)!chr$1!eg;$_.=$/;print;

[download]

-----------------------------------
--the good, the bad and the physi--
-----------------------------------

Replies are listed 'Best First'.
Re: Just another japh
by jgallagher (Pilgrim) on May 08, 2003 at 00:40 UTC
    Very, very cool. One step in particular had me going for a while... Read more for spoilers.
    Read more... (2 kB)
[reply]
[d/l]
      Nice,
      now I know why it works :-)

      There was a problem, when I've done the tr part. In my first attempt I was using: 

      y;PQWVTYSXUR;,:_}][{}();;

      [download]
      instead of 
      y;PQWVTYSXUR;,:_}][{"();;

      [download]
      But that gaves a strange result:

      Try this little script: 

      s;;PQWPPVPPTPPWQRSQXVPPQPPPPPWPQUPQPPPUQRSPPSPQPPPUPQYQRSPQUQXVQXXPQVP
+QPPPU;;
print $_.$/;
y;PQWVTYSXUR;,:_}][{}();;
y;,:_}][{}();PQWVTYSXUR;;
print $_.$/;

      [download]
      This should normaly print out 2 equal strings. But it doesn't!? All the 'X' in the first string are replaced by a 'V'!?
      I've got no idea why!

      Cheers, physi 

      -----------------------------------
--the good, the bad and the physi--
-----------------------------------
[reply]
[d/l]
[select]
        y;PQWVTYSXUR;,:_}][{}();;
y;,:_}][{}();PQWVTYSXUR;;

        [download]
        As you might know by now: You used } twice in your replacement string. So no wonder it fails.
[reply]
[d/l]

Back to Obfuscated Code