From owner-freebsd-chat Thu Mar 15 5:43:50 2001 Delivered-To: freebsd-chat@freebsd.org Received: from riker.skynet.be (riker.skynet.be [195.238.3.132]) by hub.freebsd.org (Postfix) with ESMTP id 5F03037B719 for ; Thu, 15 Mar 2001 05:43:47 -0800 (PST) (envelope-from brad.knowles@skynet.be) Received: from [194.78.241.123] ([194.78.241.123]) by riker.skynet.be (8.11.2/8.11.2/Skynet-OUT-2.11) with ESMTP id f2FDhZT16488; Thu, 15 Mar 2001 14:43:35 +0100 (MET) (envelope-from ) Mime-Version: 1.0 X-Sender: bs663385@pop.skynet.be Message-Id: In-Reply-To: <200103150446.f2F4kke76575@grumpy.dyndns.org> References: <200103150446.f2F4kke76575@grumpy.dyndns.org> Date: Thu, 15 Mar 2001 14:32:02 +0100 To: David Kelly , Garrett Wollman From: Brad Knowles Subject: Re: [OT?] - Central point router Cc: chat@FreeBSD.ORG Content-Type: text/plain; charset="us-ascii" ; format="flowed" Sender: owner-freebsd-chat@FreeBSD.ORG Precedence: bulk X-Loop: FreeBSD.org At 10:46 PM -0600 3/14/01, David Kelly wrote: > I always favored Beagle Bros products myself. Oh, man. Their ProntoDOS was the absolute coolest. It sliced bread about a half dozen different ways, and if you wanted to toast the bread as well, there were plenty of other packages that Beagle Bros. sold that could do that, too. -- Brad Knowles, #!/usr/bin/perl -w # 531-byte qrpff-fast, 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 # Usage: # qrpff 153 2 8 105 225 /mnt/dvd/VOB_FILE_NAME | extract_mpeg2 | mpeg2_dec - $_='while(read+STDIN,$_,2048){$a=29;$b=73;$c=142;$t=255;@t=map{$_%16or$t^=$c^=( $m=(11,10,116,100,11,122,20,100)[$_/16%8])&110;$t^=(72,@z=(64,72,$a^=12*($_%16 -2?0:$m&17)),$b^=$_%64?12:0,@z)[$_%8]}(16..271);if((@a=unx"C*",$_)[20]&48){$h =5;$_=unxb24,join"",@b=map{xB8,unxb8,chr($_^$a[--$h+84])}@ARGV;s/...$/1$&/;$ d=unxV,xb25,$_;$e=256|(ord$b[4])<<9|ord$b[3];$d=$d>>8^($f=$t&($d>>12^$d>>4^ $d^$d/8))<<17,$e=$e>>8^($t&($g=($q=$e>>14&7^$e)^$q*8^$q<<6))<<9,$_=$t[$_]^ (($h>>=8)+=$f+(~$g&$t))for@a[128..$#a]}print+x"C*",@a}';s/x/pack+/g;eval To Unsubscribe: send mail to majordomo@FreeBSD.org with "unsubscribe freebsd-chat" in the body of the message