Michael Banck dijo [Tue, Oct 07, 2008 at 06:14:23PM +0200]: > > Also, something must patented in which / how many of the 160 juristrictions > > on > > this planet (to apply for this category)? > > "How do you tell if a piece of software violates a patent? Run wc -l on > the source; if the number is greater than 1000, it probably does." > -- Nat Friedman
For positive proof, I'd buy it - but we must remember logical fallacies can be derived from there. If wc > 1000, it surely violates a patent. If wc <= 1000, it might violate a patent anyway. #!/usr/bin/perl # 472-byte qrpff, Keith Winstein and Marc Horowitz #<[EMAIL PROTECTED]> # 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((@a=unqT="C*",_)[20]&48){D=89;_=unqb24,qT,@ b=map{ord qB8,unqb8,qT,[EMAIL PROTECTED];s/...$/1$&/;Q=unqV,qb25,_;H=73;O=$b[4]<<9 |256|$b[3];Q=Q>>8^(P=(E=255)&(Q>>12^Q>>4^Q/8^Q))<<17,O=O>>8^(E&(F=(S=O>>14&7^O) ^S*8^S<<6))<<9,_=(map{U=_%16orE^=R^=110&(S=(unqT,"\xb\ntd\xbz\x14d")[_/16%8]);E ^=(72,@z=(64,72,G^=12*(U-2?0:S&17)),H^=_%64?12:0,@z)[_%8]}(16..271))[_]^((D>>=8 )+=P+(~F&E))[EMAIL PROTECTED],@a}';s/[D-HO-U_]/\$$&/g;s/q/pack+/g;eval -- Gunnar Wolf - [EMAIL PROTECTED] - (+52-55)5623-0154 / 1451-2244 PGP key 1024D/8BB527AF 2001-10-23 Fingerprint: 0C79 D2D1 2C4E 9CE4 5973 F800 D80E F35A 8BB5 27AF -- To UNSUBSCRIBE, email to [EMAIL PROTECTED] with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]