Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

/japh/ee

by Sec (Scribe)
on Feb 25, 2005 at 16:54 UTC ( #434561=obfuscated: print w/ replies, xml ) Need Help??

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)'

Comment on /japh/ee
Download Code
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($_);

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (8)
As of 2015-07-04 18:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (60 votes), past polls