I figured I should write a JAPH someday, so today was that day. Let me know what you think of it. This is my first attempt at obfuscated perl code.
$_=q,$Ju=$_;s/([\t_\W\d \a\n])/other($1)/ge;for $per(@l) {hack(s/$per/
+/)},;
@l=split /(?!..(?:...)*$)/,"Wordefgspy";sub hack {print$_,$/ unless$_[
+0]};
eval;sub other{$_[0]=~/(\s)/&&$1;}

[download]


-Ted

Replies are listed 'Best First'.
RE: Yet another JAPH
by t-man (Initiate) on Nov 03, 2000 at 01:06 UTC
    cool man, but how many times do I have to tell you to comment!!1
[reply]
      The only purpose of comments in a JAPH script is to confuse and delude the reader. :) If anyone is interested in an explanation, I can give one however.

      -Ted
[reply]

Back to Obfuscated Code