[FWP] Re: DNA.pm

[Brent Michalski <brent@perlguy.net> (by way ofowner-fwp@technofile.org)]

>From fwp-l@cfcl.com Sun Apr  1 11:26:57 2001
Received: from mail.perlguy.net ([12.25.234.71])
	by cfcl.com (8.11.1/8.11.1) with ESMTP id f31IQtV45769
	for <fwp@technofile.org>; Sun, 1 Apr 2001 11:26:56 -0700 (PDT)
	(envelope-from brent@perlguy.net)

At 06:17 PM 4/1/01 +0100, Michael G Schwern wrote:

>DESCRIPTION
>     So you say you're a rabid Perl programmer? You've got a Camel tattooed
>     on your arm. You took your wife to TPC for your second honeymoon. But
>     you're worried about your children, they might not be such devoted Perl
>     addicts. How do you guarantee the continuation of the line? Until now,
>     there was no solution (what, do you think they teach Perl in school?!)

And, may I ask, what is wrong with having a camel tattooed on your arm?!

-brent

Perl DeCSS code. Allows you to play DVDs that you OWN under Linux.

$_='$/=\2048;while(<STDIN>){k=29;c=142;if((@a=unx"C*",_)[20]&48){h=5;_=
unxb24,join"",@b=map{xB8,unxb8,chr(_^$a[--h+84])}@ARGV;s/...$/1$&/;d=unx
V,xb25,_;l=73;e=256|(ord$b[4])<<9|ord$b[3];d=d>>8^(f=(r=255)&(d>>12^d>>4
^d^d/8))<<17,e=e>>8^(r&(g=(q=e>>14&7^e)^q*8^q<<6))<<9,_=(map{_%16or+r^=
c^=(m=(11,10,116,100,11,122,20,100)[_/16%8])&110;r^=(72,@z=(64,72,k^=12
*(_%16-2?0:m&17)),l^=_%64?12:0,@z)[_%8]}(16..271))[_]^((h>>=8)+=f+(~g&r
))for@a[128..$#a]}print+x"C*",@a}';s/x/pack+/g;s/\b[c-r_]\b/\$$&/g;eval

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe