Seven lines of code in Perl, 526 characters called 'qrpff', developed by two MIT students wily Student Information Processing Board (Keith Winstein, 19 years in the photo, and Marc Horowitz) are the fastest so far created to remove the level developed encryption to protect DVDs from unauthorized viewing. Unlike other 'descramblers' does not include the necessary sequence of five bytes (such as 2 153 8105225) to be given to the program for it to work properly, thus violating not in any way the infamous Digital Millennium Copyright Act's the code:
$ _ = '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 = $ d8 ^ ($ f = $ t & ($ d12 ^ $ d4 ^ $ d ^ $ d / 8)) << 17, $ e = $ e8 ^ ($ t & ($ g = ($ q = $ e14 & 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