Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: My first obfu

by chargrill (Parson)
on Apr 20, 2006 at 03:38 UTC ( [id://544503]=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    sed s/eval/print/ mpeg.pl | perl | sed s/eval/print/ | perl | perl -MO
    +=Deparse
    
  2. or download this
    @_ = (104, 97, [112, 2], 121, 32, 98, 105, 114, 116, 104, 100, 97, 121
    +, 10);
    foreach $_ (@_) {
        print chr $_ if not ref $_;
        print chr($$_[0]) x $$_[1] if ref $_;
    }
    
  3. or download this
            $
            _
    ...
    ?)fer((tnirp\';s,
    ,reverse,ee';s'\s
    '$_'geex;m,,mgsix
    
  4. or download this
    $,=42;for(34,0,-3,9,-11,11,-17,7,-5){$*.=pack'c'=>$,+=$_}for(reverse s
    +plit//=>$*
    ){$%++?$ %%2?push@C,$_,$":push@c,$_,$":(push@C,$_,$")&&push@c,$"}$C[$#
    +C]=$/;($#C
    >$#c)?($ c=\@C)&&($ C=\@c):($ c=\@c)&&($C=\@C);$%=$|;for(@$c){print$_^
    +$$C[$%++]}
    

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others scrutinizing the Monastery: (5)
As of 2024-03-19 11:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found