Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Yet another structured obfuscation

by gmax (Abbot)
on Apr 09, 2002 at 12:25 UTC ( #157703=obfuscated: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
    # DATA contains the same words as in obfun.pl
    # from the 22nd line onwards
    __DATA__
    
  2. or download this
    @pc=qw(2+--+ 5| 5| 5| 5| -----+);
    s/(\d)/" " x $1/e for@pc;
    ...
    print join $/,@p,$/;
    if($msg){print"$msg$/";$msg=""}}
    __DATA__
    
  3. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
        }
    }
    print "\n";
    
  4. or download this
    while (<DATA>){
        chop;
    ...
    
    $_ = join '', @original; # now $_ has the working code
    eval;
    
  5. or download this
    $c=$=;$=/=$-=@_=qw(Nothing to hide);($m=$-)++;$c+=$-*$m;
    while (<DATA>){
    ...
    s($gs=~ /-/){@cp=@wcs{$x}){$msg="$mg[4] tem("clear")if $^O=~
    tt: ","JOWBMJE JOQVUt}print$gs,"\n$mg[1]wd=join"",map{$grbl{
    y]/;tr/[B-Z]/[A-Y]/;| 5| -----+);s/(\d)/
    
  6. or download this
    # map{unpack("c*",pack((pack"c",$c)."*",$_))} 
    # map {hex $_}
    # map {unpack("c", pack(____, $_))} # fill in the blanks!
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://157703]
Approved by mrbbking
Front-paged by Amoe
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (14)
As of 2014-12-19 15:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (85 votes), past polls