cvs.zerfleddert.de Git - proxmark3-svn/blob - client/emv/emv_pki.c

   1 /*
   2  * libopenemv - a library to work with EMV family of smart cards
   3  * Copyright (C) 2015 Dmitry Eremin-Solenikov
   4  *
   5  * This library is free software; you can redistribute it and/or
   6  * modify it under the terms of the GNU Lesser General Public
   7  * License as published by the Free Software Foundation; either
   8  * version 2.1 of the License, or (at your option) any later version.
   9  *
  10  * This library is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * Lesser General Public License for more details.
  14  */
  15
  16 #ifdef HAVE_CONFIG_H
  17 #include <config.h>
  18 #endif
  19
  20 #include "emv_pki.h"
  21 #include "crypto.h"
  22 #include "dump.h"
  23 #include "util.h"
  24
  25 #include <stdio.h>
  26 #include <stdlib.h>
  27 #include <string.h>
  28 #include <stdarg.h>
  29
  30 static const unsigned char empty_tlv_value[] = {};
  31 static const struct tlv empty_tlv = {.tag = 0x0, .len = 0, .value = empty_tlv_value};
  32
  33 static size_t emv_pki_hash_psn[256] = { 0, 0, 11, 2, 17, 2, };
  34
  35 static unsigned char *emv_pki_decode_message(const struct emv_pk *enc_pk,
  36                 uint8_t msgtype,
  37                 size_t *len,
  38                 const struct tlv *cert_tlv,
  39                 ... /* A list of tlv pointers, end with NULL */
  40                 )
  41 {
  42         struct crypto_pk *kcp;
  43         unsigned char *data;
  44         size_t data_len;
  45         va_list vl;
  46
  47         if (!enc_pk)
  48                 return NULL;
  49
  50         if (!cert_tlv) {
  51                 printf("ERROR: Can't find certificate\n");
  52                 return NULL;
  53         }
  54
  55         if (cert_tlv->len != enc_pk->mlen) {
  56                 printf("ERROR: Certificate length (%zd) not equal key length (%zd)\n", cert_tlv->len, enc_pk->mlen);
  57                 return NULL;
  58         }
  59         kcp = crypto_pk_open(enc_pk->pk_algo,
  60                         enc_pk->modulus, enc_pk->mlen,
  61                         enc_pk->exp, enc_pk->elen);
  62         if (!kcp)
  63                 return NULL;
  64
  65         data = crypto_pk_encrypt(kcp, cert_tlv->value, cert_tlv->len, &data_len);
  66         crypto_pk_close(kcp);
  67
  68 /*      if (true){
  69                 printf("Recovered data:\n");
  70                 dump_buffer(data, data_len, stdout, 0);
  71         }*/
  72
  73         if (data[data_len-1] != 0xbc || data[0] != 0x6a || data[1] != msgtype) {
  74                 printf("ERROR: Certificate format\n");
  75                 free(data);
  76                 return NULL;
  77         }
  78
  79         size_t hash_pos = emv_pki_hash_psn[msgtype];
  80         if (hash_pos == 0 || hash_pos > data_len){
  81                 printf("ERROR: Cant get hash position in the certificate\n");
  82                 free(data);
  83                 return NULL;
  84         }
  85
  86         struct crypto_hash *ch;
  87         ch = crypto_hash_open(data[hash_pos]);
  88         if (!ch) {
  89                 printf("ERROR: Cant do hash\n");
  90                 free(data);
  91                 return NULL;
  92         }
  93
  94         size_t hash_len = crypto_hash_get_size(ch);
  95         crypto_hash_write(ch, data + 1, data_len - 2 - hash_len);
  96
  97         va_start(vl, cert_tlv);
  98         while (true) {
  99                 const struct tlv *add_tlv = va_arg(vl, const struct tlv *);
 100                 if (!add_tlv)
 101                         break;
 102
 103                 crypto_hash_write(ch, add_tlv->value, add_tlv->len);
 104         }
 105         va_end(vl);
 106
 107         if (memcmp(data + data_len - 1 - hash_len, crypto_hash_read(ch), hash_len)) {
 108                 printf("ERROR: Calculated wrong hash\n");
 109                 printf("decoded:    %s\n",sprint_hex(data + data_len - 1 - hash_len, hash_len));
 110                 printf("calculated: %s\n",sprint_hex(crypto_hash_read(ch), hash_len));
 111                 crypto_hash_close(ch);
 112                 free(data);
 113                 return NULL;
 114         }
 115
 116         crypto_hash_close(ch);
 117
 118         *len = data_len - hash_len - 1;
 119
 120         return data;
 121 }
 122
 123 static unsigned emv_cn_length(const struct tlv *tlv)
 124 {
 125         int i;
 126
 127         for (i = 0; i < tlv->len; i++) {
 128                 unsigned char c = tlv->value[i];
 129
 130                 if (c >> 4 == 0xf)
 131                         return 2 * i;
 132
 133                 if ((c & 0xf) == 0xf)
 134                         return 2 * i + 1;
 135         }
 136
 137         return 2 * tlv->len;
 138 }
 139
 140 static unsigned char emv_cn_get(const struct tlv *tlv, unsigned pos)
 141 {
 142         if (pos > tlv->len * 2)
 143                 return 0xf;
 144
 145         unsigned char c = tlv->value[pos / 2];
 146
 147         if (pos % 2)
 148                 return c & 0xf;
 149         else
 150                 return c >> 4;
 151 }
 152
 153 static struct emv_pk *emv_pki_decode_key_ex(const struct emv_pk *enc_pk,
 154                 unsigned char msgtype,
 155                 const struct tlv *pan_tlv,
 156                 const struct tlv *cert_tlv,
 157                 const struct tlv *exp_tlv,
 158                 const struct tlv *rem_tlv,
 159                 const struct tlv *add_tlv,
 160                 bool showData
 161                 )
 162 {
 163         size_t pan_length;
 164         unsigned char *data;
 165         size_t data_len;
 166         size_t pk_len;
 167
 168         if (!cert_tlv || !exp_tlv || !pan_tlv)
 169                 return NULL;
 170
 171         if (!rem_tlv)
 172                 rem_tlv = &empty_tlv;
 173
 174         if (msgtype == 2)
 175                 pan_length = 4;
 176         else if (msgtype == 4)
 177                 pan_length = 10;
 178         else {
 179                 printf("ERROR: Message type must be 2 or 4\n");
 180                 return NULL;
 181         }
 182
 183         data = emv_pki_decode_message(enc_pk, msgtype, &data_len,
 184                         cert_tlv,
 185                         rem_tlv,
 186                         exp_tlv,
 187                         add_tlv,
 188                         NULL);
 189         if (!data || data_len < 11 + pan_length) {
 190                 printf("ERROR: Can't decode message\n");
 191                 return NULL;
 192         }
 193
 194         if (showData){
 195                 printf("Recovered data:\n");
 196                 dump_buffer(data, data_len, stdout, 0);
 197         }
 198
 199         /* Perform the rest of checks here */
 200
 201         struct tlv pan2_tlv = {
 202                 .tag = 0x5a,
 203                 .len = pan_length,
 204                 .value = &data[2],
 205         };
 206         unsigned pan_len = emv_cn_length(pan_tlv);
 207         unsigned pan2_len = emv_cn_length(&pan2_tlv);
 208
 209         if (((msgtype == 2) && (pan2_len < 4 || pan2_len > pan_len)) ||
 210             ((msgtype == 4) && (pan2_len != pan_len))) {
 211                 printf("ERROR: Invalid PAN lengths\n");
 212                 free(data);
 213
 214                 return NULL;
 215         }
 216
 217         unsigned i;
 218         for (i = 0; i < pan2_len; i++)
 219                 if (emv_cn_get(pan_tlv, i) != emv_cn_get(&pan2_tlv, i)) {
 220                         printf("ERROR: PAN data mismatch\n");
 221                         printf("tlv  pan=%s\n", sprint_hex(pan_tlv->value, pan_tlv->len));
 222                         printf("cert pan=%s\n", sprint_hex(pan2_tlv.value, pan2_tlv.len));
 223                         free(data);
 224
 225                         return NULL;
 226                 }
 227
 228         pk_len = data[9 + pan_length];
 229         if (pk_len > data_len - 11 - pan_length + rem_tlv->len) {
 230                 printf("ERROR: Invalid pk length\n");
 231                 free(data);
 232                 return NULL;
 233         }
 234
 235         if (exp_tlv->len != data[10 + pan_length]) {
 236                 free(data);
 237                 return NULL;
 238         }
 239
 240         struct emv_pk *pk = emv_pk_new(pk_len, exp_tlv->len);
 241
 242         memcpy(pk->rid, enc_pk->rid, 5);
 243         pk->index = enc_pk->index;
 244
 245         pk->hash_algo = data[7 + pan_length];
 246         pk->pk_algo = data[8 + pan_length];
 247         pk->expire = (data[3 + pan_length] << 16) | (data[2 + pan_length] << 8) | 0x31;
 248         memcpy(pk->serial, data + 4 + pan_length, 3);
 249         memcpy(pk->pan, data + 2, pan_length);
 250         memset(pk->pan + pan_length, 0xff, 10 - pan_length);
 251
 252         memcpy(pk->modulus, data + 11 + pan_length,
 253                         pk_len < data_len - (11 + pan_length) ?
 254                         pk_len :
 255                         data_len - (11 + pan_length));
 256         memcpy(pk->modulus + data_len - (11 + pan_length), rem_tlv->value, rem_tlv->len);
 257         memcpy(pk->exp, exp_tlv->value, exp_tlv->len);
 258
 259         free(data);
 260
 261         return pk;
 262 }
 263
 264 static struct emv_pk *emv_pki_decode_key(const struct emv_pk *enc_pk,
 265                 unsigned char msgtype,
 266                 const struct tlv *pan_tlv,
 267                 const struct tlv *cert_tlv,
 268                 const struct tlv *exp_tlv,
 269                 const struct tlv *rem_tlv,
 270                 const struct tlv *add_tlv
 271                 ) {
 272         return emv_pki_decode_key_ex(enc_pk, msgtype, pan_tlv, cert_tlv, exp_tlv, rem_tlv, add_tlv, false);
 273 }
 274
 275 struct emv_pk *emv_pki_recover_issuer_cert(const struct emv_pk *pk, struct tlvdb *db)
 276 {
 277         return emv_pki_decode_key(pk, 2,
 278                         tlvdb_get(db, 0x5a, NULL),
 279                         tlvdb_get(db, 0x90, NULL),
 280                         tlvdb_get(db, 0x9f32, NULL),
 281                         tlvdb_get(db, 0x92, NULL),
 282                         NULL);
 283 }
 284
 285 struct emv_pk *emv_pki_recover_icc_cert(const struct emv_pk *pk, struct tlvdb *db, const struct tlv *sda_tlv)
 286 {
 287         return emv_pki_decode_key(pk, 4,
 288                         tlvdb_get(db, 0x5a, NULL),
 289                         tlvdb_get(db, 0x9f46, NULL),
 290                         tlvdb_get(db, 0x9f47, NULL),
 291                         tlvdb_get(db, 0x9f48, NULL),
 292                         sda_tlv);
 293 }
 294
 295 struct emv_pk *emv_pki_recover_icc_pe_cert(const struct emv_pk *pk, struct tlvdb *db)
 296 {
 297         return emv_pki_decode_key(pk, 4,
 298                         tlvdb_get(db, 0x5a, NULL),
 299                         tlvdb_get(db, 0x9f2d, NULL),
 300                         tlvdb_get(db, 0x9f2e, NULL),
 301                         tlvdb_get(db, 0x9f2f, NULL),
 302                         NULL);
 303 }
 304
 305 struct tlvdb *emv_pki_recover_dac_ex(const struct emv_pk *enc_pk, const struct tlvdb *db, const struct tlv *sda_tlv, bool showData)
 306 {
 307         size_t data_len;
 308         unsigned char *data = emv_pki_decode_message(enc_pk, 3, &data_len,
 309                         tlvdb_get(db, 0x93, NULL),
 310                         sda_tlv,
 311                         NULL);
 312
 313         if (!data || data_len < 5)
 314                 return NULL;
 315
 316         if (showData){
 317                 printf("Recovered data:\n");
 318                 dump_buffer(data, data_len, stdout, 0);
 319         }
 320
 321         struct tlvdb *dac_db = tlvdb_fixed(0x9f45, 2, data+3);
 322
 323         free(data);
 324
 325         return dac_db;
 326 }
 327 struct tlvdb *emv_pki_recover_dac(const struct emv_pk *enc_pk, const struct tlvdb *db, const struct tlv *sda_tlv) {
 328         return emv_pki_recover_dac_ex(enc_pk, db, sda_tlv, false);
 329 }
 330
 331 struct tlvdb *emv_pki_recover_idn(const struct emv_pk *enc_pk, const struct tlvdb *db, const struct tlv *dyn_tlv) {
 332         return emv_pki_recover_idn_ex(enc_pk, db, dyn_tlv, false);
 333 }
 334
 335 struct tlvdb *emv_pki_recover_idn_ex(const struct emv_pk *enc_pk, const struct tlvdb *db, const struct tlv *dyn_tlv, bool showData)
 336 {
 337         size_t data_len;
 338         unsigned char *data = emv_pki_decode_message(enc_pk, 5, &data_len,
 339                         tlvdb_get(db, 0x9f4b, NULL),
 340                         dyn_tlv,
 341                         NULL);
 342
 343         if (!data || data_len < 3)
 344                 return NULL;
 345
 346         if (data[3] < 2 || data[3] > data_len - 3) {
 347                 free(data);
 348                 return NULL;
 349         }
 350
 351         if (showData){
 352                 printf("Recovered data:\n");
 353                 dump_buffer(data, data_len, stdout, 0);
 354         }
 355
 356         size_t idn_len = data[4];
 357         if (idn_len > data[3] - 1) {
 358                 free(data);
 359                 return NULL;
 360         }
 361
 362         // 9f4c ICC Dynamic Number
 363         struct tlvdb *idn_db = tlvdb_fixed(0x9f4c, idn_len, data + 5);
 364
 365         free(data);
 366
 367         return idn_db;
 368 }
 369
 370 struct tlvdb *emv_pki_recover_atc_ex(const struct emv_pk *enc_pk, const struct tlvdb *db, bool showData)
 371 {
 372         size_t data_len;
 373         unsigned char *data = emv_pki_decode_message(enc_pk, 5, &data_len,
 374                         tlvdb_get(db, 0x9f4b, NULL),
 375                         tlvdb_get(db, 0x9f37, NULL),
 376                         tlvdb_get(db, 0x9f02, NULL),
 377                         tlvdb_get(db, 0x5f2a, NULL),
 378                         tlvdb_get(db, 0x9f69, NULL),
 379                         NULL);
 380
 381         if (!data || data_len < 3)
 382                 return NULL;
 383
 384         if (data[3] < 2 || data[3] > data_len - 3) {
 385                 free(data);
 386                 return NULL;
 387         }
 388
 389         if (showData){
 390                 printf("Recovered data:\n");
 391                 dump_buffer(data, data_len, stdout, 0);
 392         }
 393
 394         size_t idn_len = data[4];
 395         if (idn_len > data[3] - 1) {
 396                 free(data);
 397                 return NULL;
 398         }
 399
 400         // 9f36 Application Transaction Counter (ATC)
 401         struct tlvdb *atc_db = tlvdb_fixed(0x9f36, idn_len, data + 5);
 402
 403         free(data);
 404
 405         return atc_db;
 406 }
 407
 408 static bool tlv_hash(void *data, const struct tlv *tlv, int level, bool is_leaf)
 409 {
 410         struct crypto_hash *ch = data;
 411         size_t tag_len;
 412         unsigned char *tag;
 413
 414         if (tlv_is_constructed(tlv))
 415                 return true;
 416
 417         if (tlv->tag == 0x9f4b)
 418                 return true;
 419
 420         tag = tlv_encode(tlv, &tag_len);
 421         crypto_hash_write(ch, tag, tag_len);
 422         free(tag);
 423
 424         return true;
 425 }
 426
 427 struct tlvdb *emv_pki_perform_cda(const struct emv_pk *enc_pk, const struct tlvdb *db,
 428                 const struct tlvdb *this_db,
 429                 const struct tlv *pdol_data_tlv,
 430                 const struct tlv *crm1_tlv,
 431                 const struct tlv *crm2_tlv)
 432 {
 433         return emv_pki_perform_cda_ex(enc_pk, db, this_db, pdol_data_tlv, crm1_tlv, crm2_tlv, false);
 434 }
 435 struct tlvdb *emv_pki_perform_cda_ex(const struct emv_pk *enc_pk, const struct tlvdb *db,
 436                 const struct tlvdb *this_db,     // AC TLV result
 437                 const struct tlv *pdol_data_tlv, // PDOL
 438                 const struct tlv *crm1_tlv,      // CDOL1
 439                 const struct tlv *crm2_tlv,      // CDOL2
 440                 bool showData)
 441 {
 442         const struct tlv *un_tlv = tlvdb_get(db, 0x9f37, NULL);
 443         const struct tlv *cid_tlv = tlvdb_get(this_db, 0x9f27, NULL);
 444
 445         if (!un_tlv || !cid_tlv)
 446                 return NULL;
 447
 448         size_t data_len = 0;
 449         unsigned char *data = emv_pki_decode_message(enc_pk, 5, &data_len,
 450                         tlvdb_get(this_db, 0x9f4b, NULL),
 451                         un_tlv,
 452                         NULL);
 453         if (!data || data_len < 3) {
 454                 printf("ERROR: can't decode message. len %zd\n", data_len);
 455                 return NULL;
 456         }
 457
 458         if (showData){
 459                 printf("Recovered data:\n");
 460                 dump_buffer(data, data_len, stdout, 0);
 461         }
 462
 463         if (data[3] < 30 || data[3] > data_len - 4) {
 464                 printf("ERROR: Invalid data length\n");
 465                 free(data);
 466                 return NULL;
 467         }
 468
 469         if (!cid_tlv || cid_tlv->len != 1 || cid_tlv->value[0] != data[5 + data[4]]) {
 470                 printf("ERROR: CID mismatch\n");
 471                 free(data);
 472                 return NULL;
 473         }
 474
 475         struct crypto_hash *ch;
 476         ch = crypto_hash_open(enc_pk->hash_algo);
 477         if (!ch) {
 478                 printf("ERROR: can't create hash\n");
 479                 free(data);
 480                 return NULL;
 481         }
 482
 483         if (pdol_data_tlv)
 484                 crypto_hash_write(ch, pdol_data_tlv->value, pdol_data_tlv->len);
 485         if (crm1_tlv)
 486                 crypto_hash_write(ch, crm1_tlv->value, crm1_tlv->len);
 487         if (crm2_tlv)
 488                 crypto_hash_write(ch, crm2_tlv->value, crm2_tlv->len);
 489
 490         tlvdb_visit(this_db, tlv_hash, ch, 0);
 491
 492         if (memcmp(data + 5 + data[4] + 1 + 8, crypto_hash_read(ch), 20)) {
 493                 printf("ERROR: calculated hash error\n");
 494                 crypto_hash_close(ch);
 495                 free(data);
 496                 return NULL;
 497         }
 498         crypto_hash_close(ch);
 499
 500         size_t idn_len = data[4];
 501         if (idn_len > data[3] - 1) {
 502                 printf("ERROR: Invalid IDN length\n");
 503                 free(data);
 504                 return NULL;
 505         }
 506
 507         struct tlvdb *idn_db = tlvdb_fixed(0x9f4c, idn_len, data + 5);
 508         free(data);
 509
 510         return idn_db;
 511 }