Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Opere Citato Japh

by liverpole (Monsignor)
on Sep 20, 2005 at 04:35 UTC ( #493359=obfuscated: print w/ replies, xml ) Need Help??

I originally had this working in only 54 characters, but it seemed too obvious.  

It runs both in Linux ("perl <script>") and in Windows (but use a "cmd" shell so you can see the output).

$;='aq';$^X=~m;.+[/\\]([^\.]+);;`$1doc $1f$;4`=~m;"(.u.{22});;print$1, +$/
If you like the results, don't "peek" at how it's done yet ... try running it with the '4' changed to a '1', and it becomes all lowercase! ...
$;='aq';$^X=~m;.+[/\\]([^\.]+);;`$1doc $1f$;1`=~m;"(.u.{22});;print$1, +$/
Finally, change the string '"(.u.{22});' near the end of the line to 'th\.(.{17});m', and I think you'll truly be surprised:
$;='aq';$^X=~m;.+[/\\]([^\.]+);;`$1doc $1f$;1`=~m;th\.(.{17});m;print$ +1,$/

Update:  What am I thinking?!!  I forgot the most important person of all:

$;='aq';$^X=~m;.+[/\\]([^\.]+);;`$1doc $1f$;1`=~m;y (L.{9});m;print$1, +$/

Update:  ambrus pointed out that he had already created an obfuscation based on this method.  Sorry about that, ambrus!

Comment on Opere Citato Japh
Select or Download Code
Re: Opere Citato Japh
by chester (Hermit) on Sep 20, 2005 at 05:08 UTC
    My first thought with the 4 and 1 is "Clearly some kind of crazy ASCII manipulation". I was so very wrong. Very clever.
Re: Opere Citato Japh
by ambrus (Abbot) on Sep 20, 2005 at 08:32 UTC
      Darn, I can't believe this was done before!  I was so excited when I came across $^X for obfuscating, well, the word it obfuscates.  (I won't spoil it for those who haven't tried it yet).  Oh well...
Re: Opere Citato Japh
by truedfx (Monk) on Sep 20, 2005 at 12:13 UTC
    It doesn't work here - it simply prints out "perl5" for each. $^X is /usr/bin/perl5.8.7, so m;.+[/\\]([^\.]+); sets $1 to perl5. When I change it to m;.+[/\\]([^\d.]+);, it works; very nice.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://493359]
Approved by marto
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (6)
As of 2014-09-02 22:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite cookbook is:










    Results (32 votes), past polls