;$A="H"
;$=.=/A/
                    -65 #
;$;=$A.$;
;$#{($;or$A)}="J"
;$_=$#{_}- 
                      -75 #
;chr                 
;print chr
;$;=~s|^(H).|AP$1|;
;print$;;
                          -85 #

[download]

meaningless i tell u.... MEANINGLESS!!

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
i would slit my wrists for you

Replies are listed 'Best First'.
Re: mostly everything in the world is meaningless
by monkfish (Pilgrim) on May 14, 2002 at 04:50 UTC
    I like writing obfu'd JAPHS myself (JAJAPH and Password cracker) so I thought I would defu "meaningless" for others.

    Spoiler

    What follows is the code rewritted and slightly editted for clarity with comments explaining what is going on.

    Select the text to read it. 

    $A  = "H";           # $A is "H"
$= .= /A/-65;        # leave $= set to its default of 60. Just misdire
+ction.
$; = $A.$; ;         # $; is "H"
$#{($;or$A)}="J";    # Set the last index value of @H to J. Just misdi
+rection.
$_=$#{_}- -75;       # The index of the last element @_ is -1 + 75 so 
+$_ is 74
chr;                 # return true (Do nothing)
print chr;           # Print char corresponding to ascii value 74 that
+ is "J"
$; =~ s/^(H)./AP$1/; # Change $; from H to APH
print $; ;           # Print $; that is APH
-85                  # Return false. Game over.

    [download]
    -monkfish (The Fishy Monk)

[reply]
[d/l]

      your jajaph is FAR FAR FAR better than my meaningless crap here!!! anybody reading my japh.. don't give me any credit coz monkfish is way bloody better than me!! ps. i'm drunk

      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      i would slit my wrists for you
[reply]

Back to Obfuscated Code