Re: [Fun With Perl] One of those fancy .sig files

[Richard Proctor <Richard@waveney.demon.co.uk>]

On Mon 07 Jun, Vicki Brown wrote:
> One of the more common ways to have "fun with Perl" is the 
> obfuscation of the signature file. I had been trying _very_ hard to 
> simply ignore Russ Albery's version :-) :-) when a co-worker chanced 
> upon it and forwarded it to me.
> 
># At 12:53 -0800 2/12/99, my co-worker wrote:
>> I'm not going to actually try to figure this out, but, um:
>>
>>
>> #!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
>> $^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
>>  00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
>> rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
>>
>>                                                  ^
>>                                                  |
>>                                                  why does it even *see*
>> the print statement?
> 
> 
> I worked it through... and also sent my solution to Russ who wrote 
> back with the answer that he posts when people write to him and 
> say... "huh?!".
> 
> Russ has given me his permission to use his sig (and his 
> exp,lanation) here, so... I'll let ya'll ponder for a bit (it's not 
> as much fun if the answer is posted with the quiz :-)
> 
> Now some of you, of course, know the answer already. Your job is to 
> give us a puzzle of your own :-)
> 

I worked through his sig one idle afternoon last year - instructive isn't it!

Anyway here is my most convolouted offering:

for(0..119){($/*=2)+=(vec'NAJE&$KW#RJPTHD IP,^',$_%5+5*int$_/30,8
)>>$_/5%6&1;if($_%5>3){print$/?chr$/+($%?96:64):' ';$%=$/;$/=0}}

-- 

Richard@waveney.demon.co.uk
split//,'ecHle etn sJutaohrPr akr';print splice@_,$#_/2,1while@_


==== Want to unsubscribe from this list? (Don't you love us anymore?)
==== Well, if you insist... Send mail with body "unsubscribe" to
==== fwp-request@technofile.org