| dbpedia-owl:abstract
|
- qrpff is a Perl script created by Keith Winstein and Marc Horowitz of the MIT SIPB. It performs DeCSS in six or seven lines. The name itself is an encoding of "decss" in rot-13. In fact, two versions of qrpff exist: a short version (6 lines) and a fast version (7 lines). Both appear below. Short: Fast: The fast version is actually fast enough to decode a movie in real-time.
- qrpff es un script escrito en perl por los estudiantes del MIT Keith Winstein y Marc Horowitz, que pertenecen al MIT STIB (M.I.T. Student Information Processing Board, i.e. , Junta de Procesamiento de la Información de Alumnos del MIT) Es una realización del pionero DeCSS con la particularidad de que tiene seis o siete líneas de código, dependiendo de la versión. De hecho el nombre "qrpff" no es más que "decss" en rot-13 Este pequeño programa permite sortear el control que han impuesto a los DVD, el conjunto de la industria cinematográfica, la MPAA, y que impedía su utilización sin la autorización adecuada. Si bien inicialmente el proyecto nació con la intención de permitir a los usuarios de linux reproducir dvds, ya que no se contaba con ningún "reproductor autorizado" para tal sistema operativo, su repercusión fue, evidentemente, mucho mayor. Basados en hecho de que el código no incluye la clave de título de 40 bits que debe introducirse al programa para que este pueda correr, sus creadores aseguran que es totalmente legal y que no viola la DMCA (Digital Millennium Copyright Act - Ley de Derechos de Autor para el Milenio Digital). Ante las posibles ofensiva, la pequeñez del código permite una campaña similiar a la que se realizó con la prohibición de exportación del PGP, pudiendo escribirse en pegatinas auto adhesivos, remeras, firmas de correo, etc. Existen dos versiones del qrpff, una corta y una rápida: Versión corta: #!/usr/bin/perl # 472-byte qrpff, Keith Winstein and Marc Horowitz <sipb-iap-dvd@mit. edu> # MPEG 2 PS VOB file -> descrambled output on stdout. # usage: perl -I <k1>:<k2>:<k3>:<k4>:<k5> qrpff # where k1..k5 are the title key bytes in least to most-significant order s''$/=\2048;while(<>){G=29;R=142;if(&48){D=89;_=unqb24,qT,@ b=map{ord qB8,unqb8,qT,_^$a[--D --D]}@INC;s/... $/1$&/;Q=unqV,qb25,_;H=73;O=$b[4 4]<<9 |256|$b[3 3];Q=Q>>8^(P=&)<<17,O=O>>8^(E&)<<9,_=(map{U=_%16orE^=R^=110&;E ^=})[_ _]^(+=P+)for@a[128.. $#a 128.. $#a]}print+qT,@a}';s/[D-HO-U_ D-HO-U_]/\$$&/g;s/q/pack+/g;eval Versión Rápida: #!/usr/bin/perl -w # 531-byte qrpff-fast, Keith Winstein and Marc Horowitz <sipb-iap-dvd@mit. edu> # MPEG 2 PS VOB file on stdin -> descrambled output on stdout # arguments: title key bytes in least to most-significant order $_='while(read+STDIN,$_,2048){$a=29;$b=73;$c=142;$t=255;@t=map{$_%16or$t^=$c^=($m=)&110;$t^=[$_%8]}(16..271);if(&48){$h =5;$_=unxb24,join"",@b=map{xB8,unxb8,chr($_^$a)}@ARGV;s/... $/1$&/;$ d=unxV,xb25,$_;$e=256|(ord$b)<<9|ord$b[3 3];$d=$d>>8^($f=$t&)<<17,$e=$e>>8^($t&)<<9,$_=$t[$_ $_]^ (+=$f+)for@a[128.. $#a 128.. $#a]}print+x"C*",@a}';s/x/pack+/g;eval La "versión rápida" es, en realidad, lo suficientemente rápida como para poder ver una película con ella.
- qrpffはMIT SIPBのKeith WinsteinとMarc Horowitzによって作られたPerlスクリプトである。 このスクリプトは6行もしくは7行のコードでDeCSSと同じ動作をする。 この名前は "decss"をROT13変換したものである。 事実上二つのバージョンが存在する：短いバージョン（6行）と高速バージョン（7行）。両方を下に示す。 短いバージョン： #!/usr/bin/perl # 472-byte qrpff, Keith Winstein and Marc Horowitz <sipb-iap-dvd@mit. edu> # MPEG 2 PS VOB file -> descrambled output on stdout. # usage: perl -I <k1>:<k2>:<k3>:<k4>:<k5> qrpff # where k1..k5 are the title key bytes in least to most-significant order s''$/=\2048;while(<>){G=29;R=142;if(&48){D=89;_=unqb24,qT,@ b=map{ord qB8,unqb8,qT,_^$a[--D --D]}@INC;s/... $/1$&/;Q=unqV,qb25,_;H=73;O=$b[4 4]<<9 |256|$b[3 3];Q=Q>>8^(P=&)<<17,O=O>>8^(E&)<<9,_=(map{U=_%16orE^=R^=110&;E ^=})[_ _]^(+=P+)for@a[128.. $#a 128.. $#a]}print+qT,@a}';s/[D-HO-U_ D-HO-U_]/\$$&/g;s/q/pack+/g;eval 高速バージョン： #!/usr/bin/perl -w # 531-byte qrpff-fast, Keith Winstein and Marc Horowitz <sipb-iap-dvd@mit. edu> # MPEG 2 PS VOB file on stdin -> descrambled output on stdout # arguments: title key bytes in least to most-significant order $_='while(read+STDIN,$_,2048){$a=29;$b=73;$c=142;$t=255;@t=map{$_%16or$t^=$c^=($m=)&110;$t^=[$_%8]}(16..271);if(&48){$h =5;$_=unxb24,join"",@b=map{xB8,unxb8,chr($_^$a)}@ARGV;s/... $/1$&/;$ d=unxV,xb25,$_;$e=256|(ord$b)<<9|ord$b[3 3];$d=$d>>8^($f=$t&)<<17,$e=$e>>8^($t&)<<9,$_=$t[$_ $_]^ (+=$f+)for@a[128.. $#a 128.. $#a]}print+x"C*",@a}';s/x/pack+/g;eval 高速バージョンはリアルタイム・デコードに十分な速度で動作する。
- Qrpff est un script Perl créé par Keith Winstein et Marc Horowitz du MIT SIPB. Il exécute une décryption CSS en six ou sept lignes de code. Le nom Qrpff est l'encryption de "decss" en ROT13. En fait, il existe deux version de Qrpff, une version courte (6 lignes) et une version rapide (7 lignes) toutes les deux sont données en dessous : Version courte: #!/usr/bin/perl # 472-byte qrpff, Keith Winstein and Marc Horowitz <sipb-iap-dvd@mit. edu> # MPEG 2 PS VOB file -> descrambled output on stdout. # usage: perl -I <k1>:<k2>:<k3>:<k4>:<k5> qrpff # where k1..k5 are the title key bytes in least to most-significant order s''$/=\2048;while(<>){G=29;R=142;if(&48){D=89;_=unqb24,qT,@ b=map{ord qB8,unqb8,qT,_^$a[--D --D]}@INC;s/... $/1$&/;Q=unqV,qb25,_;H=73;O=$b[4 4]<<9 |256|$b[3 3];Q=Q>>8^(P=&)<<17,O=O>>8^(E&)<<9,_=(map{U=_%16orE^=R^=110&;E ^=})[_ _]^(+=P+)for@a[128.. $#a 128.. $#a]}print+qT,@a}';s/[D-HO-U_ D-HO-U_]/\$$&/g;s/q/pack+/g;eval Version rapide: #!/usr/bin/perl -w # 531-byte qrpff-fast, Keith Winstein and Marc Horowitz <sipb-iap-dvd@mit. edu> # MPEG 2 PS VOB file on stdin -> descrambled output on stdout # arguments: title key bytes in least to most-significant order $_='while(read+STDIN,$_,2048){$a=29;$b=73;$c=142;$t=255;@t=map{$_%16or$t^=$c^=($m=)&110;$t^=[$_%8]}(16..271);if(&48){$h =5;$_=unxb24,join"",@b=map{xB8,unxb8,chr($_^$a)}@ARGV;s/... $/1$&/;$ d=unxV,xb25,$_;$e=256|(ord$b)<<9|ord$b[3 3];$d=$d>>8^($f=$t&)<<17,$e=$e>>8^($t&)<<9,$_=$t[$_ $_]^ (+=$f+)for@a[128.. $#a 128.. $#a]}print+x"C*",@a}';s/x/pack+/g;eval La version rapide est assez rapide pour lire un film.
|
