Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re^5: Amusement Japh

by Skeeve (Vicar)
on Oct 13, 2015 at 12:50 UTC ( #1144696=note: print w/replies, xml ) Need Help??


in reply to Re^4: Amusement Japh
in thread Amusement Japh

So how am I supposed to run it? It didn't even run on linux (RHEL) when calling perl japh where I copied the code into a file called "japh".

It just finishes without any output at all.


s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e

Replies are listed 'Best First'.
Re^6: Amusement Japh
by golux (Hermit) on Oct 13, 2015 at 14:58 UTC
    Hi Skeeve,

    It works for me on RHEL 6.3 (32-bit) running perl v5.10.1, and with the command you are using: "perl japh".

    Make sure you get all the lines, including the 3 at the bottom of the program (they are vital to the decoding of the obfuscation).

    If you'd like send me a message and maybe we can figure out why it's not working.

    Update:   problem solved -- the Tk module was not installed.

    say  substr+lc crypt(qw $i3 SI$),4,5

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1144696]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (3)
As of 2018-05-22 00:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?