Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

career advancement

by haoess (Curate)
on Mar 29, 2006 at 16:01 UTC ( #539993=obfuscated: print w/replies, xml ) Need Help??

A friend of mine got a professorship at our university. You can see his name by running this little obfu:

#!/usr/bin/perl -l s,,close$^S; do{;s// /cx; AUTOLOAD{$ {+'|'}++?& _:&__}open $|=>'>'\,$ $out;sub _ {$..=chr($ _+97 ) foreach qw $ -65 10 + 18 18 20 13 6$; $.}s/ /abs length uc ord and push\@_ => chr ord for qw[ join utime study tied ]/&&s/ $;//;sub __{unpack ("u*" =>'$'. '9\'(N(```')}~! eval}; eval q!${y-+--; Culture x 1}.=substr $_ \,$&=>$ ^Sfor qw q cmp+ hex ref if sub tie index\ accept next|q!;${ ucfirst join '' =>@ _}=sub{;$; .=chr oct ("0b$_")for(1110000 =>+1110010 \,1101111\, 1100110=>101110 \,100000); $;},e&print $Just->() => $another->() => $Culture => $hacker->()

We made a t-shirt for him with this, and he was very happy, but now he has even more work (deobfu ...)


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://539993]
Approved by Limbic~Region
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (6)
As of 2018-06-18 00:32 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (107 votes). Check out past polls.