Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

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 ...)

--Frank

Comment on career advancement
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (9)
As of 2014-09-30 23:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (386 votes), past polls