#!/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>8^(…