perl cambazligi. dvd formatini "cozen" (descrambler) 7 satirlik bir program.

programi mit'den keith winstein ve marc horowitz yazmislar. keith winstein motion picture association of america'nin kodamani jack valenti ile yaptigi bir roportajda programi gostermis, soyle bir konusma gecmis aralarinda (keith winstein tt olarak geciyor, roportaji the tech adli okul gazetesi icin yaptigindan):

tt: [...] i run linux on my computer. there’s no product i can buy that’s licensed to watch [dvds]. if i go to blockbuster and rent a movie and watch it, am i a bad person? is that bad?

jv: no, you’re not a bad person. but you don’t have any right.

tt: but i rented the movie. why should it be illegal?

jv: well then, you have to get a machine that’s licensed to show it.

tt: here’s one of these machines; it’s just not licensed.

[winstein shows valenti his six-line “qrpff” dvd descrambler.]

tt: if you type that in, it’ll let you watch movies.

jv: you designed this?

tt: yes.

jv: un-fucking-believable.

programin adi da yaptigi isle ilgili imis. program dvd formatinda kullanilan content scramble system'i (css) cozdugu icin decss'i (de-css yani) alip az dondurmusler^*, qrpff cikmis...

roportaj:

http://www-tech.mit.edu/…0/valentiintervie.20f.html

kod hakkinda:

http://perl.plover.com/qrpff/article-main.html
http://www.wired.com/…chive/9.06/mustread.html?pg=6

kod (buyuk harfler kuculuyor tabi, ilgilenen orijinalini bulmakta zorlanmayacaktir):

$_='while(read+stdin,$_,2048){$a=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=
unxv,xb25,$_;$b=73;$e=256|(ord$b[4])<<9|ord$b[3];$d=$d>>8^($f=($t=255)&($d
>>12^$d>>4^$d^$d/8))<<17,$e=$e>>8^($t&($g=($q=$e>>14&7^$e)^$q*8^$q<<6))<<9
,$_=(map{$_%16or$t^=$c^=($m=(11,10,116,100,11,122,20,100)[$_/16%8])&110;$t
^=(72,@z=(64,72,$a^=12*($_%16-2?0:$m&17)),$b^=$_%64?12:0,@z)[$_%8]}(16..271))
[$_]^(($h>>=8)+=$f+(~$g&$t))for@a[128..$#a]}print+x"c*",@a}';s/x/pack+/g;eval

tisort:

http://www.copyleft.net/…e=product_1175_front.phtml

(st - 1 Mayıs 2004 05:39)