lib/silccore/silcattrs.c

   1 /*
   2
   3   silcattrs.c
   4
   5   Author: Pekka Riikonen <priikone@silcnet.org>
   6
   7   Copyright (C) 2002 Pekka Riikonen
   8
   9   This program is free software; you can redistribute it and/or modify
  10   it under the terms of the GNU General Public License as published by
  11   the Free Software Foundation; version 2 of the License.
  12
  13   This program is distributed in the hope that it will be useful,
  14   but WITHOUT ANY WARRANTY; without even the implied warranty of
  15   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16   GNU General Public License for more details.
  17
  18 */
  19 /* Implementation of Attribute Payload routines */
  20 /* $Id$ */
  21
  22 #include "silcincludes.h"
  23 #include "silcattrs.h"
  24
  25 /******************************************************************************
  26
  27                              Attribute Payload
  28
  29 ******************************************************************************/
  30
  31 struct SilcAttributePayloadStruct {
  32   SilcAttribute attribute;
  33   SilcAttributeFlags flags;
  34   SilcUInt16 data_len;
  35   unsigned char *data;
  36 };
  37
  38 /* Internal routine for encoding a attribute */
  39
  40 static unsigned char *
  41 silc_attribute_payload_encode_int(SilcAttribute attribute,
  42                                   SilcAttributeFlags flags,
  43                                   void *object,
  44                                   SilcUInt32 object_size,
  45                                   SilcUInt32 *ret_len)
  46 {
  47   SilcBuffer tmpbuf = NULL;
  48   unsigned char tmp[4], *str = NULL, *ret;
  49   int len;
  50
  51   /* Encode according to attribute type */
  52   if (flags & SILC_ATTRIBUTE_FLAG_VALID) {
  53     if (!object && !object_size)
  54       return NULL;
  55
  56     switch (attribute) {
  57
  58     case SILC_ATTRIBUTE_USER_INFO:
  59       {
  60         SilcVCard vcard = object;
  61         if (object_size != sizeof(*vcard))
  62           return NULL;
  63         str = silc_vcard_encode(vcard, &object_size);
  64         if (!str)
  65           return NULL;
  66         object = str;
  67       }
  68       break;
  69
  70     case SILC_ATTRIBUTE_SERVICE:
  71       {
  72         SilcAttributeObjService *service = object;
  73         int len2;
  74         if (object_size != sizeof(*service))
  75           return NULL;
  76         len = strlen(service->address);
  77         len2 = strlen(service->signon);
  78         tmpbuf = silc_buffer_alloc_size(13 + len + len2);
  79         silc_buffer_format(tmpbuf,
  80                            SILC_STR_UI_INT(service->port),
  81                            SILC_STR_UI_SHORT(len),
  82                            SILC_STR_UI_XNSTRING(service->address, len),
  83                            SILC_STR_UI_CHAR(service->status),
  84                            SILC_STR_UI_SHORT(len2),
  85                            SILC_STR_UI_XNSTRING(service->signon, len2),
  86                            SILC_STR_UI_INT(service->idle),
  87                            SILC_STR_END);
  88         object = tmpbuf->data;
  89         object_size = tmpbuf->len;
  90       }
  91       break;
  92
  93     case SILC_ATTRIBUTE_STATUS_MOOD:
  94     case SILC_ATTRIBUTE_PREFERRED_CONTACT:
  95       {
  96         SilcUInt32 mask = (SilcUInt32)object;
  97         if (object_size != sizeof(SilcUInt32))
  98           return NULL;
  99         SILC_PUT32_MSB(mask, tmp);
 100         object = tmp;
 101         object_size = sizeof(SilcUInt32);
 102       }
 103       break;
 104
 105     case SILC_ATTRIBUTE_STATUS_FREETEXT:
 106     case SILC_ATTRIBUTE_PREFERRED_LANGUAGE:
 107     case SILC_ATTRIBUTE_TIMEZONE:
 108       {
 109         unsigned char *string = object;
 110         str = silc_malloc(2 + object_size);
 111         if (!str)
 112           return NULL;
 113         SILC_PUT16_MSB(object_size, str);
 114         memcpy(str + 2, string, object_size);
 115         object = str;
 116         object_size += 2;
 117       }
 118       break;
 119
 120     case SILC_ATTRIBUTE_STATUS_MESSAGE:
 121     case SILC_ATTRIBUTE_EXTENSION:
 122       {
 123         SilcAttributeObjMime *mime = object;
 124         if (object_size != sizeof(*mime))
 125           return NULL;
 126         object = (void *)mime->mime;
 127         object_size = mime->mime_len;
 128       }
 129       break;
 130
 131     case SILC_ATTRIBUTE_GEOLOCATION:
 132       {
 133         SilcAttributeObjGeo *geo = object;
 134         int len1, len2, len3, len4;
 135         if (object_size != sizeof(*geo))
 136           return NULL;
 137         len1 = (geo->longitude ? strlen(geo->longitude) : 0);
 138         len2 = (geo->latitude  ? strlen(geo->latitude)  : 0);
 139         len3 = (geo->altitude  ? strlen(geo->altitude)  : 0);
 140         len4 = (geo->accuracy  ? strlen(geo->accuracy)  : 0);
 141         if (len1 + len2 + len3 + len4 == 0)
 142           return NULL;
 143         len = len1 + len2 + len3 + len4;
 144         tmpbuf = silc_buffer_alloc_size(8 + len);
 145         if (!tmpbuf)
 146           return NULL;
 147         silc_buffer_format(tmpbuf,
 148                            SILC_STR_UI_SHORT(len1),
 149                            SILC_STR_UI16_STRING(len1 ? geo->longitude : ""),
 150                            SILC_STR_UI_SHORT(len2),
 151                            SILC_STR_UI16_STRING(len2 ? geo->latitude : ""),
 152                            SILC_STR_UI_SHORT(len3),
 153                            SILC_STR_UI16_STRING(len3 ? geo->altitude : ""),
 154                            SILC_STR_UI_SHORT(len4),
 155                            SILC_STR_UI16_STRING(len4 ? geo->accuracy : ""),
 156                            SILC_STR_END);
 157         object = tmpbuf->data;
 158         object_size = tmpbuf->len;
 159       }
 160       break;
 161
 162     case SILC_ATTRIBUTE_DEVICE_INFO:
 163       {
 164         SilcAttributeObjDevice *dev = object;
 165         int len1, len2, len3, len4;
 166         if (object_size != sizeof(*dev))
 167           return NULL;
 168         len1 = (dev->manufacturer ? strlen(dev->manufacturer) : 0);
 169         len2 = (dev->version      ? strlen(dev->version)      : 0);
 170         len3 = (dev->model        ? strlen(dev->model)        : 0);
 171         len4 = (dev->language     ? strlen(dev->language)     : 0);
 172         if (len1 + len2 + len3 + len4 == 0)
 173           return NULL;
 174         len = len1 + len2 + len3 + len4;
 175         tmpbuf = silc_buffer_alloc_size(4 + 8 + len);
 176         if (!tmpbuf)
 177           return NULL;
 178         silc_buffer_format(tmpbuf,
 179                            SILC_STR_UI_INT(dev->type),
 180                            SILC_STR_UI_SHORT(len1),
 181                            SILC_STR_UI16_STRING(len1 ? dev->manufacturer : ""),
 182                            SILC_STR_UI_SHORT(len2),
 183                            SILC_STR_UI16_STRING(len2 ? dev->version : ""),
 184                            SILC_STR_UI_SHORT(len3),
 185                            SILC_STR_UI16_STRING(len3 ? dev->model : ""),
 186                            SILC_STR_UI_SHORT(len4),
 187                            SILC_STR_UI16_STRING(len4 ? dev->language : ""),
 188                            SILC_STR_END);
 189         object = tmpbuf->data;
 190         object_size = tmpbuf->len;
 191       }
 192       break;
 193
 194     case SILC_ATTRIBUTE_USER_PUBLIC_KEY:
 195     case SILC_ATTRIBUTE_SERVER_PUBLIC_KEY:
 196       {
 197         SilcAttributeObjPk *pk = object;
 198         if (object_size != sizeof(*pk))
 199           return NULL;
 200         len = (pk->type ? strlen(pk->type) : 0);
 201         tmpbuf = silc_buffer_alloc_size(2 + len + pk->data_len);
 202         if (!tmpbuf)
 203           return NULL;
 204         silc_buffer_format(tmpbuf,
 205                            SILC_STR_UI_SHORT(len),
 206                            SILC_STR_UI16_STRING(pk->type),
 207                            SILC_STR_UI_XNSTRING(pk->data, pk->data_len),
 208                            SILC_STR_END);
 209         object = tmpbuf->data;
 210         object_size = tmpbuf->len;
 211       }
 212       break;
 213
 214     case SILC_ATTRIBUTE_USER_DIGITAL_SIGNATURE:
 215     case SILC_ATTRIBUTE_SERVER_DIGITAL_SIGNATURE:
 216       {
 217         SilcAttributeObjPk *pk = object;
 218         if (object_size != sizeof(*pk))
 219           return NULL;
 220         object = pk->data;
 221         object_size = pk->data_len;
 222       }
 223       break;
 224
 225     default:
 226       return NULL;
 227       break;
 228     }
 229
 230     ret = silc_memdup(object, object_size);
 231
 232     if (tmpbuf)
 233       silc_buffer_free(tmpbuf);
 234     silc_free(str);
 235
 236     if (ret_len)
 237       *ret_len = object_size;
 238
 239     return ret;
 240   }
 241
 242   return NULL;
 243 }
 244
 245 /* Allocates attribute payload and encodes the attribute there */
 246
 247 SilcAttributePayload silc_attribute_payload_alloc(SilcAttribute attribute,
 248                                                   SilcAttributeFlags flags,
 249                                                   void *object,
 250                                                   SilcUInt32 object_size)
 251 {
 252   SilcAttributePayload attr;
 253   SilcUInt32 tmp_len;
 254
 255   attr = silc_calloc(1, sizeof(*attr));
 256   if (!attr)
 257     return NULL;
 258
 259   attr->attribute = attribute;
 260   attr->flags = flags;
 261   attr->data =
 262     silc_attribute_payload_encode_int(attribute, flags, object,
 263                                       object_size, &tmp_len);
 264   attr->data_len = (SilcUInt16)tmp_len;
 265   if (!attr->data) {
 266     silc_free(attr);
 267     return NULL;
 268   }
 269
 270   return attr;
 271 }
 272
 273 /* Parse list of payloads */
 274
 275 SilcDList silc_attribute_payload_parse(const unsigned char *payload,
 276                                        SilcUInt32 payload_len)
 277 {
 278   SilcBufferStruct buffer;
 279   SilcDList list;
 280   SilcAttributePayload newp;
 281   int len, ret;
 282
 283   SILC_LOG_DEBUG(("Parsing Attribute Payload list"));
 284
 285   silc_buffer_set(&buffer, (unsigned char *)payload, payload_len);
 286   list = silc_dlist_init();
 287
 288   while (buffer.len) {
 289     newp = silc_calloc(1, sizeof(*newp));
 290     if (!newp)
 291       goto err;
 292     ret = silc_buffer_unformat(&buffer,
 293                                SILC_STR_UI_CHAR(&newp->attribute),
 294                                SILC_STR_UI_CHAR(&newp->flags),
 295                                SILC_STR_UI16_NSTRING_ALLOC(&newp->data,
 296                                                            &newp->data_len),
 297                                SILC_STR_END);
 298     if (ret == -1)
 299       goto err;
 300
 301     if (newp->data_len > buffer.len) {
 302       SILC_LOG_ERROR(("Incorrect attribute payload in list"));
 303       goto err;
 304     }
 305
 306     len = 4 + newp->data_len;
 307     if (buffer.len < len)
 308       break;
 309     silc_buffer_pull(&buffer, len);
 310
 311     silc_dlist_add(list, newp);
 312   }
 313
 314   return list;
 315
 316  err:
 317   silc_attribute_payload_list_free(list);
 318   return NULL;
 319 }
 320
 321 /* Encode one attribute payload to buffer */
 322
 323 SilcBuffer silc_attribute_payload_encode(SilcBuffer attrs,
 324                                          SilcAttribute attribute,
 325                                          SilcAttributeFlags flags,
 326                                          void *object,
 327                                          SilcUInt32 object_size)
 328 {
 329   object = silc_attribute_payload_encode_int(attribute, flags, object,
 330                                              object_size, &object_size);
 331   attrs = silc_attribute_payload_encode_data(attrs, attribute, flags,
 332                                              (const unsigned char *)object,
 333                                              object_size);
 334   silc_free(object);
 335   return attrs;
 336 }
 337
 338 /* Encoded the attribute data directly to buffer */
 339
 340 SilcBuffer silc_attribute_payload_encode_data(SilcBuffer attrs,
 341                                               SilcAttribute attribute,
 342                                               SilcAttributeFlags flags,
 343                                               const unsigned char *data,
 344                                               SilcUInt32 data_len)
 345 {
 346   SilcBuffer buffer = attrs;
 347   int len;
 348
 349   len = 4 + data_len;
 350   buffer = silc_buffer_realloc(buffer,
 351                                (buffer ? buffer->truelen + len : len));
 352   if (!buffer)
 353     return NULL;
 354   silc_buffer_pull(buffer, buffer->len);
 355   silc_buffer_pull_tail(buffer, len);
 356   silc_buffer_format(buffer,
 357                      SILC_STR_UI_CHAR(attribute),
 358                      SILC_STR_UI_CHAR(flags),
 359                      SILC_STR_UI_SHORT((SilcUInt16)data_len),
 360                      SILC_STR_UI_XNSTRING(data, data_len),
 361                      SILC_STR_END);
 362   silc_buffer_push(buffer, buffer->data - buffer->head);
 363
 364   return buffer;
 365 }
 366
 367 /* Free Attribute Payload */
 368
 369 void silc_attribute_payload_free(SilcAttributePayload payload)
 370 {
 371   silc_free(payload->data);
 372   silc_free(payload);
 373 }
 374
 375 /* Free's list of Attribute Payloads */
 376
 377 void silc_attribute_payload_list_free(SilcDList list)
 378 {
 379   SilcAttributePayload entry;
 380
 381   silc_dlist_start(list);
 382   while ((entry = silc_dlist_get(list)) != SILC_LIST_END) {
 383     silc_attribute_payload_free(entry);
 384     silc_dlist_del(list, entry);
 385   }
 386
 387   silc_dlist_uninit(list);
 388 }
 389
 390 /* Return attribute type */
 391
 392 SilcAttribute silc_attribute_get_attribute(SilcAttributePayload payload)
 393 {
 394   return payload->attribute;
 395 }
 396
 397 /* Return attribute flags */
 398
 399 SilcAttributeFlags silc_attribute_get_flags(SilcAttributePayload payload)
 400 {
 401   return payload->flags;
 402 }
 403
 404 /* Return attribute data from the payload */
 405
 406 const unsigned char *silc_attribute_get_data(SilcAttributePayload payload,
 407                                              SilcUInt32 *data_len)
 408 {
 409   if (data_len)
 410     *data_len = (SilcUInt32)payload->data_len;
 411   return (const unsigned char *)payload->data;
 412 }
 413
 414 /* Construct digital signature verification data */
 415
 416 unsigned char *silc_attribute_get_verify_data(SilcDList attrs,
 417                                               bool server_verification,
 418                                               SilcUInt32 *data_len)
 419 {
 420   SilcAttributePayload attr;
 421   SilcBufferStruct buffer;
 422   unsigned char *data = NULL;
 423   SilcUInt32 len = 0;
 424
 425   silc_dlist_start(attrs);
 426   while ((attr = silc_dlist_get(attrs)) != SILC_LIST_END) {
 427     switch (attr->attribute) {
 428     case SILC_ATTRIBUTE_SERVER_DIGITAL_SIGNATURE:
 429       /* Server signature is never part of the verification data */
 430       break;
 431
 432     case SILC_ATTRIBUTE_USER_DIGITAL_SIGNATURE:
 433       /* For user signature verification this is not part of the data */
 434       if (!server_verification)
 435         break;
 436
 437       /* Fallback, for server signature verification, user digital signature
 438          is part of verification data. */
 439
 440     default:
 441       /* All other data is part of the verification data */
 442       data = silc_realloc(data, sizeof(*data) * (4 + attr->data_len + len));
 443       if (!data)
 444         return NULL;
 445       silc_buffer_set(&buffer, data + len, 4 + attr->data_len);
 446       silc_buffer_format(&buffer,
 447                          SILC_STR_UI_CHAR(attr->attribute),
 448                          SILC_STR_UI_CHAR(attr->flags),
 449                          SILC_STR_UI_SHORT(attr->data_len),
 450                          SILC_STR_UI_XNSTRING(attr->data, attr->data_len),
 451                          SILC_STR_END);
 452       len += 4 + attr->data_len;
 453       break;
 454     }
 455   }
 456
 457   if (data_len)
 458     *data_len = len;
 459
 460   return data;
 461 }
 462
 463 /* Return parsed attribute object */
 464
 465 bool silc_attribute_get_object(SilcAttributePayload payload,
 466                                void *object, SilcUInt32 object_size)
 467 {
 468   SilcUInt16 len;
 469   bool ret = FALSE;
 470
 471   if (!object || payload->flags & SILC_ATTRIBUTE_FLAG_INVALID)
 472     return FALSE;
 473
 474   switch (payload->attribute) {
 475   case SILC_ATTRIBUTE_USER_INFO:
 476     {
 477       SilcVCard vcard = object;
 478       if (object_size != sizeof(*vcard))
 479         break;
 480       if (!silc_vcard_decode(payload->data, payload->data_len, vcard))
 481         break;
 482       ret = TRUE;
 483     }
 484     break;
 485
 486   case SILC_ATTRIBUTE_SERVICE:
 487     {
 488       SilcAttributeObjService *service = object;
 489       SilcBufferStruct buf;
 490       SilcUInt16 addr_len, signon_len;
 491       char *addr, *signon;
 492       int res;
 493       if (object_size != sizeof(*service))
 494         break;
 495       if (payload->data_len < 13)
 496         break;
 497       silc_buffer_set(&buf, payload->data, payload->data_len);
 498       res = silc_buffer_unformat(&buf,
 499                                  SILC_STR_UI_INT(&service->port),
 500                                  SILC_STR_UI16_NSTRING(&addr, &addr_len),
 501                                  SILC_STR_UI_CHAR(&service->status),
 502                                  SILC_STR_UI16_NSTRING(&signon, &signon_len),
 503                                  SILC_STR_UI_INT(&service->idle),
 504                                  SILC_STR_END);
 505       if (res == -1)
 506         break;
 507       memset(service->address, 0, sizeof(service->address));
 508       memset(service->signon, 0, sizeof(service->signon));
 509       memcpy(service->address, addr,
 510              (addr_len < sizeof(service->address) - 1 ? addr_len :
 511               sizeof(service->address) - 1));
 512       memcpy(service->signon, signon,
 513              (signon_len < sizeof(service->signon) - 1 ? signon_len :
 514               sizeof(service->signon) - 1));
 515       ret = TRUE;
 516     }
 517     break;
 518
 519   case SILC_ATTRIBUTE_STATUS_MOOD:
 520   case SILC_ATTRIBUTE_PREFERRED_CONTACT:
 521     {
 522       SilcUInt32 *mask = (SilcUInt32 *)object;
 523       if (object_size != sizeof(SilcUInt32))
 524         break;
 525       if (payload->data_len < 4)
 526         break;
 527       SILC_GET32_MSB(*mask, payload->data);
 528       ret = TRUE;
 529     }
 530     break;
 531
 532   case SILC_ATTRIBUTE_STATUS_FREETEXT:
 533   case SILC_ATTRIBUTE_PREFERRED_LANGUAGE:
 534   case SILC_ATTRIBUTE_TIMEZONE:
 535     {
 536       char *string = object;
 537       if (payload->data_len < 2)
 538         break;
 539       SILC_GET16_MSB(len, payload->data);
 540       if (payload->data_len < 2 + len)
 541         break;
 542       if (object_size < len)
 543         break;
 544       memcpy(string, payload->data + 2, len);
 545       ret = TRUE;
 546     }
 547     break;
 548
 549   case SILC_ATTRIBUTE_STATUS_MESSAGE:
 550   case SILC_ATTRIBUTE_EXTENSION:
 551     {
 552       SilcAttributeObjMime *mime = object;
 553       if (object_size != sizeof(*mime))
 554         break;
 555       mime->mime = (const unsigned char *)payload->data;
 556       mime->mime_len = payload->data_len;
 557       ret = TRUE;
 558     }
 559     break;
 560
 561   case SILC_ATTRIBUTE_GEOLOCATION:
 562     {
 563       SilcAttributeObjGeo *geo = object;
 564       SilcBufferStruct buffer;
 565       int res;
 566       if (object_size != sizeof(*geo))
 567         break;
 568       silc_buffer_set(&buffer, (unsigned char *)payload->data,
 569                       payload->data_len);
 570       res = silc_buffer_unformat(&buffer,
 571                                  SILC_STR_UI16_STRING_ALLOC(&geo->longitude),
 572                                  SILC_STR_UI16_STRING_ALLOC(&geo->latitude),
 573                                  SILC_STR_UI16_STRING_ALLOC(&geo->altitude),
 574                                  SILC_STR_UI16_STRING_ALLOC(&geo->accuracy),
 575                                  SILC_STR_END);
 576       if (res == -1)
 577         break;
 578       ret = TRUE;
 579     }
 580     break;
 581
 582   case SILC_ATTRIBUTE_DEVICE_INFO:
 583     {
 584       SilcAttributeObjDevice *dev = object;
 585       SilcBufferStruct buffer;
 586       SilcUInt32 type;
 587       int res;
 588       if (object_size != sizeof(*dev))
 589         break;
 590       silc_buffer_set(&buffer, (unsigned char *)payload->data,
 591                       payload->data_len);
 592       res =
 593         silc_buffer_unformat(&buffer,
 594                              SILC_STR_UI_INT(&type),
 595                              SILC_STR_UI16_STRING_ALLOC(&dev->manufacturer),
 596                              SILC_STR_UI16_STRING_ALLOC(&dev->version),
 597                              SILC_STR_UI16_STRING_ALLOC(&dev->model),
 598                              SILC_STR_UI16_STRING_ALLOC(&dev->language),
 599                              SILC_STR_END);
 600       if (res == -1)
 601         break;
 602       dev->type = type;
 603       ret = TRUE;
 604     }
 605     break;
 606
 607   case SILC_ATTRIBUTE_USER_PUBLIC_KEY:
 608   case SILC_ATTRIBUTE_SERVER_PUBLIC_KEY:
 609     {
 610       SilcAttributeObjPk *pk = object;
 611       SilcBufferStruct buffer;
 612       int res;
 613       if (object_size != sizeof(*pk))
 614         break;
 615       silc_buffer_set(&buffer, (unsigned char *)payload->data,
 616                       payload->data_len);
 617       res =
 618         silc_buffer_unformat(&buffer,
 619                              SILC_STR_UI16_NSTRING_ALLOC(&pk->type, &len),
 620                              SILC_STR_END);
 621       if (res == -1)
 622         break;
 623       pk->data = silc_memdup(payload->data + 2 + len,
 624                              payload->data_len - 2 - len);
 625       pk->data_len = payload->data_len - 2 - len;
 626       ret = TRUE;
 627     }
 628     break;
 629
 630   case SILC_ATTRIBUTE_USER_DIGITAL_SIGNATURE:
 631   case SILC_ATTRIBUTE_SERVER_DIGITAL_SIGNATURE:
 632     {
 633       SilcAttributeObjPk *pk = object;
 634       if (object_size != sizeof(*pk))
 635         break;
 636       pk->type = NULL;
 637       pk->data = silc_memdup(payload->data, payload->data_len);
 638       pk->data_len = payload->data_len;
 639       ret = TRUE;
 640     }
 641     break;
 642
 643   default:
 644     break;
 645   }
 646
 647   return ret;
 648 }