This was my first try at an obfuscated JAPH for my .sig (starting point was, that I discovered the possibily of 'ee'). 
perl -le 's,us(?=r),he,,print
if (($_=qq/(*_=*\047)=~y#!perl -e hk #rJust -`neocheat#,*_;
$^X hacker!/)=~s<.*;>;($_=$&)=~y~*~$~,$_;ee)'

[download]

Replies are listed 'Best First'.
Re: /japh/ee
by jdalbec (Deacon) on Feb 26, 2005 at 01:36 UTC
    Very tricky++! And it works with strict and warnings, too! In preparing my analysis I was initially fooled by a subtle use of
    character ranges in the translation operator. 
    #! perl
# original code after perl -MO=Deparse and perltidy
# s/us(?=r)/he/, print($_)
#  if ( $_ = "(*_=*')=~y#!perl -e hk #rJust -`neocheat#,*_;\n$^X hacke
+r!" ) =~
#  s[.*;][($_ = $&) =~ tr/*/$/, $_;]ee;
use strict;
use warnings;
# analysis
$_ = "(*_=*')=~y#!perl -e hk #rJust -`neocheat#,*_;\n$^X hacker!";
# $^X = $EXECUTABLE_NAME must be "perl" for this to work
$_ =~ s[.*;][($_ = $&) =~ tr/*/$/, $_;]ee;
# $MATCH and $POSTMATCH
# $& = "(*_=*')=~y#!perl -e hk #rJust -`neocheat#,*_;";
# $' = "\nperl hacker!";
# first eval
# $_ = "($_=$')=~y#!perl -e hk #rJust -`neocheat#,$_;";
# tr/// with [ -e] shown partially expanded
# !perl -`abcde hk
# rJust -`neocheat
# second eval
# $_ = "\nJust anotusr";
# s///
# $_ = "\nJust anotusr\nperl hacker!";
s/us(?=r)/he/; # $_ = "\nJust another\nperl hacker!";
print($_);

    [download]
[reply]
[d/l]
[select]

Back to Obfuscated Code