Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

The First Ten Perl Obfus

by eyepopslikeamosquito (Chancellor)
on Dec 14, 2014 at 08:14 UTC ( #1110291=perlmeditation: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
          %A=('r'=>"\n","\t"=>'#','/'=>
         's','f'=>'p',"b"=>'n');@C=qw (e
    ...
      .=qq{$k$B[$x++]$A{$k}$C[$x] \b};if
     ($x==1){$t=$k.$B[$x-1].$A{$k};}#ops 
    } print$A{r}.$s;#i h8 left over \s's
    
  2. or download this
    CR LF TAB SPACE #! SPACE BACKSPACE /usr/ SPACE BACKSPACE bin/ SPACE BA
    +CKSPACE f BACKSPACE pe SPACE BACKSPACE rl CR LF SPACE BACKSPACE
    
  3. or download this
    $_='%?&%[=&+=?%=[%&+&%[*?]&=&~[;&+&{=?[?&%&[&{[%&^=?=[&%&]=?%~&~[?&+&~
    +YiFF!
    =[=~| Weyfour WWWWolf (aka. Urpo Lankinen), a lupine technomancer |=?*
    +_=}?]
    %}&};| ICQ:4291042 | wwwwolf@iki.fi | http://www.iki.fi/wwwwolf/ |&;&=
    +~?]';
    tr/?~=*;%&[{}]+_^ (),.:@\/\n0-9!|a-zA-Z/0-9acde/d; $_=pack("H*",$_); p
    +rint;
    
  4. or download this
    $monster = new ArrayHashMonster ... ;
    print $monster->[1];   # This might print `Janvier'
    print $monster->{Jan}; # This can *also* print `Janvier'
    
  5. or download this
    $a="User-Agent:PlMk";$u="
    xavier.penguinpowered.com
    ...
    )">(.+?)<\/a>/$2($1)/sgx;
    $d=~s/<(br|p|li)>/\n/g;$d
    =~s/<.+?>//gsx;print"$d";
    
  6. or download this
    # to squish a string
    y sssscccc;
    ...
    y ccccdddd;
    y dddcdccc;
    y yyycd;
    
  7. or download this
    $Old_MacDonald = q#print #; $had_a_farm = (q-q:Just another Perl hacke
    +r,:-);
    s/^/q[Sing it, boys and girls...],$Old_MacDonald.$had_a_farm/eieio;
    
  8. or download this
    y ccccd x s vvchr oct oct ord uc ave x s vvucve le
    s vvuc ave x s vvchr oct oct oct ord uc bve x eval
    
  9. or download this
    #!/usr/bin/perl
    use Curses;keypad initscr;nodelay 1;box qw{| -};($l,$d,$k,@f)=(1..3,[1
    +0,10]);&
    ...
    select$f,$f,$f,.06;($c=getch)+1and$d=4-($c%2?2:0)-($c<260);addch@{pop@
    +f},' 'if
    @f>$l;$l+=$_=inch@{$f[0]};if(!/ /){/\d/||die;addstr 0, 60,$l;&n}addch@
    +{$f[0]},
    'O'}sub n{while(){@v=(rand 24,rand 80);inch(@v)eq' '&&last}addch@v,''.
    +rand 10}
    
  10. or download this
    #!/usr/bin/perl -w           # my 2 cents worth
    
    ...
    >>2+2))-2))}}}tue(too(too(two($;)>>(two($;)>>2+
    2)))+(two($;)>>(two($;)>>2+2))-2);';y;{};..;sd;
    s;two;ord;g;s;too;hex;g;s;tue;chr;g;eval;print;
    
  11. or download this
                # smiley - 
    
    ...
      ^c@&=>                   hex$_}
        ;print               "\n"#)
          =~s,[&^@\s]+, ,g;eval$R
    
  12. or download this
    $_='",",/[J|]$/?m)^.J)?(m~"(.+?)"~):s](^(.)(.*\)\?p.*)|(\)\?)(.'
    .'*))\|(.)]$4$2$6$3$5|]<<eval:s<([\w -%])(?=[^|]*$)><pack+q*c*,'
    .'(ord$1)-++$i%3>eg!~eval#@|xslvuuipfem#pwht%uimwssd$yvyO'=>eval
    
  13. or download this
    #!/usr/bin/perl -- what is larry wall?
    @_=qw(l a r r y w a l l);for(0..1){$_[$_] =~ y#a-z#e-w#;}
    $_[3]=$_[$#_].' ';$_[4]=~s$y$h$;($_[5],$_[6])=($_[6],$_[5]);
    ++$_[6];$_[7]=chr 3+ord $_[7];$_[8]=~y~a-z~g-t~;print @_,".\n"
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (4)
As of 2019-05-21 03:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you enjoy 3D movies?



    Results (129 votes). Check out past polls.

    Notices?
    • (Sep 10, 2018 at 22:53 UTC) Welcome new users!