Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Crypto Japh

by liverpole (Monsignor)
on Nov 18, 2005 at 05:43 UTC ( #509695=obfuscated: print w/replies, xml ) Need Help??

This uses a trick I've thought about trying for several weeks, and finally got around to doing.  It turned out much better than I had expected.

After it was working the way I liked, I did a search through past obfuscations at Perlmonks to make sure nobody else had done this before.  The only other submission I found which uses crypt was this one, but its method is significantly different.

One of the nice things about using crypt is that running perl -MO=Deparse on it doesn't give anything away.

(I decided to create a signature based on the idea, too, which I'll use for the first time here).

@::=qw'79 11 34 69 41 27 2 4 4 2 5 4'; @::_=map{$x=pop@::;(crypt$_.' ',shift@::)=~/..(.{$x}).*/g} split/ /, 'writing Library. Building consider TO($FOO) *binary*'; map{print;/^[Hea]/ or print ' '}(@::_,',',$/)

@ARGV=split//,"/:L"; map{print substr crypt($_,ord pop),2,3}qw"PerlyouC READPIPE provides"

Replies are listed 'Best First'.
Re: Crypto Japh
by secret (Beadle) on Dec 06, 2005 at 17:03 UTC
    veRy Nic3 !
    Here is my solution to this riddle ;)

      Very nice analysis++.

      The thing that took the most time was, of course, finding words (and combinations of word fragments) which gave the appropriate crypt results, since crypt is a one-way algorithm.  I was especially surprised when I found the fairly long (5-letter) string "anOTH".

      @ARGV=split//,"/:L"; map{print substr crypt($_,ord pop),2,3}qw"PerlyouC READPIPE provides"

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://509695]
Approved by Tanktalus
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (4)
As of 2021-08-05 09:10 GMT
Find Nodes?
    Voting Booth?
    My primary motivation for participating at PerlMonks is: (Choices in context)

    Results (44 votes). Check out past polls.