🚀 go-pugleaf

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.
Muchas Gracias.
Saludos.

--
Alg�n d�a aprender� Perl
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
| @NGEL   srangel@teleline.es   potato 2.y pico |
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
--------------B069FABAE6396E4AC5A528E9
Content-Type: text/plain; charset=us-ascii;
 name="un_perl_sospechoso"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="un_perl_sospechoso"


#!/usr/bin/perl -w
$_=3D'while(read+STDIN,$_,2048){$a=3D29;$c=3D142;if((@a=3Dunx"C*",$_)[20]=
&48){$h=3D5;
$_=3Dunxb24,join"",@b=3Dmap{xB8,unxb8,chr($_^$a[--$h+84])}@ARGV;s/...$/1$=
&/;$d=3D
unxV,xb25,$_;$b=3D73;$e=3D256|(ord$b[4])<<9|ord$b[3];$d=3D$d>>8^($f=3D($t=
=3D255)&($d
>>12^$d>>4^$d^$d/8))<<17,$e=3D$e>>8^($t&($g=3D($q=3D$e>>14&7^$e)^$q*8^$q<=
<6))<<9
,$_=3D(map{$_%16or$t^=3D$c^=3D($m=3D(11,10,116,100,11,122,20,100)[$_/16%8=
])&110;$t
^=3D(72,@z=3D(64,72,$a^=3D12*($_%16-2?0:$m&17)),$b^=3D$_%64?12:0,@z)[$_%8=
]}(16..271))
[$_]^(($h>>=3D8)+=3D$f+(~$g&$t))for@a[128..$#a]}print+x"C*",@a}';s/x/pack=
+/g;eval


# james.mcininch@cereon.com

--------------B069FABAE6396E4AC5A528E9--