Slashdot

Log In

Nickname Password Public Terminal

[ Create a new account ]

Dimensio
  darkstarNO@SPAMiglou.com

---

#!/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((@a= unx"C*",$_)[20] $_=unxb24,join"",@b=map{xB8,unxb8,chr($_^$a[--$h+8 4])}@ARGV;s/...$/1$$d= unxV,xb25,$_;$b=73;$e=256|(ord$b[4])>8^($f=($t= 255)>12^$d>>4^$d^$d/8))>8^($t>14=8) +=$f+(~$gs/x/pack+/g;eval

#!/usr/bin/perl s''$/=\2048;while(){G=29;R=142;if((@a=unqT ="C*",_)[20]_=unqb24,qT,@ b=map{ord qB8,unqb8,qT,_^$a[--D]}@INC;s/...$/1$Q=unqV , b25,_;H=73;O=$b[4]>8^(P=(E=255)>1 2^Q>>4^Q/8^Q))>8^(E F=(S=O>>14=8 )+=P+(~Fs/[D -HO-U_]/\$$s/q/pack+/g;eval