{"id":50,"date":"2001-03-09T13:10:00","date_gmt":"2001-03-09T16:10:00","guid":{"rendered":""},"modified":"2014-03-25T17:36:25","modified_gmt":"2014-03-25T20:36:25","slug":"eu_adoro_o_larry_wall","status":"publish","type":"post","link":"http:\/\/www.charles.pilger.com.br\/blog\/archives\/50","title":{"rendered":"Eu adoro o Larry Wall!"},"content":{"rendered":"

\u00c9 para gostar ou n\u00e3o do Perl? Olhe s\u00f3 esse c\u00f3digo criado por dois estudantes do MIT<\/a>, que quebra o c\u00f3digo de prote\u00e7\u00e3o do DVD:<\/p>\n

Smallest version:
\n#!\/usr\/bin\/perl -w
\n# 526-byte qrpff, Keith Winstein and Marc Horowitz <sipb-iap-dvd@mit.edu>
\n# MPEG 2 PS VOB file on stdin -> descrambled output on stdout
\n# arguments: title key bytes in least to most-significant order
\n$_=\u201awhile(read+STDIN,$_,2048){$a=29;$c=142;if((@a=unx\"C*\",$_)[20]&48){$h=5;
\n$_=unxb24,join\"\",@b=map{xB8,unxb8,chr($_^$a[--$h+84])}@ARGV;s\/...$\/1$&\/;$d=
\nunxV,xb25,$_;$b=73;$e=256|(ord$b[4])<<9|ord$b[3];$d=$d>>8^($f=($t=255)&($d
\n>>12^$d>>4^$d^$d\/8))<<17,$e=$e>>8^($t&($g=($q=$e>>14&7^$e)^$q*8^$q<<6))< ,$_=(map{$_%16or$t^=$c^=($m=(11,10,116,100,11,122,20,100)[$_\/16%8])&110;$t
\n^=(72,@z=(64,72,$a^=12*($_%16-2?0:$m&17)),$b^=$_%64?12:0,@z)[$_%8]}(16..271))
\n[$_]^(($h>>=8)+=$f+(~$g&$t))for@a[128..$#a]}print+x\"C*\",@a}\u201a;s\/x\/pack+\/g;eval
\n<\/tt><\/p><\/blockquote>\n

Se a gente for comparar o c\u00f3digo fonte em C<\/a> para fazer a mesma opera\u00e7\u00e3o temos v\u00e1rias e v\u00e1rias linhas… Ok, algu\u00e9m pode at\u00e9 dizer que esse \u00e9 o mesmo caso dos one line programs<\/b> feitos em Basic (quem lia a revista Micro Sistemas deve se lembrar deles), mas o fato \u00e9 que \u00e9 um c\u00f3digo realmente enxuto. Um dia desses ainda vou ter um DVD para fazer um teste de performance. Se o Perl ganhar da\u00ed \u00e9 ir pr\u00e1 galera…<\/p>\n","protected":false},"excerpt":{"rendered":"

\u00c9 para gostar ou n\u00e3o do Perl? Olhe s\u00f3 esse c\u00f3digo criado por dois estudantes do MIT, que quebra o c\u00f3digo de prote\u00e7\u00e3o do DVD: Smallest version: #!\/usr\/bin\/perl -w # 526-byte qrpff, Keith Winstein and Marc Horowitz <sipb-iap-dvd@mit.edu> # MPEG 2 PS VOB file on stdin -> descrambled output on stdout # arguments: title key […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[1],"tags":[],"_links":{"self":[{"href":"http:\/\/www.charles.pilger.com.br\/blog\/wp-json\/wp\/v2\/posts\/50"}],"collection":[{"href":"http:\/\/www.charles.pilger.com.br\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.charles.pilger.com.br\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.charles.pilger.com.br\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.charles.pilger.com.br\/blog\/wp-json\/wp\/v2\/comments?post=50"}],"version-history":[{"count":4,"href":"http:\/\/www.charles.pilger.com.br\/blog\/wp-json\/wp\/v2\/posts\/50\/revisions"}],"predecessor-version":[{"id":232975,"href":"http:\/\/www.charles.pilger.com.br\/blog\/wp-json\/wp\/v2\/posts\/50\/revisions\/232975"}],"wp:attachment":[{"href":"http:\/\/www.charles.pilger.com.br\/blog\/wp-json\/wp\/v2\/media?parent=50"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.charles.pilger.com.br\/blog\/wp-json\/wp\/v2\/categories?post=50"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.charles.pilger.com.br\/blog\/wp-json\/wp\/v2\/tags?post=50"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}