in reply to a poem

I'm really not sure why this got posted here.  It's just a copy of a response of mine in this thread, which is also at Perlmonks ...??

Update:  Oh, and the strange newline which ambrus mentioned was caused by a newline which got introduced into the code.  Now I'm curious -- was this actually on the Internet somewhere, and ironically made its way back to the same place it came from?  Hey, Anonymous Monk, where did you find this?


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

Replies are listed 'Best First'.
Re^2: a poem
by chargrill (Parson) on Jan 05, 2006 at 21:43 UTC
    Yes, I was pretty sure I had seen it recently as well: Re: perl v/s C

    (Sorry, I know I'm replying to your message where you point this out, but I went through the trouble of finding it before reading that you had already replied, liverpole)

    The line by line comparison I did shows the newline:

    ,"'!?!_`,='!?!_='w+_'=+-'w~((~_/&$/","!~/,`,=!~/,`=(+~> '=+-(~<k~_/&="
    Just do a super search for: "eintsrahgldmfopv" and you'll see it soon enough.
      That was clever, searching for "eintsrahgldmfopv" (sounds like a combination of German and Russian both -- I wonder what it might mean?).  I'll have to see whether I can work that word into another obfuscation sometime, just so I can search for it at Perlmonks.

      By the way, I notice you wrote posted your own first obfuscation not too long ago, chargrill -- welcome to the club!


      @ARGV=split//,"/:L"; map{print substr crypt($_,ord pop),2,3}qw"PerlyouC READPIPE provides"
        Only mildly obfuscated, but...
        #! /usr/bin/perl use strict; use warnings; $a = 'eintsrahgldmfopv'; ($b = join '', ('a'..'z')) =~ s/[$a]//g; eval "(\$b = \$a) =~ y/a-z/$a$b/"; @_ = split //, qq($a, $b); print @_[22,33,18,28,17,6,2,13,3,7,24,30,17,31,0,5,9,17,25,26,23,21,24 +,5,16];
        Well, I've been combing the obfuscated code node for some time looking for inspiration and techniques beyond lack of whitespace and single digit var names. I don't recall if I've had the opportunity to sample some of your techniques, but you can be certain that if anyone has posted code or replies in this node in the last year or so, I've read it.

        Your particular obfuscation of the 12 days of christmas stuck out in my mind as it's one of the several that I didn't even attempt to deobfuscate :) As I saw the general form of AM's obfu, it struck me as being familiar. I wondered if it was lifted directly from something else I had read. since there doesn't seem to be much similarity in strings people stick into obfu's for ~tr///, I figured if anything was lifted, that might be the clue.