in reply to Re^2: a poem
in thread a poem

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"

Replies are listed 'Best First'.
Re^4: a poem
by jdalbec (Deacon) on Jan 07, 2006 at 03:17 UTC
    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];
Re^4: a poem
by chargrill (Parson) on Jan 07, 2006 at 19:49 UTC
    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.