Dimensio darkstar@NOspaM.iglou.com
#!/usr/bin/perl -w
# 526-byte qrpff, Keith Winstein and Marc Horowitz
# MPEG 2 PS VOB file on stdin -> descrambled output on stdout
# arguments: title key bytes in least to most-significant order
$_='while(read+STDIN,$_,2048){$a=29;$c=142;if((@a
= unx"C*",$_)[20]
$_=unxb24,join"",@b=map{xB8,unxb8,chr($_^$a[--$h+
8 4])}@ARGV;s/...$/1$$d=
unxV,xb25,$_;$b=73;$e=256|(ord$b[4])>8^($f=($t= 255)>12^$d>>4^$d^$d/8))>8^($t>14=8) +=$f+(~$gs/x/pack+/g;eval
#!/usr/bin/perl
s''$/=\2048;while(){G=29;R=142;if((@a=unqT ="C*",_)[20]_=unqb24,qT,@
b=map{ord qB8,unqb8,qT,_^$a[--D]}@INC;s/...$/1$Q=unqV , b25,_;H=73;O=$b[4]>8^(P=(E=255)>1 2^Q>>4^Q/8^Q))>8^(E F=(S=O>>14=8
)+=P+(~Fs/[D -HO-U_]/\$$s/q/pack+/g;eval
