Does my JAPH suck?
da5id
one...
Comments anyone?
map{print "$_ "}split(/\d/, join('', map /(\w|\d)\w/gi, qw(Jaubsctd1a
Aenfogthhiejrk2b Plemrmln3c Hoapcqkresrt4d)));
kra...@visto.com
> Perhaps not the most original, but at least now I can say I have
> one...
>
> Comments anyone?
Yea... You wasted your time accomplishing nothing...
Uri Guttman
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 ------ u...@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
Michele Dondi
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
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...
Peter Wyzl
news:n8ef93pkfiaqqtvsi...@4ax.com...
> On Fri, 13 Jul 2007 16:02:23 -0000, da5id <david.s...@gmail.com>
> 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
Michele Dondi
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>
Peter Wyzl
> On Sat, 14 Jul 2007 01:19:32 GMT, "Peter Wyzl" <wyz...@yahoo.com>
> 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
Randal L. Schwartz
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
<mer...@stonehenge.com> <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
Sherm Pendley
> On Sat, 14 Jul 2007 01:19:32 GMT, "Peter Wyzl" <wyz...@yahoo.com>
> 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.
Given that his JAPHs were used as evidence against him - "Look, your honor,
he's one of those evil hackers! He brags about it!" - I can understand the
sentiment.
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net