Descramble That DVD in 7 Lines



I just posted the article Descramble That DVD in 7 Lines.

Da_Taxman and tha_real_whizard used our newssubmit to tell us:

2 Computer science major’s found a new way to remove the copy protection of DVD’s. Their new program is written in Perl, and…

Read the full article here:  [](

Feel free to add your comments below. 

Please note that the reactions from the complete site will be synched below.


#!/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 $='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


Hmmm why didn’t I think of that?? Seams simple enough :wink:


almost had that… forgot a slash :frowning: that’s why it didn’t work… :wink:


The DVD Country Lock is illegal - at leas´t under German Law! The companies will soon wake up from there sleep of the ignorants! Till