cmdgen.c

   1 /*
   2  * cmdgen.c - command-line form of PuTTYgen
   3  */
   4
   5 #define PUTTY_DO_GLOBALS
   6
   7 #include <stdio.h>
   8 #include <stdlib.h>
   9 #include <ctype.h>
  10 #include <limits.h>
  11 #include <assert.h>
  12 #include <time.h>
  13
  14 #include "putty.h"
  15 #include "ssh.h"
  16
  17 #ifdef TEST_CMDGEN
  18 /*
  19  * This section overrides some definitions below for test purposes.
  20  * When compiled with -DTEST_CMDGEN:
  21  *
  22  *  - Calls to get_random_data() are replaced with the diagnostic
  23  *    function below (I #define the name so that I can still link
  24  *    with the original set of modules without symbol clash), in
  25  *    order to avoid depleting the test system's /dev/random
  26  *    unnecessarily.
  27  *
  28  *  - Calls to console_get_userpass_input() are replaced with the
  29  *    diagnostic function below, so that I can run tests in an
  30  *    automated manner and provide their interactive passphrase
  31  *    inputs.
  32  *
  33  *  - main() is renamed to cmdgen_main(); at the bottom of the file
  34  *    I define another main() which calls the former repeatedly to
  35  *    run tests.
  36  */
  37 #define get_random_data get_random_data_diagnostic
  38 char *get_random_data(int len)
  39 {
  40     char *buf = snewn(len, char);
  41     memset(buf, 'x', len);
  42     return buf;
  43 }
  44 #define console_get_userpass_input console_get_userpass_input_diagnostic
  45 int nprompts, promptsgot;
  46 const char *prompts[3];
  47 int console_get_userpass_input(prompts_t *p, unsigned char *in, int inlen)
  48 {
  49     size_t i;
  50     int ret = 1;
  51     for (i = 0; i < p->n_prompts; i++) {
  52         if (promptsgot < nprompts) {
  53             assert(strlen(prompts[promptsgot]) < p->prompts[i]->result_len);
  54             strcpy(p->prompts[i]->result, prompts[promptsgot++]);
  55         } else {
  56             promptsgot++;           /* track number of requests anyway */
  57             ret = 0;
  58         }
  59     }
  60     return ret;
  61 }
  62 #define main cmdgen_main
  63 #endif
  64
  65 struct progress {
  66     int phase, current;
  67 };
  68
  69 static void progress_update(void *param, int action, int phase, int iprogress)
  70 {
  71     struct progress *p = (struct progress *)param;
  72     if (action != PROGFN_PROGRESS)
  73         return;
  74     if (phase > p->phase) {
  75         if (p->phase >= 0)
  76             fputc('\n', stderr);
  77         p->phase = phase;
  78         if (iprogress >= 0)
  79             p->current = iprogress - 1;
  80         else
  81             p->current = iprogress;
  82     }
  83     while (p->current < iprogress) {
  84         fputc('+', stdout);
  85         p->current++;
  86     }
  87     fflush(stdout);
  88 }
  89
  90 static void no_progress(void *param, int action, int phase, int iprogress)
  91 {
  92 }
  93
  94 void modalfatalbox(char *p, ...)
  95 {
  96     va_list ap;
  97     fprintf(stderr, "FATAL ERROR: ");
  98     va_start(ap, p);
  99     vfprintf(stderr, p, ap);
 100     va_end(ap);
 101     fputc('\n', stderr);
 102     cleanup_exit(1);
 103 }
 104
 105 void nonfatal(char *p, ...)
 106 {
 107     va_list ap;
 108     fprintf(stderr, "ERROR: ");
 109     va_start(ap, p);
 110     vfprintf(stderr, p, ap);
 111     va_end(ap);
 112     fputc('\n', stderr);
 113 }
 114
 115 /*
 116  * Stubs to let everything else link sensibly.
 117  */
 118 void log_eventlog(void *handle, const char *event)
 119 {
 120 }
 121 char *x_get_default(const char *key)
 122 {
 123     return NULL;
 124 }
 125 void sk_cleanup(void)
 126 {
 127 }
 128
 129 void showversion(void)
 130 {
 131     printf("puttygen: %s\n", ver);
 132 }
 133
 134 void usage(int standalone)
 135 {
 136     fprintf(stderr,
 137             "Usage: puttygen ( keyfile | -t type [ -b bits ] )\n"
 138             "                [ -C comment ] [ -P ] [ -q ]\n"
 139             "                [ -o output-keyfile ] [ -O type | -l | -L"
 140             " | -p ]\n");
 141     if (standalone)
 142         fprintf(stderr,
 143                 "Use \"puttygen --help\" for more detail.\n");
 144 }
 145
 146 void help(void)
 147 {
 148     /*
 149      * Help message is an extended version of the usage message. So
 150      * start with that, plus a version heading.
 151      */
 152     showversion();
 153     usage(FALSE);
 154     fprintf(stderr,
 155             "  -t    specify key type when generating (rsa, dsa, rsa1)\n"
 156             "  -b    specify number of bits when generating key\n"
 157             "  -C    change or specify key comment\n"
 158             "  -P    change key passphrase\n"
 159             "  -q    quiet: do not display progress bar\n"
 160             "  -O    specify output type:\n"
 161             "           private             output PuTTY private key format\n"
 162             "           private-openssh     export OpenSSH private key\n"
 163             "           private-openssh-new export OpenSSH private key "
 164                                              "(force new file format)\n"
 165             "           private-sshcom      export ssh.com private key\n"
 166             "           public              RFC 4716 / ssh.com public key\n"
 167             "           public-openssh      OpenSSH public key\n"
 168             "           fingerprint         output the key fingerprint\n"
 169             "  -o    specify output file\n"
 170             "  -l    equivalent to `-O fingerprint'\n"
 171             "  -L    equivalent to `-O public-openssh'\n"
 172             "  -p    equivalent to `-O public'\n"
 173             );
 174 }
 175
 176 static int move(char *from, char *to)
 177 {
 178     int ret;
 179
 180     ret = rename(from, to);
 181     if (ret) {
 182         /*
 183          * This OS may require us to remove the original file first.
 184          */
 185         remove(to);
 186         ret = rename(from, to);
 187     }
 188     if (ret) {
 189         perror("puttygen: cannot move new file on to old one");
 190         return FALSE;
 191     }
 192     return TRUE;
 193 }
 194
 195 int main(int argc, char **argv)
 196 {
 197     char *infile = NULL;
 198     Filename *infilename = NULL, *outfilename = NULL;
 199     enum { NOKEYGEN, RSA1, RSA2, DSA, ECDSA, ED25519 } keytype = NOKEYGEN;
 200     char *outfile = NULL, *outfiletmp = NULL;
 201     enum { PRIVATE, PUBLIC, PUBLICO, FP, OPENSSH_AUTO,
 202            OPENSSH_NEW, SSHCOM } outtype = PRIVATE;
 203     int bits = -1;
 204     char *comment = NULL, *origcomment = NULL;
 205     int change_passphrase = FALSE;
 206     int errs = FALSE, nogo = FALSE;
 207     int intype = SSH_KEYTYPE_UNOPENABLE;
 208     int sshver = 0;
 209     struct ssh2_userkey *ssh2key = NULL;
 210     struct RSAKey *ssh1key = NULL;
 211     unsigned char *ssh2blob = NULL;
 212     char *ssh2alg = NULL;
 213     const struct ssh_signkey *ssh2algf = NULL;
 214     int ssh2bloblen;
 215     char *passphrase = NULL;
 216     int load_encrypted;
 217     progfn_t progressfn = is_interactive() ? progress_update : no_progress;
 218
 219     /* ------------------------------------------------------------------
 220      * Parse the command line to figure out what we've been asked to do.
 221      */
 222
 223     /*
 224      * If run with no arguments at all, print the usage message and
 225      * return success.
 226      */
 227     if (argc <= 1) {
 228         usage(TRUE);
 229         return 0;
 230     }
 231
 232     /*
 233      * Parse command line arguments.
 234      */
 235     while (--argc) {
 236         char *p = *++argv;
 237         if (*p == '-') {
 238             /*
 239              * An option.
 240              */
 241             while (p && *++p) {
 242                 char c = *p;
 243                 switch (c) {
 244                   case '-':
 245                     /*
 246                      * Long option.
 247                      */
 248                     {
 249                         char *opt, *val;
 250                         opt = p++;     /* opt will have _one_ leading - */
 251                         while (*p && *p != '=')
 252                             p++;               /* find end of option */
 253                         if (*p == '=') {
 254                             *p++ = '\0';
 255                             val = p;
 256                         } else
 257                             val = NULL;
 258
 259                         if (!strcmp(opt, "-help")) {
 260                             if (val) {
 261                                 errs = TRUE;
 262                                 fprintf(stderr, "puttygen: option `-%s'"
 263                                         " expects no argument\n", opt);
 264                             } else {
 265                                 help();
 266                                 nogo = TRUE;
 267                             }
 268                         } else if (!strcmp(opt, "-version")) {
 269                             if (val) {
 270                                 errs = TRUE;
 271                                 fprintf(stderr, "puttygen: option `-%s'"
 272                                         " expects no argument\n", opt);
 273                             } else {
 274                                 showversion();
 275                                 nogo = TRUE;
 276                             }
 277                         } else if (!strcmp(opt, "-pgpfp")) {
 278                             if (val) {
 279                                 errs = TRUE;
 280                                 fprintf(stderr, "puttygen: option `-%s'"
 281                                         " expects no argument\n", opt);
 282                             } else {
 283                                 /* support --pgpfp for consistency */
 284                                 pgp_fingerprints();
 285                                 nogo = TRUE;
 286                             }
 287                         }
 288                         /*
 289                          * For long options requiring an argument, add
 290                          * code along the lines of
 291                          *
 292                          * else if (!strcmp(opt, "-output")) {
 293                          *     if (!val) {
 294                          *         errs = TRUE;
 295                          *         fprintf(stderr, "puttygen: option `-%s'"
 296                          *                 " expects an argument\n", opt);
 297                          *     } else
 298                          *         ofile = val;
 299                          * }
 300                          */
 301                         else {
 302                             errs = TRUE;
 303                             fprintf(stderr,
 304                                     "puttygen: no such option `-%s'\n", opt);
 305                         }
 306                     }
 307                     p = NULL;
 308                     break;
 309                   case 'h':
 310                   case 'V':
 311                   case 'P':
 312                   case 'l':
 313                   case 'L':
 314                   case 'p':
 315                   case 'q':
 316                     /*
 317                      * Option requiring no parameter.
 318                      */
 319                     switch (c) {
 320                       case 'h':
 321                         help();
 322                         nogo = TRUE;
 323                         break;
 324                       case 'V':
 325                         showversion();
 326                         nogo = TRUE;
 327                         break;
 328                       case 'P':
 329                         change_passphrase = TRUE;
 330                         break;
 331                       case 'l':
 332                         outtype = FP;
 333                         break;
 334                       case 'L':
 335                         outtype = PUBLICO;
 336                         break;
 337                       case 'p':
 338                         outtype = PUBLIC;
 339                         break;
 340                       case 'q':
 341                         progressfn = no_progress;
 342                         break;
 343                     }
 344                     break;
 345                   case 't':
 346                   case 'b':
 347                   case 'C':
 348                   case 'O':
 349                   case 'o':
 350                     /*
 351                      * Option requiring parameter.
 352                      */
 353                     p++;
 354                     if (!*p && argc > 1)
 355                         --argc, p = *++argv;
 356                     else if (!*p) {
 357                         fprintf(stderr, "puttygen: option `-%c' expects a"
 358                                 " parameter\n", c);
 359                         errs = TRUE;
 360                     }
 361                     /*
 362                      * Now c is the option and p is the parameter.
 363                      */
 364                     switch (c) {
 365                       case 't':
 366                         if (!strcmp(p, "rsa") || !strcmp(p, "rsa2"))
 367                             keytype = RSA2, sshver = 2;
 368                         else if (!strcmp(p, "rsa1"))
 369                             keytype = RSA1, sshver = 1;
 370                         else if (!strcmp(p, "dsa") || !strcmp(p, "dss"))
 371                             keytype = DSA, sshver = 2;
 372                         else if (!strcmp(p, "ecdsa"))
 373                             keytype = ECDSA, sshver = 2;
 374                         else if (!strcmp(p, "ed25519"))
 375                             keytype = ED25519, sshver = 2;
 376                         else {
 377                             fprintf(stderr,
 378                                     "puttygen: unknown key type `%s'\n", p);
 379                             errs = TRUE;
 380                         }
 381                         break;
 382                       case 'b':
 383                         bits = atoi(p);
 384                         break;
 385                       case 'C':
 386                         comment = p;
 387                         break;
 388                       case 'O':
 389                         if (!strcmp(p, "public"))
 390                             outtype = PUBLIC;
 391                         else if (!strcmp(p, "public-openssh"))
 392                             outtype = PUBLICO;
 393                         else if (!strcmp(p, "private"))
 394                             outtype = PRIVATE;
 395                         else if (!strcmp(p, "fingerprint"))
 396                             outtype = FP;
 397                         else if (!strcmp(p, "private-openssh"))
 398                             outtype = OPENSSH_AUTO, sshver = 2;
 399                         else if (!strcmp(p, "private-openssh-new"))
 400                             outtype = OPENSSH_NEW, sshver = 2;
 401                         else if (!strcmp(p, "private-sshcom"))
 402                             outtype = SSHCOM, sshver = 2;
 403                         else {
 404                             fprintf(stderr,
 405                                     "puttygen: unknown output type `%s'\n", p);
 406                             errs = TRUE;
 407                         }
 408                         break;
 409                       case 'o':
 410                         outfile = p;
 411                         break;
 412                     }
 413                     p = NULL;          /* prevent continued processing */
 414                     break;
 415                   default:
 416                     /*
 417                      * Unrecognised option.
 418                      */
 419                     errs = TRUE;
 420                     fprintf(stderr, "puttygen: no such option `-%c'\n", c);
 421                     break;
 422                 }
 423             }
 424         } else {
 425             /*
 426              * A non-option argument.
 427              */
 428             if (!infile)
 429                 infile = p;
 430             else {
 431                 errs = TRUE;
 432                 fprintf(stderr, "puttygen: cannot handle more than one"
 433                         " input file\n");
 434             }
 435         }
 436     }
 437
 438     if (bits == -1) {
 439         /*
 440          * No explicit key size was specified. Default varies
 441          * depending on key type.
 442          */
 443         switch (keytype) {
 444           case ECDSA:
 445             bits = 384;
 446             break;
 447           case ED25519:
 448             bits = 256;
 449             break;
 450           default:
 451             bits = 2048;
 452             break;
 453         }
 454     }
 455
 456     if (keytype == ECDSA && (bits != 256 && bits != 384 && bits != 521)) {
 457         fprintf(stderr, "puttygen: invalid bits for ECDSA, choose 256, 384 or 521\n");
 458         errs = TRUE;
 459     }
 460
 461     if (keytype == ED25519 && (bits != 256)) {
 462         fprintf(stderr, "puttygen: invalid bits for ED25519, choose 256\n");
 463         errs = TRUE;
 464     }
 465
 466     if (errs)
 467         return 1;
 468
 469     if (nogo)
 470         return 0;
 471
 472     /*
 473      * If run with at least one argument _but_ not the required
 474      * ones, print the usage message and return failure.
 475      */
 476     if (!infile && keytype == NOKEYGEN) {
 477         usage(TRUE);
 478         return 1;
 479     }
 480
 481     /* ------------------------------------------------------------------
 482      * Figure out further details of exactly what we're going to do.
 483      */
 484
 485     /*
 486      * Bomb out if we've been asked to both load and generate a
 487      * key.
 488      */
 489     if (keytype != NOKEYGEN && infile) {
 490         fprintf(stderr, "puttygen: cannot both load and generate a key\n");
 491         return 1;
 492     }
 493
 494     /*
 495      * We must save the private part when generating a new key.
 496      */
 497     if (keytype != NOKEYGEN &&
 498         (outtype != PRIVATE && outtype != OPENSSH_AUTO &&
 499          outtype != OPENSSH_NEW && outtype != SSHCOM)) {
 500         fprintf(stderr, "puttygen: this would generate a new key but "
 501                 "discard the private part\n");
 502         return 1;
 503     }
 504
 505     /*
 506      * Analyse the type of the input file, in case this affects our
 507      * course of action.
 508      */
 509     if (infile) {
 510         infilename = filename_from_str(infile);
 511
 512         intype = key_type(infilename);
 513
 514         switch (intype) {
 515           case SSH_KEYTYPE_UNOPENABLE:
 516           case SSH_KEYTYPE_UNKNOWN:
 517             fprintf(stderr, "puttygen: unable to load file `%s': %s\n",
 518                     infile, key_type_to_str(intype));
 519             return 1;
 520
 521           case SSH_KEYTYPE_SSH1:
 522           case SSH_KEYTYPE_SSH1_PUBLIC:
 523             if (sshver == 2) {
 524                 fprintf(stderr, "puttygen: conversion from SSH-1 to SSH-2 keys"
 525                         " not supported\n");
 526                 return 1;
 527             }
 528             sshver = 1;
 529             break;
 530
 531           case SSH_KEYTYPE_SSH2:
 532           case SSH_KEYTYPE_SSH2_PUBLIC_RFC4716:
 533           case SSH_KEYTYPE_SSH2_PUBLIC_OPENSSH:
 534           case SSH_KEYTYPE_OPENSSH_PEM:
 535           case SSH_KEYTYPE_OPENSSH_NEW:
 536           case SSH_KEYTYPE_SSHCOM:
 537             if (sshver == 1) {
 538                 fprintf(stderr, "puttygen: conversion from SSH-2 to SSH-1 keys"
 539                         " not supported\n");
 540                 return 1;
 541             }
 542             sshver = 2;
 543             break;
 544
 545           case SSH_KEYTYPE_OPENSSH_AUTO:
 546           default:
 547             assert(0 && "Should never see these types on an input file");
 548         }
 549     }
 550
 551     /*
 552      * Determine the default output file, if none is provided.
 553      *
 554      * This will usually be equal to stdout, except that if the
 555      * input and output file formats are the same then the default
 556      * output is to overwrite the input.
 557      *
 558      * Also in this code, we bomb out if the input and output file
 559      * formats are the same and no other action is performed.
 560      */
 561     if ((intype == SSH_KEYTYPE_SSH1 && outtype == PRIVATE) ||
 562         (intype == SSH_KEYTYPE_SSH2 && outtype == PRIVATE) ||
 563         (intype == SSH_KEYTYPE_OPENSSH_PEM && outtype == OPENSSH_AUTO) ||
 564         (intype == SSH_KEYTYPE_OPENSSH_NEW && outtype == OPENSSH_NEW) ||
 565         (intype == SSH_KEYTYPE_SSHCOM && outtype == SSHCOM)) {
 566         if (!outfile) {
 567             outfile = infile;
 568             outfiletmp = dupcat(outfile, ".tmp", NULL);
 569         }
 570
 571         if (!change_passphrase && !comment) {
 572             fprintf(stderr, "puttygen: this command would perform no useful"
 573                     " action\n");
 574             return 1;
 575         }
 576     } else {
 577         if (!outfile) {
 578             /*
 579              * Bomb out rather than automatically choosing to write
 580              * a private key file to stdout.
 581              */
 582             if (outtype == PRIVATE || outtype == OPENSSH_AUTO ||
 583                 outtype == OPENSSH_NEW || outtype == SSHCOM) {
 584                 fprintf(stderr, "puttygen: need to specify an output file\n");
 585                 return 1;
 586             }
 587         }
 588     }
 589
 590     /*
 591      * Figure out whether we need to load the encrypted part of the
 592      * key. This will be the case if either (a) we need to write
 593      * out a private key format, or (b) the entire input key file
 594      * is encrypted.
 595      */
 596     if (outtype == PRIVATE || outtype == OPENSSH_AUTO ||
 597         outtype == OPENSSH_NEW || outtype == SSHCOM ||
 598         intype == SSH_KEYTYPE_OPENSSH_PEM ||
 599         intype == SSH_KEYTYPE_OPENSSH_NEW ||
 600         intype == SSH_KEYTYPE_SSHCOM)
 601         load_encrypted = TRUE;
 602     else
 603         load_encrypted = FALSE;
 604
 605     if (load_encrypted && (intype == SSH_KEYTYPE_SSH1_PUBLIC ||
 606                            intype == SSH_KEYTYPE_SSH2_PUBLIC_RFC4716 ||
 607                            intype == SSH_KEYTYPE_SSH2_PUBLIC_OPENSSH)) {
 608         fprintf(stderr, "puttygen: cannot perform this action on a "
 609                 "public-key-only input file\n");
 610         return 1;
 611     }
 612
 613     /* ------------------------------------------------------------------
 614      * Now we're ready to actually do some stuff.
 615      */
 616
 617     /*
 618      * Either load or generate a key.
 619      */
 620     if (keytype != NOKEYGEN) {
 621         char *entropy;
 622         char default_comment[80];
 623         struct tm tm;
 624         struct progress prog;
 625
 626         prog.phase = -1;
 627         prog.current = -1;
 628
 629         tm = ltime();
 630         if (keytype == DSA)
 631             strftime(default_comment, 30, "dsa-key-%Y%m%d", &tm);
 632         else if (keytype == ECDSA)
 633             strftime(default_comment, 30, "ecdsa-key-%Y%m%d", &tm);
 634         else if (keytype == ED25519)
 635             strftime(default_comment, 30, "ed25519-key-%Y%m%d", &tm);
 636         else
 637             strftime(default_comment, 30, "rsa-key-%Y%m%d", &tm);
 638
 639         random_ref();
 640         entropy = get_random_data(bits / 8);
 641         if (!entropy) {
 642             fprintf(stderr, "puttygen: failed to collect entropy, "
 643                     "could not generate key\n");
 644             return 1;
 645         }
 646         random_add_heavynoise(entropy, bits / 8);
 647         smemclr(entropy, bits/8);
 648         sfree(entropy);
 649
 650         if (keytype == DSA) {
 651             struct dss_key *dsskey = snew(struct dss_key);
 652             dsa_generate(dsskey, bits, progressfn, &prog);
 653             ssh2key = snew(struct ssh2_userkey);
 654             ssh2key->data = dsskey;
 655             ssh2key->alg = &ssh_dss;
 656             ssh1key = NULL;
 657         } else if (keytype == ECDSA) {
 658             struct ec_key *ec = snew(struct ec_key);
 659             ec_generate(ec, bits, progressfn, &prog);
 660             ssh2key = snew(struct ssh2_userkey);
 661             ssh2key->data = ec;
 662             if (bits == 256) {
 663                 ssh2key->alg = &ssh_ecdsa_nistp256;
 664             } else if (bits == 384) {
 665                 ssh2key->alg = &ssh_ecdsa_nistp384;
 666             } else {
 667                 ssh2key->alg = &ssh_ecdsa_nistp521;
 668             }
 669             ssh1key = NULL;
 670         } else if (keytype == ED25519) {
 671             struct ec_key *ec = snew(struct ec_key);
 672             ec_edgenerate(ec, bits, progressfn, &prog);
 673             ssh2key = snew(struct ssh2_userkey);
 674             ssh2key->data = ec;
 675             ssh2key->alg = &ssh_ecdsa_ed25519;
 676             ssh1key = NULL;
 677         } else {
 678             struct RSAKey *rsakey = snew(struct RSAKey);
 679             rsa_generate(rsakey, bits, progressfn, &prog);
 680             rsakey->comment = NULL;
 681             if (keytype == RSA1) {
 682                 ssh1key = rsakey;
 683             } else {
 684                 ssh2key = snew(struct ssh2_userkey);
 685                 ssh2key->data = rsakey;
 686                 ssh2key->alg = &ssh_rsa;
 687             }
 688         }
 689         progressfn(&prog, PROGFN_PROGRESS, INT_MAX, -1);
 690
 691         if (ssh2key)
 692             ssh2key->comment = dupstr(default_comment);
 693         if (ssh1key)
 694             ssh1key->comment = dupstr(default_comment);
 695
 696     } else {
 697         const char *error = NULL;
 698         int encrypted;
 699
 700         assert(infile != NULL);
 701
 702         /*
 703          * Find out whether the input key is encrypted.
 704          */
 705         if (intype == SSH_KEYTYPE_SSH1)
 706             encrypted = rsakey_encrypted(infilename, &origcomment);
 707         else if (intype == SSH_KEYTYPE_SSH2)
 708             encrypted = ssh2_userkey_encrypted(infilename, &origcomment);
 709         else
 710             encrypted = import_encrypted(infilename, intype, &origcomment);
 711
 712         /*
 713          * If so, ask for a passphrase.
 714          */
 715         if (encrypted && load_encrypted) {
 716             prompts_t *p = new_prompts(NULL);
 717             int ret;
 718             p->to_server = FALSE;
 719             p->name = dupstr("SSH key passphrase");
 720             add_prompt(p, dupstr("Enter passphrase to load key: "), FALSE);
 721             ret = console_get_userpass_input(p, NULL, 0);
 722             assert(ret >= 0);
 723             if (!ret) {
 724                 free_prompts(p);
 725                 perror("puttygen: unable to read passphrase");
 726                 return 1;
 727             } else {
 728                 passphrase = dupstr(p->prompts[0]->result);
 729                 free_prompts(p);
 730             }
 731         } else {
 732             passphrase = NULL;
 733         }
 734
 735         switch (intype) {
 736             int ret;
 737
 738           case SSH_KEYTYPE_SSH1:
 739           case SSH_KEYTYPE_SSH1_PUBLIC:
 740             ssh1key = snew(struct RSAKey);
 741             if (!load_encrypted) {
 742                 void *vblob;
 743                 unsigned char *blob;
 744                 int n, l, bloblen;
 745
 746                 ret = rsakey_pubblob(infilename, &vblob, &bloblen,
 747                                      &origcomment, &error);
 748                 blob = (unsigned char *)vblob;
 749
 750                 n = 4;                 /* skip modulus bits */
 751
 752                 l = ssh1_read_bignum(blob + n, bloblen - n,
 753                                      &ssh1key->exponent);
 754                 if (l < 0) {
 755                     error = "SSH-1 public key blob was too short";
 756                 } else {
 757                     n += l;
 758                     l = ssh1_read_bignum(blob + n, bloblen - n,
 759                                          &ssh1key->modulus);
 760                     if (l < 0) {
 761                         error = "SSH-1 public key blob was too short";
 762                     } else
 763                         n += l;
 764                 }
 765                 ssh1key->comment = dupstr(origcomment);
 766                 ssh1key->private_exponent = NULL;
 767                 ssh1key->p = NULL;
 768                 ssh1key->q = NULL;
 769                 ssh1key->iqmp = NULL;
 770             } else {
 771                 ret = loadrsakey(infilename, ssh1key, passphrase, &error);
 772             }
 773             if (ret > 0)
 774                 error = NULL;
 775             else if (!error)
 776                 error = "unknown error";
 777             break;
 778
 779           case SSH_KEYTYPE_SSH2:
 780           case SSH_KEYTYPE_SSH2_PUBLIC_RFC4716:
 781           case SSH_KEYTYPE_SSH2_PUBLIC_OPENSSH:
 782             if (!load_encrypted) {
 783                 ssh2blob = ssh2_userkey_loadpub(infilename, &ssh2alg,
 784                                                 &ssh2bloblen, &origcomment,
 785                                                 &error);
 786                 if (ssh2blob) {
 787                     ssh2algf = find_pubkey_alg(ssh2alg);
 788                     if (ssh2algf)
 789                         bits = ssh2algf->pubkey_bits(ssh2blob, ssh2bloblen);
 790                     else
 791                         bits = -1;
 792                 }
 793                 sfree(ssh2alg);
 794             } else {
 795                 ssh2key = ssh2_load_userkey(infilename, passphrase, &error);
 796             }
 797             if ((ssh2key && ssh2key != SSH2_WRONG_PASSPHRASE) || ssh2blob)
 798                 error = NULL;
 799             else if (!error) {
 800                 if (ssh2key == SSH2_WRONG_PASSPHRASE)
 801                     error = "wrong passphrase";
 802                 else
 803                     error = "unknown error";
 804             }
 805             break;
 806
 807           case SSH_KEYTYPE_OPENSSH_PEM:
 808           case SSH_KEYTYPE_OPENSSH_NEW:
 809           case SSH_KEYTYPE_SSHCOM:
 810             ssh2key = import_ssh2(infilename, intype, passphrase, &error);
 811             if (ssh2key) {
 812                 if (ssh2key != SSH2_WRONG_PASSPHRASE)
 813                     error = NULL;
 814                 else
 815                     error = "wrong passphrase";
 816             } else if (!error)
 817                 error = "unknown error";
 818             break;
 819
 820           default:
 821             assert(0);
 822         }
 823
 824         if (error) {
 825             fprintf(stderr, "puttygen: error loading `%s': %s\n",
 826                     infile, error);
 827             return 1;
 828         }
 829     }
 830
 831     /*
 832      * Change the comment if asked to.
 833      */
 834     if (comment) {
 835         if (sshver == 1) {
 836             assert(ssh1key);
 837             sfree(ssh1key->comment);
 838             ssh1key->comment = dupstr(comment);
 839         } else {
 840             assert(ssh2key);
 841             sfree(ssh2key->comment);
 842             ssh2key->comment = dupstr(comment);
 843         }
 844     }
 845
 846     /*
 847      * Prompt for a new passphrase if we have been asked to, or if
 848      * we have just generated a key.
 849      */
 850     if (change_passphrase || keytype != NOKEYGEN) {
 851         prompts_t *p = new_prompts(NULL);
 852         int ret;
 853
 854         p->to_server = FALSE;
 855         p->name = dupstr("New SSH key passphrase");
 856         add_prompt(p, dupstr("Enter passphrase to save key: "), FALSE);
 857         add_prompt(p, dupstr("Re-enter passphrase to verify: "), FALSE);
 858         ret = console_get_userpass_input(p, NULL, 0);
 859         assert(ret >= 0);
 860         if (!ret) {
 861             free_prompts(p);
 862             perror("puttygen: unable to read new passphrase");
 863             return 1;
 864         } else {
 865             if (strcmp(p->prompts[0]->result, p->prompts[1]->result)) {
 866                 free_prompts(p);
 867                 fprintf(stderr, "puttygen: passphrases do not match\n");
 868                 return 1;
 869             }
 870             if (passphrase) {
 871                 smemclr(passphrase, strlen(passphrase));
 872                 sfree(passphrase);
 873             }
 874             passphrase = dupstr(p->prompts[0]->result);
 875             free_prompts(p);
 876             if (!*passphrase) {
 877                 sfree(passphrase);
 878                 passphrase = NULL;
 879             }
 880         }
 881     }
 882
 883     /*
 884      * Write output.
 885      *
 886      * (In the case where outfile and outfiletmp are both NULL,
 887      * there is no semantic reason to initialise outfilename at
 888      * all; but we have to write _something_ to it or some compiler
 889      * will probably complain that it might be used uninitialised.)
 890      */
 891     if (outfiletmp)
 892         outfilename = filename_from_str(outfiletmp);
 893     else
 894         outfilename = filename_from_str(outfile ? outfile : "");
 895
 896     switch (outtype) {
 897         int ret, real_outtype;
 898
 899       case PRIVATE:
 900         if (sshver == 1) {
 901             assert(ssh1key);
 902             ret = saversakey(outfilename, ssh1key, passphrase);
 903             if (!ret) {
 904                 fprintf(stderr, "puttygen: unable to save SSH-1 private key\n");
 905                 return 1;
 906             }
 907         } else {
 908             assert(ssh2key);
 909             ret = ssh2_save_userkey(outfilename, ssh2key, passphrase);
 910             if (!ret) {
 911                 fprintf(stderr, "puttygen: unable to save SSH-2 private key\n");
 912                 return 1;
 913             }
 914         }
 915         if (outfiletmp) {
 916             if (!move(outfiletmp, outfile))
 917                 return 1;              /* rename failed */
 918         }
 919         break;
 920
 921       case PUBLIC:
 922       case PUBLICO:
 923         {
 924             FILE *fp;
 925
 926             if (outfile)
 927                 fp = f_open(outfilename, "w", FALSE);
 928             else
 929                 fp = stdout;
 930
 931             if (sshver == 1) {
 932                 ssh1_write_pubkey(fp, ssh1key);
 933             } else {
 934                 if (!ssh2blob) {
 935                     assert(ssh2key);
 936                     ssh2blob = ssh2key->alg->public_blob(ssh2key->data,
 937                                                          &ssh2bloblen);
 938                 }
 939
 940                 ssh2_write_pubkey(fp, ssh2key ? ssh2key->comment : origcomment,
 941                                   ssh2blob, ssh2bloblen,
 942                                   (outtype == PUBLIC ?
 943                                    SSH_KEYTYPE_SSH2_PUBLIC_RFC4716 :
 944                                    SSH_KEYTYPE_SSH2_PUBLIC_OPENSSH));
 945             }
 946
 947             if (outfile)
 948                 fclose(fp);
 949         }
 950         break;
 951
 952       case FP:
 953         {
 954             FILE *fp;
 955             char *fingerprint;
 956
 957             if (sshver == 1) {
 958                 assert(ssh1key);
 959                 fingerprint = snewn(128, char);
 960                 rsa_fingerprint(fingerprint, 128, ssh1key);
 961             } else {
 962                 if (ssh2key) {
 963                     fingerprint = ssh2_fingerprint(ssh2key->alg,
 964                                                    ssh2key->data);
 965                 } else {
 966                     assert(ssh2blob);
 967                     fingerprint = ssh2_fingerprint_blob(ssh2blob, ssh2bloblen);
 968                 }
 969             }
 970
 971             if (outfile)
 972                 fp = f_open(outfilename, "w", FALSE);
 973             else
 974                 fp = stdout;
 975             fprintf(fp, "%s\n", fingerprint);
 976             if (outfile)
 977                 fclose(fp);
 978
 979             sfree(fingerprint);
 980         }
 981         break;
 982
 983       case OPENSSH_AUTO:
 984       case OPENSSH_NEW:
 985       case SSHCOM:
 986         assert(sshver == 2);
 987         assert(ssh2key);
 988         random_ref(); /* both foreign key types require randomness,
 989                        * for IV or padding */
 990         switch (outtype) {
 991           case OPENSSH_AUTO:
 992             real_outtype = SSH_KEYTYPE_OPENSSH_AUTO;
 993             break;
 994           case OPENSSH_NEW:
 995             real_outtype = SSH_KEYTYPE_OPENSSH_NEW;
 996             break;
 997           case SSHCOM:
 998             real_outtype = SSH_KEYTYPE_SSHCOM;
 999             break;
1000           default:
1001             assert(0 && "control flow goof");
1002         }
1003         ret = export_ssh2(outfilename, real_outtype, ssh2key, passphrase);
1004         if (!ret) {
1005             fprintf(stderr, "puttygen: unable to export key\n");
1006             return 1;
1007         }
1008         if (outfiletmp) {
1009             if (!move(outfiletmp, outfile))
1010                 return 1;              /* rename failed */
1011         }
1012         break;
1013     }
1014
1015     if (passphrase) {
1016         smemclr(passphrase, strlen(passphrase));
1017         sfree(passphrase);
1018     }
1019
1020     if (ssh1key)
1021         freersakey(ssh1key);
1022     if (ssh2key) {
1023         ssh2key->alg->freekey(ssh2key->data);
1024         sfree(ssh2key);
1025     }
1026
1027     return 0;
1028 }
1029
1030 #ifdef TEST_CMDGEN
1031
1032 #undef main
1033
1034 #include <stdarg.h>
1035
1036 int passes, fails;
1037
1038 void setup_passphrases(char *first, ...)
1039 {
1040     va_list ap;
1041     char *next;
1042
1043     nprompts = 0;
1044     if (first) {
1045         prompts[nprompts++] = first;
1046         va_start(ap, first);
1047         while ((next = va_arg(ap, char *)) != NULL) {
1048             assert(nprompts < lenof(prompts));
1049             prompts[nprompts++] = next;
1050         }
1051         va_end(ap);
1052     }
1053 }
1054
1055 void test(int retval, ...)
1056 {
1057     va_list ap;
1058     int i, argc, ret;
1059     char **argv;
1060
1061     argc = 0;
1062     va_start(ap, retval);
1063     while (va_arg(ap, char *) != NULL)
1064         argc++;
1065     va_end(ap);
1066
1067     argv = snewn(argc+1, char *);
1068     va_start(ap, retval);
1069     for (i = 0; i <= argc; i++)
1070         argv[i] = va_arg(ap, char *);
1071     va_end(ap);
1072
1073     promptsgot = 0;
1074     ret = cmdgen_main(argc, argv);
1075
1076     if (ret != retval) {
1077         printf("FAILED retval (exp %d got %d):", retval, ret);
1078         for (i = 0; i < argc; i++)
1079             printf(" %s", argv[i]);
1080         printf("\n");
1081         fails++;
1082     } else if (promptsgot != nprompts) {
1083         printf("FAILED nprompts (exp %d got %d):", nprompts, promptsgot);
1084         for (i = 0; i < argc; i++)
1085             printf(" %s", argv[i]);
1086         printf("\n");
1087         fails++;
1088     } else {
1089         passes++;
1090     }
1091 }
1092
1093 void filecmp(char *file1, char *file2, char *fmt, ...)
1094 {
1095     /*
1096      * Ideally I should do file comparison myself, to maximise the
1097      * portability of this test suite once this application begins
1098      * running on non-Unix platforms. For the moment, though,
1099      * calling Unix diff is perfectly adequate.
1100      */
1101     char *buf;
1102     int ret;
1103
1104     buf = dupprintf("diff -q '%s' '%s'", file1, file2);
1105     ret = system(buf);
1106     sfree(buf);
1107
1108     if (ret) {
1109         va_list ap;
1110
1111         printf("FAILED diff (ret=%d): ", ret);
1112
1113         va_start(ap, fmt);
1114         vprintf(fmt, ap);
1115         va_end(ap);
1116
1117         printf("\n");
1118
1119         fails++;
1120     } else
1121         passes++;
1122 }
1123
1124 char *cleanup_fp(char *s)
1125 {
1126     char *p;
1127
1128     if (!strncmp(s, "ssh-", 4)) {
1129         s += strcspn(s, " \n\t");
1130         s += strspn(s, " \n\t");
1131     }
1132
1133     p = s;
1134     s += strcspn(s, " \n\t");
1135     s += strspn(s, " \n\t");
1136     s += strcspn(s, " \n\t");
1137
1138     return dupprintf("%.*s", s - p, p);
1139 }
1140
1141 char *get_fp(char *filename)
1142 {
1143     FILE *fp;
1144     char buf[256], *ret;
1145
1146     fp = fopen(filename, "r");
1147     if (!fp)
1148         return NULL;
1149     ret = fgets(buf, sizeof(buf), fp);
1150     fclose(fp);
1151     if (!ret)
1152         return NULL;
1153     return cleanup_fp(buf);
1154 }
1155
1156 void check_fp(char *filename, char *fp, char *fmt, ...)
1157 {
1158     char *newfp;
1159
1160     if (!fp)
1161         return;
1162
1163     newfp = get_fp(filename);
1164
1165     if (!strcmp(fp, newfp)) {
1166         passes++;
1167     } else {
1168         va_list ap;
1169
1170         printf("FAILED check_fp ['%s' != '%s']: ", newfp, fp);
1171
1172         va_start(ap, fmt);
1173         vprintf(fmt, ap);
1174         va_end(ap);
1175
1176         printf("\n");
1177
1178         fails++;
1179     }
1180
1181     sfree(newfp);
1182 }
1183
1184 int main(int argc, char **argv)
1185 {
1186     int i;
1187     static char *const keytypes[] = { "rsa1", "dsa", "rsa" };
1188
1189     /*
1190      * Even when this thing is compiled for automatic test mode,
1191      * it's helpful to be able to invoke it with command-line
1192      * options for _manual_ tests.
1193      */
1194     if (argc > 1)
1195         return cmdgen_main(argc, argv);
1196
1197     passes = fails = 0;
1198
1199     for (i = 0; i < lenof(keytypes); i++) {
1200         char filename[128], osfilename[128], scfilename[128];
1201         char pubfilename[128], tmpfilename1[128], tmpfilename2[128];
1202         char *fp;
1203
1204         sprintf(filename, "test-%s.ppk", keytypes[i]);
1205         sprintf(pubfilename, "test-%s.pub", keytypes[i]);
1206         sprintf(osfilename, "test-%s.os", keytypes[i]);
1207         sprintf(scfilename, "test-%s.sc", keytypes[i]);
1208         sprintf(tmpfilename1, "test-%s.tmp1", keytypes[i]);
1209         sprintf(tmpfilename2, "test-%s.tmp2", keytypes[i]);
1210
1211         /*
1212          * Create an encrypted key.
1213          */
1214         setup_passphrases("sponge", "sponge", NULL);
1215         test(0, "puttygen", "-t", keytypes[i], "-o", filename, NULL);
1216
1217         /*
1218          * List the public key in OpenSSH format.
1219          */
1220         setup_passphrases(NULL);
1221         test(0, "puttygen", "-L", filename, "-o", pubfilename, NULL);
1222         {
1223             char cmdbuf[256];
1224             fp = NULL;
1225             sprintf(cmdbuf, "ssh-keygen -l -f '%s' > '%s'",
1226                     pubfilename, tmpfilename1);
1227             if (system(cmdbuf) ||
1228                 (fp = get_fp(tmpfilename1)) == NULL) {
1229                 printf("UNABLE to test fingerprint matching against OpenSSH");
1230             }
1231         }
1232
1233         /*
1234          * List the public key in IETF/ssh.com format.
1235          */
1236         setup_passphrases(NULL);
1237         test(0, "puttygen", "-p", filename, NULL);
1238
1239         /*
1240          * List the fingerprint of the key.
1241          */
1242         setup_passphrases(NULL);
1243         test(0, "puttygen", "-l", filename, "-o", tmpfilename1, NULL);
1244         if (!fp) {
1245             /*
1246              * If we can't test fingerprints against OpenSSH, we
1247              * can at the very least test equality of all the
1248              * fingerprints we generate of this key throughout
1249              * testing.
1250              */
1251             fp = get_fp(tmpfilename1);
1252         } else {
1253             check_fp(tmpfilename1, fp, "%s initial fp", keytypes[i]);
1254         }
1255
1256         /*
1257          * Change the comment of the key; this _does_ require a
1258          * passphrase owing to the tamperproofing.
1259          *
1260          * NOTE: In SSH-1, this only requires a passphrase because
1261          * of inadequacies of the loading and saving mechanisms. In
1262          * _principle_, it should be perfectly possible to modify
1263          * the comment on an SSH-1 key without requiring a
1264          * passphrase; the only reason I can't do it is because my
1265          * loading and saving mechanisms don't include a method of
1266          * loading all the key data without also trying to decrypt
1267          * the private section.
1268          *
1269          * I don't consider this to be a problem worth solving,
1270          * because (a) to fix it would probably end up bloating
1271          * PuTTY proper, and (b) SSH-1 is on the way out anyway so
1272          * it shouldn't be highly significant. If it seriously
1273          * bothers anyone then perhaps I _might_ be persuadable.
1274          */
1275         setup_passphrases("sponge", NULL);
1276         test(0, "puttygen", "-C", "new-comment", filename, NULL);
1277
1278         /*
1279          * Change the passphrase to nothing.
1280          */
1281         setup_passphrases("sponge", "", "", NULL);
1282         test(0, "puttygen", "-P", filename, NULL);
1283
1284         /*
1285          * Change the comment of the key again; this time we expect no
1286          * passphrase to be required.
1287          */
1288         setup_passphrases(NULL);
1289         test(0, "puttygen", "-C", "new-comment-2", filename, NULL);
1290
1291         /*
1292          * Export the private key into OpenSSH format; no passphrase
1293          * should be required since the key is currently unencrypted.
1294          * For RSA1 keys, this should give an error.
1295          */
1296         setup_passphrases(NULL);
1297         test((i==0), "puttygen", "-O", "private-openssh", "-o", osfilename,
1298              filename, NULL);
1299
1300         if (i) {
1301             /*
1302              * List the fingerprint of the OpenSSH-formatted key.
1303              */
1304             setup_passphrases(NULL);
1305             test(0, "puttygen", "-l", osfilename, "-o", tmpfilename1, NULL);
1306             check_fp(tmpfilename1, fp, "%s openssh clear fp", keytypes[i]);
1307
1308             /*
1309              * List the public half of the OpenSSH-formatted key in
1310              * OpenSSH format.
1311              */
1312             setup_passphrases(NULL);
1313             test(0, "puttygen", "-L", osfilename, NULL);
1314
1315             /*
1316              * List the public half of the OpenSSH-formatted key in
1317              * IETF/ssh.com format.
1318              */
1319             setup_passphrases(NULL);
1320             test(0, "puttygen", "-p", osfilename, NULL);
1321         }
1322
1323         /*
1324          * Export the private key into ssh.com format; no passphrase
1325          * should be required since the key is currently unencrypted.
1326          * For RSA1 keys, this should give an error.
1327          */
1328         setup_passphrases(NULL);
1329         test((i==0), "puttygen", "-O", "private-sshcom", "-o", scfilename,
1330              filename, NULL);
1331
1332         if (i) {
1333             /*
1334              * List the fingerprint of the ssh.com-formatted key.
1335              */
1336             setup_passphrases(NULL);
1337             test(0, "puttygen", "-l", scfilename, "-o", tmpfilename1, NULL);
1338             check_fp(tmpfilename1, fp, "%s ssh.com clear fp", keytypes[i]);
1339
1340             /*
1341              * List the public half of the ssh.com-formatted key in
1342              * OpenSSH format.
1343              */
1344             setup_passphrases(NULL);
1345             test(0, "puttygen", "-L", scfilename, NULL);
1346
1347             /*
1348              * List the public half of the ssh.com-formatted key in
1349              * IETF/ssh.com format.
1350              */
1351             setup_passphrases(NULL);
1352             test(0, "puttygen", "-p", scfilename, NULL);
1353         }
1354
1355         if (i) {
1356             /*
1357              * Convert from OpenSSH into ssh.com.
1358              */
1359             setup_passphrases(NULL);
1360             test(0, "puttygen", osfilename, "-o", tmpfilename1,
1361                  "-O", "private-sshcom", NULL);
1362
1363             /*
1364              * Convert from ssh.com back into a PuTTY key,
1365              * supplying the same comment as we had before we
1366              * started to ensure the comparison works.
1367              */
1368             setup_passphrases(NULL);
1369             test(0, "puttygen", tmpfilename1, "-C", "new-comment-2",
1370                  "-o", tmpfilename2, NULL);
1371
1372             /*
1373              * See if the PuTTY key thus generated is the same as
1374              * the original.
1375              */
1376             filecmp(filename, tmpfilename2,
1377                     "p->o->s->p clear %s", keytypes[i]);
1378
1379             /*
1380              * Convert from ssh.com to OpenSSH.
1381              */
1382             setup_passphrases(NULL);
1383             test(0, "puttygen", scfilename, "-o", tmpfilename1,
1384                  "-O", "private-openssh", NULL);
1385
1386             /*
1387              * Convert from OpenSSH back into a PuTTY key,
1388              * supplying the same comment as we had before we
1389              * started to ensure the comparison works.
1390              */
1391             setup_passphrases(NULL);
1392             test(0, "puttygen", tmpfilename1, "-C", "new-comment-2",
1393                  "-o", tmpfilename2, NULL);
1394
1395             /*
1396              * See if the PuTTY key thus generated is the same as
1397              * the original.
1398              */
1399             filecmp(filename, tmpfilename2,
1400                     "p->s->o->p clear %s", keytypes[i]);
1401
1402             /*
1403              * Finally, do a round-trip conversion between PuTTY
1404              * and ssh.com without involving OpenSSH, to test that
1405              * the key comment is preserved in that case.
1406              */
1407             setup_passphrases(NULL);
1408             test(0, "puttygen", "-O", "private-sshcom", "-o", tmpfilename1,
1409                  filename, NULL);
1410             setup_passphrases(NULL);
1411             test(0, "puttygen", tmpfilename1, "-o", tmpfilename2, NULL);
1412             filecmp(filename, tmpfilename2,
1413                     "p->s->p clear %s", keytypes[i]);
1414         }
1415
1416         /*
1417          * Check that mismatched passphrases cause an error.
1418          */
1419         setup_passphrases("sponge2", "sponge3", NULL);
1420         test(1, "puttygen", "-P", filename, NULL);
1421
1422         /*
1423          * Put a passphrase back on.
1424          */
1425         setup_passphrases("sponge2", "sponge2", NULL);
1426         test(0, "puttygen", "-P", filename, NULL);
1427
1428         /*
1429          * Export the private key into OpenSSH format, this time
1430          * while encrypted. For RSA1 keys, this should give an
1431          * error.
1432          */
1433         if (i == 0)
1434             setup_passphrases(NULL);   /* error, hence no passphrase read */
1435         else
1436             setup_passphrases("sponge2", NULL);
1437         test((i==0), "puttygen", "-O", "private-openssh", "-o", osfilename,
1438              filename, NULL);
1439
1440         if (i) {
1441             /*
1442              * List the fingerprint of the OpenSSH-formatted key.
1443              */
1444             setup_passphrases("sponge2", NULL);
1445             test(0, "puttygen", "-l", osfilename, "-o", tmpfilename1, NULL);
1446             check_fp(tmpfilename1, fp, "%s openssh encrypted fp", keytypes[i]);
1447
1448             /*
1449              * List the public half of the OpenSSH-formatted key in
1450              * OpenSSH format.
1451              */
1452             setup_passphrases("sponge2", NULL);
1453             test(0, "puttygen", "-L", osfilename, NULL);
1454
1455             /*
1456              * List the public half of the OpenSSH-formatted key in
1457              * IETF/ssh.com format.
1458              */
1459             setup_passphrases("sponge2", NULL);
1460             test(0, "puttygen", "-p", osfilename, NULL);
1461         }
1462
1463         /*
1464          * Export the private key into ssh.com format, this time
1465          * while encrypted. For RSA1 keys, this should give an
1466          * error.
1467          */
1468         if (i == 0)
1469             setup_passphrases(NULL);   /* error, hence no passphrase read */
1470         else
1471             setup_passphrases("sponge2", NULL);
1472         test((i==0), "puttygen", "-O", "private-sshcom", "-o", scfilename,
1473              filename, NULL);
1474
1475         if (i) {
1476             /*
1477              * List the fingerprint of the ssh.com-formatted key.
1478              */
1479             setup_passphrases("sponge2", NULL);
1480             test(0, "puttygen", "-l", scfilename, "-o", tmpfilename1, NULL);
1481             check_fp(tmpfilename1, fp, "%s ssh.com encrypted fp", keytypes[i]);
1482
1483             /*
1484              * List the public half of the ssh.com-formatted key in
1485              * OpenSSH format.
1486              */
1487             setup_passphrases("sponge2", NULL);
1488             test(0, "puttygen", "-L", scfilename, NULL);
1489
1490             /*
1491              * List the public half of the ssh.com-formatted key in
1492              * IETF/ssh.com format.
1493              */
1494             setup_passphrases("sponge2", NULL);
1495             test(0, "puttygen", "-p", scfilename, NULL);
1496         }
1497
1498         if (i) {
1499             /*
1500              * Convert from OpenSSH into ssh.com.
1501              */
1502             setup_passphrases("sponge2", NULL);
1503             test(0, "puttygen", osfilename, "-o", tmpfilename1,
1504                  "-O", "private-sshcom", NULL);
1505
1506             /*
1507              * Convert from ssh.com back into a PuTTY key,
1508              * supplying the same comment as we had before we
1509              * started to ensure the comparison works.
1510              */
1511             setup_passphrases("sponge2", NULL);
1512             test(0, "puttygen", tmpfilename1, "-C", "new-comment-2",
1513                  "-o", tmpfilename2, NULL);
1514
1515             /*
1516              * See if the PuTTY key thus generated is the same as
1517              * the original.
1518              */
1519             filecmp(filename, tmpfilename2,
1520                     "p->o->s->p encrypted %s", keytypes[i]);
1521
1522             /*
1523              * Convert from ssh.com to OpenSSH.
1524              */
1525             setup_passphrases("sponge2", NULL);
1526             test(0, "puttygen", scfilename, "-o", tmpfilename1,
1527                  "-O", "private-openssh", NULL);
1528
1529             /*
1530              * Convert from OpenSSH back into a PuTTY key,
1531              * supplying the same comment as we had before we
1532              * started to ensure the comparison works.
1533              */
1534             setup_passphrases("sponge2", NULL);
1535             test(0, "puttygen", tmpfilename1, "-C", "new-comment-2",
1536                  "-o", tmpfilename2, NULL);
1537
1538             /*
1539              * See if the PuTTY key thus generated is the same as
1540              * the original.
1541              */
1542             filecmp(filename, tmpfilename2,
1543                     "p->s->o->p encrypted %s", keytypes[i]);
1544
1545             /*
1546              * Finally, do a round-trip conversion between PuTTY
1547              * and ssh.com without involving OpenSSH, to test that
1548              * the key comment is preserved in that case.
1549              */
1550             setup_passphrases("sponge2", NULL);
1551             test(0, "puttygen", "-O", "private-sshcom", "-o", tmpfilename1,
1552                  filename, NULL);
1553             setup_passphrases("sponge2", NULL);
1554             test(0, "puttygen", tmpfilename1, "-o", tmpfilename2, NULL);
1555             filecmp(filename, tmpfilename2,
1556                     "p->s->p encrypted %s", keytypes[i]);
1557         }
1558
1559         /*
1560          * Load with the wrong passphrase.
1561          */
1562         setup_passphrases("sponge8", NULL);
1563         test(1, "puttygen", "-C", "spurious-new-comment", filename, NULL);
1564
1565         /*
1566          * Load a totally bogus file.
1567          */
1568         setup_passphrases(NULL);
1569         test(1, "puttygen", "-C", "spurious-new-comment", pubfilename, NULL);
1570     }
1571     printf("%d passes, %d fails\n", passes, fails);
1572     return 0;
1573 }
1574
1575 #endif