Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

The Top Ten Perl Obfus

by eyepopslikeamosquito (Archbishop)
on Dec 14, 2014 at 08:24 UTC ( [id://1110292]=perlmeditation: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    
    ...
    time xor ref print chr int ord lc
    foreach qw y hex alarm chdir kill
    exec return y s gt sin sort split
    
  2. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
                   }
    
           be $mine for @ever
    
  3. or download this
    #!/usr/bin/perl -w                    # there can be only one
    
    ...
    1)}{one((one($;)<<$^)-one($/)-1)}{one(((one($;)<<
    $^+1)+one($/)>>1)-$^-1)}}{one($=^(one($")>>1))';s
    ;{one;chr;g;y;{ne}}\012\040;.rd.;sd;eval;print;#1
    
  4. or download this
    #!/usr/bin/perl
    # Copyright (c) Marcus Post, <marcus@marcuspost.com> 
    ...
    000000000000000000000000000000000000000011110000000000000000
    000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000
    
  5. or download this
    $_=!Mima,s--
    '=9+)w'^RINGS
    Saturn^wNXIBP
    S|A|T|U}(@R,$N)
    
  6. or download this
    #!/usr/bin/perl
    $_='
    ...
       s; ".         chr(9 2)."s;;g;eval\n           "}
    
    ';s;\s;;g;eval
    
  7. or download this
    #!/usr/bin/perl
    $_='
    ...
     ; g;       eva l\n"                  }
    
    ';s;\s;;g;eval
    
  8. or download this
    #!/usr/bin/perl -w                                    # find-a-func
    use strict;
    ...
    
    The use of the llama image in association with Perl is a trademark
    of O'Reilly & Associates, Inc. Used with permission.
    
  9. or download this
    #!/usr/bin/perl -w                           # how to (ab)use substr
    use strict;
    ...
     substr         ($pi,9,2));}(map{chr($_+
       substr       ($pi,21,2))}(
         substr     ($pi,8)x3)=~/../g);
    
  10. or download this
    $;                              # A lone dollar?
    =$";                            # Pod? 
    ...
    {Just=>another=>Perl=>Hacker=>} # Bare block?
    =$/;                            # More pod?
    print%;                         # No right operand for %?
    
  11. or download this
    #!/usr/bin/perl -w                                      # camel code
    use strict;
    ...
                      145\162                              \155\151
                    \163\163                                \151\1
                  57\156\056
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlmeditation [id://1110292]
Approved by marto
Front-paged by Old_Gray_Bear
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others romping around the Monastery: (6)
As of 2024-03-28 19:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found