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, Chksum *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   char subkeyofstr[17];
 506   unsigned int kcr = 0, maxex = 0, maxsigcr = 0;
 507   unsigned char *pubkey = 0;
 508   int pubkeyl = 0;
 509   int insubkey = 0;
 510   unsigned char *userid = 0;
 511   int useridl = 0;
 512   unsigned char *pubdata = 0;
 513   int pubdatal = 0;
 514
 515   *subkeyofstr = 0;
 516   for (; ; p += l, pl -= l)
 517     {
 518       int hl = parsepkgheader(p, pl, &tag, &l);
 519       if (!hl || (pubkey && (tag == 6 || tag == 14)))
 520         {
 521           /* finish old key */
 522           if (kcr)
 523             repodata_set_num(data, s - repo->pool->solvables, SOLVABLE_BUILDTIME, kcr);
 524           if (maxex && maxex != -1)
 525             repodata_set_num(data, s - repo->pool->solvables, PUBKEY_EXPIRES, maxex);
 526           s->name = pool_str2id(s->repo->pool, insubkey ? "gpg-subkey" : "gpg-pubkey", 1);
 527           s->evr = 1;
 528           s->arch = 1;
 529           if (userid && useridl)
 530             {
 531               char *useridstr = solv_malloc(useridl + 1);
 532               memcpy(useridstr, userid, useridl);
 533               useridstr[useridl] = 0;
 534               setutf8string(data, s - repo->pool->solvables, SOLVABLE_SUMMARY, useridstr);
 535               free(useridstr);
 536             }
 537           if (pubdata)
 538             {
 539               char keyidstr[17];
 540               char evr[8 + 1 + 8 + 1];
 541               solv_bin2hex(keyid, 8, keyidstr);
 542               repodata_set_str(data, s - repo->pool->solvables, PUBKEY_KEYID, keyidstr);
 543               /* build rpm-style evr */
 544               strcpy(evr, keyidstr + 8);
 545               sprintf(evr + 8, "-%08x", maxsigcr);
 546               s->evr = pool_str2id(repo->pool, evr, 1);
 547             }
 548           if (insubkey && *subkeyofstr)
 549             repodata_set_str(data, s - repo->pool->solvables, PUBKEY_SUBKEYOF, subkeyofstr);
 550           if (pubdata)          /* set data blob */
 551             repodata_set_binary(data, s - repo->pool->solvables, PUBKEY_DATA, pubdata, pubdatal);
 552           if (!pl)
 553             break;
 554           if (!hl)
 555             {
 556               p = 0;    /* parse error */
 557               break;
 558             }
 559           if (tag == 6 || (tag == 14 && !(flags & ADD_WITH_SUBKEYS)))
 560             break;
 561           if (tag == 14 && pubdata && !insubkey)
 562             solv_bin2hex(keyid, 8, subkeyofstr);
 563           /* create new solvable for subkey */
 564           s = pool_id2solvable(repo->pool, repo_add_solvable(repo));
 565         }
 566       p += hl;
 567       pl -= hl;
 568       if (!pubkey && tag != 6)
 569         continue;
 570       if (tag == 6 || (tag == 14 && (flags & ADD_WITH_SUBKEYS) != 0))           /* Public-Key Packet */
 571         {
 572           if (tag == 6)
 573             {
 574               pubkey = solv_memdup(p, l);
 575               pubkeyl = l;
 576             }
 577           else
 578             insubkey = 1;
 579           pubdata = 0;
 580           pubdatal = 0;
 581           if (p[0] == 3 && l >= 10)
 582             {
 583               unsigned int ex;
 584               Chksum *h;
 585               maxsigcr = kcr = p[1] << 24 | p[2] << 16 | p[3] << 8 | p[4];
 586               ex = 0;
 587               if (p[5] || p[6])
 588                 {
 589                   ex = kcr + 24*3600 * (p[5] << 8 | p[6]);
 590                   if (ex > maxex)
 591                     maxex = ex;
 592                 }
 593               memset(keyid, 0, 8);
 594               if (p[7] == 1)    /* RSA */
 595                 {
 596                   int ql, ql2;
 597                   unsigned char fp[16];
 598                   char fpx[32 + 1];
 599                   unsigned char *q;
 600
 601                   ql = ((p[8] << 8 | p[9]) + 7) / 8;            /* length of public modulus */
 602                   if (ql >= 8 && 10 + ql + 2 <= l)
 603                     {
 604                       memcpy(keyid, p + 10 + ql - 8, 8);        /* keyid is last 64 bits of public modulus */
 605                       q = p + 10 + ql;
 606                       ql2 = ((q[0] << 8 | q[1]) + 7) / 8;       /* length of encryption exponent */
 607                       if (10 + ql + 2 + ql2 <= l)
 608                         {
 609                           /* fingerprint is the md5 over the two MPI bodies */
 610                           h = solv_chksum_create(REPOKEY_TYPE_MD5);
 611                           solv_chksum_add(h, p + 10, ql);
 612                           solv_chksum_add(h, q + 2, ql2);
 613                           solv_chksum_free(h, fp);
 614                           solv_bin2hex(fp, 16, fpx);
 615                           repodata_set_str(data, s - s->repo->pool->solvables, PUBKEY_FINGERPRINT, fpx);
 616                         }
 617                     }
 618                   pubdata = p + 7;
 619                   pubdatal = l - 7;
 620                 }
 621             }
 622           else if (p[0] == 4 && l >= 6)
 623             {
 624               Chksum *h;
 625               unsigned char hdr[3];
 626               unsigned char fp[20];
 627               char fpx[40 + 1];
 628
 629               maxsigcr = kcr = p[1] << 24 | p[2] << 16 | p[3] << 8 | p[4];
 630               hdr[0] = 0x99;
 631               hdr[1] = l >> 8;
 632               hdr[2] = l;
 633               /* fingerprint is the sha1 over the packet */
 634               h = solv_chksum_create(REPOKEY_TYPE_SHA1);
 635               solv_chksum_add(h, hdr, 3);
 636               solv_chksum_add(h, p, l);
 637               solv_chksum_free(h, fp);
 638               solv_bin2hex(fp, 20, fpx);
 639               repodata_set_str(data, s - s->repo->pool->solvables, PUBKEY_FINGERPRINT, fpx);
 640               memcpy(keyid, fp + 12, 8);        /* keyid is last 64 bits of fingerprint */
 641               pubdata = p + 5;
 642               pubdatal = l - 5;
 643             }
 644         }
 645       if (tag == 2)             /* Signature Packet */
 646         {
 647           struct pgpsig sig;
 648           Id htype;
 649           if (!pubdata)
 650             continue;
 651           pgpsig_init(&sig, p, l);
 652           if (!sig.haveissuer || !((sig.type >= 0x10 && sig.type <= 0x13) || sig.type == 0x1f))
 653             continue;
 654           if (sig.type >= 0x10 && sig.type <= 0x13 && !userid)
 655             continue;
 656           htype = pgphashalgo2type(sig.hashalgo);
 657           if (htype && sig.mpioff)
 658             {
 659               Chksum *h = solv_chksum_create(htype);
 660               pgpsig_makesigdata(&sig, p, l, pubkey, pubkeyl, userid, useridl, h);
 661               solv_chksum_free(h, 0);
 662             }
 663           if (!memcmp(keyid, sig.issuer, 8))
 664             {
 665 #ifdef ENABLE_PGPVRFY
 666               /* found self sig, verify */
 667               if (solv_pgpvrfy(pubdata, pubdatal, sig.sigdata, sig.sigdatal))
 668 #endif
 669                 {
 670                   if (sig.keyexpires && maxex != -1)
 671                     {
 672                       if (sig.keyexpires == -1)
 673                         maxex = -1;
 674                       else if (sig.keyexpires + kcr > maxex)
 675                         maxex = sig.keyexpires + kcr;
 676                     }
 677                   if (sig.created > maxsigcr)
 678                     maxsigcr = sig.created;
 679                 }
 680             }
 681           else if (flags & ADD_WITH_KEYSIGNATURES)
 682             {
 683               char issuerstr[17];
 684               Id shandle = repodata_new_handle(data);
 685               solv_bin2hex(sig.issuer, 8, issuerstr);
 686               repodata_set_str(data, shandle, SIGNATURE_ISSUER, issuerstr);
 687               if (sig.created)
 688                 repodata_set_num(data, shandle, SIGNATURE_TIME, sig.created);
 689               if (sig.expires)
 690                 repodata_set_num(data, shandle, SIGNATURE_EXPIRES, sig.created + sig.expires);
 691               if (sig.sigdata)
 692                 repodata_set_binary(data, shandle, SIGNATURE_DATA, sig.sigdata, sig.sigdatal);
 693               repodata_add_flexarray(data, s - s->repo->pool->solvables, PUBKEY_SIGNATURES, shandle);
 694             }
 695           solv_free(sig.sigdata);
 696         }
 697       if (tag == 13 && !insubkey)               /* User ID Packet */
 698         {
 699           userid = solv_realloc(userid, l);
 700           if (l)
 701             memcpy(userid, p, l);
 702           useridl = l;
 703         }
 704     }
 705   solv_free(pubkey);
 706   solv_free(userid);
 707   return p ? p - pstart : 0;
 708 }
 709
 710
 711 #ifdef ENABLE_RPMDB
 712
 713 /* this is private to rpm, but rpm lacks an interface to retrieve
 714  * the values. Sigh. */
 715 struct pgpDigParams_s {
 716     const char * userid;
 717     const unsigned char * hash;
 718 #ifndef HAVE_PGPDIGGETPARAMS
 719     const char * params[4];
 720 #endif
 721     unsigned char tag;
 722     unsigned char version;               /*!< version number. */
 723     unsigned char time[4];               /*!< time that the key was created. */
 724     unsigned char pubkey_algo;           /*!< public key algorithm. */
 725     unsigned char hash_algo;
 726     unsigned char sigtype;
 727     unsigned char hashlen;
 728     unsigned char signhash16[2];
 729     unsigned char signid[8];
 730     unsigned char saved;
 731 };
 732
 733 #ifndef HAVE_PGPDIGGETPARAMS
 734 struct pgpDig_s {
 735     struct pgpDigParams_s signature;
 736     struct pgpDigParams_s pubkey;
 737 };
 738 #endif
 739
 740
 741 /* only rpm knows how to do the release calculation, we don't dare
 742  * to recreate all the bugs in libsolv */
 743 static void
 744 parsepubkey_rpm(Solvable *s, Repodata *data, unsigned char *pkts, int pktsl)
 745 {
 746   Pool *pool = s->repo->pool;
 747   struct pgpDigParams_s *digpubkey;
 748   pgpDig dig = 0;
 749   char keyid[16 + 1];
 750   char evrbuf[8 + 1 + 8 + 1];
 751   unsigned int btime;
 752
 753 #ifndef RPM5
 754   dig = pgpNewDig();
 755 #else
 756   dig = pgpDigNew(RPMVSF_DEFAULT, 0);
 757 #endif
 758   (void) pgpPrtPkts(pkts, pktsl, dig, 0);
 759 #ifdef HAVE_PGPDIGGETPARAMS
 760   digpubkey = pgpDigGetParams(dig, PGPTAG_PUBLIC_KEY);
 761 #else
 762   digpubkey = &dig->pubkey;
 763 #endif
 764   if (digpubkey)
 765     {
 766       btime = digpubkey->time[0] << 24 | digpubkey->time[1] << 16 | digpubkey->time[2] << 8 | digpubkey->time[3];
 767       solv_bin2hex(digpubkey->signid, 8, keyid);
 768       solv_bin2hex(digpubkey->signid + 4, 4, evrbuf);
 769       evrbuf[8] = '-';
 770       solv_bin2hex(digpubkey->time, 4, evrbuf + 9);
 771       s->evr = pool_str2id(pool, evrbuf, 1);
 772       repodata_set_str(data, s - s->repo->pool->solvables, PUBKEY_KEYID, keyid);
 773       if (digpubkey->userid)
 774         setutf8string(data, s - s->repo->pool->solvables, SOLVABLE_SUMMARY, digpubkey->userid);
 775       if (btime)
 776         repodata_set_num(data, s - s->repo->pool->solvables, SOLVABLE_BUILDTIME, btime);
 777     }
 778 #ifndef RPM5
 779   (void)pgpFreeDig(dig);
 780 #else
 781   (void)pgpDigFree(dig);
 782 #endif
 783 }
 784
 785 #endif  /* ENABLE_RPMDB */
 786
 787 /* parse an ascii armored pubkey
 788  * adds multiple pubkeys if ADD_MULTIPLE_PUBKEYS is set */
 789 static int
 790 pubkey2solvable(Pool *pool, Id p, Repodata *data, char *pubkey, int flags)
 791 {
 792   unsigned char *pkts, *pkts_orig;
 793   int pktsl, pl = 0, tag, l, hl;
 794
 795   if (!unarmor(pubkey, &pkts, &pktsl, "-----BEGIN PGP PUBLIC KEY BLOCK-----", "-----END PGP PUBLIC KEY BLOCK-----"))
 796     {
 797       pool_error(pool, 0, "unarmor failure");
 798       return 0;
 799     }
 800   pkts_orig = pkts;
 801   tag = 6;
 802   while (pktsl)
 803     {
 804       if (tag == 6)
 805         {
 806           setutf8string(data, p, SOLVABLE_DESCRIPTION, pubkey);
 807           pl = parsepubkey(pool->solvables + p, data, pkts, pktsl, flags);
 808 #ifdef ENABLE_RPMDB
 809           parsepubkey_rpm(pool->solvables + p, data, pkts, pktsl);
 810 #endif
 811           if (!pl || !(flags & ADD_MULTIPLE_PUBKEYS))
 812             break;
 813         }
 814       pkts += pl;
 815       pktsl -= pl;
 816       hl = parsepkgheader(pkts, pktsl, &tag, &l);
 817       if (!hl)
 818         break;
 819       pl = l + hl;
 820       if (tag == 6)
 821         p = repo_add_solvable(pool->solvables[p].repo);
 822     }
 823   solv_free((void *)pkts_orig);
 824   return 1;
 825 }
 826
 827 #ifdef ENABLE_RPMDB
 828
 829 int
 830 repo_add_rpmdb_pubkeys(Repo *repo, int flags)
 831 {
 832   Pool *pool = repo->pool;
 833   Queue q;
 834   int i;
 835   char *str;
 836   Repodata *data;
 837   const char *rootdir = 0;
 838   void *state;
 839
 840   data = repo_add_repodata(repo, flags);
 841   if (flags & REPO_USE_ROOTDIR)
 842     rootdir = pool_get_rootdir(pool);
 843   state = rpm_state_create(repo->pool, rootdir);
 844   queue_init(&q);
 845   rpm_installedrpmdbids(state, "Name", "gpg-pubkey", &q);
 846   for (i = 0; i < q.count; i++)
 847     {
 848       Id p, p2;
 849       void *handle;
 850       unsigned long long itime;
 851
 852       handle = rpm_byrpmdbid(state, q.elements[i]);
 853       if (!handle)
 854         continue;
 855       str = rpm_query(handle, SOLVABLE_DESCRIPTION);
 856       if (!str)
 857         continue;
 858       p = repo_add_solvable(repo);
 859       if (!pubkey2solvable(pool, p, data, str, flags))
 860         {
 861           solv_free(str);
 862           repo_free_solvable(repo, p, 1);
 863           continue;
 864         }
 865       solv_free(str);
 866       itime = rpm_query_num(handle, SOLVABLE_INSTALLTIME, 0);
 867       for (p2 = p; p2 < pool->nsolvables; p2++)
 868         {
 869           if (itime)
 870             repodata_set_num(data, p2, SOLVABLE_INSTALLTIME, itime);
 871           if (!repo->rpmdbid)
 872             repo->rpmdbid = repo_sidedata_create(repo, sizeof(Id));
 873           repo->rpmdbid[p2 - repo->start] = q.elements[i];
 874         }
 875     }
 876   queue_free(&q);
 877   rpm_state_free(state);
 878   if (!(flags & REPO_NO_INTERNALIZE))
 879     repodata_internalize(data);
 880   return 0;
 881 }
 882
 883 #endif
 884
 885 static char *
 886 solv_slurp(FILE *fp, int *lenp)
 887 {
 888   int l, ll;
 889   char *buf = 0;
 890   int bufl = 0;
 891
 892   for (l = 0; ; l += ll)
 893     {
 894       if (bufl - l < 4096)
 895         {
 896           bufl += 4096;
 897           buf = solv_realloc(buf, bufl);
 898         }
 899       ll = fread(buf + l, 1, bufl - l, fp);
 900       if (ll < 0)
 901         {
 902           buf = solv_free(buf);
 903           l = 0;
 904           break;
 905         }
 906       if (ll == 0)
 907         {
 908           buf[l] = 0;   /* always zero-terminate */
 909           break;
 910         }
 911     }
 912   if (lenp)
 913     *lenp = l;
 914   return buf;
 915 }
 916
 917 Id
 918 repo_add_pubkey(Repo *repo, const char *keyfile, int flags)
 919 {
 920   Pool *pool = repo->pool;
 921   Repodata *data;
 922   Id p;
 923   char *buf;
 924   FILE *fp;
 925
 926   data = repo_add_repodata(repo, flags);
 927   buf = 0;
 928   if ((fp = fopen(flags & REPO_USE_ROOTDIR ? pool_prepend_rootdir_tmp(pool, keyfile) : keyfile, "r")) == 0)
 929     {
 930       pool_error(pool, -1, "%s: %s", keyfile, strerror(errno));
 931       return 0;
 932     }
 933   if ((buf = solv_slurp(fp, 0)) == 0)
 934     {
 935       pool_error(pool, -1, "%s: %s", keyfile, strerror(errno));
 936       fclose(fp);
 937       return 0;
 938     }
 939   fclose(fp);
 940   p = repo_add_solvable(repo);
 941   if (!pubkey2solvable(pool, p, data, buf, flags))
 942     {
 943       repo_free_solvable(repo, p, 1);
 944       solv_free(buf);
 945       return 0;
 946     }
 947   if (!(flags & REPO_NO_LOCATION))
 948     {
 949       Id p2;
 950       for (p2 = p; p2 < pool->nsolvables; p2++)
 951         repodata_set_location(data, p2, 0, 0, keyfile);
 952     }
 953   solv_free(buf);
 954   if (!(flags & REPO_NO_INTERNALIZE))
 955     repodata_internalize(data);
 956   return p;
 957 }
 958
 959 static int
 960 is_sig_packet(unsigned char *sig, int sigl)
 961 {
 962   if (!sigl)
 963     return 0;
 964   if ((sig[0] & 0x80) == 0 || (sig[0] & 0x40 ? sig[0] & 0x3f : sig[0] >> 2 & 0x0f) != 2)
 965     return 0;
 966   return 1;
 967 }
 968
 969 static int
 970 is_pubkey_packet(unsigned char *pkt, int pktl)
 971 {
 972   if (!pktl)
 973     return 0;
 974   if ((pkt[0] & 0x80) == 0 || (pkt[0] & 0x40 ? pkt[0] & 0x3f : pkt[0] >> 2 & 0x0f) != 6)
 975     return 0;
 976   return 1;
 977 }
 978
 979 static void
 980 add_one_pubkey(Pool *pool, Repo *repo, Repodata *data, unsigned char *pbuf, int pbufl, int flags)
 981 {
 982   Id p = repo_add_solvable(repo);
 983   char *solvversion = pool_tmpjoin(pool, "libsolv-", LIBSOLV_VERSION_STRING, 0);
 984   char *descr = armor(pbuf, pbufl, "-----BEGIN PGP PUBLIC KEY BLOCK-----", "-----END PGP PUBLIC KEY BLOCK-----", solvversion);
 985   setutf8string(data, p, SOLVABLE_DESCRIPTION, descr);
 986   parsepubkey(pool->solvables + p, data, pbuf, pbufl, flags);
 987 #ifdef ENABLE_RPMDB
 988   parsepubkey_rpm(pool->solvables + p, data, pbuf, pbufl);
 989 #endif
 990 }
 991
 992 int
 993 repo_add_keyring(Repo *repo, FILE *fp, int flags)
 994 {
 995   Pool *pool = repo->pool;
 996   Repodata *data;
 997   unsigned char *buf, *p, *pbuf;
 998   int bufl, l, pl, pbufl;
 999
1000   data = repo_add_repodata(repo, flags);
1001   buf = (unsigned char *)solv_slurp(fp, &bufl);
1002   if (buf && !is_pubkey_packet(buf, bufl))
1003     {
1004       /* assume ascii armored */
1005       unsigned char *nbuf = 0, *ubuf;
1006       int nl, ubufl;
1007       bufl = 0;
1008       for (l = 0; (nl = unarmor((char *)buf + l, &ubuf, &ubufl, "-----BEGIN PGP PUBLIC KEY BLOCK-----", "-----END PGP PUBLIC KEY BLOCK-----")) != 0; l += nl)
1009         {
1010           /* found another block. concat. */
1011           nbuf = solv_realloc(nbuf, bufl + ubufl);
1012           if (ubufl)
1013             memcpy(nbuf + bufl, ubuf, ubufl);
1014           bufl += ubufl;
1015           solv_free(ubuf);
1016         }
1017       solv_free(buf);
1018       buf = nbuf;
1019     }
1020   /* now split into pubkey parts, ignoring the packets we don't know */
1021   pbuf = 0;
1022   pbufl = 0;
1023   for (p = buf; bufl; p += pl, bufl -= pl)
1024     {
1025       int tag;
1026       int hl = parsepkgheader(p, bufl, &tag, &pl);
1027       if (!hl)
1028         break;
1029       pl += hl;
1030       if (tag == 6)
1031         {
1032           /* found new pubkey! flush old */
1033           if (pbufl)
1034             {
1035               add_one_pubkey(pool, repo, data, pbuf, pbufl, flags);
1036               pbuf = solv_free(pbuf);
1037               pbufl = 0;
1038             }
1039         }
1040       if (tag != 6 && !pbufl)
1041         continue;
1042       if (tag != 6 && tag != 2 && tag != 13 && tag != 14 && tag != 17)
1043         continue;
1044       /* we want that packet. concat. */
1045       pbuf = solv_realloc(pbuf, pbufl + pl);
1046       memcpy(pbuf + pbufl, p, pl);
1047       pbufl += pl;
1048     }
1049   if (pbufl)
1050     add_one_pubkey(pool, repo, data, pbuf, pbufl, flags);
1051   solv_free(pbuf);
1052   solv_free(buf);
1053   if (!(flags & REPO_NO_INTERNALIZE))
1054     repodata_internalize(data);
1055   return 0;
1056 }
1057
1058 int
1059 repo_add_keydir(Repo *repo, const char *keydir, const char *suffix, int flags)
1060 {
1061   Pool *pool = repo->pool;
1062   Repodata *data;
1063   int i, nent, sl;
1064   struct dirent **namelist;
1065   char *rkeydir;
1066
1067   data = repo_add_repodata(repo, flags);
1068   nent = scandir(flags & REPO_USE_ROOTDIR ? pool_prepend_rootdir_tmp(pool, keydir) : keydir, &namelist, 0, alphasort);
1069   if (nent == -1)
1070     return pool_error(pool, -1, "%s: %s", keydir, strerror(errno));
1071   rkeydir = pool_prepend_rootdir(pool, keydir);
1072   sl = suffix ? strlen(suffix) : 0;
1073   for (i = 0; i < nent; i++)
1074     {
1075       const char *dn = namelist[i]->d_name;
1076       int l;
1077       if (*dn == '.' && !(flags & ADD_KEYDIR_WITH_DOTFILES))
1078         continue;
1079       l = strlen(dn);
1080       if (sl && (l < sl || strcmp(dn + l - sl, suffix) != 0))
1081         continue;
1082       repo_add_pubkey(repo, pool_tmpjoin(pool, rkeydir, "/", dn), flags | REPO_REUSE_REPODATA);
1083     }
1084   solv_free(rkeydir);
1085   for (i = 0; i < nent; i++)
1086     solv_free(namelist[i]);
1087   solv_free(namelist);
1088   if (!(flags & REPO_NO_INTERNALIZE))
1089     repodata_internalize(data);
1090   return 0;
1091 }
1092
1093 Solvsig *
1094 solvsig_create(FILE *fp)
1095 {
1096   Solvsig *ss;
1097   unsigned char *sig;
1098   int sigl, hl, tag, pktl;
1099   struct pgpsig pgpsig;
1100
1101   if ((sig = (unsigned char *)solv_slurp(fp, &sigl)) == 0)
1102     return 0;
1103   if (!is_sig_packet(sig, sigl))
1104     {
1105       /* not a raw sig, check armored */
1106       unsigned char *nsig;
1107       if (!unarmor((char *)sig, &nsig, &sigl, "-----BEGIN PGP SIGNATURE-----", "-----END PGP SIGNATURE-----"))
1108         {
1109           solv_free(sig);
1110           return 0;
1111         }
1112       solv_free(sig);
1113       sig = nsig;
1114       if (!is_sig_packet(sig, sigl))
1115         {
1116           solv_free(sig);
1117           return 0;
1118         }
1119     }
1120   hl = parsepkgheader(sig, sigl, &tag, &pktl);
1121   if (!hl || tag != 2 || !pktl)
1122     {
1123       solv_free(sig);
1124       return 0;
1125     }
1126   pgpsig_init(&pgpsig, sig + hl, pktl);
1127   if (pgpsig.type != 0 || !pgpsig.haveissuer)
1128     {
1129       solv_free(sig);
1130       return 0;
1131     }
1132   ss = solv_calloc(1, sizeof(*ss));
1133   ss->sigpkt = solv_memdup(sig + hl, pktl);
1134   ss->sigpktl = pktl;
1135   solv_free(sig);
1136   solv_bin2hex(pgpsig.issuer, 8, ss->keyid);
1137   ss->htype = pgphashalgo2type(pgpsig.hashalgo);
1138   ss->created = pgpsig.created;
1139   ss->expires = pgpsig.expires;
1140   return ss;
1141 }
1142
1143 void
1144 solvsig_free(Solvsig *ss)
1145 {
1146   solv_free(ss->sigpkt);
1147   solv_free(ss);
1148 }
1149
1150 static int
1151 repo_find_all_pubkeys_cmp(const void *va, const void *vb, void *dp)
1152 {
1153   Pool *pool = dp;
1154   Id a = *(Id *)va;
1155   Id b = *(Id *)vb;
1156   /* cannot use evrcmp, as rpm says '0' > 'a' */
1157   return strcmp(pool_id2str(pool, pool->solvables[b].evr), pool_id2str(pool, pool->solvables[a].evr));
1158 }
1159
1160 void
1161 repo_find_all_pubkeys(Repo *repo, const char *keyid, Queue *q)
1162 {
1163   Id p;
1164   Solvable *s;
1165
1166   queue_empty(q);
1167   if (!keyid)
1168     return;
1169   queue_init(q);
1170   FOR_REPO_SOLVABLES(repo, p, s)
1171     {
1172       const char *kidstr, *evr = pool_id2str(s->repo->pool, s->evr);
1173
1174       if (!evr || strncmp(evr, keyid + 8, 8) != 0)
1175        continue;
1176       kidstr = solvable_lookup_str(s, PUBKEY_KEYID);
1177       if (kidstr && !strcmp(kidstr, keyid))
1178         queue_push(q, p);
1179     }
1180   if (q->count > 1)
1181     solv_sort(q->elements, q->count, sizeof(Id), repo_find_all_pubkeys_cmp, repo->pool);
1182 }
1183
1184 Id
1185 repo_find_pubkey(Repo *repo, const char *keyid)
1186 {
1187   Queue q;
1188   Id p;
1189   queue_init(&q);
1190   repo_find_all_pubkeys(repo, keyid, &q);
1191   p = q.count ? q.elements[0] : 0;
1192   queue_free(&q);
1193   return p;
1194 }
1195
1196 #ifdef ENABLE_PGPVRFY
1197
1198 /* warning: does not check key expiry/revokation, same as with gpgv or rpm */
1199 /* returns the Id of the pubkey that verified the signature */
1200 Id
1201 repo_verify_sigdata(Repo *repo, unsigned char *sigdata, int sigdatal, const char *keyid)
1202 {
1203   Id p;
1204   Queue q;
1205   int i;
1206
1207   if (!sigdata || !keyid)
1208     return 0;
1209   queue_init(&q);
1210   repo_find_all_pubkeys(repo, keyid, &q);
1211   for (i = 0; i < q.count; i++)
1212     {
1213       int pubdatal;
1214       const unsigned char *pubdata = repo_lookup_binary(repo, q.elements[i], PUBKEY_DATA, &pubdatal);
1215       if (pubdata && solv_pgpvrfy(pubdata, pubdatal, sigdata, sigdatal))
1216         break;
1217     }
1218   p = i < q.count? q.elements[i] : 0;
1219   queue_free(&q);
1220   return p;
1221 }
1222
1223 Id
1224 solvsig_verify(Solvsig *ss, Repo *repo, Chksum *chk)
1225 {
1226   struct pgpsig pgpsig;
1227   void *chk2;
1228   Id p;
1229
1230   if (!chk || solv_chksum_isfinished(chk))
1231     return 0;
1232   pgpsig_init(&pgpsig, ss->sigpkt, ss->sigpktl);
1233   chk2 = solv_chksum_create_clone(chk);
1234   pgpsig_makesigdata(&pgpsig, ss->sigpkt, ss->sigpktl, 0, 0, 0, 0, chk2);
1235   solv_chksum_free(chk2, 0);
1236   if (!pgpsig.sigdata)
1237     return 0;
1238   p = repo_verify_sigdata(repo, pgpsig.sigdata, pgpsig.sigdatal, ss->keyid);
1239   solv_free(pgpsig.sigdata);
1240   return p;
1241 }
1242
1243 #endif
1244