Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Structured obfuscation

by gmax (Abbot)
on Jan 22, 2002 at 13:38 UTC ( #140626=obfuscated: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    ss{}{}{}sss{}{}ssss{}{}{}sss{}ssss{}
    ssss{}ssss{}ss{}sss{}sss{}ss{}ssss{}
    ssss{}sss{}{}{}{}ss{}{}{}sss{}{}{}{}
    {}ss{}sss{}ssss{}ss{}sssssss{}ssss{}
    {}{}{}sss{}ssss{}ss{}sssssss{}ssss{}
    
  2. or download this
    @pattern = 
     ([2,3,3,2,4,3,3,1,4,1], # 2 spaces, 3 marks, 3 spaces, 2 marks, etc.
    ...
      [0,1,2,1,3,1,4,1,2,1,7,1,4,1], # 0 spaces, 1 mark, etc.
      [0,3,3,1,4,1,2,1,7,1,4,1]
     );
    
  3. or download this
    for $row (@pattern) {
        $mark=0;
    ...
        }
        print "\n";
    }
    
  4. or download this
    %pat = (" " => "{}", "{}" => " ");
    
  5. or download this
    $output = " ";
    
  6. or download this
    foreach (@numbers) {
        print $output x $_;
        $output = $pat{$output};
    }
    
  7. or download this
    %pat = (" " => "{}", "{}" => " ");
    $output = " ";
    ...
        }
        print "\n";
    }
    
  8. or download this
    %pat = (" " => "{}", "{}" => " ");
    $output = $pat{" "};
    ...
        print map { $output = $pat{$output}; $output x $_} @$row;
        print "\n";
    }
    
  9. or download this
    %pat = (" " => "{}", "{}" => " ");
    $output = $pat{" "};
    print map { map @{[{ $output = $pat{$output}; $output x $_} @$_]}, "\n
    +" } @pattern;
    
  10. or download this
    @pattern = qw(2332433141 41412131312141 41342334 01213141217141 
        033141217141);
    ...
    $output = $pat{" "};
    print map { map @{[{ $output = $pat{$output}; $output x $_} 
        split //]}, "\n" } @pattern;
    
  11. or download this
    $p={" "=>"{}"};
    $p->{$p->{" "}}=" ";
    $o=$p->{" "};
    print map{@{[map{tr{abcdef}{012347};$o=$p->{$o};$o x $_}split//]},$/}q
    +w{cddceddbeb ebebcbdbdbcbeb ebdecdde abcbdbebcbfbeb addbebcbfbeb};
    
  12. or download this
    $_='8pj%z9zj>z%&z&u8ph>%8ph>%z9z&&jz9zu8oj8ph>%z9z&uprint9mkp%@%[mkp%t
    +r%kvcdef&%012347&u8oj8ph>%8o&u8o9x98_&splitgg]&,8g&qw%cddceddvev9evev
    +cvdvdvcvev9evdecdde9kvcvdvevcvfvev9kddvevcvfvev&u';y'hj%89z&kuvg'-={$
    + "}a;b/';eval;
    
  13. or download this
    $hexstr=<<'HEX';
    $_='8pj%z9zj>z%&z&u8ph>%8ph>%z9z&&jz9zu8oj8ph>%z9z&uprint9mkp%@%[mkp%t
    +r%kvcdef&%012347&u8oj8ph>%8o&u8o9x98_&splitgg]&,8g&qw%cddceddvev9evev
    +cvdvdvcvev9evdecdde9kvcvdvevcvfvev9kddvevcvfvev&u';y'hj%89z&kuvg'-={$
    + "}a;b/';eval; 
    HEX
    print q{eval pack "H*",'}, uc(unpack("H*", $hexstr)),"';";
    
  14. or download this
    eval pack"H*",'245F3D2738706A257A397A6A3E7A25267A26753870683E253870683
    +E257A397A26266A7A397A75386F6A3870683E257A397A26757072696E74396D6B7025
    +40255B6D6B70257472256B766364656626253031323334372675386F6A3870683E253
    +86F2675386F397839385F2673706C697467675D262C38672671772563646463656464
    +766576396576657663766476647663766576396576646563646465396B76637664766
    +576637666766576396B64647665766376667665762675273B7927686A2538397A266B
    +757667272D3D7B2420227D613B622F273B6576616C3B200A'; 
    
  15. or download this
    $_='use strict; my$diary=24/5. For 3 Dozens of %{{algorithms}} we got 
    $2,738; require 7.0.6; Another 257 $Mil to %Anna. We &keep aside $397 
    ...
    Big beast. 757667272 Do you really think it is over? Not yet. Wait(). 
    3D7B2420227D613B622 Finally, this should be the last one. Is it? -No?
    273B6576616C3B200. Ah! Yes. '; tr/A-F0-9//cd; eval pack "H*", $_;
    
  16. or download this
    @a= map {$b=@{[unpack "c*",$_]};$b} qw(the dream becomes: nightmare);
    $a+=$_ for@a;($a*=3)-=2;($e,$d,$g,$f)=map {$a-=$_;$a}@a;$k=pack("c*",
    $d..$e).pack"c*",$f..$g; $h=pack"c",$d+34;$c=pack"c",$e+2;$i=pack"c",
    $d+35;$j=pack"c",$e+51;eval"$j.$k..$h$i";eval pack"$c*",$_;
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (4)
As of 2014-07-24 02:46 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (156 votes), past polls