Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: first posted obfu, explanation

by chargrill (Parson)
on Jan 17, 2006 at 19:02 UTC ( #523809=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -wire
    # sets -w, which only tries to slightly obfuscate that i'm using -i ( 
    +$^I) to
    ...
          # calls the subroutines in order, reversing the letters in each 
    +word.
          map { scalar reverse }
              ( l, &s, &j, &P);
    
  2. or download this
    $/="J";$\=",";$r=join""=>map{$_+=57;chr}map{ord}split//=>"2*(/;65(";@t
    +=sort
    map{if(m*^\w$*m){$_}}keys%{*::};sub u{$"}sub s{$^I.substr$r,3,5}sub j{
    +$t[-5].$^I
    .$t[-8]}sub P{$^I.substr$r,0,4}sub l{$t[-2].$t[-3].$t[-1].$/}print map
    +{if(m#ack#
    ){$_}else{$_.=&u}}map{~~reverse}(l,&s,&j,&P);
    
  3. or download this
    #!/usr/bin/perl -wire
    
    ...
    $_ =~ y[b-za2-901][a-z0-9];
    
    eval
    
  4. or download this
    sub r { 49 }     # returns 49
    sub a { r()-1 }  # returns 48
    sub b { a()-1 }  # returns 47
    sub c { b()+3 }  # returns 50
    sub d { 0 }      # returns 0
    
  5. or download this
    $e=q=
    fho'e{49}
    ...
    =;
    $e=~y/a-z/n-za-m/;
    eval $e;
    
  6. or download this
    $A = ( scalar join '',
              map { $a = $_ + 48;
    ...
                  }
              ( 50, 74, 49, 2, 9, 0, 1 )
         );
    
  7. or download this
    $B = ( scalar join '',
              map { $b = $_ + 49;
    ...
                  }
              ( 48, 74, -1, 8 )
         );
    
  8. or download this
    join '',
    map { if( m/^\d+$/ ){
    ...
          }
        }
    ( 121, 47, $A, 47, $B, 47 )
    
  9. or download this
    eval join '', map{ if( m|^\d+$| ){
                         pack'c',$_
    ...
                                       }
                       ( a(), 24 + r(),  -1,8 )
                   ), b() );
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (5)
As of 2019-10-16 06:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?