Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
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: (7)
As of 2014-10-01 22:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    What is your favourite meta-syntactic variable name?














    Results (40 votes), past polls