#!/usr/bin/perl -w
use strict;

      $_="              4a75        
     737420            616e6f       
     746865            722050       
      6572              6c20        
                                    
   6861636b65          72";s!       
  \s!!xg;$$=q;        $a='anot      
  he r';.'; $$       ='  ."  ="     
  .' my$a=7 ."      a9  ";$_  .=    
  $a ;s!... !-     $&  !xg;$_  .=   
  "\ x"x5;; m|    ..  |xg;$$.=  $&  
     ;$a=qq          (c)';$$=$a     
     ;s((..         ))(\\x$1)xg;    
     eval "        print \"$_\";"   
     ;;  $a            ='  st       
     tr  |\            ..  %a       
     =$  pe            rl  ha       
     ck  er            );  $a       
     =q  |b            x|  ';

[download]
A dissection is welcomed :)

Replies are listed 'Best First'.
Re: The *Real* Perl Couple
by tachyon (Chancellor) on May 18, 2001 at 18:31 UTC
    Your wish.....is my command. Did I miss anything?
     
    Nice string in the middle with the ; q delimiter. You got good obfu milage out of that one!
     
    tachyon 
    ########################################################
# short summary, with newline added :-)
$_="4a75737420616e6f74686572205065726c206861636b65720a";
for (m/(..)/g) {print chr(hex($_))}
########################################################

# hex string Just another Perl Hacker, verbatim
$_="4a75737420616e6f74686572205065726c206861636b6572";

# substitute spaces out, /x allows whitespace in pattern
# gets rid of spaces and newlines
s!\s!!xg;

# useless convoluted string assignment to $$ ($PID)
# first q delim ; then concats as shown
$$=q;$a='another';.
';$$='.
"=".
'my$a=7."a9";$_.=$a;s!...!-$&!xg;$_.="\ x"x5;;m|..|xg;$$.=$&;$a=qq(c)'
+;

# useless assignment of $a (null) to $$ ($PID)
$$=$a;

# functional line adds \x to hex digit pairs, /x allows whitespace
s((..))(\\x$1)xg;

# print the string, need eval to render \x4a as ASCII J etc    
eval "print \"$_\";";
 
# useless assignment
$a='sttr|\..%a=$perlhacker);$a=q|bx|';

    [download]
[reply]
[d/l]
      spot on :)
[reply]

Back to Obfuscated Code