ext/repo_pubkey.c

   1 /*
   2  * Copyright (c) 2007-2013, Novell Inc.
   3  *
   4  * This program is licensed under the BSD license, read LICENSE.BSD
   5  * for further information
   6  */
   7
   8 /*
   9  * repo_pubkey
  10  *
  11  * support for pubkey reading
  12  *
  13  */
  14
  15 #include <sys/types.h>
  16 #include <sys/stat.h>
  17 #include <limits.h>
  18 #include <fcntl.h>
  19 #include <stdio.h>
  20 #include <stdlib.h>
  21 #include <string.h>
  22 #include <unistd.h>
  23 #include <assert.h>
  24 #include <stdint.h>
  25 #include <errno.h>
  26 #include <dirent.h>
  27
  28 #include <rpm/rpmio.h>
  29 #include <rpm/rpmpgp.h>
  30 #ifndef RPM5
  31 #include <rpm/header.h>
  32 #endif
  33 #include <rpm/rpmdb.h>
  34
  35 #include "pool.h"
  36 #include "repo.h"
  37 #include "hash.h"
  38 #include "util.h"
  39 #include "queue.h"
  40 #include "chksum.h"
  41 #include "repo_rpmdb.h"
  42 #include "repo_pubkey.h"
  43 #ifdef ENABLE_PGPVRFY
  44 #include "solv_pgpvrfy.h"
  45 #endif
  46
  47 static void
  48 setutf8string(Repodata *repodata, Id handle, Id tag, const char *str)
  49 {
  50   if (str[solv_validutf8(str)])
  51     {
  52       char *ustr = solv_latin1toutf8(str);      /* not utf8, assume latin1 */
  53       repodata_set_str(repodata, handle, tag, ustr);
  54       solv_free(ustr);
  55     }
  56   else
  57     repodata_set_str(repodata, handle, tag, str);
  58 }
  59
  60 static char *
  61 r64dec1(char *p, unsigned int *vp, int *eofp)
  62 {
  63   int i, x;
  64   unsigned int v = 0;
  65
  66   for (i = 0; i < 4; )
  67     {
  68       x = *p++;
  69       if (!x)
  70         return 0;
  71       if (x >= 'A' && x <= 'Z')
  72         x -= 'A';
  73       else if (x >= 'a' && x <= 'z')
  74         x -= 'a' - 26;
  75       else if (x >= '0' && x <= '9')
  76         x -= '0' - 52;
  77       else if (x == '+')
  78         x = 62;
  79       else if (x == '/')
  80         x = 63;
  81       else if (x == '=')
  82         {
  83           x = 0;
  84           if (i == 0)
  85             {
  86               *eofp = 3;
  87               *vp = 0;
  88               return p - 1;
  89             }
  90           *eofp += 1;
  91         }
  92       else
  93         continue;
  94       v = v << 6 | x;
  95       i++;
  96     }
  97   *vp = v;
  98   return p;
  99 }
 100
 101 static unsigned int
 102 crc24(unsigned char *p, int len)
 103 {
 104   unsigned int crc = 0xb704ce;
 105   int i;
 106
 107   while (len--)
 108     {
 109       crc ^= (*p++) << 16;
 110       for (i = 0; i < 8; i++)
 111         if ((crc <<= 1) & 0x1000000)
 112           crc ^= 0x1864cfb;
 113     }
 114   return crc & 0xffffff;
 115 }
 116
 117 static int
 118 unarmor(char *pubkey, unsigned char **pktp, int *pktlp, const char *startstr, const char *endstr)
 119 {
 120   char *p, *pubkeystart = pubkey;
 121   int l, eof;
 122   unsigned char *buf, *bp;
 123   unsigned int v;
 124
 125   *pktp = 0;
 126   *pktlp = 0;
 127   if (!pubkey)
 128     return 0;
 129   l = strlen(startstr);
 130   while (strncmp(pubkey, startstr, l) != 0)
 131     {
 132       pubkey = strchr(pubkey, '\n');
 133       if (!pubkey)
 134         return 0;
 135       pubkey++;
 136     }
 137   pubkey = strchr(pubkey, '\n');
 138   if (!pubkey++)
 139     return 0;
 140   /* skip header lines */
 141   for (;;)
 142     {
 143       while (*pubkey == ' ' || *pubkey == '\t')
 144         pubkey++;
 145       if (*pubkey == '\n')
 146         break;
 147       pubkey = strchr(pubkey, '\n');
 148       if (!pubkey++)
 149         return 0;
 150     }
 151   pubkey++;
 152   p = strchr(pubkey, '=');
 153   if (!p)
 154     return 0;
 155   l = p - pubkey;
 156   bp = buf = solv_malloc(l * 3 / 4 + 4);
 157   eof = 0;
 158   while (!eof)
 159     {
 160       pubkey = r64dec1(pubkey, &v, &eof);
 161       if (!pubkey)
 162         {
 163           solv_free(buf);
 164           return 0;
 165         }
 166       *bp++ = v >> 16;
 167       *bp++ = v >> 8;
 168       *bp++ = v;
 169     }
 170   while (*pubkey == ' ' || *pubkey == '\t' || *pubkey == '\n' || *pubkey == '\r')
 171     pubkey++;
 172   bp -= eof;
 173   if (*pubkey != '=' || (pubkey = r64dec1(pubkey + 1, &v, &eof)) == 0)
 174     {
 175       solv_free(buf);
 176       return 0;
 177     }
 178   if (v != crc24(buf, bp - buf))
 179     {
 180       solv_free(buf);
 181       return 0;
 182     }
 183   while (*pubkey == ' ' || *pubkey == '\t' || *pubkey == '\n' || *pubkey == '\r')
 184     pubkey++;
 185   if (strncmp(pubkey, endstr, strlen(endstr)) != 0)
 186     {
 187       solv_free(buf);
 188       return 0;
 189     }
 190   p = strchr(pubkey, '\n');
 191   if (!p)
 192     p = pubkey + strlen(pubkey);
 193   *pktp = buf;
 194   *pktlp = bp - buf;
 195   return (p ? p + 1 : pubkey + strlen(pubkey)) - pubkeystart;
 196 }
 197
 198 #define ARMOR_NLAFTER   16
 199
 200 static char *
 201 armor(unsigned char *pkt, int pktl, const char *startstr, const char *endstr, const char *version)
 202 {
 203   static const char bintoasc[64] = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
 204   char *str = solv_malloc(strlen(startstr) + strlen(endstr) + strlen(version) + (pktl / 3) * 4 + (pktl / (ARMOR_NLAFTER * 3)) + 30);
 205   char *p = str;
 206   int a, b, c, i;
 207   unsigned int v;
 208
 209   v = crc24(pkt, pktl);
 210   sprintf(p, "%s\nVersion: %s\n\n", startstr, version);
 211   p += strlen(p);
 212   for (i = -1; pktl > 0; pktl -= 3)
 213     {
 214       if (++i == ARMOR_NLAFTER)
 215         {
 216           i = 0;
 217           *p++ = '\n';
 218         }
 219       a = *pkt++;
 220       b = pktl > 1 ? *pkt++ : 0;
 221       c = pktl > 2 ? *pkt++ : 0;
 222       *p++ = bintoasc[a >> 2];
 223       *p++ = bintoasc[(a & 3) << 4 | b >> 4];
 224       *p++ = pktl > 1 ? bintoasc[(b & 15) << 2 | c >> 6] : '=';
 225       *p++ = pktl > 2 ? bintoasc[c & 63] : '=';
 226     }
 227   *p++ = '\n';
 228   *p++ = '=';
 229   *p++ = bintoasc[v >> 18 & 0x3f];
 230   *p++ = bintoasc[v >> 12 & 0x3f];
 231   *p++ = bintoasc[v >>  6 & 0x3f];
 232   *p++ = bintoasc[v       & 0x3f];
 233   sprintf(p, "\n%s\n", endstr);
 234   return str;
 235 }
 236
 237 /* internal representation of a signature */
 238 struct pgpsig {
 239   int type;
 240   Id hashalgo;
 241   unsigned char issuer[8];
 242   int haveissuer;
 243   unsigned int created;
 244   unsigned int expires;
 245   unsigned int keyexpires;
 246   unsigned char *sigdata;
 247   int sigdatal;
 248   int mpioff;
 249 };
 250
 251 static Id
 252 pgphashalgo2type(int algo)
 253 {
 254   if (algo == 1)
 255     return REPOKEY_TYPE_MD5;
 256   if (algo == 2)
 257     return REPOKEY_TYPE_SHA1;
 258   if (algo == 8)
 259     return REPOKEY_TYPE_SHA256;
 260   return 0;
 261 }
 262
 263 /* hash the pubkey/userid data for self-sig verification
 264  * hash the final trailer
 265  * create a "sigdata" block suitable for a call to solv_pgpverify */
 266 static void
 267 pgpsig_makesigdata(struct pgpsig *sig, unsigned char *p, int l, unsigned char *pubkey, int pubkeyl, unsigned char *userid, int useridl, void *h)
 268 {
 269   int type = sig->type;
 270   unsigned char b[6];
 271   const unsigned char *cs;
 272   int csl;
 273
 274   if (!h || sig->mpioff < 2 || l <= sig->mpioff)
 275     return;
 276   if ((type >= 0x10 && type <= 0x13) || type == 0x1f || type == 0x18 || type == 0x20 || type == 0x28)
 277     {
 278       b[0] = 0x99;
 279       b[1] = pubkeyl >> 8;
 280       b[2] = pubkeyl;
 281       solv_chksum_add(h, b, 3);
 282       solv_chksum_add(h, pubkey, pubkeyl);
 283     }
 284   if ((type >= 0x10 && type <= 0x13))
 285     {
 286       if (p[0] != 3)
 287         {
 288           b[0] = 0xb4;
 289           b[1] = useridl >> 24;
 290           b[2] = useridl >> 16;
 291           b[3] = useridl >> 8;
 292           b[4] = useridl;
 293           solv_chksum_add(h, b, 5);
 294         }
 295       solv_chksum_add(h, userid, useridl);
 296     }
 297   /* add trailer */
 298   if (p[0] == 3)
 299     solv_chksum_add(h, p + 2, 5);
 300   else
 301     {
 302       int hl = 6 + (p[4] << 8 | p[5]);
 303       solv_chksum_add(h, p, hl);
 304       b[0] = 4;
 305       b[1] = 0xff;
 306       b[2] = hl >> 24;
 307       b[3] = hl >> 16;
 308       b[4] = hl >> 8;
 309       b[5] = hl;
 310       solv_chksum_add(h, b, 6);
 311     }
 312   cs = solv_chksum_get(h, &csl);
 313   if (cs[0] == p[sig->mpioff - 2] && cs[1] == p[sig->mpioff - 1])
 314     {
 315       int ml = l - sig->mpioff;
 316       sig->sigdata = solv_malloc(2 + csl + ml);
 317       sig->sigdatal = 2 + csl + ml;
 318       sig->sigdata[0] = p[0] == 3 ? p[15] : p[2];
 319       sig->sigdata[1] = p[0] == 3 ? p[16] : p[3];
 320       memcpy(sig->sigdata + 2, cs, csl);
 321       memcpy(sig->sigdata + 2 + csl, p + sig->mpioff, ml);
 322     }
 323 }
 324
 325 /* parse the header of a subpacket contained in a signature packet
 326  * returns: length of the packet header, 0 if there was an error
 327  * *pktlp is set to the packet length, the tag is the first byte.
 328  */
 329 static inline int
 330 parsesubpkglength(unsigned char *q, int ql, int *pktlp)
 331 {
 332   int x, sl, hl;
 333   /* decode sub-packet length, ql must be > 0 */
 334   x = *q++;
 335   if (x < 192)
 336     {
 337       sl = x;
 338       hl = 1;
 339     }
 340   else if (x == 255)
 341     {
 342       if (ql < 5 || q[0] != 0)
 343         return 0;
 344       sl = q[1] << 16 | q[2] << 8 | q[3];
 345       hl = 5;
 346     }
 347   else
 348     {
 349       if (ql < 2)
 350         return 0;
 351       sl = ((x - 192) << 8) + q[0] + 192;
 352       hl = 2;
 353     }
 354   if (!sl || ql < sl + hl)      /* sub pkg tag is included in length, i.e. sl must not be zero */
 355     return 0;
 356   *pktlp = sl;
 357   return hl;
 358 }
 359
 360 /* parse a signature packet, initializing the pgpsig struct */
 361 static void
 362 pgpsig_init(struct pgpsig *sig, unsigned char *p, int l)
 363 {
 364   memset(sig, 0, sizeof(*sig));
 365   sig->type = -1;
 366   if (p[0] == 3)
 367     {
 368       /* printf("V3 signature packet\n"); */
 369       if (l <= 19 || p[1] != 5)
 370         return;
 371       sig->type = p[2];
 372       sig->haveissuer = 1;
 373       memcpy(sig->issuer, p + 7, 8);
 374       sig->created = p[3] << 24 | p[4] << 16 | p[5] << 8 | p[6];
 375       sig->hashalgo = p[16];
 376       sig->mpioff = 19;
 377     }
 378   else if (p[0] == 4)
 379     {
 380       int j, ql, x;
 381       unsigned char *q;
 382
 383       /* printf("V4 signature packet\n"); */
 384       if (l < 6)
 385         return;
 386       sig->type = p[1];
 387       sig->hashalgo = p[3];
 388       q = p + 4;
 389       sig->keyexpires = -1;
 390       for (j = 0; q && j < 2; j++)
 391         {
 392           if (q + 2 > p + l)
 393             {
 394               q = 0;
 395               break;
 396             }
 397           ql = q[0] << 8 | q[1];
 398           q += 2;
 399           if (q + ql > p + l)
 400             {
 401               q = 0;
 402               break;
 403             }
 404           while (ql > 0)
 405             {
 406               int sl, hl;
 407               hl = parsesubpkglength(q, ql, &sl);
 408               if (!hl)
 409                 {
 410                   q = 0;
 411                   break;
 412                 }
 413               q += hl;
 414               ql -= hl;
 415               x = q[0] & 127;   /* strip critical bit */
 416               /* printf("%d SIGSUB %d %d\n", j, x, sl); */
 417               if (x == 16 && sl == 9 && !sig->haveissuer)
 418                 {
 419                   sig->haveissuer = 1;
 420                   memcpy(sig->issuer, q + 1, 8);
 421                 }
 422               if (x == 2 && j == 0)
 423                 sig->created = q[1] << 24 | q[2] << 16 | q[3] << 8 | q[4];
 424               if (x == 3 && j == 0)
 425                 sig->expires = q[1] << 24 | q[2] << 16 | q[3] << 8 | q[4];
 426               if (x == 9 && j == 0)
 427                 sig->keyexpires = q[1] << 24 | q[2] << 16 | q[3] << 8 | q[4];
 428               q += sl;
 429               ql -= sl;
 430             }
 431         }
 432       if (q && q - p + 2 < l)
 433         sig->mpioff = q - p + 2;
 434     }
 435 }
 436
 437 /* parse a pgp packet header
 438  * returns: length of the packet header, 0 if there was an error
 439  * *tagp and *pktlp is set to the packet tag and the packet length
 440  */
 441 static int
 442 parsepkgheader(unsigned char *p, int pl, int *tagp, int *pktlp)
 443 {
 444   unsigned char *op = p;
 445   int x, l;
 446
 447   if (!pl)
 448     return 0;
 449   x = *p++;
 450   pl--;
 451   if (!(x & 128) || pl <= 0)
 452     return 0;
 453   if ((x & 64) == 0)
 454     {
 455       *tagp = (x & 0x3c) >> 2;          /* old format */
 456       x = 1 << (x & 3);
 457       if (x > 4 || pl < x || (x == 4 && p[0]))
 458         return 0;
 459       pl -= x;
 460       for (l = 0; x--;)
 461         l = l << 8 | *p++;
 462     }
 463   else
 464     {
 465       *tagp = (x & 0x3f);               /* new format */
 466       x = *p++;
 467       pl--;
 468       if (x < 192)
 469         l = x;
 470       else if (x >= 192 && x < 224)
 471         {
 472           if (pl <= 0)
 473             return 0;
 474           l = ((x - 192) << 8) + *p++ + 192;
 475           pl--;
 476         }
 477       else if (x == 255)
 478         {
 479           if (pl <= 4 || p[0] != 0)     /* sanity: p[0] must be zero */
 480             return 0;
 481           l = p[1] << 16 | p[2] << 8 | p[3];
 482           p += 4;
 483           pl -= 4;
 484         }
 485       else
 486         return 0;
 487     }
 488   if (l > pl)
 489     return 0;
 490   *pktlp = l;
 491   return p - op;
 492 }
 493
 494 /* parse the first pubkey (possible creating new packages for the subkeys)
 495  * returns the number of parsed bytes.
 496  * if flags contains ADD_WITH_SUBKEYS, all subkeys will be added as new
 497  * solvables as well */
 498 static int
 499 parsepubkey(Solvable *s, Repodata *data, unsigned char *p, int pl, int flags)
 500 {
 501   Repo *repo = s->repo;
 502   unsigned char *pstart = p;
 503   int tag, l;
 504   unsigned char keyid[8];
 505   unsigned int kcr = 0, maxex = 0, maxsigcr = 0;
 506   unsigned char *pubkey = 0;
 507   int pubkeyl = 0;
 508   int insubkey = 0;
 509   unsigned char *userid = 0;
 510   int useridl = 0;
 511   unsigned char *pubdata = 0;
 512   int pubdatal = 0;
 513
 514   for (; ; p += l, pl -= l)
 515     {
 516       int hl = parsepkgheader(p, pl, &tag, &l);
 517       if (!hl || (pubkey && (tag == 6 || tag == 14)))
 518         {
 519           /* finish old key */
 520           if (kcr)
 521             repodata_set_num(data, s - repo->pool->solvables, SOLVABLE_BUILDTIME, kcr);
 522           if (maxex && maxex != -1)
 523             repodata_set_num(data, s - repo->pool->solvables, PUBKEY_EXPIRES, maxex);
 524           s->name = pool_str2id(s->repo->pool, insubkey ? "gpg-subkey" : "gpg-pubkey", 1);
 525           s->evr = 1;
 526           s->arch = 1;
 527           if (userid && useridl)
 528             {
 529               char *useridstr = solv_malloc(useridl + 1);
 530               memcpy(useridstr, userid, useridl);
 531               useridstr[useridl] = 0;
 532               setutf8string(data, s - repo->pool->solvables, SOLVABLE_SUMMARY, useridstr);
 533               free(useridstr);
 534             }
 535           if (pubdata)
 536             {
 537               char keyidstr[17];
 538               char evr[8 + 1 + 8 + 1];
 539               solv_bin2hex(keyid, 8, keyidstr);
 540               repodata_set_str(data, s - repo->pool->solvables, PUBKEY_KEYID, keyidstr);
 541               /* build rpm-style evr */
 542               strcpy(evr, keyidstr + 8);
 543               sprintf(evr + 8, "-%08x", maxsigcr);
 544               s->evr = pool_str2id(repo->pool, evr, 1);
 545             }
 546           if (pubdata)          /* set data blob */
 547             repodata_set_binary(data, s - repo->pool->solvables, PUBKEY_DATA, pubdata, pubdatal);
 548           if (!pl)
 549             break;
 550           if (!hl)
 551             {
 552               p = 0;    /* parse error */
 553               break;
 554             }
 555           if (tag == 6 || (tag == 14 && !(flags & ADD_WITH_SUBKEYS)))
 556             break;
 557           /* create new solvable for subkey */
 558           s = pool_id2solvable(repo->pool, repo_add_solvable(repo));
 559         }
 560       p += hl;
 561       pl -= hl;
 562       if (!pubkey && tag != 6)
 563         continue;
 564       if (tag == 6 || (tag == 14 && (flags & ADD_WITH_SUBKEYS) != 0))           /* Public-Key Packet */
 565         {
 566           if (tag == 6)
 567             {
 568               pubkey = solv_memdup(p, l);
 569               pubkeyl = l;
 570             }
 571           else
 572             insubkey = 1;
 573           if (p[0] == 3 && l >= 10)
 574             {
 575               unsigned int ex;
 576               void *h;
 577               maxsigcr = kcr = p[1] << 24 | p[2] << 16 | p[3] << 8 | p[4];
 578               ex = 0;
 579               if (p[5] || p[6])
 580                 {
 581                   ex = kcr + 24*3600 * (p[5] << 8 | p[6]);
 582                   if (ex > maxex)
 583                     maxex = ex;
 584                 }
 585               memset(keyid, 0, 8);
 586               if (p[7] == 1)    /* RSA */
 587                 {
 588                   int ql, ql2;
 589                   unsigned char fp[16];
 590                   char fpx[32 + 1];
 591                   unsigned char *q;
 592
 593                   ql = ((p[8] << 8 | p[9]) + 7) / 8;            /* length of public modulus */
 594                   if (ql >= 8 && 10 + ql + 2 <= l)
 595                     {
 596                       memcpy(keyid, p + 10 + ql - 8, 8);        /* keyid is last 64 bits of public modulus */
 597                       q = p + 10 + ql;
 598                       ql2 = ((q[0] << 8 | q[1]) + 7) / 8;       /* length of encryption exponent */
 599                       if (10 + ql + 2 + ql2 <= l)
 600                         {
 601                           /* fingerprint is the md5 over the two MPI bodies */
 602                           h = solv_chksum_create(REPOKEY_TYPE_MD5);
 603                           solv_chksum_add(h, p + 10, ql);
 604                           solv_chksum_add(h, q + 2, ql2);
 605                           solv_chksum_free(h, fp);
 606                           solv_bin2hex(fp, 16, fpx);
 607                           repodata_set_str(data, s - s->repo->pool->solvables, PUBKEY_FINGERPRINT, fpx);
 608                         }
 609                     }
 610                   pubdata = p + 7;
 611                   pubdatal = l - 7;
 612                 }
 613             }
 614           else if (p[0] == 4 && l >= 6)
 615             {
 616               void *h;
 617               unsigned char hdr[3];
 618               unsigned char fp[20];
 619               char fpx[40 + 1];
 620
 621               maxsigcr = kcr = p[1] << 24 | p[2] << 16 | p[3] << 8 | p[4];
 622               hdr[0] = 0x99;
 623               hdr[1] = l >> 8;
 624               hdr[2] = l;
 625               /* fingerprint is the sha1 over the packet */
 626               h = solv_chksum_create(REPOKEY_TYPE_SHA1);
 627               solv_chksum_add(h, hdr, 3);
 628               solv_chksum_add(h, p, l);
 629               solv_chksum_free(h, fp);
 630               solv_bin2hex(fp, 20, fpx);
 631               repodata_set_str(data, s - s->repo->pool->solvables, PUBKEY_FINGERPRINT, fpx);
 632               memcpy(keyid, fp + 12, 8);        /* keyid is last 64 bits of fingerprint */
 633               pubdata = p + 5;
 634               pubdatal = l - 5;
 635             }
 636         }
 637       if (tag == 2)             /* Signature Packet */
 638         {
 639           struct pgpsig sig;
 640           Id htype;
 641           if (!pubdata)
 642             continue;
 643           pgpsig_init(&sig, p, l);
 644           if (!sig.haveissuer || !((sig.type >= 0x10 && sig.type <= 0x13) || sig.type == 0x1f))
 645             continue;
 646           if (sig.type >= 0x10 && sig.type <= 0x13 && !userid)
 647             continue;
 648           htype = pgphashalgo2type(sig.hashalgo);
 649           if (htype && sig.mpioff)
 650             {
 651               void *h = solv_chksum_create(htype);
 652               pgpsig_makesigdata(&sig, p, l, pubkey, pubkeyl, userid, useridl, h);
 653               solv_chksum_free(h, 0);
 654             }
 655           if (!memcmp(keyid, sig.issuer, 8))
 656             {
 657 #ifdef ENABLE_PGPVRFY
 658               /* found self sig, verify */
 659               if (solv_pgpvrfy(pubdata, pubdatal, sig.sigdata, sig.sigdatal))
 660 #endif
 661                 {
 662                   if (sig.keyexpires && maxex != -1)
 663                     {
 664                       if (sig.keyexpires == -1)
 665                         maxex = -1;
 666                       else if (sig.keyexpires + kcr > maxex)
 667                         maxex = sig.keyexpires + kcr;
 668                     }
 669                   if (sig.created > maxsigcr)
 670                     maxsigcr = sig.created;
 671                 }
 672             }
 673           else if (flags & ADD_WITH_KEYSIGNATURES)
 674             {
 675               char issuerstr[17];
 676               Id shandle = repodata_new_handle(data);
 677               solv_bin2hex(sig.issuer, 8, issuerstr);
 678               repodata_set_str(data, shandle, SIGNATURE_ISSUER, issuerstr);
 679               if (sig.created)
 680                 repodata_set_num(data, shandle, SIGNATURE_TIME, sig.created);
 681               if (sig.expires)
 682                 repodata_set_num(data, shandle, SIGNATURE_EXPIRES, sig.created + sig.expires);
 683               if (sig.sigdata)
 684                 repodata_set_binary(data, shandle, SIGNATURE_DATA, sig.sigdata, sig.sigdatal);
 685               repodata_add_flexarray(data, s - s->repo->pool->solvables, PUBKEY_SIGNATURES, shandle);
 686             }
 687           solv_free(sig.sigdata);
 688         }
 689       if (tag == 13 && !insubkey)               /* User ID Packet */
 690         {
 691           userid = solv_realloc(userid, l);
 692           if (l)
 693             memcpy(userid, p, l);
 694           useridl = l;
 695         }
 696     }
 697   solv_free(pubkey);
 698   solv_free(userid);
 699   return p ? p - pstart : 0;
 700 }
 701
 702
 703 #ifdef ENABLE_RPMDB
 704
 705 /* this is private to rpm, but rpm lacks an interface to retrieve
 706  * the values. Sigh. */
 707 struct pgpDigParams_s {
 708     const char * userid;
 709     const unsigned char * hash;
 710 #ifndef HAVE_PGPDIGGETPARAMS
 711     const char * params[4];
 712 #endif
 713     unsigned char tag;
 714     unsigned char version;               /*!< version number. */
 715     unsigned char time[4];               /*!< time that the key was created. */
 716     unsigned char pubkey_algo;           /*!< public key algorithm. */
 717     unsigned char hash_algo;
 718     unsigned char sigtype;
 719     unsigned char hashlen;
 720     unsigned char signhash16[2];
 721     unsigned char signid[8];
 722     unsigned char saved;
 723 };
 724
 725 #ifndef HAVE_PGPDIGGETPARAMS
 726 struct pgpDig_s {
 727     struct pgpDigParams_s signature;
 728     struct pgpDigParams_s pubkey;
 729 };
 730 #endif
 731
 732
 733 /* only rpm knows how to do the release calculation, we don't dare
 734  * to recreate all the bugs in libsolv */
 735 static void
 736 parsepubkey_rpm(Solvable *s, Repodata *data, unsigned char *pkts, int pktsl)
 737 {
 738   Pool *pool = s->repo->pool;
 739   struct pgpDigParams_s *digpubkey;
 740   pgpDig dig = 0;
 741   char keyid[16 + 1];
 742   char evrbuf[8 + 1 + 8 + 1];
 743   unsigned int btime;
 744
 745 #ifndef RPM5
 746   dig = pgpNewDig();
 747 #else
 748   dig = pgpDigNew(RPMVSF_DEFAULT, 0);
 749 #endif
 750   (void) pgpPrtPkts(pkts, pktsl, dig, 0);
 751 #ifdef HAVE_PGPDIGGETPARAMS
 752   digpubkey = pgpDigGetParams(dig, PGPTAG_PUBLIC_KEY);
 753 #else
 754   digpubkey = &dig->pubkey;
 755 #endif
 756   if (digpubkey)
 757     {
 758       btime = digpubkey->time[0] << 24 | digpubkey->time[1] << 16 | digpubkey->time[2] << 8 | digpubkey->time[3];
 759       solv_bin2hex(digpubkey->signid, 8, keyid);
 760       solv_bin2hex(digpubkey->signid + 4, 4, evrbuf);
 761       evrbuf[8] = '-';
 762       solv_bin2hex(digpubkey->time, 4, evrbuf + 9);
 763       s->evr = pool_str2id(pool, evrbuf, 1);
 764       repodata_set_str(data, s - s->repo->pool->solvables, PUBKEY_KEYID, keyid);
 765       if (digpubkey->userid)
 766         setutf8string(data, s - s->repo->pool->solvables, SOLVABLE_SUMMARY, digpubkey->userid);
 767       if (btime)
 768         repodata_set_num(data, s - s->repo->pool->solvables, SOLVABLE_BUILDTIME, btime);
 769     }
 770 #ifndef RPM5
 771   (void)pgpFreeDig(dig);
 772 #else
 773   (void)pgpDigFree(dig);
 774 #endif
 775 }
 776
 777 #endif  /* ENABLE_RPMDB */
 778
 779 /* parse an ascii armored pubkey
 780  * adds multiple pubkeys if ADD_MULTIPLE_PUBKEYS is set */
 781 static int
 782 pubkey2solvable(Pool *pool, Id p, Repodata *data, char *pubkey, int flags)
 783 {
 784   unsigned char *pkts, *pkts_orig;
 785   int pktsl, pl = 0, tag, l, hl;
 786
 787   if (!unarmor(pubkey, &pkts, &pktsl, "-----BEGIN PGP PUBLIC KEY BLOCK-----", "-----END PGP PUBLIC KEY BLOCK-----"))
 788     {
 789       pool_error(pool, 0, "unarmor failure");
 790       return 0;
 791     }
 792   pkts_orig = pkts;
 793   tag = 6;
 794   while (pktsl)
 795     {
 796       if (tag == 6)
 797         {
 798           setutf8string(data, p, SOLVABLE_DESCRIPTION, pubkey);
 799           pl = parsepubkey(pool->solvables + p, data, pkts, pktsl, flags);
 800 #ifdef ENABLE_RPMDB
 801           parsepubkey_rpm(pool->solvables + p, data, pkts, pktsl);
 802 #endif
 803           if (!pl || !(flags & ADD_MULTIPLE_PUBKEYS))
 804             break;
 805         }
 806       pkts += pl;
 807       pktsl -= pl;
 808       hl = parsepkgheader(pkts, pktsl, &tag, &l);
 809       if (!hl)
 810         break;
 811       pl = l + hl;
 812       if (tag == 6)
 813         p = repo_add_solvable(pool->solvables[p].repo);
 814     }
 815   solv_free((void *)pkts_orig);
 816   return 1;
 817 }
 818
 819 #ifdef ENABLE_RPMDB
 820
 821 int
 822 repo_add_rpmdb_pubkeys(Repo *repo, int flags)
 823 {
 824   Pool *pool = repo->pool;
 825   Queue q;
 826   int i;
 827   char *str;
 828   Repodata *data;
 829   const char *rootdir = 0;
 830   void *state;
 831
 832   data = repo_add_repodata(repo, flags);
 833   if (flags & REPO_USE_ROOTDIR)
 834     rootdir = pool_get_rootdir(pool);
 835   state = rpm_state_create(repo->pool, rootdir);
 836   queue_init(&q);
 837   rpm_installedrpmdbids(state, "Name", "gpg-pubkey", &q);
 838   for (i = 0; i < q.count; i++)
 839     {
 840       Id p, p2;
 841       void *handle;
 842       unsigned long long itime;
 843
 844       handle = rpm_byrpmdbid(state, q.elements[i]);
 845       if (!handle)
 846         continue;
 847       str = rpm_query(handle, SOLVABLE_DESCRIPTION);
 848       if (!str)
 849         continue;
 850       p = repo_add_solvable(repo);
 851       if (!pubkey2solvable(pool, p, data, str, flags))
 852         {
 853           solv_free(str);
 854           repo_free_solvable(repo, p, 1);
 855           continue;
 856         }
 857       solv_free(str);
 858       itime = rpm_query_num(handle, SOLVABLE_INSTALLTIME, 0);
 859       for (p2 = p; p2 < pool->nsolvables; p2++)
 860         {
 861           if (itime)
 862             repodata_set_num(data, p2, SOLVABLE_INSTALLTIME, itime);
 863           if (!repo->rpmdbid)
 864             repo->rpmdbid = repo_sidedata_create(repo, sizeof(Id));
 865           repo->rpmdbid[p2 - repo->start] = q.elements[i];
 866         }
 867     }
 868   queue_free(&q);
 869   rpm_state_free(state);
 870   if (!(flags & REPO_NO_INTERNALIZE))
 871     repodata_internalize(data);
 872   return 0;
 873 }
 874
 875 #endif
 876
 877 static char *
 878 solv_slurp(FILE *fp, int *lenp)
 879 {
 880   int l, ll;
 881   char *buf = 0;
 882   int bufl = 0;
 883
 884   for (l = 0; ; l += ll)
 885     {
 886       if (bufl - l < 4096)
 887         {
 888           bufl += 4096;
 889           buf = solv_realloc(buf, bufl);
 890         }
 891       ll = fread(buf + l, 1, bufl - l, fp);
 892       if (ll < 0)
 893         {
 894           buf = solv_free(buf);
 895           l = 0;
 896           break;
 897         }
 898       if (ll == 0)
 899         {
 900           buf[l] = 0;   /* always zero-terminate */
 901           break;
 902         }
 903     }
 904   if (lenp)
 905     *lenp = l;
 906   return buf;
 907 }
 908
 909 Id
 910 repo_add_pubkey(Repo *repo, const char *keyfile, int flags)
 911 {
 912   Pool *pool = repo->pool;
 913   Repodata *data;
 914   Id p;
 915   char *buf;
 916   FILE *fp;
 917
 918   data = repo_add_repodata(repo, flags);
 919   buf = 0;
 920   if ((fp = fopen(flags & REPO_USE_ROOTDIR ? pool_prepend_rootdir_tmp(pool, keyfile) : keyfile, "r")) == 0)
 921     {
 922       pool_error(pool, -1, "%s: %s", keyfile, strerror(errno));
 923       return 0;
 924     }
 925   if ((buf = solv_slurp(fp, 0)) == 0)
 926     {
 927       pool_error(pool, -1, "%s: %s", keyfile, strerror(errno));
 928       fclose(fp);
 929       return 0;
 930     }
 931   fclose(fp);
 932   p = repo_add_solvable(repo);
 933   if (!pubkey2solvable(pool, p, data, buf, flags))
 934     {
 935       repo_free_solvable(repo, p, 1);
 936       solv_free(buf);
 937       return 0;
 938     }
 939   if (!(flags & REPO_NO_LOCATION))
 940     {
 941       Id p2;
 942       for (p2 = p; p2 < pool->nsolvables; p2++)
 943         repodata_set_location(data, p2, 0, 0, keyfile);
 944     }
 945   solv_free(buf);
 946   if (!(flags & REPO_NO_INTERNALIZE))
 947     repodata_internalize(data);
 948   return p;
 949 }
 950
 951 static int
 952 is_sig_packet(unsigned char *sig, int sigl)
 953 {
 954   if (!sigl)
 955     return 0;
 956   if ((sig[0] & 0x80) == 0 || (sig[0] & 0x40 ? sig[0] & 0x3f : sig[0] >> 2 & 0x0f) != 2)
 957     return 0;
 958   return 1;
 959 }
 960
 961 static int
 962 is_pubkey_packet(unsigned char *pkt, int pktl)
 963 {
 964   if (!pktl)
 965     return 0;
 966   if ((pkt[0] & 0x80) == 0 || (pkt[0] & 0x40 ? pkt[0] & 0x3f : pkt[0] >> 2 & 0x0f) != 6)
 967     return 0;
 968   return 1;
 969 }
 970
 971 static void
 972 add_one_pubkey(Pool *pool, Repo *repo, Repodata *data, unsigned char *pbuf, int pbufl, int flags)
 973 {
 974   Id p = repo_add_solvable(repo);
 975   char *solvversion = pool_tmpjoin(pool, "libsolv-", LIBSOLV_VERSION_STRING, 0);
 976   char *descr = armor(pbuf, pbufl, "-----BEGIN PGP PUBLIC KEY BLOCK-----", "-----END PGP PUBLIC KEY BLOCK-----", solvversion);
 977   setutf8string(data, p, SOLVABLE_DESCRIPTION, descr);
 978   parsepubkey(pool->solvables + p, data, pbuf, pbufl, flags);
 979 #ifdef ENABLE_RPMDB
 980   parsepubkey_rpm(pool->solvables + p, data, pbuf, pbufl);
 981 #endif
 982 }
 983
 984 int
 985 repo_add_keyring(Repo *repo, FILE *fp, int flags)
 986 {
 987   Pool *pool = repo->pool;
 988   Repodata *data;
 989   unsigned char *buf, *p, *pbuf;
 990   int bufl, l, pl, pbufl;
 991
 992   data = repo_add_repodata(repo, flags);
 993   buf = (unsigned char *)solv_slurp(fp, &bufl);
 994   if (buf && !is_pubkey_packet(buf, bufl))
 995     {
 996       /* assume ascii armored */
 997       unsigned char *nbuf = 0, *ubuf;
 998       int nl, ubufl;
 999       bufl = 0;
1000       for (l = 0; (nl = unarmor((char *)buf + l, &ubuf, &ubufl, "-----BEGIN PGP PUBLIC KEY BLOCK-----", "-----END PGP PUBLIC KEY BLOCK-----")) != 0; l += nl)
1001         {
1002           /* found another block. concat. */
1003           nbuf = solv_realloc(nbuf, bufl + ubufl);
1004           if (ubufl)
1005             memcpy(nbuf + bufl, ubuf, ubufl);
1006           bufl += ubufl;
1007           solv_free(ubuf);
1008         }
1009       solv_free(buf);
1010       buf = nbuf;
1011     }
1012   /* now split into pubkey parts, ignoring the packets we don't know */
1013   pbuf = 0;
1014   pbufl = 0;
1015   for (p = buf; bufl; p += pl, bufl -= pl)
1016     {
1017       int tag;
1018       int hl = parsepkgheader(p, bufl, &tag, &pl);
1019       if (!hl)
1020         break;
1021       pl += hl;
1022       if (tag == 6)
1023         {
1024           /* found new pubkey! flush old */
1025           if (pbufl)
1026             {
1027               add_one_pubkey(pool, repo, data, pbuf, pbufl, flags);
1028               pbuf = solv_free(pbuf);
1029               pbufl = 0;
1030             }
1031         }
1032       if (tag != 6 && !pbufl)
1033         continue;
1034       if (tag != 6 && tag != 2 && tag != 13 && tag != 14 && tag != 17)
1035         continue;
1036       /* we want that packet. concat. */
1037       pbuf = solv_realloc(pbuf, pbufl + pl);
1038       memcpy(pbuf + pbufl, p, pl);
1039       pbufl += pl;
1040     }
1041   if (pbufl)
1042     add_one_pubkey(pool, repo, data, pbuf, pbufl, flags);
1043   solv_free(pbuf);
1044   solv_free(buf);
1045   if (!(flags & REPO_NO_INTERNALIZE))
1046     repodata_internalize(data);
1047   return 0;
1048 }
1049
1050 int
1051 repo_add_keydir(Repo *repo, const char *keydir, const char *suffix, int flags)
1052 {
1053   Pool *pool = repo->pool;
1054   Repodata *data;
1055   int i, nent, sl;
1056   struct dirent **namelist;
1057   char *rkeydir;
1058
1059   data = repo_add_repodata(repo, flags);
1060   nent = scandir(flags & REPO_USE_ROOTDIR ? pool_prepend_rootdir_tmp(pool, keydir) : keydir, &namelist, 0, alphasort);
1061   if (nent == -1)
1062     return pool_error(pool, -1, "%s: %s", keydir, strerror(errno));
1063   rkeydir = pool_prepend_rootdir(pool, keydir);
1064   sl = suffix ? strlen(suffix) : 0;
1065   for (i = 0; i < nent; i++)
1066     {
1067       const char *dn = namelist[i]->d_name;
1068       int l;
1069       if (*dn == '.' && !(flags & ADD_KEYDIR_WITH_DOTFILES))
1070         continue;
1071       l = strlen(dn);
1072       if (sl && (l < sl || strcmp(dn + l - sl, suffix) != 0))
1073         continue;
1074       repo_add_pubkey(repo, pool_tmpjoin(pool, rkeydir, "/", dn), flags | REPO_REUSE_REPODATA);
1075     }
1076   solv_free(rkeydir);
1077   for (i = 0; i < nent; i++)
1078     solv_free(namelist[i]);
1079   solv_free(namelist);
1080   if (!(flags & REPO_NO_INTERNALIZE))
1081     repodata_internalize(data);
1082   return 0;
1083 }
1084
1085 Solvsig *
1086 solvsig_create(FILE *fp)
1087 {
1088   Solvsig *ss;
1089   unsigned char *sig;
1090   int sigl, hl, tag, pktl;
1091   struct pgpsig pgpsig;
1092
1093   if ((sig = (unsigned char *)solv_slurp(fp, &sigl)) == 0)
1094     return 0;
1095   if (!is_sig_packet(sig, sigl))
1096     {
1097       /* not a raw sig, check armored */
1098       unsigned char *nsig;
1099       if (!unarmor((char *)sig, &nsig, &sigl, "-----BEGIN PGP SIGNATURE-----", "-----END PGP SIGNATURE-----"))
1100         {
1101           solv_free(sig);
1102           return 0;
1103         }
1104       solv_free(sig);
1105       sig = nsig;
1106       if (!is_sig_packet(sig, sigl))
1107         {
1108           solv_free(sig);
1109           return 0;
1110         }
1111     }
1112   hl = parsepkgheader(sig, sigl, &tag, &pktl);
1113   if (!hl || tag != 2 || !pktl)
1114     {
1115       solv_free(sig);
1116       return 0;
1117     }
1118   pgpsig_init(&pgpsig, sig + hl, pktl);
1119   if (pgpsig.type != 0 || !pgpsig.haveissuer)
1120     {
1121       solv_free(sig);
1122       return 0;
1123     }
1124   ss = solv_calloc(1, sizeof(*ss));
1125   ss->sigpkt = solv_memdup(sig + hl, pktl);
1126   ss->sigpktl = pktl;
1127   solv_free(sig);
1128   solv_bin2hex(pgpsig.issuer, 8, ss->keyid);
1129   ss->htype = pgphashalgo2type(pgpsig.hashalgo);
1130   ss->created = pgpsig.created;
1131   ss->expires = pgpsig.expires;
1132   return ss;
1133 }
1134
1135 void
1136 solvsig_free(Solvsig *ss)
1137 {
1138   solv_free(ss->sigpkt);
1139   solv_free(ss);
1140 }
1141
1142 #ifdef ENABLE_PGPVRFY
1143
1144 static int
1145 repo_verify_sigdata_cmp(const void *va, const void *vb, void *dp)
1146 {
1147   Pool *pool = dp;
1148   Id a = *(Id *)va;
1149   Id b = *(Id *)vb;
1150   /* cannot use evrcmp, as rpm says '0' > 'a' */
1151   return strcmp(pool_id2str(pool, pool->solvables[b].evr), pool_id2str(pool, pool->solvables[a].evr));
1152 }
1153
1154 /* warning: does not check key expiry/revokation, like gpgv or rpm */
1155 /* returns the Id of the pubkey that verified the signature */
1156 Id
1157 repo_verify_sigdata(Repo *repo, unsigned char *sigdata, int sigdatal, const char *keyid)
1158 {
1159   Id p;
1160   Solvable *s;
1161   Queue q;
1162   int i;
1163
1164   if (!sigdata || !keyid)
1165     return 0;
1166   queue_init(&q);
1167   FOR_REPO_SOLVABLES(repo, p, s)
1168     {
1169       const char *evr = pool_id2str(s->repo->pool, s->evr);
1170       const char *kidstr;
1171
1172       if (!evr || strncmp(evr, keyid + 8, 8) != 0)
1173        continue;
1174       kidstr = solvable_lookup_str(s, PUBKEY_KEYID);
1175       if (!kidstr || strcmp(kidstr, keyid) != 0)
1176         continue;
1177       queue_push(&q, p);
1178     }
1179   if (q.count > 1)
1180     solv_sort(q.elements, q.count, sizeof(Id), repo_verify_sigdata_cmp, repo->pool);
1181   for (i = 0; i < q.count; i++)
1182     {
1183       int pubdatal;
1184       const unsigned char *pubdata = repo_lookup_binary(repo, q.elements[i], PUBKEY_DATA, &pubdatal);
1185       if (pubdata && solv_pgpvrfy(pubdata, pubdatal, sigdata, sigdatal))
1186         break;
1187     }
1188   p = i < q.count? q.elements[i] : 0;
1189   queue_free(&q);
1190   return p;
1191 }
1192
1193 Id
1194 solvsig_verify(Solvsig *ss, Repo *repo, void *chk)
1195 {
1196   struct pgpsig pgpsig;
1197   void *chk2;
1198   Id p;
1199
1200   if (!chk || solv_chksum_isfinished(chk))
1201     return 0;
1202   pgpsig_init(&pgpsig, ss->sigpkt, ss->sigpktl);
1203   chk2 = solv_chksum_create_clone(chk);
1204   pgpsig_makesigdata(&pgpsig, ss->sigpkt, ss->sigpktl, 0, 0, 0, 0, chk2);
1205   solv_chksum_free(chk2, 0);
1206   if (!pgpsig.sigdata)
1207     return 0;
1208   p = repo_verify_sigdata(repo, pgpsig.sigdata, pgpsig.sigdatal, ss->keyid);
1209   solv_free(pgpsig.sigdata);
1210   return p;
1211 }
1212
1213 #endif
1214