git.sesse.net Git - vlc/blob - modules/access/rtsp/real.c

   1 /*****************************************************************************
   2  * real.c: real rtsp input
   3  *****************************************************************************
   4  * Copyright (C) 2002-2004 the xine project
   5  * Copyright (C) 2005 VideoLAN
   6  * $Id$
   7  *
   8  * Authors: Gildas Bazin <gbazin@videolan.org>
   9  *          Adapted from xine which itself adapted it from joschkas real tools.
  10  *
  11  * This program is free software; you can redistribute it and/or modify
  12  * it under the terms of the GNU General Public License as published by
  13  * the Free Software Foundation; either version 2 of the License, or
  14  * (at your option) any later version.
  15  *
  16  * This program is distributed in the hope that it will be useful,
  17  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  18  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19  * GNU General Public License for more details.
  20  *
  21  * You should have received a copy of the GNU General Public License
  22  * along with this program; if not, write to the Free Software
  23  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
  24  *****************************************************************************/
  25
  26 #include <vlc/vlc.h>
  27
  28 #include "rtsp.h"
  29 #include "real.h"
  30 #include "real_sdpplin.h"
  31
  32 const unsigned char xor_table[] = {
  33     0x05, 0x18, 0x74, 0xd0, 0x0d, 0x09, 0x02, 0x53,
  34     0xc0, 0x01, 0x05, 0x05, 0x67, 0x03, 0x19, 0x70,
  35     0x08, 0x27, 0x66, 0x10, 0x10, 0x72, 0x08, 0x09,
  36     0x63, 0x11, 0x03, 0x71, 0x08, 0x08, 0x70, 0x02,
  37     0x10, 0x57, 0x05, 0x18, 0x54, 0x00, 0x00, 0x00 };
  38
  39 #define BE_32(x) GetDWBE(x)
  40 #define LE_32(x) GetDWLE(x)
  41 #define BE_16(x) GetWBE(x)
  42 #define LE_16(x) GetWLE(x)
  43 #define BE_32C(x,y) do {uint32_t in=y; *(uint32_t *)(x)=GetDWBE(&in);} while(0)
  44 #define LE_32C(x,y) do {uint32_t in=y; *(uint32_t *)(x)=GetDWLE(&in);} while(0)
  45 #define MAX(x,y) ((x>y) ? x : y)
  46
  47
  48 static void hash(char *field, char *param)
  49 {
  50   uint32_t a, b, c, d;
  51
  52   /* fill variables */
  53   a = LE_32(field);
  54   b = LE_32(field+4);
  55   c = LE_32(field+8);
  56   d = LE_32(field+12);
  57
  58   lprintf("hash input: %x %x %x %x\n", a, b, c, d);
  59   lprintf("hash parameter:\n");
  60
  61   a = ((b & c) | (~b & d)) + LE_32((param+0x00)) + a - 0x28955B88;
  62   a = ((a << 0x07) | (a >> 0x19)) + b;
  63   d = ((a & b) | (~a & c)) + LE_32((param+0x04)) + d - 0x173848AA;
  64   d = ((d << 0x0c) | (d >> 0x14)) + a;
  65   c = ((d & a) | (~d & b)) + LE_32((param+0x08)) + c + 0x242070DB;
  66   c = ((c << 0x11) | (c >> 0x0f)) + d;
  67   b = ((c & d) | (~c & a)) + LE_32((param+0x0c)) + b - 0x3E423112;
  68   b = ((b << 0x16) | (b >> 0x0a)) + c;
  69   a = ((b & c) | (~b & d)) + LE_32((param+0x10)) + a - 0x0A83F051;
  70   a = ((a << 0x07) | (a >> 0x19)) + b;
  71   d = ((a & b) | (~a & c)) + LE_32((param+0x14)) + d + 0x4787C62A;
  72   d = ((d << 0x0c) | (d >> 0x14)) + a;
  73   c = ((d & a) | (~d & b)) + LE_32((param+0x18)) + c - 0x57CFB9ED;
  74   c = ((c << 0x11) | (c >> 0x0f)) + d;
  75   b = ((c & d) | (~c & a)) + LE_32((param+0x1c)) + b - 0x02B96AFF;
  76   b = ((b << 0x16) | (b >> 0x0a)) + c;
  77   a = ((b & c) | (~b & d)) + LE_32((param+0x20)) + a + 0x698098D8;
  78   a = ((a << 0x07) | (a >> 0x19)) + b;
  79   d = ((a & b) | (~a & c)) + LE_32((param+0x24)) + d - 0x74BB0851;
  80   d = ((d << 0x0c) | (d >> 0x14)) + a;
  81   c = ((d & a) | (~d & b)) + LE_32((param+0x28)) + c - 0x0000A44F;
  82   c = ((c << 0x11) | (c >> 0x0f)) + d;
  83   b = ((c & d) | (~c & a)) + LE_32((param+0x2C)) + b - 0x76A32842;
  84   b = ((b << 0x16) | (b >> 0x0a)) + c;
  85   a = ((b & c) | (~b & d)) + LE_32((param+0x30)) + a + 0x6B901122;
  86   a = ((a << 0x07) | (a >> 0x19)) + b;
  87   d = ((a & b) | (~a & c)) + LE_32((param+0x34)) + d - 0x02678E6D;
  88   d = ((d << 0x0c) | (d >> 0x14)) + a;
  89   c = ((d & a) | (~d & b)) + LE_32((param+0x38)) + c - 0x5986BC72;
  90   c = ((c << 0x11) | (c >> 0x0f)) + d;
  91   b = ((c & d) | (~c & a)) + LE_32((param+0x3c)) + b + 0x49B40821;
  92   b = ((b << 0x16) | (b >> 0x0a)) + c;
  93
  94   a = ((b & d) | (~d & c)) + LE_32((param+0x04)) + a - 0x09E1DA9E;
  95   a = ((a << 0x05) | (a >> 0x1b)) + b;
  96   d = ((a & c) | (~c & b)) + LE_32((param+0x18)) + d - 0x3FBF4CC0;
  97   d = ((d << 0x09) | (d >> 0x17)) + a;
  98   c = ((d & b) | (~b & a)) + LE_32((param+0x2c)) + c + 0x265E5A51;
  99   c = ((c << 0x0e) | (c >> 0x12)) + d;
 100   b = ((c & a) | (~a & d)) + LE_32((param+0x00)) + b - 0x16493856;
 101   b = ((b << 0x14) | (b >> 0x0c)) + c;
 102   a = ((b & d) | (~d & c)) + LE_32((param+0x14)) + a - 0x29D0EFA3;
 103   a = ((a << 0x05) | (a >> 0x1b)) + b;
 104   d = ((a & c) | (~c & b)) + LE_32((param+0x28)) + d + 0x02441453;
 105   d = ((d << 0x09) | (d >> 0x17)) + a;
 106   c = ((d & b) | (~b & a)) + LE_32((param+0x3c)) + c - 0x275E197F;
 107   c = ((c << 0x0e) | (c >> 0x12)) + d;
 108   b = ((c & a) | (~a & d)) + LE_32((param+0x10)) + b - 0x182C0438;
 109   b = ((b << 0x14) | (b >> 0x0c)) + c;
 110   a = ((b & d) | (~d & c)) + LE_32((param+0x24)) + a + 0x21E1CDE6;
 111   a = ((a << 0x05) | (a >> 0x1b)) + b;
 112   d = ((a & c) | (~c & b)) + LE_32((param+0x38)) + d - 0x3CC8F82A;
 113   d = ((d << 0x09) | (d >> 0x17)) + a;
 114   c = ((d & b) | (~b & a)) + LE_32((param+0x0c)) + c - 0x0B2AF279;
 115   c = ((c << 0x0e) | (c >> 0x12)) + d;
 116   b = ((c & a) | (~a & d)) + LE_32((param+0x20)) + b + 0x455A14ED;
 117   b = ((b << 0x14) | (b >> 0x0c)) + c;
 118   a = ((b & d) | (~d & c)) + LE_32((param+0x34)) + a - 0x561C16FB;
 119   a = ((a << 0x05) | (a >> 0x1b)) + b;
 120   d = ((a & c) | (~c & b)) + LE_32((param+0x08)) + d - 0x03105C08;
 121   d = ((d << 0x09) | (d >> 0x17)) + a;
 122   c = ((d & b) | (~b & a)) + LE_32((param+0x1c)) + c + 0x676F02D9;
 123   c = ((c << 0x0e) | (c >> 0x12)) + d;
 124   b = ((c & a) | (~a & d)) + LE_32((param+0x30)) + b - 0x72D5B376;
 125   b = ((b << 0x14) | (b >> 0x0c)) + c;
 126
 127   a = (b ^ c ^ d) + LE_32((param+0x14)) + a - 0x0005C6BE;
 128   a = ((a << 0x04) | (a >> 0x1c)) + b;
 129   d = (a ^ b ^ c) + LE_32((param+0x20)) + d - 0x788E097F;
 130   d = ((d << 0x0b) | (d >> 0x15)) + a;
 131   c = (d ^ a ^ b) + LE_32((param+0x2c)) + c + 0x6D9D6122;
 132   c = ((c << 0x10) | (c >> 0x10)) + d;
 133   b = (c ^ d ^ a) + LE_32((param+0x38)) + b - 0x021AC7F4;
 134   b = ((b << 0x17) | (b >> 0x09)) + c;
 135   a = (b ^ c ^ d) + LE_32((param+0x04)) + a - 0x5B4115BC;
 136   a = ((a << 0x04) | (a >> 0x1c)) + b;
 137   d = (a ^ b ^ c) + LE_32((param+0x10)) + d + 0x4BDECFA9;
 138   d = ((d << 0x0b) | (d >> 0x15)) + a;
 139   c = (d ^ a ^ b) + LE_32((param+0x1c)) + c - 0x0944B4A0;
 140   c = ((c << 0x10) | (c >> 0x10)) + d;
 141   b = (c ^ d ^ a) + LE_32((param+0x28)) + b - 0x41404390;
 142   b = ((b << 0x17) | (b >> 0x09)) + c;
 143   a = (b ^ c ^ d) + LE_32((param+0x34)) + a + 0x289B7EC6;
 144   a = ((a << 0x04) | (a >> 0x1c)) + b;
 145   d = (a ^ b ^ c) + LE_32((param+0x00)) + d - 0x155ED806;
 146   d = ((d << 0x0b) | (d >> 0x15)) + a;
 147   c = (d ^ a ^ b) + LE_32((param+0x0c)) + c - 0x2B10CF7B;
 148   c = ((c << 0x10) | (c >> 0x10)) + d;
 149   b = (c ^ d ^ a) + LE_32((param+0x18)) + b + 0x04881D05;
 150   b = ((b << 0x17) | (b >> 0x09)) + c;
 151   a = (b ^ c ^ d) + LE_32((param+0x24)) + a - 0x262B2FC7;
 152   a = ((a << 0x04) | (a >> 0x1c)) + b;
 153   d = (a ^ b ^ c) + LE_32((param+0x30)) + d - 0x1924661B;
 154   d = ((d << 0x0b) | (d >> 0x15)) + a;
 155   c = (d ^ a ^ b) + LE_32((param+0x3c)) + c + 0x1fa27cf8;
 156   c = ((c << 0x10) | (c >> 0x10)) + d;
 157   b = (c ^ d ^ a) + LE_32((param+0x08)) + b - 0x3B53A99B;
 158   b = ((b << 0x17) | (b >> 0x09)) + c;
 159
 160   a = ((~d | b) ^ c)  + LE_32((param+0x00)) + a - 0x0BD6DDBC;
 161   a = ((a << 0x06) | (a >> 0x1a)) + b;
 162   d = ((~c | a) ^ b)  + LE_32((param+0x1c)) + d + 0x432AFF97;
 163   d = ((d << 0x0a) | (d >> 0x16)) + a;
 164   c = ((~b | d) ^ a)  + LE_32((param+0x38)) + c - 0x546BDC59;
 165   c = ((c << 0x0f) | (c >> 0x11)) + d;
 166   b = ((~a | c) ^ d)  + LE_32((param+0x14)) + b - 0x036C5FC7;
 167   b = ((b << 0x15) | (b >> 0x0b)) + c;
 168   a = ((~d | b) ^ c)  + LE_32((param+0x30)) + a + 0x655B59C3;
 169   a = ((a << 0x06) | (a >> 0x1a)) + b;
 170   d = ((~c | a) ^ b)  + LE_32((param+0x0C)) + d - 0x70F3336E;
 171   d = ((d << 0x0a) | (d >> 0x16)) + a;
 172   c = ((~b | d) ^ a)  + LE_32((param+0x28)) + c - 0x00100B83;
 173   c = ((c << 0x0f) | (c >> 0x11)) + d;
 174   b = ((~a | c) ^ d)  + LE_32((param+0x04)) + b - 0x7A7BA22F;
 175   b = ((b << 0x15) | (b >> 0x0b)) + c;
 176   a = ((~d | b) ^ c)  + LE_32((param+0x20)) + a + 0x6FA87E4F;
 177   a = ((a << 0x06) | (a >> 0x1a)) + b;
 178   d = ((~c | a) ^ b)  + LE_32((param+0x3c)) + d - 0x01D31920;
 179   d = ((d << 0x0a) | (d >> 0x16)) + a;
 180   c = ((~b | d) ^ a)  + LE_32((param+0x18)) + c - 0x5CFEBCEC;
 181   c = ((c << 0x0f) | (c >> 0x11)) + d;
 182   b = ((~a | c) ^ d)  + LE_32((param+0x34)) + b + 0x4E0811A1;
 183   b = ((b << 0x15) | (b >> 0x0b)) + c;
 184   a = ((~d | b) ^ c)  + LE_32((param+0x10)) + a - 0x08AC817E;
 185   a = ((a << 0x06) | (a >> 0x1a)) + b;
 186   d = ((~c | a) ^ b)  + LE_32((param+0x2c)) + d - 0x42C50DCB;
 187   d = ((d << 0x0a) | (d >> 0x16)) + a;
 188   c = ((~b | d) ^ a)  + LE_32((param+0x08)) + c + 0x2AD7D2BB;
 189   c = ((c << 0x0f) | (c >> 0x11)) + d;
 190   b = ((~a | c) ^ d)  + LE_32((param+0x24)) + b - 0x14792C6F;
 191   b = ((b << 0x15) | (b >> 0x0b)) + c;
 192
 193   lprintf("hash output: %x %x %x %x\n", a, b, c, d);
 194
 195   a += LE_32(field);
 196   b += LE_32(field+4);
 197   c += LE_32(field+8);
 198   d += LE_32(field+12);
 199
 200   LE_32C(field, a);
 201   LE_32C(field+4, b);
 202   LE_32C(field+8, c);
 203   LE_32C(field+12, d);
 204 }
 205
 206 static void call_hash (char *key, char *challenge, int len) {
 207
 208   uint8_t *ptr1, *ptr2;
 209   uint32_t a, b, c, d, tmp;
 210
 211   ptr1=(uint8_t*)(key+16);
 212   ptr2=(uint8_t*)(key+20);
 213
 214   a = LE_32(ptr1);
 215   b = (a >> 3) & 0x3f;
 216   a += len * 8;
 217   LE_32C(ptr1, a);
 218
 219   if (a < (uint32_t)(len << 3))
 220   {
 221     lprintf("not verified: (len << 3) > a true\n");
 222     ptr2 += 4;
 223   }
 224
 225   tmp = LE_32(ptr2) + (len >> 0x1d);
 226   LE_32C(ptr2, tmp);
 227   a = 64 - b;
 228   c = 0;
 229   if (a <= (uint32_t)len)
 230   {
 231     memcpy(key+b+24, challenge, a);
 232     hash(key, key+24);
 233     c = a;
 234     d = c + 0x3f;
 235
 236     while ( d < (uint32_t)len ) {
 237       lprintf("not verified:  while ( d < len )\n");
 238       hash(key, challenge+d-0x3f);
 239       d += 64;
 240       c += 64;
 241     }
 242     b = 0;
 243   }
 244
 245   memcpy(key+b+24, challenge+c, len-c);
 246 }
 247
 248 static void calc_response (char *result, char *field) {
 249   char buf1[128];
 250   char buf2[128];
 251   int i;
 252
 253   memset (buf1, 0, 64);
 254   *buf1 = 128;
 255
 256   memcpy (buf2, field+16, 8);
 257   i = ( LE_32((buf2)) >> 3 ) & 0x3f;
 258
 259   if (i < 56)
 260   {
 261     i = 56 - i;
 262   } else
 263   {
 264     lprintf("not verified: ! (i < 56)\n");
 265     i = 120 - i;
 266   }
 267
 268   call_hash (field, buf1, i);
 269   call_hash (field, buf2, 8);
 270   memcpy (result, field, 16);
 271 }
 272
 273 static void calc_response_string (char *result, char *challenge) {
 274   char field[128];
 275   char zres[20];
 276   int  i;
 277
 278   /* initialize our field */
 279   BE_32C (field,      0x01234567);
 280   BE_32C ((field+4),  0x89ABCDEF);
 281   BE_32C ((field+8),  0xFEDCBA98);
 282   BE_32C ((field+12), 0x76543210);
 283   BE_32C ((field+16), 0x00000000);
 284   BE_32C ((field+20), 0x00000000);
 285
 286   /* calculate response */
 287   call_hash(field, challenge, 64);
 288   calc_response(zres,field);
 289
 290   /* convert zres to ascii string */
 291   for (i=0; i<16; i++ ) {
 292     char a, b;
 293
 294     a = (zres[i] >> 4) & 15;
 295     b = zres[i] & 15;
 296
 297     result[i*2]   = ((a<10) ? (a+48) : (a+87)) & 255;
 298     result[i*2+1] = ((b<10) ? (b+48) : (b+87)) & 255;
 299   }
 300 }
 301
 302 void real_calc_response_and_checksum (char *response, char *chksum, char *challenge) {
 303
 304   int   ch_len, table_len, resp_len;
 305   int   i;
 306   char *ptr;
 307   char  buf[128];
 308
 309   /* initialize return values */
 310   memset(response, 0, 64);
 311   memset(chksum, 0, 34);
 312
 313   /* initialize buffer */
 314   memset(buf, 0, 128);
 315   ptr=buf;
 316   BE_32C(ptr, 0xa1e9149d);
 317   ptr+=4;
 318   BE_32C(ptr, 0x0e6b3b59);
 319   ptr+=4;
 320
 321   /* some (length) checks */
 322   if (challenge != NULL)
 323   {
 324     ch_len = strlen (challenge);
 325
 326     if (ch_len == 40) /* what a hack... */
 327     {
 328       challenge[32]=0;
 329       ch_len=32;
 330     }
 331     if ( ch_len > 56 ) ch_len=56;
 332
 333     /* copy challenge to buf */
 334     memcpy(ptr, challenge, ch_len);
 335   }
 336
 337   if (xor_table != NULL)
 338   {
 339     table_len = strlen((char *)xor_table);
 340
 341     if (table_len > 56) table_len=56;
 342
 343     /* xor challenge bytewise with xor_table */
 344     for (i=0; i<table_len; i++)
 345       ptr[i] = ptr[i] ^ xor_table[i];
 346   }
 347
 348   calc_response_string (response, buf);
 349
 350   /* add tail */
 351   resp_len = strlen (response);
 352   strcpy (&response[resp_len], "01d0a8e3");
 353
 354   /* calculate checksum */
 355   for (i=0; i<resp_len/4; i++)
 356     chksum[i] = response[i*4];
 357 }
 358
 359
 360 /*
 361  * takes a MLTI-Chunk and a rule number got from match_asm_rule,
 362  * returns a pointer to selected data and number of bytes in that.
 363  */
 364 static int select_mlti_data(const char *mlti_chunk, int mlti_size, int selection, char **out) {
 365
 366   int numrules, codec, size;
 367   int i;
 368
 369   /* MLTI chunk should begin with MLTI */
 370   if ((mlti_chunk[0] != 'M')
 371       ||(mlti_chunk[1] != 'L')
 372       ||(mlti_chunk[2] != 'T')
 373       ||(mlti_chunk[3] != 'I'))
 374   {
 375     lprintf("MLTI tag not detected, copying data\n");
 376     memcpy(*out, mlti_chunk, mlti_size);
 377     return mlti_size;
 378   }
 379
 380   mlti_chunk+=4;
 381
 382   /* next 16 bits are the number of rules */
 383   numrules=BE_16(mlti_chunk);
 384   if (selection >= numrules) return 0;
 385
 386   /* now <numrules> indices of codecs follows */
 387   /* we skip to selection                     */
 388   mlti_chunk+=(selection+1)*2;
 389
 390   /* get our index */
 391   codec=BE_16(mlti_chunk);
 392
 393   /* skip to number of codecs */
 394   mlti_chunk+=(numrules-selection)*2;
 395
 396   /* get number of codecs */
 397   numrules=BE_16(mlti_chunk);
 398
 399   if (codec >= numrules) {
 400     lprintf("codec index >= number of codecs. %i %i\n", codec, numrules);
 401     return 0;
 402   }
 403
 404   mlti_chunk+=2;
 405
 406   /* now seek to selected codec */
 407   for (i=0; i<codec; i++) {
 408     size=BE_32(mlti_chunk);
 409     mlti_chunk+=size+4;
 410   }
 411   size=BE_32(mlti_chunk);
 412
 413   memcpy(*out, mlti_chunk+4, size);
 414   return size;
 415 }
 416
 417 /*
 418  * looking at stream description.
 419  */
 420
 421 rmff_header_t *real_parse_sdp(char *data, char **stream_rules, uint32_t bandwidth) {
 422
 423   sdpplin_t *desc = NULL;
 424   rmff_header_t *header = NULL;
 425   char *buf = NULL;
 426   int len, i;
 427   int max_bit_rate=0;
 428   int avg_bit_rate=0;
 429   int max_packet_size=0;
 430   int avg_packet_size=0;
 431   int duration=0;
 432
 433   if( !data ) return NULL;
 434
 435   desc=sdpplin_parse(data);
 436   if( !desc ) return NULL;
 437
 438   buf= (char *)malloc(sizeof(char)*2048);
 439   if( !buf ) goto error;
 440
 441   header = (rmff_header_t*)malloc(sizeof(rmff_header_t));
 442   if( !header ) goto error;
 443
 444   memset(header, 0, sizeof(rmff_header_t));
 445   header->fileheader=rmff_new_fileheader(4+desc->stream_count);
 446   header->cont=rmff_new_cont(
 447       desc->title,
 448       desc->author,
 449       desc->copyright,
 450       desc->abstract);
 451
 452   header->data=rmff_new_dataheader(0,0);
 453   if( !header->data ) goto error;
 454
 455   header->streams = (rmff_mdpr_t**) malloc(sizeof(rmff_mdpr_t*)*(desc->stream_count+1));
 456   if( !header->streams ) goto error;
 457
 458   memset(header->streams, 0, sizeof(rmff_mdpr_t*)*(desc->stream_count+1));
 459   lprintf("number of streams: %u\n", desc->stream_count);
 460
 461   for (i=0; i<desc->stream_count; i++) {
 462
 463     int j=0;
 464     int n;
 465     char b[64];
 466     int rulematches[16];
 467
 468     lprintf("calling asmrp_match with:\n%s\n%u\n", desc->stream[i]->asm_rule_book, bandwidth);
 469
 470     n=asmrp_match(desc->stream[i]->asm_rule_book, bandwidth, rulematches);
 471     for (j=0; j<n; j++) {
 472       lprintf("asmrp rule match: %u for stream %u\n", rulematches[j], desc->stream[i]->stream_id);
 473       sprintf(b,"stream=%u;rule=%u,", desc->stream[i]->stream_id, rulematches[j]);
 474       strcat(*stream_rules, b);
 475     }
 476
 477     if (!desc->stream[i]->mlti_data) {
 478       len = 0;
 479       if( buf ) free( buf );
 480       buf = NULL;
 481     } else
 482       len=select_mlti_data(desc->stream[i]->mlti_data,
 483         desc->stream[i]->mlti_data_size, rulematches[0], &buf);
 484
 485     header->streams[i]=rmff_new_mdpr(
 486       desc->stream[i]->stream_id,
 487         desc->stream[i]->max_bit_rate,
 488         desc->stream[i]->avg_bit_rate,
 489         desc->stream[i]->max_packet_size,
 490         desc->stream[i]->avg_packet_size,
 491         desc->stream[i]->start_time,
 492         desc->stream[i]->preroll,
 493         desc->stream[i]->duration,
 494         desc->stream[i]->stream_name,
 495         desc->stream[i]->mime_type,
 496         len,
 497         buf);
 498     if( !header->streams[i] ) goto error;
 499
 500     duration=MAX(duration,desc->stream[i]->duration);
 501     max_bit_rate+=desc->stream[i]->max_bit_rate;
 502     avg_bit_rate+=desc->stream[i]->avg_bit_rate;
 503     max_packet_size=MAX(max_packet_size, desc->stream[i]->max_packet_size);
 504     if (avg_packet_size)
 505       avg_packet_size=(avg_packet_size + desc->stream[i]->avg_packet_size) / 2;
 506     else
 507       avg_packet_size=desc->stream[i]->avg_packet_size;
 508   }
 509
 510   if (*stream_rules && strlen(*stream_rules) && (*stream_rules)[strlen(*stream_rules)-1] == ',')
 511       (*stream_rules)[strlen(*stream_rules)-1]=0; /* delete last ',' in stream_rules */
 512
 513   header->prop=rmff_new_prop(
 514       max_bit_rate,
 515       avg_bit_rate,
 516       max_packet_size,
 517       avg_packet_size,
 518       0,
 519       duration,
 520       0,
 521       0,
 522       0,
 523       desc->stream_count,
 524       desc->flags);
 525   if( !header->prop ) goto error;
 526
 527   rmff_fix_header(header);
 528
 529   if( desc ) sdpplin_free( desc );
 530   if( buf ) free(buf);
 531   return header;
 532
 533 error:
 534   if( desc ) sdpplin_free( desc );
 535   if( header ) rmff_free_header( header );
 536   if( buf ) free( buf );
 537   return NULL;
 538 }
 539
 540 int real_get_rdt_chunk_header(rtsp_client_t *rtsp_session, rmff_pheader_t *ph) {
 541
 542   int n=1;
 543   uint8_t header[8];
 544   int size;
 545   int flags1;
 546   int unknown1;
 547   uint32_t ts;
 548
 549   n=rtsp_read_data(rtsp_session, header, 8);
 550   if (n<8) return 0;
 551   if (header[0] != 0x24) {
 552     lprintf("rdt chunk not recognized: got 0x%02x\n", header[0]);
 553     return 0;
 554   }
 555   size=(header[1]<<16)+(header[2]<<8)+(header[3]);
 556   flags1=header[4];
 557   if ((flags1!=0x40)&&(flags1!=0x42)) {
 558     lprintf("got flags1: 0x%02x\n",flags1);
 559     if (header[6]==0x06) {
 560       lprintf("got end of stream packet\n");
 561       return 0;
 562     }
 563     header[0]=header[5];
 564     header[1]=header[6];
 565     header[2]=header[7];
 566     n=rtsp_read_data(rtsp_session, header+3, 5);
 567     if (n<5) return 0;
 568     lprintf("ignoring bytes:\n");
 569     n=rtsp_read_data(rtsp_session, header+4, 4);
 570     if (n<4) return 0;
 571     flags1=header[4];
 572     size-=9;
 573   }
 574   unknown1=(header[5]<<16)+(header[6]<<8)+(header[7]);
 575   n=rtsp_read_data(rtsp_session, header, 6);
 576   if (n<6) return 0;
 577   ts=BE_32(header);
 578
 579 #if 0
 580   lprintf("ts: %u size: %u, flags: 0x%02x, unknown values: %u 0x%02x 0x%02x\n",
 581           ts, size, flags1, unknown1, header[4], header[5]);
 582 #endif
 583
 584   size+=2;
 585   ph->object_version=0;
 586   ph->length=size;
 587   ph->stream_number=(flags1>>1)&1;
 588   ph->timestamp=ts;
 589   ph->reserved=0;
 590   ph->flags=0;      /* TODO: determine keyframe flag and insert here? */
 591   return size;
 592 }
 593
 594 int real_get_rdt_chunk(rtsp_client_t *rtsp_session, rmff_pheader_t *ph,
 595                        unsigned char **buffer) {
 596
 597   int n;
 598   rmff_dump_pheader(ph, (char*)*buffer);
 599   n=rtsp_read_data(rtsp_session, (uint8_t*)(*buffer + 12), ph->length - 12);
 600   return (n <= 0) ? 0 : n+12;
 601 }
 602
 603 //! maximum size of the rtsp description, must be < INT_MAX
 604 #define MAX_DESC_BUF (20 * 1024 * 1024)
 605 rmff_header_t  *real_setup_and_get_header(rtsp_client_t *rtsp_session, int bandwidth) {
 606
 607   char *description=NULL;
 608   char *session_id=NULL;
 609   rmff_header_t *h=NULL;
 610   char *challenge1 = NULL;
 611   char challenge2[64];
 612   char checksum[34];
 613   char *subscribe=NULL;
 614   char *buf=(char*)malloc(sizeof(char)*256);
 615   char *mrl=rtsp_get_mrl(rtsp_session);
 616   unsigned int size;
 617   int status;
 618
 619   /* get challenge */
 620   challenge1=strdup(rtsp_search_answers(rtsp_session,"RealChallenge1"));
 621   lprintf("Challenge1: %s\n", challenge1);
 622
 623   /* request stream description */
 624   rtsp_schedule_field(rtsp_session, "Accept: application/sdp");
 625   sprintf(buf, "Bandwidth: %u", bandwidth);
 626   rtsp_schedule_field(rtsp_session, buf);
 627   rtsp_schedule_field(rtsp_session, "GUID: 00000000-0000-0000-0000-000000000000");
 628   rtsp_schedule_field(rtsp_session, "RegionData: 0");
 629   rtsp_schedule_field(rtsp_session, "ClientID: Linux_2.4_6.0.9.1235_play32_RN01_EN_586");
 630   rtsp_schedule_field(rtsp_session, "SupportsMaximumASMBandwidth: 1");
 631   rtsp_schedule_field(rtsp_session, "Language: en-US");
 632   rtsp_schedule_field(rtsp_session, "Require: com.real.retain-entity-for-setup");
 633
 634   status=rtsp_request_describe(rtsp_session,NULL);
 635   if ( status<200 || status>299 ) {
 636     char *alert=rtsp_search_answers(rtsp_session,"Alert");
 637     if (alert) {
 638         lprintf("real: got message from server:\n%s\n", alert);
 639     }
 640     printf( "bou\n");
 641     rtsp_send_ok(rtsp_session);
 642     if( challenge1 ) free(challenge1);
 643     if( alert ) free(alert);
 644     if( buf ) free(buf);
 645     return NULL;
 646   }
 647
 648   /* receive description */
 649   size=0;
 650   if (!rtsp_search_answers(rtsp_session,"Content-length"))
 651     lprintf("real: got no Content-length!\n");
 652   else
 653     size=atoi(rtsp_search_answers(rtsp_session,"Content-length"));
 654
 655   if (size > MAX_DESC_BUF) {
 656     printf("real: Content-length for description too big (> %uMB)!\n",
 657         MAX_DESC_BUF/(1024*1024) );
 658     goto error;
 659   }
 660
 661   if (!rtsp_search_answers(rtsp_session,"ETag"))
 662     lprintf("real: got no ETag!\n");
 663   else
 664     session_id=strdup(rtsp_search_answers(rtsp_session,"ETag"));
 665
 666   lprintf("Stream description size: %i\n", size);
 667
 668   description = (char*)malloc(sizeof(char)*(size+1));
 669   if( !description )
 670     goto error;
 671   if( rtsp_read_data(rtsp_session, (uint8_t*)description, size) <= 0)
 672     goto error;
 673   description[size]=0;
 674   //fprintf(stderr, "%s", description);
 675
 676   /* parse sdp (sdpplin) and create a header and a subscribe string */
 677   subscribe = (char *) malloc(sizeof(char)*256);
 678   if( !subscribe )
 679     goto error;
 680
 681   strcpy(subscribe, "Subscribe: ");
 682   h=real_parse_sdp(description, &subscribe, bandwidth);
 683   if (!h)
 684     goto error;
 685
 686   rmff_fix_header(h);
 687
 688 #if 0
 689   fprintf("Title: %s\nCopyright: %s\nAuthor: %s\nStreams: %i\n",
 690       h->cont->title, h->cont->copyright, h->cont->author, h->prop->num_streams);
 691 #endif
 692
 693   /* setup our streams */
 694   real_calc_response_and_checksum (challenge2, checksum, challenge1);
 695   buf = realloc(buf, strlen(challenge2) + strlen(checksum) + 32);
 696   sprintf(buf, "RealChallenge2: %s, sd=%s", challenge2, checksum);
 697   rtsp_schedule_field(rtsp_session, buf);
 698   buf = realloc(buf, strlen(session_id) + 32);
 699   sprintf(buf, "If-Match: %s", session_id);
 700   rtsp_schedule_field(rtsp_session, buf);
 701   rtsp_schedule_field(rtsp_session, "Transport: x-pn-tng/tcp;mode=play,rtp/avp/tcp;unicast;mode=play");
 702   buf = realloc(buf, strlen(mrl) + 32);
 703   sprintf(buf, "%s/streamid=0", mrl);
 704   rtsp_request_setup(rtsp_session,buf);
 705
 706   if (h->prop->num_streams > 1) {
 707     rtsp_schedule_field(rtsp_session, "Transport: x-pn-tng/tcp;mode=play,rtp/avp/tcp;unicast;mode=play");
 708     buf = realloc(buf, strlen(session_id) + 32);
 709     sprintf(buf, "If-Match: %s", session_id);
 710     rtsp_schedule_field(rtsp_session, buf);
 711     buf = realloc(buf, strlen(mrl) + 32);
 712     sprintf(buf, "%s/streamid=1", mrl);
 713     rtsp_request_setup(rtsp_session,buf);
 714   }
 715   /* set stream parameter (bandwidth) with our subscribe string */
 716   rtsp_schedule_field(rtsp_session, subscribe);
 717   rtsp_request_setparameter(rtsp_session,NULL);
 718
 719   /* and finally send a play request */
 720   rtsp_schedule_field(rtsp_session, "Range: npt=0-");
 721   rtsp_request_play(rtsp_session,NULL);
 722
 723   if( challenge1 ) free( challenge1 );
 724   if( session_id ) free( session_id );
 725   if( description ) free(description);
 726   if( subscribe ) free(subscribe);
 727   if( buf ) free(buf);
 728   return h;
 729
 730 error:
 731   if( h ) rmff_free_header( h );
 732   if( challenge1 ) free( challenge1 );
 733   if( session_id ) free( session_id );
 734   if( description ) free(description);
 735   if( subscribe ) free(subscribe);
 736   if( buf ) free(buf);
 737   return NULL;
 738 }