🚀 go-pugleaf

�ngel Su�rez Rivero dijo sobre un_perl_sospechoso,
en fecha: Fri, 25 May 2001 22:05:49 GMT

| #!/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

Pues no se, pero como un d�a me toque mantener un c�digo as� me dedico
a la importaci�n de palillos chinos.

Semi-Offtopic: �Habeis visto la co�a del 'ofuscador de Python'? Pasa
el c�digo a Perl X-DDD

-- 
http://www.escomposlinux.org/fer_y_juanjo/
Nick IRC: Kane o Akabao