plese explain?
----- Original Message -----
From: "William F. Acker WB2FLW +1-303-777-8123" <wacker@xxxxxxxxxxxxx>
To: "SPEAKUP Distribution List" <speakup at speech.braille.uwo.ca>
Sent: Thursday, July 26, 2001 12:10 AM
Subject: [Lilug] DMCA petition (fwd)
Hi all,
Thought you folks would like to see, and possibly act upon this.
If
this is a dup, please forgive, I'm about 260 msgs behind.
---------- Forwarded message ----------
Date: Wed, 25 Jul 2001 17:12:47 -0400 (EDT)
From: Matt <odinson@xxxxxxxxxxxx>
Reply-To: lilug at lilug.org
To: lilug at lilug.org
Subject: [Lilug] DMCA petition
Hello all
I have added a few lines to my .sig (like it wasn't long enough
:) including the link to a DMCA petition. Please sign it if you don't
agree with this law.
http://www.dibona.com/dmca/
Matthew Newhall
President of LILUG
Long Island Linux Users Group
president at lilug.org
http://lilug.org
------------------------------------------------------------------------
Please sign a petition to repeal the DMCA. http://www.dibona.com/dmca/
The following code is a PERL script capable of decoding a encrypted DVD
(necessary to watch a DVD on a Linux machine) in real time. This is
illegal to use according to the Digital Millennium Copyright Act, a set
of
laws passed by anonymous vote in congress in 1998. The MPAA feels that
they must stop you from using this code to watch DVD movies because
then...
...they can't charge extraneous license fees to DVD player creators,
...they can't force you to watch the commercials,
...they can't charge you more money according to your wealth or region
code.
$_='while(read+STDIN,$_,2048){$a=29;$b=73;$c=142;$t=255;@t=map{$_%16or$t
^=$c^=(
$m=(11,10,116,100,11,122,20,100)[$_/16%8])&110;$t^=(72, at z=(64,72,$a^=12*
($_%16
-2?0:$m&17)),$b^=$_%64?12:0, at z)[$_%8]}(16..271);if((@a=unx"C*",$_)[20]&4
8){$h
=5;$_=unxb24,join"", at b=map{xB8,unxb8,chr($_^$a[--$h+84])}@ARGV;s/...$/1$
&/;$
d=unxV,xb25,$_;$e=256|(ord$b[4])<<9|ord$b[3];$d=$d>>8^($f=$t&($d>>12^$d>
>4^
$d^$d/8))<<17,$e=$e>>8^($t&($g=($q=$e>>14&7^$e)^$q*8^$q<<6))<<9,$_=$t[$_
]^
(($h>>=8)+=$f+(~$g&$t))for at a[128..$#a]}print+x"C*", at a}';s/x/pack+/g;eval
If you are interested in learning more about how to create your own DVD
decoder you can take the authors class on the subject at MIT
http://www.mit.edu/iap/dvd
If you want to help fight this far reaching legislation or defend fair
use in
general, donate to the Electronic Frontier Foundation http://www.eff.org
_______________________________________________
Lilug mailing list
Lilug at lilug.org
http://www.lilug.org/mailman/listinfo/lilug
_______________________________________________
Speakup mailing list
Speakup at braille.uwo.ca
http://speech.braille.uwo.ca/mailman/listinfo/speakup
