Does my JAPH suck?

Discussion in 'Perl Misc' started by da5id, Jul 13, 2007.

  1. da5id

    da5id Guest

    Perhaps not the most original, but at least now I can say I have
    one...

    Comments anyone?

    map{print "$_ "}split(/\d/, join('', map /(\w|\d)\w/gi, qw(Jaubsctd1a
    Aenfogthhiejrk2b Plemrmln3c Hoapcqkresrt4d)));
     
    da5id, Jul 13, 2007
    #1
    1. Advertising

  2. da5id

    Guest

    On Jul 13, 11:02 am, da5id <> wrote:
    > Perhaps not the most original, but at least now I can say I have
    > one...
    >
    > Comments anyone?


    Yea... You wasted your time accomplishing nothing...
     
    , Jul 13, 2007
    #2
    1. Advertising

  3. da5id

    Uri Guttman Guest

    >>>>> "d" == da5id <> writes:

    d> Perhaps not the most original, but at least now I can say I have
    d> one...

    d> Comments anyone?

    d> map{print "$_ "}split(/\d/, join('', map /(\w|\d)\w/gi, qw(Jaubsctd1a
    d> Aenfogthhiejrk2b Plemrmln3c Hoapcqkresrt4d)));

    (\w|\d) is the same as (\w) since it also has \d. in general | for
    choosing character classes is slower than just doing a char class.

    map{print "$_ "}

    that is map in a void context. also it calls print in a loop whereas it
    is better to build the list with map and call print once.

    print map "$_ "

    the /i on the second regex is redundant as \w has all upper and lower
    letters in it.

    that's all for now. good first try.

    uri

    --
    Uri Guttman ------ -------- http://www.stemsystems.com
    --Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
    Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
     
    Uri Guttman, Jul 13, 2007
    #3
  4. On Fri, 13 Jul 2007 16:26:31 GMT, Uri Guttman <>
    wrote:

    >map{print "$_ "}
    >
    >that is map in a void context. also it calls print in a loop whereas it
    >is better to build the list with map and call print once.


    Well, it is a JAPH! So those remarks just don't apply. The "problems"
    are others...


    Michele
    --
    {$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
    (($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
    ..'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
    256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
     
    Michele Dondi, Jul 13, 2007
    #4
  5. On Fri, 13 Jul 2007 16:02:23 -0000, da5id <>
    wrote:

    >map{print "$_ "}split(/\d/, join('', map /(\w|\d)\w/gi, qw(Jaubsctd1a
    >Aenfogthhiejrk2b Plemrmln3c Hoapcqkresrt4d)));


    Well, it's certainly too easy to see both the logic and where the data
    is actually stored. In fact you can even see the JAPH motto at a
    glance... and it's not one of those tricks in which you see it at a
    glance, but then it is extracted and printed by some other means. Good
    first attempt, but poor obfu attained.


    Michele
    --
    {$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
    (($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
    ..'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
    256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
     
    Michele Dondi, Jul 13, 2007
    #5
  6. da5id

    Peter Wyzl Guest

    "Michele Dondi" <> wrote in message
    news:...
    > On Fri, 13 Jul 2007 16:02:23 -0000, da5id <>
    > wrote:
    >
    >>map{print "$_ "}split(/\d/, join('', map /(\w|\d)\w/gi, qw(Jaubsctd1a
    >>Aenfogthhiejrk2b Plemrmln3c Hoapcqkresrt4d)));

    >
    > Well, it's certainly too easy to see both the logic and where the data
    > is actually stored. In fact you can even see the JAPH motto at a
    > glance... and it's not one of those tricks in which you see it at a
    > glance, but then it is extracted and printed by some other means. Good
    > first attempt, but poor obfu attained.


    I don't know that obfu itself is necessarily so important... After all the
    most common by the inventor himself was simply

    print "Just Another Perl Hacker";

    P
     
    Peter Wyzl, Jul 14, 2007
    #6
  7. On Sat, 14 Jul 2007 01:19:32 GMT, "Peter Wyzl" <>
    wrote:

    >I don't know that obfu itself is necessarily so important... After all the
    >most common by the inventor himself was simply
    >
    >print "Just Another Perl Hacker";


    The inventor himself is of the opinion of having shot himself in the
    foot:

    : And this is a bit ironic, since I invented the JAPH, so I've effectively
    : created my own worst enemy here. {grin}
    : - Randal L. Schwartz in PerlMonks.

    See: <http://perlmonks.org/?node_id=603084>


    Michele
    --
    {$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
    (($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
    ..'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
    256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
     
    Michele Dondi, Jul 14, 2007
    #7
  8. da5id

    Peter Wyzl Guest

    "Michele Dondi" <> wrote in message
    news:...
    > On Sat, 14 Jul 2007 01:19:32 GMT, "Peter Wyzl" <>
    > wrote:
    >
    >>I don't know that obfu itself is necessarily so important... After all
    >>the
    >>most common by the inventor himself was simply
    >>
    >>print "Just Another Perl Hacker";

    >
    > The inventor himself is of the opinion of having shot himself in the
    > foot:
    >
    > : And this is a bit ironic, since I invented the JAPH, so I've effectively
    > : created my own worst enemy here. {grin}
    > : - Randal L. Schwartz in PerlMonks.
    >
    > See: <http://perlmonks.org/?node_id=603084>


    indeed, lol

    P
     
    Peter Wyzl, Jul 14, 2007
    #8
  9. >>>>> "Peter" == Peter Wyzl <> writes:

    Peter> I don't know that obfu itself is necessarily so important... After all the
    Peter> most common by the inventor himself was simply

    Peter> print "Just Another Perl Hacker";

    Officially, it's

    print "Just another Perl hacker,"; # note the final comma

    --
    Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
    <> <URL:http://www.stonehenge.com/merlyn/>
    Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
    See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!

    --
    Posted via a free Usenet account from http://www.teranews.com
     
    Randal L. Schwartz, Jul 14, 2007
    #9
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. Toby
    Replies:
    4
    Views:
    1,826
    Mike Treseler
    Sep 7, 2005
  2. Bryan Olson

    Does my RE rock, or suck?

    Bryan Olson, Jul 8, 2004, in forum: Python
    Replies:
    8
    Views:
    336
    Bryan Olson
    Jul 10, 2004
  3. Lawrence D'Oliveiro

    JAPH

    Lawrence D'Oliveiro, Nov 12, 2005, in forum: Python
    Replies:
    2
    Views:
    470
    Michael
    Nov 13, 2005
  4. richard
    Replies:
    2
    Views:
    444
    John Hosking
    Aug 18, 2008
  5. Bryan Castillo

    my first japh

    Bryan Castillo, Jul 7, 2003, in forum: Perl Misc
    Replies:
    1
    Views:
    135
    Bryan Castillo
    Jul 8, 2003
Loading...

Share This Page