🚀 go-pugleaf

El Fri, 25 May 2001 23:05:43 +0100, �ngel Su�rez Rivero escribi�:
>This is a multi-part message in MIME format.
>--------------B069FABAE6396E4AC5A528E9
>Content-Type: text/plain; charset=iso-8859-1
>Content-Transfer-Encoding: 8bit
>
>lo cierto es que a una respuesta de mis preguntas en,
>"comp.os.linux.development.apps", alguien me contesto a mi correo sin
>pedirlo, respondi�ndome a la cuesti�n, pero que como firma adjuntaba un
>perl, que por acojone todav�a no lo he ejecutado, y que en principio no
>tiene nada que ver con la pregunta, que era de C. Al mismo tiempo la
>curiosidad me mata. Alguien podr�a decirme que co�o hace el perl en
>cuesti�n.


Hola...

se me ocurri� poner la primera cadena en google...

$_=3D'while(read+STDIN,$_,2048){$a=3D29;$b=3D73;$c=3D142;$t=3D255;@t=3Dma=

y encontr� algo como esto ...
----------------------------------------------
http://www.lilug.org/pipermail/lilug/2001-April/002362.html

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 o=
f
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...

=2E..they can't charge extraneous license fees to DVD player creators,
=2E..they can't force you to watch the commercials,
=2E..they can't charge you more money according to your wealth or region =

code.

$_=3D'while(read+STDIN,$_,2048){$a=3D29;$b=3D73;$c=3D142;$t=3D255;@t=3Dma=
p{$_%16or$t^=3D$c^=3D(
$m=3D(11,10,116,100,11,122,20,100)[$_/16%8])&

-----------------------------------------
Saludos desde Tenerife