Obfu'd in some places, not in others. Unfortunately I couldn't think of much with which to obfu the print statement. Still, it was fun to play around with some of the more interesting behaviors of regular expressions I previously did not know about.

Here it is: 

#!/usr/bin/perl -w
$_=qr;/0x(\w\w);;q./0xxx.=~m _${\_}_g;@_=qw;
/0x4a/0x75/0x73/0x74/0x20/0x41/0x6e/0x6f/0x74/0x68/0x65/0x72
/0x20/0x50/0x65/0x72/0x6c/0x20/0x48/0x61/0x63/0x6b/0x65/0x72;
;for(@_){print+sprintf(q,%1c,,hex $1)while(//);}print+qq _\x0a_;

[download]



Amel

Replies are listed 'Best First'.
Re: Japh/Regex fun
by locked_user mtve (Deacon) on Apr 26, 2002 at 08:57 UTC
    We definitely need some online graveyard for japhs. 
    +s++435a++s++416500920bd8c8++s++c930++s++24ab695++s++252d++s++280313+
+s+a+5338+g+s+b+375+g+s+c+08+g+s+d+77+g+print+(+T^'+')x25&pack+w,$_++

    [download]

      Meanwhile I'll store them here.

      vec"Just another Perl hacker\n",$n++,1or$_*0for@a=(u)x200
;/^u$/||die,for@a;$a.=eval'$_&";"'for@a;print+pack'b*',$a

      [download]

Back to Obfuscated Code