/japh/ee

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]

Comment on /japh/ee Download Code

Replies are listed 'Best First'.

Re: /japh/ee
by jdalbec (Deacon) on Feb 26, 2005 at 01:36 UTC

strict

warnings

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]


Problems? Is your data what you think it is?
	PerlMonks