#!/usr/bin/perl -w
# 531-byte qrpff-fast, Keith Winstein and Marc Horowitz <sipb-iap-dvd@mit.edu>
# MPEG 2 PS VOB file on stdin -> descrambled output on stdout
# arguments: title key bytes in least to most-significant order
&#36_='while(read+STDIN,&#36_,2048){&#36a=29;&#36b=73;&#36c=142;&#36t=255;@t=map{&#36_%16or&#36t^=&#36c^=(
&#36m=(11,10,116,100,11,122,20,100)[&#36_/16%8])&110;&#36t^=(72,@z=(64,72,&#36a^=12*(&#36_%16
-2?0:&#36m&17)),&#36b^=&#36_%64?12:0,@z)[&#36_%8]}(16..271);if((@a=unx"C*",&#36_)[20]&48){&#36h
=5;&#36_=unxb24,join"",@b=map{xB8,unxb8,chr(&#36_^&#36a[--&#36h+84])}@ARGV;s/...&#36/1&#36&/;&#36
d=unxV,xb25,&#36_;&#36e=256|(ord&#36b[4])<<9|ord&#36b[3];&#36d=&#36d>>8^(&#36f=&#36t&(&#36d>>12^&#36d>>4^
&#36d^&#36d/8))<<17,&#36e=&#36e>>8^(&#36t&(&#36g=(&#36q=&#36e>>14&7^&#36e)^&#36q*8^&#36q<<6))<<9,&#36_=&#36t[&#36_]^
((&#36h>>=8)+=&#36f+(~&#36g&&#36t))for@a[128..&#36#a]}print+x"C*",@a}';s/x/pack+/g;eval