LITTLEBLACKDOG.COM

Posted: Mon Mar 12, 2001 1:28 pm Post subject:

I see you guys got the Perl script for DVD.

BAD DOGGIE BAD

-Geekboy

Toilet Drinker Joined: 08 Mar 2001 Posts: 350

i caught that too Wink Smile

Posted: Mon Mar 12, 2001 1:41 pm Post subject:

saw that too. Did you get the t-shirt?
Speaking of T-shirts when is the LittleWhiteDog stuff gonna be available. Confused

:

Posted: Mon Mar 12, 2001 6:37 pm Post subject:

DVD good. Encryption bad.

As far as the T's go and everytihng else we are getting..... we are waiting for the money that we should be getting any day now. As soon as that comes in, the T's do too. Waiting...waiting...waiting...

- Spot
Spot@LittleWhiteDog.com

"AssPunching is not allowed!"

Butt Sniffer Joined: 24 Oct 2000 Posts: 1545 Location: USA

Quote:
I see you guys got the Perl script for DVD.

BAD DOGGIE BAD

Wanna clue the rest of us in Confused

:

Posted: Mon Mar 12, 2001 7:16 pm Post subject:

There was an article about this last week on slashdot.org

http://slashdot.org/article.pl?sid=01/03/06/1954213&mode=thread

7 line Perl Script to descramble DVD. Pretty wild huh?
Here's the script:

$_='while(read+STDIN,$_,2048){$a=29;$c=142;if((@a=unx"C*",$_)[20]&4 Cool

{$h=5;
$_=unxb24,join"",@b=map{xB8,unxb8,chr($_^$a[--$h+84])}@ARGV;s/...$/1$&/;$d=
unxV,xb25,$_;$b=73;$e=256|(ord$b[4])<<9|ord$b[3];$d=$d>>8^($f=($t=255)&($d
>>12^$d>>4^$d^$d/ Cool

)<<17,$e=$e>>8^($t&($g=($q=$e>>14&7^$e)^$q*8^$q<<6))<<9
,$_=(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))
[$_]^(($h>>= Cool

+=$f+(~$g&$t))for@a[128..$#a]}print+x"C*",@a}';s/x/pack+/g;eval

-Geekboy

Posted: Mon Mar 12, 2001 7:25 pm Post subject:

I think the guy that actually made the code did so to copy the DVD without the geographic region specific code key. Then the DVD can be played in any player sold in any country.

Posted: Thu Mar 15, 2001 4:47 pm Post subject:

slashdot.org just posted even smaller code:

/* efdtt.c Author: Charles M. Hannum <root@ihack.net> */
/* */
/* Usage is: cat title-key scrambled.vob | efdtt >clear.vob */

#define K(i)(x[i]^s[i+84])<<
unsigned char x[5],y,z,s[2048];main(n){for(read(0,x,5);read(0,s,n=2048);write(1
,s,n))if(s[y=s[13]%8+20]/16%4==1){int i=K(1)17^256+K(0)8,k=K(2)0,j=K(4)17^K(3)9
^k*2-k%8^8,a=0,b=0,c=26;for(s[y]-=16;--c;i/=2,j/=2)a=a*2^i&1,b=b*2^j&1;for(j=
127;++j<n;c=z+c>y)a^=a>>14,a=a>>8^(y=a^a*8^a<<6)<<9,b=b>>8^(z=b^b/8^b>>4^b>>12)
<<17,i=s[j],i="7Wo~'G_\216"[i&7]+2^"cr3sfw6v;*k+>/n."[i>>4]*2^i*257/8,s[j]=i^(i
&i*2&34)*6^z+c+~y;}}

-Geekboy

Code: Select all

Quote:

Code: Select all