Re: [FWP] Shortening

["Keith Calvert Ivey" <kcivey@cpcug.org>]

------- Forwarded Message Follows -------
To:            "Keith Calvert Ivey" <kcivey@cpcug.org>
Cc:            keithw@MIT.EDU
Subject:       Re: Shortened qrpff.pl (503 bytes)
Date:          Sat, 10 Mar 2001 07:56:13 -0500
From:          Keith Winstein <keithw@MIT.EDU>

> We've had a little discussion on the Fun With Perl list, and 
> this is my contribution.

Hi Keith. Thought you might be interested in seeing our 6-line, 472-byte
implementation, partially thanks to you guys' eliminate-the-dollarsigns
idea. Thanks! (You can pass this on to the list too if you want.)

#!/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((@a=unqT="C*",_)[20]&48){D=89;_=unqb24,qT,@
b=map{ord qB8,unqb8,qT,_^$a[--D]}@INC;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))for@a[128..$#a]}print+qT,@a}';s/[D-HO-U_]/\$$&/g;s/q/pack+/g;eval


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe