Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

The Latest Craze

by japhy (Canon)
on Feb 23, 2001 at 01:58 UTC ( [id://60352]=obfuscated: print w/replies, xml ) Need Help??

This has about 80-char wrap required to look "nice".
$SIG{__WARN__}=sub{$_=shift};eval'use strict;$uo';@_{split//,eCVJABDdE +eSFeN. eeGaeIHQecePMLRTeeUeeeZYeKeeOXebWeeee}=split//,uc;print@_{sort+keys%_} +,"\n";


japhy -- Perl and Regex Hacker

Replies are listed 'Best First'.
Re: The Latest Craze
by BooK (Curate) on Feb 23, 2001 at 02:59 UTC

    This is a really really good obfuscation. Not that difficult to work out, but very creative. Bravo.

    On a side note, it worked well with my perl 5.005_3, but not with 5.6 (prints a blank line). The following adaptation does work with 5.6, but not with 5.005_03 (Global symbol "$uo" requires explicit package name at (eval 1) line 2.). Go figure.

    eval'use strict;$uo';@_{split//,eCVJABDdEeSFeNeeGaeIHQecePMLR. TeeUeeeZYeKeeOXebWeeee}=split//,uc$@;print@_{sort+keys%_},"\n"
      Yeah, well it took me forever to figure out how to capture Perl's builtin warnings. It is quite difficult. I had to resort to capturing a fatal error message (I was using a different method, but it didn't work -- trying to get the "Useless use of variable in void context" message, but couldn't figure out HOW).

      Then it occurred to me -- how about I see if there's an error message that contains all the letters I need, and indeed there are several. (This is a sign that Larry played Zero-Wing.)

      And it irks me that Perl has changed the error handling/catching method in 5.6.0. Oh well.

      japhy -- Perl and Regex Hacker

Re: The Latest Craze
by MeowChow (Vicar) on Feb 24, 2001 at 03:34 UTC
    could... not... resist...

    all my base are belong to them

      Nice. :)

      I wish I knew the fonts (other than Garamond) that they used. It seems you did. Oh, wait, duh. Perhaps the Colophon would mention them.

      I wanted to AYB-ize the circular "Programming Republic of Perl" image, but my image-editing program is not capable of that effect it seems (getting text to curve like so).

      japhy -- Perl and Regex Hacker

        Actually, I just guesstimated the fonts... it came out to Book Antiqua for "Base" and the other italicized text (though Garamond was a closer match, its 'a' looked really odd), and Tahoma on "For Great Justice" and "Are Belong To Us". Garamond was used on the apostrophe between TO and US, however.

        Thanks for expanding my vocabulary, by the way :-)

           MeowChow                                   
                       s aamecha.s a..a\u$&owag.print
(jeffa) Re: The Latest Craze
by jeffa (Bishop) on Feb 23, 2001 at 02:36 UTC
    /msg japhy hey great obfuscation, but you have some grammar errors with the output . . .

    Jeff

    R-R-R--R-R-R--R-R-R--R-R-R--R-R-R--
    L-L--L-L--L-L--L-L--L-L--L-L--L-L--
    
      /msg jeffa You have no chance to survive make your time.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others lurking in the Monastery: (4)
As of 2024-04-24 00:46 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found