Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
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 rifling through the Monastery: (7)
As of 2014-09-01 08:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (299 votes), past polls