Now that we have Subversion's file renaming ability, it's time at
[sgt/putty] / puttygen.c
diff --git a/puttygen.c b/puttygen.c
deleted file mode 100644 (file)
index 3f2be92..0000000
+++ /dev/null
@@ -1,1451 +0,0 @@
-/*
- * PuTTY key generation front end (Windows).
- */
-
-#include <time.h>
-#include <stdio.h>
-#include <stdlib.h>
-
-#define PUTTY_DO_GLOBALS
-
-#include "putty.h"
-#include "ssh.h"
-
-#include <commctrl.h>
-
-#ifdef MSVC4
-#define ICON_BIG        1
-#endif
-
-#define WM_DONEKEY (WM_XUSER + 1)
-
-#define DEFAULT_KEYSIZE 1024
-
-static int requested_help;
-
-static char *cmdline_keyfile = NULL;
-
-/*
- * Print a modal (Really Bad) message box and perform a fatal exit.
- */
-void modalfatalbox(char *fmt, ...)
-{
-    va_list ap;
-    char *stuff;
-
-    va_start(ap, fmt);
-    stuff = dupvprintf(fmt, ap);
-    va_end(ap);
-    MessageBox(NULL, stuff, "PuTTYgen Fatal Error",
-              MB_SYSTEMMODAL | MB_ICONERROR | MB_OK);
-    sfree(stuff);
-    exit(1);
-}
-
-/* ----------------------------------------------------------------------
- * Progress report code. This is really horrible :-)
- */
-#define PROGRESSRANGE 65535
-#define MAXPHASE 5
-struct progress {
-    int nphases;
-    struct {
-       int exponential;
-       unsigned startpoint, total;
-       unsigned param, current, n;    /* if exponential */
-       unsigned mult;                 /* if linear */
-    } phases[MAXPHASE];
-    unsigned total, divisor, range;
-    HWND progbar;
-};
-
-static void progress_update(void *param, int action, int phase, int iprogress)
-{
-    struct progress *p = (struct progress *) param;
-    unsigned progress = iprogress;
-    int position;
-
-    if (action < PROGFN_READY && p->nphases < phase)
-       p->nphases = phase;
-    switch (action) {
-      case PROGFN_INITIALISE:
-       p->nphases = 0;
-       break;
-      case PROGFN_LIN_PHASE:
-       p->phases[phase-1].exponential = 0;
-       p->phases[phase-1].mult = p->phases[phase].total / progress;
-       break;
-      case PROGFN_EXP_PHASE:
-       p->phases[phase-1].exponential = 1;
-       p->phases[phase-1].param = 0x10000 + progress;
-       p->phases[phase-1].current = p->phases[phase-1].total;
-       p->phases[phase-1].n = 0;
-       break;
-      case PROGFN_PHASE_EXTENT:
-       p->phases[phase-1].total = progress;
-       break;
-      case PROGFN_READY:
-       {
-           unsigned total = 0;
-           int i;
-           for (i = 0; i < p->nphases; i++) {
-               p->phases[i].startpoint = total;
-               total += p->phases[i].total;
-           }
-           p->total = total;
-           p->divisor = ((p->total + PROGRESSRANGE - 1) / PROGRESSRANGE);
-           p->range = p->total / p->divisor;
-           SendMessage(p->progbar, PBM_SETRANGE, 0, MAKELPARAM(0, p->range));
-       }
-       break;
-      case PROGFN_PROGRESS:
-       if (p->phases[phase-1].exponential) {
-           while (p->phases[phase-1].n < progress) {
-               p->phases[phase-1].n++;
-               p->phases[phase-1].current *= p->phases[phase-1].param;
-               p->phases[phase-1].current /= 0x10000;
-           }
-           position = (p->phases[phase-1].startpoint +
-                       p->phases[phase-1].total - p->phases[phase-1].current);
-       } else {
-           position = (p->phases[phase-1].startpoint +
-                       progress * p->phases[phase-1].mult);
-       }
-       SendMessage(p->progbar, PBM_SETPOS, position / p->divisor, 0);
-       break;
-    }
-}
-
-extern char ver[];
-
-#define PASSPHRASE_MAXLEN 512
-
-struct PassphraseProcStruct {
-    char *passphrase;
-    char *comment;
-};
-
-/*
- * Dialog-box function for the passphrase box.
- */
-static int CALLBACK PassphraseProc(HWND hwnd, UINT msg,
-                                  WPARAM wParam, LPARAM lParam)
-{
-    static char *passphrase = NULL;
-    struct PassphraseProcStruct *p;
-
-    switch (msg) {
-      case WM_INITDIALOG:
-       SetForegroundWindow(hwnd);
-       SetWindowPos(hwnd, HWND_TOP, 0, 0, 0, 0,
-                    SWP_NOMOVE | SWP_NOSIZE | SWP_SHOWWINDOW);
-
-       /*
-        * Centre the window.
-        */
-       {                              /* centre the window */
-           RECT rs, rd;
-           HWND hw;
-
-           hw = GetDesktopWindow();
-           if (GetWindowRect(hw, &rs) && GetWindowRect(hwnd, &rd))
-               MoveWindow(hwnd,
-                          (rs.right + rs.left + rd.left - rd.right) / 2,
-                          (rs.bottom + rs.top + rd.top - rd.bottom) / 2,
-                          rd.right - rd.left, rd.bottom - rd.top, TRUE);
-       }
-
-       p = (struct PassphraseProcStruct *) lParam;
-       passphrase = p->passphrase;
-       if (p->comment)
-           SetDlgItemText(hwnd, 101, p->comment);
-       *passphrase = 0;
-       SetDlgItemText(hwnd, 102, passphrase);
-       return 0;
-      case WM_COMMAND:
-       switch (LOWORD(wParam)) {
-         case IDOK:
-           if (*passphrase)
-               EndDialog(hwnd, 1);
-           else
-               MessageBeep(0);
-           return 0;
-         case IDCANCEL:
-           EndDialog(hwnd, 0);
-           return 0;
-         case 102:                    /* edit box */
-           if ((HIWORD(wParam) == EN_CHANGE) && passphrase) {
-               GetDlgItemText(hwnd, 102, passphrase,
-                              PASSPHRASE_MAXLEN - 1);
-               passphrase[PASSPHRASE_MAXLEN - 1] = '\0';
-           }
-           return 0;
-       }
-       return 0;
-      case WM_CLOSE:
-       EndDialog(hwnd, 0);
-       return 0;
-    }
-    return 0;
-}
-
-/*
- * Prompt for a key file. Assumes the filename buffer is of size
- * FILENAME_MAX.
- */
-static int prompt_keyfile(HWND hwnd, char *dlgtitle,
-                         char *filename, int save, int ppk)
-{
-    OPENFILENAME of;
-    memset(&of, 0, sizeof(of));
-#ifdef OPENFILENAME_SIZE_VERSION_400
-    of.lStructSize = OPENFILENAME_SIZE_VERSION_400;
-#else
-    of.lStructSize = sizeof(of);
-#endif
-    of.hwndOwner = hwnd;
-    if (ppk) {
-       of.lpstrFilter = "PuTTY Private Key Files (*.ppk)\0*.ppk\0"
-           "All Files (*.*)\0*\0\0\0";
-       of.lpstrDefExt = ".ppk";
-    } else {
-       of.lpstrFilter = "All Files (*.*)\0*\0\0\0";
-    }
-    of.lpstrCustomFilter = NULL;
-    of.nFilterIndex = 1;
-    of.lpstrFile = filename;
-    *filename = '\0';
-    of.nMaxFile = FILENAME_MAX;
-    of.lpstrFileTitle = NULL;
-    of.lpstrInitialDir = NULL;
-    of.lpstrTitle = dlgtitle;
-    of.Flags = 0;
-    if (save)
-       return GetSaveFileName(&of);
-    else
-       return GetOpenFileName(&of);
-}
-
-/*
- * Dialog-box function for the Licence box.
- */
-static int CALLBACK LicenceProc(HWND hwnd, UINT msg,
-                               WPARAM wParam, LPARAM lParam)
-{
-    switch (msg) {
-      case WM_INITDIALOG:
-       /*
-        * Centre the window.
-        */
-       {                              /* centre the window */
-           RECT rs, rd;
-           HWND hw;
-
-           hw = GetDesktopWindow();
-           if (GetWindowRect(hw, &rs) && GetWindowRect(hwnd, &rd))
-               MoveWindow(hwnd,
-                          (rs.right + rs.left + rd.left - rd.right) / 2,
-                          (rs.bottom + rs.top + rd.top - rd.bottom) / 2,
-                          rd.right - rd.left, rd.bottom - rd.top, TRUE);
-       }
-
-       return 1;
-      case WM_COMMAND:
-       switch (LOWORD(wParam)) {
-         case IDOK:
-         case IDCANCEL:
-           EndDialog(hwnd, 1);
-           return 0;
-       }
-       return 0;
-      case WM_CLOSE:
-       EndDialog(hwnd, 1);
-       return 0;
-    }
-    return 0;
-}
-
-/*
- * Dialog-box function for the About box.
- */
-static int CALLBACK AboutProc(HWND hwnd, UINT msg,
-                             WPARAM wParam, LPARAM lParam)
-{
-    switch (msg) {
-      case WM_INITDIALOG:
-       /*
-        * Centre the window.
-        */
-       {                              /* centre the window */
-           RECT rs, rd;
-           HWND hw;
-
-           hw = GetDesktopWindow();
-           if (GetWindowRect(hw, &rs) && GetWindowRect(hwnd, &rd))
-               MoveWindow(hwnd,
-                          (rs.right + rs.left + rd.left - rd.right) / 2,
-                          (rs.bottom + rs.top + rd.top - rd.bottom) / 2,
-                          rd.right - rd.left, rd.bottom - rd.top, TRUE);
-       }
-
-       SetDlgItemText(hwnd, 100, ver);
-       return 1;
-      case WM_COMMAND:
-       switch (LOWORD(wParam)) {
-         case IDOK:
-         case IDCANCEL:
-           EndDialog(hwnd, 1);
-           return 0;
-         case 101:
-           EnableWindow(hwnd, 0);
-           DialogBox(hinst, MAKEINTRESOURCE(214), hwnd, LicenceProc);
-           EnableWindow(hwnd, 1);
-           SetActiveWindow(hwnd);
-           return 0;
-       }
-       return 0;
-      case WM_CLOSE:
-       EndDialog(hwnd, 1);
-       return 0;
-    }
-    return 0;
-}
-
-/*
- * Thread to generate a key.
- */
-struct rsa_key_thread_params {
-    HWND progressbar;                 /* notify this with progress */
-    HWND dialog;                      /* notify this on completion */
-    int keysize;                      /* bits in key */
-    int is_dsa;
-    struct RSAKey *key;
-    struct dss_key *dsskey;
-};
-static DWORD WINAPI generate_rsa_key_thread(void *param)
-{
-    struct rsa_key_thread_params *params =
-       (struct rsa_key_thread_params *) param;
-    struct progress prog;
-    prog.progbar = params->progressbar;
-
-    progress_update(&prog, PROGFN_INITIALISE, 0, 0);
-
-    if (params->is_dsa)
-       dsa_generate(params->dsskey, params->keysize, progress_update, &prog);
-    else
-       rsa_generate(params->key, params->keysize, progress_update, &prog);
-
-    PostMessage(params->dialog, WM_DONEKEY, 0, 0);
-
-    sfree(params);
-    return 0;
-}
-
-struct MainDlgState {
-    int collecting_entropy;
-    int generation_thread_exists;
-    int key_exists;
-    int entropy_got, entropy_required, entropy_size;
-    int keysize;
-    int ssh2, is_dsa;
-    char **commentptr;                /* points to key.comment or ssh2key.comment */
-    struct ssh2_userkey ssh2key;
-    unsigned *entropy;
-    struct RSAKey key;
-    struct dss_key dsskey;
-    HMENU filemenu, keymenu, cvtmenu;
-};
-
-static void hidemany(HWND hwnd, const int *ids, int hideit)
-{
-    while (*ids) {
-       ShowWindow(GetDlgItem(hwnd, *ids++), (hideit ? SW_HIDE : SW_SHOW));
-    }
-}
-
-static void setupbigedit1(HWND hwnd, int id, int idstatic, struct RSAKey *key)
-{
-    char *buffer;
-    char *dec1, *dec2;
-
-    dec1 = bignum_decimal(key->exponent);
-    dec2 = bignum_decimal(key->modulus);
-    buffer = dupprintf("%d %s %s %s", bignum_bitcount(key->modulus),
-                      dec1, dec2, key->comment);
-    SetDlgItemText(hwnd, id, buffer);
-    SetDlgItemText(hwnd, idstatic,
-                  "&Public key for pasting into authorized_keys file:");
-    sfree(dec1);
-    sfree(dec2);
-    sfree(buffer);
-}
-
-static void setupbigedit2(HWND hwnd, int id, int idstatic,
-                         struct ssh2_userkey *key)
-{
-    unsigned char *pub_blob;
-    char *buffer, *p;
-    int pub_len;
-    int i;
-
-    pub_blob = key->alg->public_blob(key->data, &pub_len);
-    buffer = snewn(strlen(key->alg->name) + 4 * ((pub_len + 2) / 3) +
-                  strlen(key->comment) + 3, char);
-    strcpy(buffer, key->alg->name);
-    p = buffer + strlen(buffer);
-    *p++ = ' ';
-    i = 0;
-    while (i < pub_len) {
-       int n = (pub_len - i < 3 ? pub_len - i : 3);
-       base64_encode_atom(pub_blob + i, n, p);
-       i += n;
-       p += 4;
-    }
-    *p++ = ' ';
-    strcpy(p, key->comment);
-    SetDlgItemText(hwnd, id, buffer);
-    SetDlgItemText(hwnd, idstatic, "&Public key for pasting into "
-                  "OpenSSH authorized_keys file:");
-    sfree(pub_blob);
-    sfree(buffer);
-}
-
-static int save_ssh1_pubkey(char *filename, struct RSAKey *key)
-{
-    char *dec1, *dec2;
-    FILE *fp;
-
-    dec1 = bignum_decimal(key->exponent);
-    dec2 = bignum_decimal(key->modulus);
-    fp = fopen(filename, "wb");
-    if (!fp)
-       return 0;
-    fprintf(fp, "%d %s %s %s\n",
-           bignum_bitcount(key->modulus), dec1, dec2, key->comment);
-    fclose(fp);
-    sfree(dec1);
-    sfree(dec2);
-    return 1;
-}
-
-/*
- * Warn about the obsolescent key file format.
- */
-void old_keyfile_warning(void)
-{
-    static const char mbtitle[] = "PuTTY Key File Warning";
-    static const char message[] =
-       "You are loading an SSH 2 private key which has an\n"
-       "old version of the file format. This means your key\n"
-       "file is not fully tamperproof. Future versions of\n"
-       "PuTTY may stop supporting this private key format,\n"
-       "so we recommend you convert your key to the new\n"
-       "format.\n"
-       "\n"
-       "Once the key is loaded into PuTTYgen, you can perform\n"
-       "this conversion simply by saving it again.";
-
-    MessageBox(NULL, message, mbtitle, MB_OK);
-}
-
-static int save_ssh2_pubkey(char *filename, struct ssh2_userkey *key)
-{
-    unsigned char *pub_blob;
-    char *p;
-    int pub_len;
-    int i, column;
-    FILE *fp;
-
-    pub_blob = key->alg->public_blob(key->data, &pub_len);
-
-    fp = fopen(filename, "wb");
-    if (!fp)
-       return 0;
-
-    fprintf(fp, "---- BEGIN SSH2 PUBLIC KEY ----\n");
-
-    fprintf(fp, "Comment: \"");
-    for (p = key->comment; *p; p++) {
-       if (*p == '\\' || *p == '\"')
-           fputc('\\', fp);
-       fputc(*p, fp);
-    }
-    fprintf(fp, "\"\n");
-
-    i = 0;
-    column = 0;
-    while (i < pub_len) {
-       char buf[5];
-       int n = (pub_len - i < 3 ? pub_len - i : 3);
-       base64_encode_atom(pub_blob + i, n, buf);
-       i += n;
-       buf[4] = '\0';
-       fputs(buf, fp);
-       if (++column >= 16) {
-           fputc('\n', fp);
-           column = 0;
-       }
-    }
-    if (column > 0)
-       fputc('\n', fp);
-    
-    fprintf(fp, "---- END SSH2 PUBLIC KEY ----\n");
-    fclose(fp);
-    sfree(pub_blob);
-    return 1;
-}
-
-enum {
-    controlidstart = 100,
-    IDC_QUIT,
-    IDC_TITLE,
-    IDC_BOX_KEY,
-    IDC_NOKEY,
-    IDC_GENERATING,
-    IDC_PROGRESS,
-    IDC_PKSTATIC, IDC_KEYDISPLAY,
-    IDC_FPSTATIC, IDC_FINGERPRINT,
-    IDC_COMMENTSTATIC, IDC_COMMENTEDIT,
-    IDC_PASSPHRASE1STATIC, IDC_PASSPHRASE1EDIT,
-    IDC_PASSPHRASE2STATIC, IDC_PASSPHRASE2EDIT,
-    IDC_BOX_ACTIONS,
-    IDC_GENSTATIC, IDC_GENERATE,
-    IDC_LOADSTATIC, IDC_LOAD,
-    IDC_SAVESTATIC, IDC_SAVE, IDC_SAVEPUB,
-    IDC_BOX_PARAMS,
-    IDC_TYPESTATIC, IDC_KEYSSH1, IDC_KEYSSH2RSA, IDC_KEYSSH2DSA,
-    IDC_BITSSTATIC, IDC_BITS,
-    IDC_ABOUT,
-    IDC_GIVEHELP,
-    IDC_IMPORT, IDC_EXPORT_OPENSSH, IDC_EXPORT_SSHCOM
-};
-
-static const int nokey_ids[] = { IDC_NOKEY, 0 };
-static const int generating_ids[] = { IDC_GENERATING, IDC_PROGRESS, 0 };
-static const int gotkey_ids[] = {
-    IDC_PKSTATIC, IDC_KEYDISPLAY,
-    IDC_FPSTATIC, IDC_FINGERPRINT,
-    IDC_COMMENTSTATIC, IDC_COMMENTEDIT,
-    IDC_PASSPHRASE1STATIC, IDC_PASSPHRASE1EDIT,
-    IDC_PASSPHRASE2STATIC, IDC_PASSPHRASE2EDIT, 0
-};
-
-/*
- * Small UI helper function to switch the state of the main dialog
- * by enabling and disabling controls and menu items.
- */
-void ui_set_state(HWND hwnd, struct MainDlgState *state, int status)
-{
-    int type;
-
-    switch (status) {
-      case 0:                         /* no key */
-       hidemany(hwnd, nokey_ids, FALSE);
-       hidemany(hwnd, generating_ids, TRUE);
-       hidemany(hwnd, gotkey_ids, TRUE);
-       EnableWindow(GetDlgItem(hwnd, IDC_GENERATE), 1);
-       EnableWindow(GetDlgItem(hwnd, IDC_LOAD), 1);
-       EnableWindow(GetDlgItem(hwnd, IDC_SAVE), 0);
-       EnableWindow(GetDlgItem(hwnd, IDC_SAVEPUB), 0);
-       EnableWindow(GetDlgItem(hwnd, IDC_KEYSSH1), 1);
-       EnableWindow(GetDlgItem(hwnd, IDC_KEYSSH2RSA), 1);
-       EnableWindow(GetDlgItem(hwnd, IDC_KEYSSH2DSA), 1);
-       EnableWindow(GetDlgItem(hwnd, IDC_BITS), 1);
-       EnableMenuItem(state->filemenu, IDC_LOAD, MF_ENABLED|MF_BYCOMMAND);
-       EnableMenuItem(state->filemenu, IDC_SAVE, MF_GRAYED|MF_BYCOMMAND);
-       EnableMenuItem(state->filemenu, IDC_SAVEPUB, MF_GRAYED|MF_BYCOMMAND);
-       EnableMenuItem(state->keymenu, IDC_GENERATE, MF_ENABLED|MF_BYCOMMAND);
-       EnableMenuItem(state->keymenu, IDC_KEYSSH1, MF_ENABLED|MF_BYCOMMAND);
-       EnableMenuItem(state->keymenu, IDC_KEYSSH2RSA, MF_ENABLED|MF_BYCOMMAND);
-       EnableMenuItem(state->keymenu, IDC_KEYSSH2DSA, MF_ENABLED|MF_BYCOMMAND);
-       EnableMenuItem(state->cvtmenu, IDC_IMPORT, MF_ENABLED|MF_BYCOMMAND);
-       EnableMenuItem(state->cvtmenu, IDC_EXPORT_OPENSSH,
-                      MF_GRAYED|MF_BYCOMMAND);
-       EnableMenuItem(state->cvtmenu, IDC_EXPORT_SSHCOM,
-                      MF_GRAYED|MF_BYCOMMAND);
-       break;
-      case 1:                         /* generating key */
-       hidemany(hwnd, nokey_ids, TRUE);
-       hidemany(hwnd, generating_ids, FALSE);
-       hidemany(hwnd, gotkey_ids, TRUE);
-       EnableWindow(GetDlgItem(hwnd, IDC_GENERATE), 0);
-       EnableWindow(GetDlgItem(hwnd, IDC_LOAD), 0);
-       EnableWindow(GetDlgItem(hwnd, IDC_SAVE), 0);
-       EnableWindow(GetDlgItem(hwnd, IDC_SAVEPUB), 0);
-       EnableWindow(GetDlgItem(hwnd, IDC_KEYSSH1), 0);
-       EnableWindow(GetDlgItem(hwnd, IDC_KEYSSH2RSA), 0);
-       EnableWindow(GetDlgItem(hwnd, IDC_KEYSSH2DSA), 0);
-       EnableWindow(GetDlgItem(hwnd, IDC_BITS), 0);
-       EnableMenuItem(state->filemenu, IDC_LOAD, MF_GRAYED|MF_BYCOMMAND);
-       EnableMenuItem(state->filemenu, IDC_SAVE, MF_GRAYED|MF_BYCOMMAND);
-       EnableMenuItem(state->filemenu, IDC_SAVEPUB, MF_GRAYED|MF_BYCOMMAND);
-       EnableMenuItem(state->keymenu, IDC_GENERATE, MF_GRAYED|MF_BYCOMMAND);
-       EnableMenuItem(state->keymenu, IDC_KEYSSH1, MF_GRAYED|MF_BYCOMMAND);
-       EnableMenuItem(state->keymenu, IDC_KEYSSH2RSA, MF_GRAYED|MF_BYCOMMAND);
-       EnableMenuItem(state->keymenu, IDC_KEYSSH2DSA, MF_GRAYED|MF_BYCOMMAND);
-       EnableMenuItem(state->cvtmenu, IDC_IMPORT, MF_GRAYED|MF_BYCOMMAND);
-       EnableMenuItem(state->cvtmenu, IDC_EXPORT_OPENSSH,
-                      MF_GRAYED|MF_BYCOMMAND);
-       EnableMenuItem(state->cvtmenu, IDC_EXPORT_SSHCOM,
-                      MF_GRAYED|MF_BYCOMMAND);
-       break;
-      case 2:
-       hidemany(hwnd, nokey_ids, TRUE);
-       hidemany(hwnd, generating_ids, TRUE);
-       hidemany(hwnd, gotkey_ids, FALSE);
-       EnableWindow(GetDlgItem(hwnd, IDC_GENERATE), 1);
-       EnableWindow(GetDlgItem(hwnd, IDC_LOAD), 1);
-       EnableWindow(GetDlgItem(hwnd, IDC_SAVE), 1);
-       EnableWindow(GetDlgItem(hwnd, IDC_SAVEPUB), 1);
-       EnableWindow(GetDlgItem(hwnd, IDC_KEYSSH1), 1);
-       EnableWindow(GetDlgItem(hwnd, IDC_KEYSSH2RSA), 1);
-       EnableWindow(GetDlgItem(hwnd, IDC_KEYSSH2DSA), 1);
-       EnableWindow(GetDlgItem(hwnd, IDC_BITS), 1);
-       EnableMenuItem(state->filemenu, IDC_LOAD, MF_ENABLED|MF_BYCOMMAND);
-       EnableMenuItem(state->filemenu, IDC_SAVE, MF_ENABLED|MF_BYCOMMAND);
-       EnableMenuItem(state->filemenu, IDC_SAVEPUB, MF_ENABLED|MF_BYCOMMAND);
-       EnableMenuItem(state->keymenu, IDC_GENERATE, MF_ENABLED|MF_BYCOMMAND);
-       EnableMenuItem(state->keymenu, IDC_KEYSSH1, MF_ENABLED|MF_BYCOMMAND);
-       EnableMenuItem(state->keymenu, IDC_KEYSSH2RSA,MF_ENABLED|MF_BYCOMMAND);
-       EnableMenuItem(state->keymenu, IDC_KEYSSH2DSA,MF_ENABLED|MF_BYCOMMAND);
-       EnableMenuItem(state->cvtmenu, IDC_IMPORT, MF_ENABLED|MF_BYCOMMAND);
-       /*
-        * Enable export menu items if and only if the key type
-        * supports this kind of export.
-        */
-       type = state->ssh2 ? SSH_KEYTYPE_SSH2 : SSH_KEYTYPE_SSH1;
-#define do_export_menuitem(x,y) \
-    EnableMenuItem(state->cvtmenu, x, MF_BYCOMMAND | \
-                      (import_target_type(y)==type?MF_ENABLED:MF_GRAYED))
-       do_export_menuitem(IDC_EXPORT_OPENSSH, SSH_KEYTYPE_OPENSSH);
-       do_export_menuitem(IDC_EXPORT_SSHCOM, SSH_KEYTYPE_SSHCOM);
-#undef do_export_menuitem
-       break;
-    }
-}
-
-void load_key_file(HWND hwnd, struct MainDlgState *state,
-                  Filename filename, int was_import_cmd)
-{
-    char passphrase[PASSPHRASE_MAXLEN];
-    int needs_pass;
-    int type, realtype;
-    int ret;
-    char *comment;
-    struct PassphraseProcStruct pps;
-    struct RSAKey newkey1;
-    struct ssh2_userkey *newkey2 = NULL;
-
-    type = realtype = key_type(&filename);
-    if (type != SSH_KEYTYPE_SSH1 &&
-       type != SSH_KEYTYPE_SSH2 &&
-       !import_possible(type)) {
-       char msg[256];
-       sprintf(msg, "Couldn't load private key (%s)",
-               key_type_to_str(type));
-       MessageBox(NULL, msg,
-                  "PuTTYgen Error", MB_OK | MB_ICONERROR);
-       return;
-    }
-
-    if (type != SSH_KEYTYPE_SSH1 &&
-       type != SSH_KEYTYPE_SSH2) {
-       realtype = type;
-       type = import_target_type(type);
-    }
-
-    comment = NULL;
-    if (realtype == SSH_KEYTYPE_SSH1)
-       needs_pass = rsakey_encrypted(&filename, &comment);
-    else if (realtype == SSH_KEYTYPE_SSH2)
-       needs_pass =
-       ssh2_userkey_encrypted(&filename, &comment);
-    else
-       needs_pass = import_encrypted(&filename, realtype,
-                                     &comment);
-    pps.passphrase = passphrase;
-    pps.comment = comment;
-    do {
-       if (needs_pass) {
-           int dlgret;
-           dlgret = DialogBoxParam(hinst,
-                                   MAKEINTRESOURCE(210),
-                                   NULL, PassphraseProc,
-                                   (LPARAM) & pps);
-           if (!dlgret) {
-               ret = -2;
-               break;
-           }
-       } else
-           *passphrase = '\0';
-       if (type == SSH_KEYTYPE_SSH1) {
-           if (realtype == type)
-               ret = loadrsakey(&filename, &newkey1,
-                                passphrase, NULL);
-           else
-               ret = import_ssh1(&filename, realtype,
-                                 &newkey1, passphrase);
-       } else {
-           if (realtype == type)
-               newkey2 = ssh2_load_userkey(&filename,
-                                           passphrase, NULL);
-           else
-               newkey2 = import_ssh2(&filename, realtype,
-                                     passphrase);
-           if (newkey2 == SSH2_WRONG_PASSPHRASE)
-               ret = -1;
-           else if (!newkey2)
-               ret = 0;
-           else
-               ret = 1;
-       }
-    } while (ret == -1);
-    if (comment)
-       sfree(comment);
-    if (ret == 0) {
-       MessageBox(NULL, "Couldn't load private key.",
-                  "PuTTYgen Error", MB_OK | MB_ICONERROR);
-    } else if (ret == 1) {
-       /*
-        * Now update the key controls with all the
-        * key data.
-        */
-       {
-           SetDlgItemText(hwnd, IDC_PASSPHRASE1EDIT,
-                          passphrase);
-           SetDlgItemText(hwnd, IDC_PASSPHRASE2EDIT,
-                          passphrase);
-           if (type == SSH_KEYTYPE_SSH1) {
-               char buf[128];
-               char *savecomment;
-
-               state->ssh2 = FALSE;
-               state->commentptr = &state->key.comment;
-               state->key = newkey1;
-
-               /*
-                * Set the key fingerprint.
-                */
-               savecomment = state->key.comment;
-               state->key.comment = NULL;
-               rsa_fingerprint(buf, sizeof(buf),
-                               &state->key);
-               state->key.comment = savecomment;
-
-               SetDlgItemText(hwnd, IDC_FINGERPRINT, buf);
-               /*
-                * Construct a decimal representation
-                * of the key, for pasting into
-                * .ssh/authorized_keys on a Unix box.
-                */
-               setupbigedit1(hwnd, IDC_KEYDISPLAY,
-                             IDC_PKSTATIC, &state->key);
-           } else {
-               char *fp;
-               char *savecomment;
-
-               state->ssh2 = TRUE;
-               state->commentptr =
-                   &state->ssh2key.comment;
-               state->ssh2key = *newkey2;      /* structure copy */
-               sfree(newkey2);
-
-               savecomment = state->ssh2key.comment;
-               state->ssh2key.comment = NULL;
-               fp =
-                   state->ssh2key.alg->
-                   fingerprint(state->ssh2key.data);
-               state->ssh2key.comment = savecomment;
-
-               SetDlgItemText(hwnd, IDC_FINGERPRINT, fp);
-               sfree(fp);
-
-               setupbigedit2(hwnd, IDC_KEYDISPLAY,
-                             IDC_PKSTATIC, &state->ssh2key);
-           }
-           SetDlgItemText(hwnd, IDC_COMMENTEDIT,
-                          *state->commentptr);
-       }
-       /*
-        * Finally, hide the progress bar and show
-        * the key data.
-        */
-       ui_set_state(hwnd, state, 2);
-       state->key_exists = TRUE;
-
-       /*
-        * If the user has imported a foreign key
-        * using the Load command, let them know.
-        * If they've used the Import command, be
-        * silent.
-        */
-       if (realtype != type && !was_import_cmd) {
-           char msg[512];
-           sprintf(msg, "Successfully imported foreign key\n"
-                   "(%s).\n"
-                   "To use this key with PuTTY, you need to\n"
-                   "use the \"Save private key\" command to\n"
-                   "save it in PuTTY's own format.",
-                   key_type_to_str(realtype));
-           MessageBox(NULL, msg, "PuTTYgen Notice",
-                      MB_OK | MB_ICONINFORMATION);
-       }
-    }
-}
-
-/*
- * Dialog-box function for the main PuTTYgen dialog box.
- */
-static int CALLBACK MainDlgProc(HWND hwnd, UINT msg,
-                               WPARAM wParam, LPARAM lParam)
-{
-    static const char generating_msg[] =
-       "Please wait while a key is generated...";
-    static const char entropy_msg[] =
-       "Please generate some randomness by moving the mouse over the blank area.";
-    struct MainDlgState *state;
-
-    switch (msg) {
-      case WM_INITDIALOG:
-        if (help_path)
-            SetWindowLong(hwnd, GWL_EXSTYLE,
-                          GetWindowLong(hwnd, GWL_EXSTYLE) | WS_EX_CONTEXTHELP);
-        else {
-            /*
-             * If we add a Help button, this is where we destroy it
-             * if the help file isn't present.
-             */
-        }
-        requested_help = FALSE;
-       SendMessage(hwnd, WM_SETICON, (WPARAM) ICON_BIG,
-                   (LPARAM) LoadIcon(hinst, MAKEINTRESOURCE(200)));
-
-       state = snew(struct MainDlgState);
-       state->generation_thread_exists = FALSE;
-       state->collecting_entropy = FALSE;
-       state->entropy = NULL;
-       state->key_exists = FALSE;
-       SetWindowLong(hwnd, GWL_USERDATA, (LONG) state);
-       {
-           HMENU menu, menu1;
-
-           menu = CreateMenu();
-
-           menu1 = CreateMenu();
-           AppendMenu(menu1, MF_ENABLED, IDC_LOAD, "&Load private key");
-           AppendMenu(menu1, MF_ENABLED, IDC_SAVEPUB, "Save p&ublic key");
-           AppendMenu(menu1, MF_ENABLED, IDC_SAVE, "&Save private key");
-           AppendMenu(menu1, MF_SEPARATOR, 0, 0);
-           AppendMenu(menu1, MF_ENABLED, IDC_QUIT, "E&xit");
-           AppendMenu(menu, MF_POPUP | MF_ENABLED, (UINT) menu1, "&File");
-           state->filemenu = menu1;
-
-           menu1 = CreateMenu();
-           AppendMenu(menu1, MF_ENABLED, IDC_GENERATE, "&Generate key pair");
-           AppendMenu(menu1, MF_SEPARATOR, 0, 0);
-           AppendMenu(menu1, MF_ENABLED, IDC_KEYSSH1, "SSH&1 key (RSA)");
-           AppendMenu(menu1, MF_ENABLED, IDC_KEYSSH2RSA, "SSH2 &RSA key");
-           AppendMenu(menu1, MF_ENABLED, IDC_KEYSSH2DSA, "SSH2 &DSA key");
-           AppendMenu(menu, MF_POPUP | MF_ENABLED, (UINT) menu1, "&Key");
-           state->keymenu = menu1;
-
-           menu1 = CreateMenu();
-           AppendMenu(menu1, MF_ENABLED, IDC_IMPORT, "&Import key");
-           AppendMenu(menu1, MF_SEPARATOR, 0, 0);
-           AppendMenu(menu1, MF_ENABLED, IDC_EXPORT_OPENSSH,
-                      "Export &OpenSSH key");
-           AppendMenu(menu1, MF_ENABLED, IDC_EXPORT_SSHCOM,
-                      "Export &ssh.com key");
-           AppendMenu(menu, MF_POPUP | MF_ENABLED, (UINT) menu1,
-                      "Con&versions");
-           state->cvtmenu = menu1;
-
-           menu1 = CreateMenu();
-           AppendMenu(menu1, MF_ENABLED, IDC_ABOUT, "&About");
-           if (help_path)
-               AppendMenu(menu1, MF_ENABLED, IDC_GIVEHELP, "&Help");
-           AppendMenu(menu, MF_POPUP | MF_ENABLED, (UINT) menu1, "&Help");
-
-           SetMenu(hwnd, menu);
-       }
-
-       /*
-        * Centre the window.
-        */
-       {                              /* centre the window */
-           RECT rs, rd;
-           HWND hw;
-
-           hw = GetDesktopWindow();
-           if (GetWindowRect(hw, &rs) && GetWindowRect(hwnd, &rd))
-               MoveWindow(hwnd,
-                          (rs.right + rs.left + rd.left - rd.right) / 2,
-                          (rs.bottom + rs.top + rd.top - rd.bottom) / 2,
-                          rd.right - rd.left, rd.bottom - rd.top, TRUE);
-       }
-
-       {
-           struct ctlpos cp, cp2;
-
-           /* Accelerators used: acglops1rbd */
-
-           ctlposinit(&cp, hwnd, 4, 4, 4);
-           beginbox(&cp, "Key", IDC_BOX_KEY);
-           cp2 = cp;
-           statictext(&cp2, "No key.", 1, IDC_NOKEY);
-           cp2 = cp;
-           statictext(&cp2, "", 1, IDC_GENERATING);
-           progressbar(&cp2, IDC_PROGRESS);
-           bigeditctrl(&cp,
-                       "&Public key for pasting into authorized_keys file:",
-                       IDC_PKSTATIC, IDC_KEYDISPLAY, 5);
-           SendDlgItemMessage(hwnd, IDC_KEYDISPLAY, EM_SETREADONLY, 1, 0);
-           staticedit(&cp, "Key f&ingerprint:", IDC_FPSTATIC,
-                      IDC_FINGERPRINT, 75);
-           SendDlgItemMessage(hwnd, IDC_FINGERPRINT, EM_SETREADONLY, 1,
-                              0);
-           staticedit(&cp, "Key &comment:", IDC_COMMENTSTATIC,
-                      IDC_COMMENTEDIT, 75);
-           staticpassedit(&cp, "Key p&assphrase:", IDC_PASSPHRASE1STATIC,
-                          IDC_PASSPHRASE1EDIT, 75);
-           staticpassedit(&cp, "C&onfirm passphrase:",
-                          IDC_PASSPHRASE2STATIC, IDC_PASSPHRASE2EDIT, 75);
-           endbox(&cp);
-           beginbox(&cp, "Actions", IDC_BOX_ACTIONS);
-           staticbtn(&cp, "Generate a public/private key pair",
-                     IDC_GENSTATIC, "&Generate", IDC_GENERATE);
-           staticbtn(&cp, "Load an existing private key file",
-                     IDC_LOADSTATIC, "&Load", IDC_LOAD);
-           static2btn(&cp, "Save the generated key", IDC_SAVESTATIC,
-                      "Save p&ublic key", IDC_SAVEPUB,
-                      "&Save private key", IDC_SAVE);
-           endbox(&cp);
-           beginbox(&cp, "Parameters", IDC_BOX_PARAMS);
-           radioline(&cp, "Type of key to generate:", IDC_TYPESTATIC, 3,
-                     "SSH&1 (RSA)", IDC_KEYSSH1,
-                     "SSH2 &RSA", IDC_KEYSSH2RSA,
-                     "SSH2 &DSA", IDC_KEYSSH2DSA, NULL);
-           staticedit(&cp, "Number of &bits in a generated key:",
-                      IDC_BITSSTATIC, IDC_BITS, 20);
-           endbox(&cp);
-       }
-       CheckRadioButton(hwnd, IDC_KEYSSH1, IDC_KEYSSH2DSA, IDC_KEYSSH2RSA);
-       CheckMenuRadioItem(state->keymenu, IDC_KEYSSH1, IDC_KEYSSH2DSA,
-                          IDC_KEYSSH2RSA, MF_BYCOMMAND);
-       SetDlgItemInt(hwnd, IDC_BITS, DEFAULT_KEYSIZE, FALSE);
-
-       /*
-        * Initially, hide the progress bar and the key display,
-        * and show the no-key display. Also disable the Save
-        * buttons, because with no key we obviously can't save
-        * anything.
-        */
-       ui_set_state(hwnd, state, 0);
-
-       /*
-        * Load a key file if one was provided on the command line.
-        */
-       if (cmdline_keyfile)
-           load_key_file(hwnd, state, filename_from_str(cmdline_keyfile), 0);
-
-       return 1;
-      case WM_MOUSEMOVE:
-       state = (struct MainDlgState *) GetWindowLong(hwnd, GWL_USERDATA);
-       if (state->collecting_entropy &&
-           state->entropy && state->entropy_got < state->entropy_required) {
-           state->entropy[state->entropy_got++] = lParam;
-           state->entropy[state->entropy_got++] = GetMessageTime();
-           SendDlgItemMessage(hwnd, IDC_PROGRESS, PBM_SETPOS,
-                              state->entropy_got, 0);
-           if (state->entropy_got >= state->entropy_required) {
-               struct rsa_key_thread_params *params;
-               DWORD threadid;
-
-               /*
-                * Seed the entropy pool
-                */
-               random_add_heavynoise(state->entropy, state->entropy_size);
-               memset(state->entropy, 0, state->entropy_size);
-               sfree(state->entropy);
-               state->collecting_entropy = FALSE;
-
-               SetDlgItemText(hwnd, IDC_GENERATING, generating_msg);
-               SendDlgItemMessage(hwnd, IDC_PROGRESS, PBM_SETRANGE, 0,
-                                  MAKELPARAM(0, PROGRESSRANGE));
-               SendDlgItemMessage(hwnd, IDC_PROGRESS, PBM_SETPOS, 0, 0);
-
-               params = snew(struct rsa_key_thread_params);
-               params->progressbar = GetDlgItem(hwnd, IDC_PROGRESS);
-               params->dialog = hwnd;
-               params->keysize = state->keysize;
-               params->is_dsa = state->is_dsa;
-               params->key = &state->key;
-               params->dsskey = &state->dsskey;
-
-               if (!CreateThread(NULL, 0, generate_rsa_key_thread,
-                                 params, 0, &threadid)) {
-                   MessageBox(hwnd, "Out of thread resources",
-                              "Key generation error",
-                              MB_OK | MB_ICONERROR);
-                   sfree(params);
-               } else {
-                   state->generation_thread_exists = TRUE;
-               }
-           }
-       }
-       break;
-      case WM_COMMAND:
-       switch (LOWORD(wParam)) {
-         case IDC_KEYSSH1:
-         case IDC_KEYSSH2RSA:
-         case IDC_KEYSSH2DSA:
-           {
-               state = (struct MainDlgState *)
-                   GetWindowLong(hwnd, GWL_USERDATA);
-               if (!IsDlgButtonChecked(hwnd, LOWORD(wParam)))
-                   CheckRadioButton(hwnd, IDC_KEYSSH1, IDC_KEYSSH2DSA,
-                                    LOWORD(wParam));
-               CheckMenuRadioItem(state->keymenu, IDC_KEYSSH1, IDC_KEYSSH2DSA,
-                                  LOWORD(wParam), MF_BYCOMMAND);
-           }
-           break;
-         case IDC_QUIT:
-           PostMessage(hwnd, WM_CLOSE, 0, 0);
-           break;
-         case IDC_COMMENTEDIT:
-           if (HIWORD(wParam) == EN_CHANGE) {
-               state = (struct MainDlgState *)
-                   GetWindowLong(hwnd, GWL_USERDATA);
-               if (state->key_exists) {
-                   HWND editctl = GetDlgItem(hwnd, IDC_COMMENTEDIT);
-                   int len = GetWindowTextLength(editctl);
-                   if (*state->commentptr)
-                       sfree(*state->commentptr);
-                   *state->commentptr = snewn(len + 1, char);
-                   GetWindowText(editctl, *state->commentptr, len + 1);
-                   if (state->ssh2) {
-                       setupbigedit2(hwnd, IDC_KEYDISPLAY, IDC_PKSTATIC,
-                                     &state->ssh2key);
-                   } else {
-                       setupbigedit1(hwnd, IDC_KEYDISPLAY, IDC_PKSTATIC,
-                                     &state->key);
-                   }
-               }
-           }
-           break;
-         case IDC_ABOUT:
-           EnableWindow(hwnd, 0);
-           DialogBox(hinst, MAKEINTRESOURCE(213), hwnd, AboutProc);
-           EnableWindow(hwnd, 1);
-           SetActiveWindow(hwnd);
-           return 0;
-         case IDC_GIVEHELP:
-            if (HIWORD(wParam) == BN_CLICKED ||
-                HIWORD(wParam) == BN_DOUBLECLICKED) {
-                if (help_path) {
-                    WinHelp(hwnd, help_path, HELP_COMMAND,
-                            (DWORD)"JI(`',`puttygen.general')");
-                    requested_help = TRUE;
-                }
-            }
-           return 0;
-         case IDC_GENERATE:
-            if (HIWORD(wParam) != BN_CLICKED &&
-                HIWORD(wParam) != BN_DOUBLECLICKED)
-               break;
-           state =
-               (struct MainDlgState *) GetWindowLong(hwnd, GWL_USERDATA);
-           if (!state->generation_thread_exists) {
-               BOOL ok;
-               state->keysize = GetDlgItemInt(hwnd, IDC_BITS, &ok, FALSE);
-               if (!ok)
-                   state->keysize = DEFAULT_KEYSIZE;
-               /* If we ever introduce a new key type, check it here! */
-               state->ssh2 = !IsDlgButtonChecked(hwnd, IDC_KEYSSH1);
-               state->is_dsa = IsDlgButtonChecked(hwnd, IDC_KEYSSH2DSA);
-               if (state->keysize < 256) {
-                   int ret = MessageBox(hwnd,
-                                        "PuTTYgen will not generate a key"
-                                        " smaller than 256 bits.\n"
-                                        "Key length reset to 256. Continue?",
-                                        "PuTTYgen Warning",
-                                        MB_ICONWARNING | MB_OKCANCEL);
-                   if (ret != IDOK)
-                       break;
-                   state->keysize = 256;
-                   SetDlgItemInt(hwnd, IDC_BITS, 256, FALSE);
-               }
-               ui_set_state(hwnd, state, 1);
-               SetDlgItemText(hwnd, IDC_GENERATING, entropy_msg);
-               state->key_exists = FALSE;
-               state->collecting_entropy = TRUE;
-
-               /*
-                * My brief statistical tests on mouse movements
-                * suggest that there are about 2.5 bits of
-                * randomness in the x position, 2.5 in the y
-                * position, and 1.7 in the message time, making
-                * 5.7 bits of unpredictability per mouse movement.
-                * However, other people have told me it's far less
-                * than that, so I'm going to be stupidly cautious
-                * and knock that down to a nice round 2. With this
-                * method, we require two words per mouse movement,
-                * so with 2 bits per mouse movement we expect 2
-                * bits every 2 words.
-                */
-               state->entropy_required = (state->keysize / 2) * 2;
-               state->entropy_got = 0;
-               state->entropy_size = (state->entropy_required *
-                                      sizeof(unsigned));
-               state->entropy = snewn(state->entropy_required, unsigned);
-
-               SendDlgItemMessage(hwnd, IDC_PROGRESS, PBM_SETRANGE, 0,
-                                  MAKELPARAM(0, state->entropy_required));
-               SendDlgItemMessage(hwnd, IDC_PROGRESS, PBM_SETPOS, 0, 0);
-           }
-           break;
-         case IDC_SAVE:
-          case IDC_EXPORT_OPENSSH:
-          case IDC_EXPORT_SSHCOM:
-           if (HIWORD(wParam) != BN_CLICKED)
-               break;
-           state =
-               (struct MainDlgState *) GetWindowLong(hwnd, GWL_USERDATA);
-           if (state->key_exists) {
-               char filename[FILENAME_MAX];
-               char passphrase[PASSPHRASE_MAXLEN];
-               char passphrase2[PASSPHRASE_MAXLEN];
-                int type, realtype;
-
-                if (state->ssh2)
-                    realtype = SSH_KEYTYPE_SSH2;
-                else
-                    realtype = SSH_KEYTYPE_SSH1;
-
-                if (LOWORD(wParam) == IDC_EXPORT_OPENSSH)
-                    type = SSH_KEYTYPE_OPENSSH;
-                else if (LOWORD(wParam) == IDC_EXPORT_SSHCOM)
-                    type = SSH_KEYTYPE_SSHCOM;
-                else
-                    type = realtype;
-
-                if (type != realtype &&
-                    import_target_type(type) != realtype) {
-                    char msg[256];
-                    sprintf(msg, "Cannot export an SSH%d key in an SSH%d"
-                            " format", (state->ssh2 ? 2 : 1),
-                            (state->ssh2 ? 1 : 2));
-                   MessageBox(hwnd, msg,
-                               "PuTTYgen Error", MB_OK | MB_ICONERROR);
-                   break;
-                }
-
-               GetDlgItemText(hwnd, IDC_PASSPHRASE1EDIT,
-                              passphrase, sizeof(passphrase));
-               GetDlgItemText(hwnd, IDC_PASSPHRASE2EDIT,
-                              passphrase2, sizeof(passphrase2));
-               if (strcmp(passphrase, passphrase2)) {
-                   MessageBox(hwnd,
-                              "The two passphrases given do not match.",
-                              "PuTTYgen Error", MB_OK | MB_ICONERROR);
-                   break;
-               }
-               if (!*passphrase) {
-                   int ret;
-                   ret = MessageBox(hwnd,
-                                    "Are you sure you want to save this key\n"
-                                    "without a passphrase to protect it?",
-                                    "PuTTYgen Warning",
-                                    MB_YESNO | MB_ICONWARNING);
-                   if (ret != IDYES)
-                       break;
-               }
-               if (prompt_keyfile(hwnd, "Save private key as:",
-                                  filename, 1, (type == realtype))) {
-                   int ret;
-                   FILE *fp = fopen(filename, "r");
-                   if (fp) {
-                       char *buffer;
-                       fclose(fp);
-                       buffer = dupprintf("Overwrite existing file\n%s?",
-                                          filename);
-                       ret = MessageBox(hwnd, buffer, "PuTTYgen Warning",
-                                        MB_YESNO | MB_ICONWARNING);
-                       sfree(buffer);
-                       if (ret != IDYES)
-                           break;
-                   }
-
-                   if (state->ssh2) {
-                       Filename fn = filename_from_str(filename);
-                        if (type != realtype)
-                            ret = export_ssh2(&fn, type, &state->ssh2key,
-                                              *passphrase ? passphrase : NULL);
-                        else
-                            ret = ssh2_save_userkey(&fn, &state->ssh2key,
-                                                    *passphrase ? passphrase :
-                                                    NULL);
-                   } else {
-                       Filename fn = filename_from_str(filename);
-                        if (type != realtype)
-                            ret = export_ssh1(&fn, type, &state->key,
-                                              *passphrase ? passphrase : NULL);
-                        else
-                            ret = saversakey(&fn, &state->key,
-                                             *passphrase ? passphrase : NULL);
-                   }
-                   if (ret <= 0) {
-                       MessageBox(hwnd, "Unable to save key file",
-                                  "PuTTYgen Error", MB_OK | MB_ICONERROR);
-                   }
-               }
-           }
-           break;
-         case IDC_SAVEPUB:
-           if (HIWORD(wParam) != BN_CLICKED)
-               break;
-           state =
-               (struct MainDlgState *) GetWindowLong(hwnd, GWL_USERDATA);
-           if (state->key_exists) {
-               char filename[FILENAME_MAX];
-               if (prompt_keyfile(hwnd, "Save public key as:",
-                                  filename, 1, 0)) {
-                   int ret;
-                   FILE *fp = fopen(filename, "r");
-                   if (fp) {
-                       char *buffer;
-                       fclose(fp);
-                       buffer = dupprintf("Overwrite existing file\n%s?",
-                                          filename);
-                       ret = MessageBox(hwnd, buffer, "PuTTYgen Warning",
-                                        MB_YESNO | MB_ICONWARNING);
-                       sfree(buffer);
-                       if (ret != IDYES)
-                           break;
-                   }
-                   if (state->ssh2) {
-                       ret = save_ssh2_pubkey(filename, &state->ssh2key);
-                   } else {
-                       ret = save_ssh1_pubkey(filename, &state->key);
-                   }
-                   if (ret <= 0) {
-                       MessageBox(hwnd, "Unable to save key file",
-                                  "PuTTYgen Error", MB_OK | MB_ICONERROR);
-                   }
-               }
-           }
-           break;
-         case IDC_LOAD:
-         case IDC_IMPORT:
-           if (HIWORD(wParam) != BN_CLICKED)
-               break;
-           state =
-               (struct MainDlgState *) GetWindowLong(hwnd, GWL_USERDATA);
-           if (!state->generation_thread_exists) {
-               char filename[FILENAME_MAX];
-               if (prompt_keyfile(hwnd, "Load private key:",
-                                  filename, 0, LOWORD(wParam)==IDC_LOAD))
-                   load_key_file(hwnd, state, filename_from_str(filename),
-                                 LOWORD(wParam) != IDC_LOAD);
-           }
-           break;
-       }
-       return 0;
-      case WM_DONEKEY:
-       state = (struct MainDlgState *) GetWindowLong(hwnd, GWL_USERDATA);
-       state->generation_thread_exists = FALSE;
-       state->key_exists = TRUE;
-       SendDlgItemMessage(hwnd, IDC_PROGRESS, PBM_SETRANGE, 0,
-                          MAKELPARAM(0, PROGRESSRANGE));
-       SendDlgItemMessage(hwnd, IDC_PROGRESS, PBM_SETPOS, PROGRESSRANGE, 0);
-       if (state->ssh2) {
-           if (state->is_dsa) {
-               state->ssh2key.data = &state->dsskey;
-               state->ssh2key.alg = &ssh_dss;
-           } else {
-               state->ssh2key.data = &state->key;
-               state->ssh2key.alg = &ssh_rsa;
-           }
-           state->commentptr = &state->ssh2key.comment;
-       } else {
-           state->commentptr = &state->key.comment;
-       }
-       /*
-        * Invent a comment for the key. We'll do this by including
-        * the date in it. This will be so horrifyingly ugly that
-        * the user will immediately want to change it, which is
-        * what we want :-)
-        */
-       *state->commentptr = snewn(30, char);
-       {
-           time_t t;
-           struct tm *tm;
-           time(&t);
-           tm = localtime(&t);
-           if (state->is_dsa)
-               strftime(*state->commentptr, 30, "dsa-key-%Y%m%d", tm);
-           else
-               strftime(*state->commentptr, 30, "rsa-key-%Y%m%d", tm);
-       }
-
-       /*
-        * Now update the key controls with all the key data.
-        */
-       {
-           char *savecomment;
-           /*
-            * Blank passphrase, initially. This isn't dangerous,
-            * because we will warn (Are You Sure?) before allowing
-            * the user to save an unprotected private key.
-            */
-           SetDlgItemText(hwnd, IDC_PASSPHRASE1EDIT, "");
-           SetDlgItemText(hwnd, IDC_PASSPHRASE2EDIT, "");
-           /*
-            * Set the comment.
-            */
-           SetDlgItemText(hwnd, IDC_COMMENTEDIT, *state->commentptr);
-           /*
-            * Set the key fingerprint.
-            */
-           savecomment = *state->commentptr;
-           *state->commentptr = NULL;
-           if (state->ssh2) {
-               char *fp;
-               fp = state->ssh2key.alg->fingerprint(state->ssh2key.data);
-               SetDlgItemText(hwnd, IDC_FINGERPRINT, fp);
-               sfree(fp);
-           } else {
-               char buf[128];
-               rsa_fingerprint(buf, sizeof(buf), &state->key);
-               SetDlgItemText(hwnd, IDC_FINGERPRINT, buf);
-           }
-           *state->commentptr = savecomment;
-           /*
-            * Construct a decimal representation of the key, for
-            * pasting into .ssh/authorized_keys or
-            * .ssh/authorized_keys2 on a Unix box.
-            */
-           if (state->ssh2) {
-               setupbigedit2(hwnd, IDC_KEYDISPLAY,
-                             IDC_PKSTATIC, &state->ssh2key);
-           } else {
-               setupbigedit1(hwnd, IDC_KEYDISPLAY,
-                             IDC_PKSTATIC, &state->key);
-           }
-       }
-       /*
-        * Finally, hide the progress bar and show the key data.
-        */
-       ui_set_state(hwnd, state, 2);
-       break;
-      case WM_HELP:
-        if (help_path) {
-            int id = ((LPHELPINFO)lParam)->iCtrlId;
-            char *cmd = NULL;
-            switch (id) {
-              case IDC_GENERATING:
-              case IDC_PROGRESS:
-              case IDC_GENSTATIC:
-              case IDC_GENERATE:
-                cmd = "JI(`',`puttygen.generate')"; break;
-              case IDC_PKSTATIC:
-              case IDC_KEYDISPLAY:
-                cmd = "JI(`',`puttygen.pastekey')"; break;
-              case IDC_FPSTATIC:
-              case IDC_FINGERPRINT:
-                cmd = "JI(`',`puttygen.fingerprint')"; break;
-              case IDC_COMMENTSTATIC:
-              case IDC_COMMENTEDIT:
-                cmd = "JI(`',`puttygen.comment')"; break;
-              case IDC_PASSPHRASE1STATIC:
-              case IDC_PASSPHRASE1EDIT:
-              case IDC_PASSPHRASE2STATIC:
-              case IDC_PASSPHRASE2EDIT:
-                cmd = "JI(`',`puttygen.passphrase')"; break;
-              case IDC_LOADSTATIC:
-              case IDC_LOAD:
-                cmd = "JI(`',`puttygen.load')"; break;
-              case IDC_SAVESTATIC:
-              case IDC_SAVE:
-                cmd = "JI(`',`puttygen.savepriv')"; break;
-              case IDC_SAVEPUB:
-                cmd = "JI(`',`puttygen.savepub')"; break;
-              case IDC_TYPESTATIC:
-              case IDC_KEYSSH1:
-              case IDC_KEYSSH2RSA:
-              case IDC_KEYSSH2DSA:
-                cmd = "JI(`',`puttygen.keytype')"; break;
-              case IDC_BITSSTATIC:
-              case IDC_BITS:
-                cmd = "JI(`',`puttygen.bits')"; break;
-              case IDC_IMPORT:
-              case IDC_EXPORT_OPENSSH:
-              case IDC_EXPORT_SSHCOM:
-                cmd = "JI(`',`puttygen.conversions')"; break;
-            }
-            if (cmd) {
-                WinHelp(hwnd, help_path, HELP_COMMAND, (DWORD)cmd);
-                requested_help = TRUE;
-            } else {
-                MessageBeep(0);
-            }
-        }
-        break;
-      case WM_CLOSE:
-       state = (struct MainDlgState *) GetWindowLong(hwnd, GWL_USERDATA);
-       sfree(state);
-        if (requested_help) {
-            WinHelp(hwnd, help_path, HELP_QUIT, 0);
-            requested_help = FALSE;
-        }
-       EndDialog(hwnd, 1);
-       return 0;
-    }
-    return 0;
-}
-
-void cleanup_exit(int code) { exit(code); }
-
-int WINAPI WinMain(HINSTANCE inst, HINSTANCE prev, LPSTR cmdline, int show)
-{
-    int argc;
-    char **argv;
-
-    split_into_argv(cmdline, &argc, &argv, NULL);
-
-    if (argc > 0) {
-       /*
-        * Assume the first argument to be a private key file, and
-        * attempt to load it.
-        */
-       cmdline_keyfile = argv[0];
-    }
-
-    InitCommonControls();
-    hinst = inst;
-
-    /*
-     * See if we can find our Help file.
-     */
-    {
-        char b[2048], *p, *q, *r;
-        FILE *fp;
-        GetModuleFileName(NULL, b, sizeof(b) - 1);
-        r = b;
-        p = strrchr(b, '\\');
-        if (p && p >= r) r = p+1;
-        q = strrchr(b, ':');
-        if (q && q >= r) r = q+1;
-        strcpy(r, "putty.hlp");
-        if ( (fp = fopen(b, "r")) != NULL) {
-            help_path = dupstr(b);
-            fclose(fp);
-        } else
-            help_path = NULL;
-    }
-
-    random_init();
-    return DialogBox(hinst, MAKEINTRESOURCE(201), NULL,
-                    MainDlgProc) != IDOK;
-}