Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: My first attempt at obfu (attempted helpfulness)

by jynx (Priest)
on Aug 22, 2002 at 20:50 UTC ( #192174=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #/usr/bin/perl -w
    use strict;
    ...
      length$_[0]==8 && grep{$_=0}@_;
    }
    print"\n";
    
  2. or download this
    $_[$_]=0 for 0..7;my$i;
    for my$a(grep{s@^00@@}
    ...
      length$_[0]==8 && grep{$_=0}@_;
    }  
    print"\n";
    
  3. or download this
    sub{split//,'0'x6;my$i;
    for my $a(grep{s@^00@@}
    ...
      length$_[0]==8 && print pack'B8',$_ for@_;
      length$_[0]==8 && grep{$_=0}@_;
    }print"\n"}->()
    
  4. or download this
    sub{split//,'0'x6;my$i;
    for (grep{s@^00@@}
    ...
      length$_[0]==8 && print pack'B8',$_ for@_;
      length$_[0]==8 && grep{$_=0}@_;
    }print"\n"}->()
    
  5. or download this
    sub{split//,'0'x6;$;--;
    for (grep{s@^00@@}
    ...
      length$_[0]==8 && print pack'B8',$_ for@_;
      length$_[0]==8 && grep{$_=0}@_;
    }print"\n"}->()
    
  6. or download this
    sub{split//,'0'x6;$;--;
    for (grep{s@^00@@}
    ...
        length==8 && (print(pack'B8',$_) and ($_=0))
      }
    }print"\n"}->()
    
  7. or download this
    sub{split//,'0'x6;$;--;
    for (grep{s@^00@@}
    ...
      map{$_[($;+=1)%=6].=$_}/./g;
      @{[/./g]}-8???:($_=-1+print pack'B8',$_)for@_
    }print"\n"}->()
    
  8. or download this
    sub{split q,,,q;0;x6;$;--;for(grep s,^00,,,unpack'B8'x28,join'',map ch
    +r,q,61
    312832204025636309525849183047200210040863630136021330,=~m,..,g){map$_
    +[($;+=
    1)%=6].=$_,m,.,g;@{[m,.,g]}-8???:($_=-1+print pack'B8',$_)for@_}print$
    +/}->()
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (5)
As of 2022-12-05 11:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?