Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Obfu or another method?

by cristian (Hermit)
on Aug 25, 2005 at 22:07 UTC ( #486737=obfuscated: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    
    $*=\&(|<www.perlmonks.org>,@=={$}=>,%\,%\}.$*,*_=\$@,
    ...
    $,=" {print $_}",$,=~s/\n//g;$.=~s/\n//g;
    $=[0]=~s<(.).*~(\w{6})$>@"$. $1$2$,"@e.eval$=[0]&&s<.*>@&Howoorg@e;
    
  2. or download this
    #!/usr/bin/perl
    $*=\&(|<www.perlmonks.org>,@=={$}=>,%\,%\}.$*,*_=\$@,
    eval'&$->obfu',s<^(\w+)\s(...).*>!$2!,$.=$_,
    eval'@$->obfu',s+.(.)(.)'(.)\s(.).(.).\s.(.).(.)(.). "...(.)" ....... 
    +. (.)..(.)... .(.) ..(.)...(.)*+'$13$9s$3 $1$2$8$3$7$6$12 $10$6$12$5 
    +$7$1$4$11$6$12'+,$,=" {print $_}",$=[0]=~s<(.).*~(\w{6})$>@"$.$1$2$,"
    +@e.eval$=[0]&&s<.*>@&Howoorg@e;
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (3)
As of 2022-07-06 13:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?