ttssh2/ttxssh/ttxssh.c

/*
 * Copyright (c) 1998-2001, Robert O'Callahan
 * (C) 2004-2019 TeraTerm Project
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. The name of the author may not be used to endorse or promote products
 *    derived from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
 * IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT,
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

/* Tera Term extension mechanism
   Robert O'Callahan (roc+tt@cs.cmu.edu)

   Tera Term by Takashi Teranishi (teranishi@rikaxp.riken.go.jp)
*/

#include "teraterm_conf.h"
#include "ttxssh.h"
#include "fwdui.h"
#include "util.h"
#include "ssh.h"
#include "ttcommon.h"
#include "ttlib.h"
#include "keyfiles.h"
#include "arc4random.h"
#include "auth.h"

#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <io.h>
#include <fcntl.h>
#include <sys/stat.h>
#include <time.h>
#include <mbstring.h>

#include "resource.h"
#include <commctrl.h>
#include <commdlg.h>
#include <winsock2.h>
static char *ProtocolFamilyList[] = { "UNSPEC", "IPv6", "IPv4", NULL };

#include <lmcons.h>

// include OpenSSL header file
#include <openssl/evp.h>
#include <openssl/rsa.h>
#include <openssl/dsa.h>
#include <openssl/bn.h>
#include <openssl/pem.h>
#include <openssl/rand.h>
#include <openssl/rc4.h>
#include <openssl/md5.h>

// include ZLib header file
#include <zlib.h>

#include "buffer.h"
#include "cipher.h"
#include "key.h"
#include "dlglib.h"

#include "sftp.h"

#include "compat_w95.h"
#include "compat_win.h"

#include "libputty.h"

#undef DialogBoxParam
#define DialogBoxParam(p1,p2,p3,p4,p5) \
        TTDialogBoxParam(p1,p2,p3,p4,p5)
#undef EndDialog
#define EndDialog(p1,p2) \
        TTEndDialog(p1, p2)

#define MATCH_STR(s, o) strncmp((s), (o), NUM_ELEM(o) - 1)
#define MATCH_STR_I(s, o) _strnicmp((s), (o), NUM_ELEM(o) - 1)

/* This extension implements SSH, so we choose a load order in the
   "protocols" range. */
#define ORDER 2500

static HICON SecureLargeIcon = NULL;
static HICON SecureSmallIcon = NULL;
static HICON SecureNotifyIcon = NULL;
static HICON OldNotifyIcon = NULL;

//static HFONT DlgHostFont;
//static HFONT DlgAboutFont;
static HFONT DlgAboutTextFont;
//static HFONT DlgSetupFont;
//static HFONT DlgKeygenFont;

static TInstVar *pvar;

typedef struct {
        int cnt;
        HWND dlg;
        ssh_keytype type;
} cbarg_t;

  /* WIN32 allows multiple instances of a DLL */
static TInstVar InstVar;

/*
This code makes lots of assumptions about the order in which Tera Term
does things, and how. A key assumption is that the Notification window
passed into WSAAsyncSelect is the main terminal window. We also assume
that the socket used in the first WSAconnect is the main session socket.
*/

static void init_TTSSH(PTInstVar pvar)
{
        pvar->socket = INVALID_SOCKET;
        pvar->OldLargeIcon = NULL;
        pvar->OldSmallIcon = NULL;
        pvar->NotificationWindow = NULL;
        pvar->hostdlg_activated = FALSE;
        pvar->socket = INVALID_SOCKET;
        pvar->NotificationWindow = NULL;
        pvar->protocol_major = 0;
        pvar->protocol_minor = 0;

        PKT_init(pvar);
        SSH_init(pvar);
        CRYPT_init(pvar);
        AUTH_init(pvar);
        HOSTS_init(pvar);
        FWD_init(pvar);
        FWDUI_init(pvar);

        ssh_heartbeat_lock_initialize();
}

static void uninit_TTSSH(PTInstVar pvar)
{
        halt_ssh_heartbeat_thread(pvar);

        ssh2_channel_free();

        SSH_end(pvar);
        PKT_end(pvar);
        AUTH_end(pvar);
        CRYPT_end(pvar);
        HOSTS_end(pvar);
        FWD_end(pvar);
        FWDUI_end(pvar);

        if (pvar->OldLargeIcon != NULL) {
                PostMessage(pvar->NotificationWindow, WM_SETICON, ICON_BIG,
                            (LPARAM) pvar->OldLargeIcon);
                pvar->OldLargeIcon = NULL;
        }
        if (pvar->OldSmallIcon != NULL) {
                PostMessage(pvar->NotificationWindow, WM_SETICON, ICON_SMALL,
                            (LPARAM) pvar->OldSmallIcon);
                pvar->OldSmallIcon = NULL;
        }
        if (OldNotifyIcon) {
                SetCustomNotifyIcon(OldNotifyIcon);
        }

        ssh_heartbeat_lock_finalize();
}

static void PASCAL TTXInit(PTTSet ts, PComVar cv)
{
        pvar->settings = *pvar->ts_SSH;
        pvar->ts = ts;
        pvar->cv = cv;
        pvar->fatal_error = FALSE;
        pvar->showing_err = FALSE;
        pvar->err_msg = NULL;

        init_TTSSH(pvar);
}

static void normalize_generic_order(char *buf, char default_strings[], int default_strings_len)
{
        char listed[max(KEX_DH_MAX,max(SSH_CIPHER_MAX,max(KEY_MAX,max(HMAC_MAX,COMP_MAX)))) + 1];
        char allowed[max(KEX_DH_MAX,max(SSH_CIPHER_MAX,max(KEY_MAX,max(HMAC_MAX,COMP_MAX)))) + 1];
        int i, j, k=-1;

        memset(listed, 0, sizeof(listed));
        memset(allowed, 0, sizeof(allowed));

        // �����������������������X�g�������B
        for (i = 0; i < default_strings_len ; i++) {
                allowed[default_strings[i]] = 1;
        }

        // �w�����������������������A���������������������A�d���������������������B
        // 
        // ex. (i=5 ����������������)
        // i=012345
        //   >:=9<87;A@?B3026(\0)
        //         i+1
        //         <------------>
        //       ��
        //   >:=9<7;A@?B3026(\0)
        //         
        for (i = 0; buf[i] != 0; i++) {
                int num = buf[i] - '0';

                if (num < 0 || num > default_strings_len
                        || !allowed[num]
                        || listed[num]) {
                        memmove(buf + i, buf + i + 1, strlen(buf + i + 1) + 1);
                        i--;
                } else {
                        listed[num] = 1;
                }

                // disabled line���������A���u���o���������B
                if (num == 0) {
                        k = i;
                }
        }

        // �w���������������������������Adisabled line�����O���}�������B
        // 
        // ex. (Z���}������)
        //                k
        //   >:=9<87;A@?B3026(\0)
        //                 k+1
        //                 <---->
        //       ��       k
        //   >:=9<87;A@?B30026(\0)
        //       ��        k
        //   >:=9<87;A@?B3Z026(\0)
        //       
        for (j = 0; j < default_strings_len && default_strings[j] != 0; j++) {
                int num = default_strings[j];

                if (!listed[num] && k >= 0) {
                        int copylen = strlen(buf + k + 1) + 1;

                        memmove(buf + k + 1, buf + k, copylen);
                        buf[k + 1 + copylen] = '\0';   // �I�[���Y�������t�����B
                        buf[k] = num + '0';
                        k++;
                        i++;
                }
        }
        if (k < 0) {
                j = 0;
        }
        else {
                j++;
        }

        // disabled line�������������������A�����������������������B
        for (; j < default_strings_len ; j++) {
                int num = default_strings[j];

                if (!listed[num]) {
                        buf[i] = num + '0';
                        listed[num] = 1;
                        i++;
                }
        }

        buf[i] = 0;
}

/*
 * Remove unsupported cipher or duplicated cipher.
 * Add unspecified ciphers at the end of list.
 */
static void normalize_cipher_order(char *buf)
{
        /* SSH_CIPHER_NONE means that all ciphers below that one are disabled.
           We *never* allow no encryption. */
        static char default_strings[] = {
                SSH2_CIPHER_AES256_GCM,
                SSH2_CIPHER_CAMELLIA256_CTR,
                SSH2_CIPHER_AES256_CTR,
                SSH2_CIPHER_CAMELLIA256_CBC,
                SSH2_CIPHER_AES256_CBC,
                SSH2_CIPHER_CAMELLIA192_CTR,
                SSH2_CIPHER_AES192_CTR,
                SSH2_CIPHER_CAMELLIA192_CBC,
                SSH2_CIPHER_AES192_CBC,
                SSH2_CIPHER_AES128_GCM,
                SSH2_CIPHER_CAMELLIA128_CTR,
                SSH2_CIPHER_AES128_CTR,
                SSH2_CIPHER_CAMELLIA128_CBC,
                SSH2_CIPHER_AES128_CBC,
                SSH2_CIPHER_3DES_CTR,
                SSH2_CIPHER_3DES_CBC,
                SSH2_CIPHER_BLOWFISH_CTR,
                SSH2_CIPHER_BLOWFISH_CBC,
                SSH2_CIPHER_CAST128_CTR,
                SSH2_CIPHER_CAST128_CBC,
                SSH_CIPHER_3DES,
                SSH_CIPHER_NONE,
                SSH2_CIPHER_ARCFOUR256,
                SSH2_CIPHER_ARCFOUR128,
                SSH2_CIPHER_ARCFOUR,
                SSH_CIPHER_BLOWFISH,
                SSH_CIPHER_DES,
                0, 0, 0 // Dummy for SSH_CIPHER_IDEA, SSH_CIPHER_TSS, SSH_CIPHER_RC4
        };

        normalize_generic_order(buf, default_strings, NUM_ELEM(default_strings));
}

static void normalize_kex_order(char *buf)
{
        static char default_strings[] = {
                KEX_ECDH_SHA2_256,
                KEX_ECDH_SHA2_384,
                KEX_ECDH_SHA2_521,
                KEX_DH_GRP18_SHA512,
                KEX_DH_GRP16_SHA512,
                KEX_DH_GRP14_SHA256,
                KEX_DH_GEX_SHA256,
                KEX_DH_GEX_SHA1,
                KEX_DH_GRP14_SHA1,
                KEX_DH_GRP1_SHA1,
                KEX_DH_NONE,
        };

        normalize_generic_order(buf, default_strings, NUM_ELEM(default_strings));
}

static void normalize_host_key_order(char *buf)
{
        static char default_strings[] = {
                KEY_ECDSA256,
                KEY_ECDSA384,
                KEY_ECDSA521,
                KEY_ED25519,
                KEY_RSA,
                KEY_DSA,
                KEY_NONE,
        };

        normalize_generic_order(buf, default_strings, NUM_ELEM(default_strings));
}

static void normalize_mac_order(char *buf)
{
        static char default_strings[] = {
                HMAC_SHA2_512_EtM,
                HMAC_SHA2_256_EtM,
                HMAC_SHA1_EtM,
                HMAC_SHA2_512,
                HMAC_SHA2_256,
                HMAC_SHA1,
                HMAC_RIPEMD160_EtM,
                HMAC_RIPEMD160,
                HMAC_MD5_EtM,
                HMAC_MD5,
                HMAC_NONE,
                HMAC_SHA1_96_EtM,
                HMAC_MD5_96_EtM,
                HMAC_SHA1_96,
                HMAC_MD5_96,
                0, // Dummy for HMAC_SHA2_512_96,
                0, // Dummy for HMAC_SHA2_256_96,
        };

        normalize_generic_order(buf, default_strings, NUM_ELEM(default_strings));
}

static void normalize_comp_order(char *buf)
{
        static char default_strings[] = {
                COMP_DELAYED,
                COMP_ZLIB,
                COMP_NOCOMP,
                COMP_NONE,
        };

        normalize_generic_order(buf, default_strings, NUM_ELEM(default_strings));
}


/* Remove local settings from the shared memory block. */
static void clear_local_settings(PTInstVar pvar)
{
        pvar->ts_SSH->TryDefaultAuth = FALSE;
}

static BOOL read_BOOL_option(PCHAR fileName, char *keyName, BOOL def)
{
        char buf[1024];

        buf[0] = 0;
        GetPrivateProfileString("TTSSH", keyName, "", buf, sizeof(buf),
                                fileName);
        if (buf[0] == 0) {
                return def;
        } else {
                return atoi(buf) != 0 ||
                       _stricmp(buf, "yes") == 0 ||
                       _stricmp(buf, "y") == 0;
        }
}

static void read_string_option(PCHAR fileName, char *keyName,
                               char *def, char *buf, int bufSize)
{

        buf[0] = 0;
        GetPrivateProfileString("TTSSH", keyName, def, buf, bufSize, fileName);
}

static void read_ssh_options(PTInstVar pvar, PCHAR fileName)
{
        char buf[1024];
        TS_SSH *settings = pvar->ts_SSH;

#define READ_STD_STRING_OPTION(name) \
        read_string_option(fileName, #name, "", settings->name, sizeof(settings->name))

        settings->Enabled = read_BOOL_option(fileName, "Enabled", FALSE);

        buf[0] = 0;
        GetPrivateProfileString("TTSSH", "Compression", "", buf, sizeof(buf),
                                fileName);
        settings->CompressionLevel = atoi(buf);
        if (settings->CompressionLevel < 0 || settings->CompressionLevel > 9) {
                settings->CompressionLevel = 0;
        }

        READ_STD_STRING_OPTION(DefaultUserName);
        settings->DefaultUserType = GetPrivateProfileInt("TTSSH", "DefaultUserType", 1, fileName);

        READ_STD_STRING_OPTION(DefaultForwarding);
        READ_STD_STRING_OPTION(DefaultRhostsLocalUserName);
        READ_STD_STRING_OPTION(DefaultRhostsHostPrivateKeyFile);
        READ_STD_STRING_OPTION(DefaultRSAPrivateKeyFile);

        READ_STD_STRING_OPTION(CipherOrder);
        normalize_cipher_order(settings->CipherOrder);

        // KEX order
        READ_STD_STRING_OPTION(KexOrder);
        normalize_kex_order(settings->KexOrder);
        // Host Key algorithm order
        READ_STD_STRING_OPTION(HostKeyOrder);
        normalize_host_key_order(settings->HostKeyOrder);
        // HMAC order
        READ_STD_STRING_OPTION(MacOrder);
        normalize_mac_order(settings->MacOrder);
        // Compression algorithm order
        READ_STD_STRING_OPTION(CompOrder);
        normalize_comp_order(settings->CompOrder);

        read_string_option(fileName, "KnownHostsFiles", "ssh_known_hosts",
                           settings->KnownHostsFiles,
                           sizeof(settings->KnownHostsFiles));

        buf[0] = 0;
        GetPrivateProfileString("TTSSH", "DefaultAuthMethod", "", buf,
                                sizeof(buf), fileName);
        settings->DefaultAuthMethod = atoi(buf);
        if (settings->DefaultAuthMethod != SSH_AUTH_PASSWORD
         && settings->DefaultAuthMethod != SSH_AUTH_RSA
         && settings->DefaultAuthMethod != SSH_AUTH_TIS  // add (2005.3.12 yutaka)
         && settings->DefaultAuthMethod != SSH_AUTH_RHOSTS
         && settings->DefaultAuthMethod != SSH_AUTH_PAGEANT) {
                /* this default can never be SSH_AUTH_RHOSTS_RSA because that is not a
                   selection in the dialog box; SSH_AUTH_RHOSTS_RSA is automatically chosen
                   when the dialog box has rhosts selected and an host private key file
                   is supplied. */
                settings->DefaultAuthMethod = SSH_AUTH_PASSWORD;
        }

        buf[0] = 0;
        GetPrivateProfileString("TTSSH", "LogLevel", "", buf, sizeof(buf),
                                fileName);
        settings->LogLevel = atoi(buf);

        buf[0] = 0;
        GetPrivateProfileString("TTSSH", "WriteBufferSize", "", buf,
                                sizeof(buf), fileName);
        settings->WriteBufferSize = atoi(buf);
        if (settings->WriteBufferSize <= 0) {
                settings->WriteBufferSize = (PACKET_MAX_SIZE / 2);   // 2MB
        }

        // SSH protocol version (2004.10.11 yutaka)
        // default is SSH2 (2004.11.30 yutaka)
        settings->ssh_protocol_version = GetPrivateProfileInt("TTSSH", "ProtocolVersion", 2, fileName);

        // SSH heartbeat time(second) (2004.12.11 yutaka)
        settings->ssh_heartbeat_overtime = GetPrivateProfileInt("TTSSH", "HeartBeat", 60, fileName);

        // �p�X���[�h�F�����������J���F�����g���p�X���[�h����������������������������������
        // �\���B(2006.8.5 yutaka)
        settings->remember_password = GetPrivateProfileInt("TTSSH", "RememberPassword", 1, fileName);

        // �������F���_�C�A���O���T�|�[�g�������������\�b�h���`�F�b�N���A
        // ���������\�b�h���O���C�A�E�g���� (2007.9.24 maya)
        settings->CheckAuthListFirst = read_BOOL_option(fileName, "CheckAuthListFirst", FALSE);

        // 768bit ������ RSA ���������T�[�o�����������L�������� (2008.9.11 maya)
        settings->EnableRsaShortKeyServer = read_BOOL_option(fileName, "EnableRsaShortKeyServer", FALSE);

        // agent forward ���L�������� (2008.11.25 maya)
        settings->ForwardAgent = read_BOOL_option(fileName, "ForwardAgent", FALSE);

        // agent forward �m�F���L��������
        settings->ForwardAgentConfirm = read_BOOL_option(fileName, "ForwardAgentConfirm", TRUE);

        // agent forward �m�F���L��������
        settings->ForwardAgentNotify = read_BOOL_option(fileName, "ForwardAgentNotify", TRUE);

        // �z�X�g���� DNS �����`�F�b�N (RFC 4255)
        settings->VerifyHostKeyDNS = read_BOOL_option(fileName, "VerifyHostKeyDNS", TRUE);

        // icon
        GetPrivateProfileString("TTSSH", "SSHIcon", "", buf, sizeof(buf), fileName);
        if ((_stricmp(buf, "old") == 0) ||
            (_stricmp(buf, "yellow") == 0) ||
            (_stricmp(buf, "securett_yellow") == 0)) {
                settings->IconID = IDI_SECURETT_YELLOW;
        }
        else if ((_stricmp(buf, "green") == 0) ||
                 (_stricmp(buf, "securett_green") == 0)) {
                settings->IconID = IDI_SECURETT_GREEN;
        }
        else {
                settings->IconID = IDI_SECURETT;
        }

        // �G���[�������x�������|�b�v�A�b�v���b�Z�[�W���}�~���� (2014.6.26 yutaka)
        settings->DisablePopupMessage = GetPrivateProfileInt("TTSSH", "DisablePopupMessage", 0, fileName);

        READ_STD_STRING_OPTION(X11Display);

        settings->UpdateHostkeys = GetPrivateProfileInt("TTSSH", "UpdateHostkeys", 0, fileName);

        settings->GexMinimalGroupSize = GetPrivateProfileInt("TTSSH", "GexMinimalGroupSize", 0, fileName);

        settings->AuthBanner = GetPrivateProfileInt("TTSSH", "AuthBanner", 1, fileName);

        clear_local_settings(pvar);
}

static void write_ssh_options(PTInstVar pvar, PCHAR fileName,
                              TS_SSH *settings, BOOL copy_forward)
{
        char buf[1024];

        WritePrivateProfileString("TTSSH", "Enabled",
                                  settings->Enabled ? "1" : "0", fileName);

        _itoa(settings->CompressionLevel, buf, 10);
        WritePrivateProfileString("TTSSH", "Compression", buf, fileName);

        _itoa(settings->DefaultUserType, buf, 10);
        WritePrivateProfileString("TTSSH", "DefaultUserType", buf, fileName);
        WritePrivateProfileString("TTSSH", "DefaultUserName",
                                  settings->DefaultUserName, fileName);

        if (copy_forward) {
                WritePrivateProfileString("TTSSH", "DefaultForwarding",
                                          settings->DefaultForwarding, fileName);
        }

        WritePrivateProfileString("TTSSH", "CipherOrder",
                                  settings->CipherOrder, fileName);

        WritePrivateProfileString("TTSSH", "KexOrder",
                                  settings->KexOrder, fileName);

        WritePrivateProfileString("TTSSH", "HostKeyOrder",
                                  settings->HostKeyOrder, fileName);

        WritePrivateProfileString("TTSSH", "MacOrder",
                                  settings->MacOrder, fileName);

        WritePrivateProfileString("TTSSH", "CompOrder",
                                  settings->CompOrder, fileName);

        WritePrivateProfileString("TTSSH", "KnownHostsFiles",
                                  settings->KnownHostsFiles, fileName);

        WritePrivateProfileString("TTSSH", "DefaultRhostsLocalUserName",
                                  settings->DefaultRhostsLocalUserName,
                                  fileName);

        WritePrivateProfileString("TTSSH", "DefaultRhostsHostPrivateKeyFile",
                                  settings->DefaultRhostsHostPrivateKeyFile,
                                  fileName);

        WritePrivateProfileString("TTSSH", "DefaultRSAPrivateKeyFile",
                                  settings->DefaultRSAPrivateKeyFile,
                                  fileName);

        _itoa(settings->DefaultAuthMethod, buf, 10);
        WritePrivateProfileString("TTSSH", "DefaultAuthMethod", buf, fileName);

        _itoa(settings->LogLevel, buf, 10);
        WritePrivateProfileString("TTSSH", "LogLevel", buf, fileName);

        _itoa(settings->WriteBufferSize, buf, 10);
        WritePrivateProfileString("TTSSH", "WriteBufferSize", buf, fileName);

        // SSH protocol version (2004.10.11 yutaka)
        WritePrivateProfileString("TTSSH", "ProtocolVersion",
            settings->ssh_protocol_version==2 ? "2" : "1",
            fileName);

        // SSH heartbeat time(second) (2004.12.11 yutaka)
        _snprintf_s(buf, sizeof(buf), _TRUNCATE,
                    "%d", settings->ssh_heartbeat_overtime);
        WritePrivateProfileString("TTSSH", "HeartBeat", buf, fileName);

        // Remember password (2006.8.5 yutaka)
        WritePrivateProfileString("TTSSH", "RememberPassword",
            settings->remember_password ? "1" : "0",
            fileName);

        // �������F���_�C�A���O���T�|�[�g�������������\�b�h���`�F�b�N���A
        // ���������\�b�h���O���C�A�E�g���� (2007.9.24 maya)
        WritePrivateProfileString("TTSSH", "CheckAuthListFirst",
                                  settings->CheckAuthListFirst ? "1" : "0", fileName);

        // 768bit ������ RSA ���������T�[�o�����������L�������� (2008.9.11 maya)
        WritePrivateProfileString("TTSSH", "EnableRsaShortKeyServer",
                                  settings->EnableRsaShortKeyServer ? "1" : "0", fileName);

        // agent forward ���L�������� (2008.11.25 maya)
        WritePrivateProfileString("TTSSH", "ForwardAgent",
                                  settings->ForwardAgent ? "1" : "0", fileName);

        // agent forward �m�F���L��������
        WritePrivateProfileString("TTSSH", "ForwardAgentConfirm",
                                  settings->ForwardAgentConfirm ? "1" : "0", fileName);

        // agent forward ���m���L��������
        WritePrivateProfileString("TTSSH", "ForwardAgentNotify",
                                  settings->ForwardAgentNotify ? "1" : "0", fileName);

        // �z�X�g���� DNS �����`�F�b�N (RFC 4255)
        WritePrivateProfileString("TTSSH", "VerifyHostKeyDNS",
                                  settings->VerifyHostKeyDNS ? "1" : "0", fileName);

        // SSH �A�C�R��
        if (settings->IconID==IDI_SECURETT_YELLOW) {
                WritePrivateProfileString("TTSSH", "SSHIcon", "yellow", fileName);
        }
        else if (settings->IconID==IDI_SECURETT_GREEN) {
                WritePrivateProfileString("TTSSH", "SSHIcon", "green", fileName);
        }
        else {
                WritePrivateProfileString("TTSSH", "SSHIcon", "Default", fileName);
        }

        _itoa(settings->DisablePopupMessage, buf, 10);
        WritePrivateProfileString("TTSSH", "DisablePopupMessage", buf, fileName);

        WritePrivateProfileString("TTSSH", "X11Display", settings->X11Display, fileName);

        _snprintf_s(buf, sizeof(buf), _TRUNCATE,
                "%d", settings->UpdateHostkeys);
        WritePrivateProfileString("TTSSH", "UpdateHostkeys", buf, fileName);

        _itoa_s(settings->GexMinimalGroupSize, buf, sizeof(buf), 10);
        WritePrivateProfileString("TTSSH", "GexMinimalGroupSize", buf, fileName);

        _itoa_s(settings->AuthBanner, buf, sizeof(buf), 10);
        WritePrivateProfileString("TTSSH", "AuthBanner", buf, fileName);
}


/* find free port in all protocol family */
static unsigned short find_local_port(PTInstVar pvar)
{
        int tries;
        SOCKET connecter;
        struct addrinfo hints;
        struct addrinfo *res;
        struct addrinfo *res0;
        unsigned short port;
        char pname[NI_MAXHOST];

        if (pvar->session_settings.DefaultAuthMethod != SSH_AUTH_RHOSTS) {
                return 0;
        }

        /* The random numbers here are only used to try to get fresh
           ports across runs (dangling ports can cause bind errors
           if we're unlucky). They do not need to be (and are not)
           cryptographically strong.
         */
        srand((unsigned) GetTickCount());

        for (tries = 20; tries > 0; tries--) {
                memset(&hints, 0, sizeof(hints));
                hints.ai_family = pvar->ts->ProtocolFamily;
                hints.ai_flags = AI_PASSIVE;
                hints.ai_socktype = SOCK_STREAM;
                port = (unsigned) rand() % 512 + 512;
                _snprintf_s(pname, sizeof(pname), _TRUNCATE, "%d", (int) port);
                if (getaddrinfo(NULL, pname, &hints, &res0)) {
                        return 0;
                        /* NOT REACHED */
                }

                for (res = res0; res; res = res->ai_next) {
                        if (res->ai_family == AF_INET || res->ai_family == AF_INET6)
                                continue;

                        connecter =
                                socket(res->ai_family, res->ai_socktype, res->ai_protocol);
                        if (connecter == INVALID_SOCKET) {
                                freeaddrinfo(res0);
                                return 0;
                        }

                        if (bind(connecter, res->ai_addr, res->ai_addrlen) !=
                            SOCKET_ERROR) {
                                return port;
                                freeaddrinfo(res0);
                                closesocket(connecter);
                        } else if (WSAGetLastError() != WSAEADDRINUSE) {
                                closesocket(connecter);
                                freeaddrinfo(res0);
                                return 0;
                        }

                        closesocket(connecter);
                }
                freeaddrinfo(res0);
        }

        return 0;
}

static int PASCAL TTXconnect(SOCKET s,
                                 const struct sockaddr *name,
                                 int namelen)
{
        if (pvar->socket == INVALID_SOCKET || pvar->socket != s) {
                struct sockaddr_storage ss;
                int len;

                pvar->socket = s;

                memset(&ss, 0, sizeof(ss));
                switch (pvar->ts->ProtocolFamily) {
                case AF_INET:
                        len = sizeof(struct sockaddr_in);
                        ((struct sockaddr_in *) &ss)->sin_family = AF_INET;
                        ((struct sockaddr_in *) &ss)->sin_addr.s_addr = INADDR_ANY;
                        ((struct sockaddr_in *) &ss)->sin_port =
                                htons(find_local_port(pvar));
                        break;
                case AF_INET6:
                        len = sizeof(struct sockaddr_in6);
                        ((struct sockaddr_in6 *) &ss)->sin6_family = AF_INET6;
                        ((struct sockaddr_in6 *) &ss)->sin6_addr = in6addr_any;
                        ((struct sockaddr_in6 *) &ss)->sin6_port =
                                htons(find_local_port(pvar));
                        break;
                default:
                        /* UNSPEC */
                        len = sizeof(ss);
                        ss.ss_family = AF_UNSPEC;
                        break;
                }

                bind(s, (struct sockaddr *) &ss, len);
        }

        return (pvar->Pconnect) (s, name, namelen);
}

static int PASCAL TTXWSAAsyncSelect(SOCKET s, HWND hWnd, u_int wMsg,
                                        long lEvent)
{
        if (s == pvar->socket) {
                pvar->notification_events = lEvent;
                pvar->notification_msg = wMsg;

                if (pvar->NotificationWindow == NULL) {
                        pvar->NotificationWindow = hWnd;
                        AUTH_advance_to_next_cred(pvar);
                }
        }

        return (pvar->PWSAAsyncSelect) (s, hWnd, wMsg, lEvent);
}

static int PASCAL TTXrecv(SOCKET s, char *buf, int len, int flags)
{
        if (s == pvar->socket) {
                int ret;

                ssh_heartbeat_lock();
                ret = PKT_recv(pvar, buf, len);
                ssh_heartbeat_unlock();
                return (ret);

        } else {
                return (pvar->Precv) (s, buf, len, flags);
        }
}

static int PASCAL TTXsend(SOCKET s, char const *buf, int len,
                              int flags)
{
        if (s == pvar->socket) {
                ssh_heartbeat_lock();
                SSH_send(pvar, buf, len);
                ssh_heartbeat_unlock();
                return len;
        } else {
                return (pvar->Psend) (s, buf, len, flags);
        }
}

void notify_established_secure_connection(PTInstVar pvar)
{
        int fuLoad = LR_DEFAULTCOLOR;

        if (IsWindowsNT4()) {
                fuLoad = LR_VGACOLOR;
        }

        // LoadIcon �������� LoadImage ���g�����������A
        // 16x16 ���A�C�R���������I�������������������� (2006.8.9 maya)
        if (SecureLargeIcon == NULL) {
                SecureLargeIcon = LoadImage(hInst, MAKEINTRESOURCE(pvar->settings.IconID),
                                            IMAGE_ICON, 0, 0, fuLoad);
        }
        if (SecureSmallIcon == NULL) {
                SecureSmallIcon = LoadImage(hInst, MAKEINTRESOURCE(pvar->settings.IconID),
                                            IMAGE_ICON, 16, 16, fuLoad);
        }

        if (SecureLargeIcon != NULL && SecureSmallIcon != NULL) {
                pvar->OldLargeIcon =
                        (HICON) SendMessage(pvar->NotificationWindow, WM_GETICON,
                                            ICON_BIG, 0);
                pvar->OldSmallIcon =
                        (HICON) SendMessage(pvar->NotificationWindow, WM_GETICON,
                                            ICON_SMALL, 0);

                PostMessage(pvar->NotificationWindow, WM_SETICON, ICON_BIG,
                            (LPARAM) SecureLargeIcon);
                PostMessage(pvar->NotificationWindow, WM_SETICON, ICON_SMALL,
                            (LPARAM) SecureSmallIcon);
        }

        if (IsWindows2000()) {
                if (SecureNotifyIcon == NULL) {
                        SecureNotifyIcon = LoadImage(hInst, MAKEINTRESOURCE(pvar->settings.IconID),
                                                     IMAGE_ICON, 0, 0, LR_VGACOLOR | LR_SHARED);
                }
                OldNotifyIcon = GetCustomNotifyIcon();
                SetCustomNotifyIcon(SecureNotifyIcon);
        }

        logputs(LOG_LEVEL_VERBOSE, "Entering secure mode");
}

void notify_closed_connection(PTInstVar pvar, char *send_msg)
{
        SSH_notify_disconnecting(pvar, send_msg);
        AUTH_notify_disconnecting(pvar);
        HOSTS_notify_disconnecting(pvar);

        PostMessage(pvar->NotificationWindow, WM_USER_COMMNOTIFY,
                    pvar->socket, MAKELPARAM(FD_CLOSE, 0));
}

static void add_err_msg(PTInstVar pvar, char *msg)
{
        if (pvar->err_msg != NULL) {
                int buf_len = strlen(pvar->err_msg) + 3 + strlen(msg);
                char *buf = (char *) malloc(buf_len);

                strncpy_s(buf, buf_len, pvar->err_msg, _TRUNCATE);
                strncat_s(buf, buf_len, "\n\n", _TRUNCATE);
                strncat_s(buf, buf_len, msg, _TRUNCATE);
                free(pvar->err_msg);
                pvar->err_msg = buf;
        } else {
                pvar->err_msg = _strdup(msg);
        }
}

void notify_nonfatal_error(PTInstVar pvar, char *msg)
{
        if (!pvar->showing_err) {
                // �������������������m���E�B���h�E�����������A�f�X�N�g�b�v���I�[�i�[������
                // ���b�Z�[�W�{�b�N�X���o���������B(2006.6.11 yutaka)
                if (pvar->NotificationWindow == NULL) {
                        UTIL_get_lang_msg("MSG_NONFATAL_ERROR", pvar,
                                          "Tera Term: not fatal error");
                        MessageBox(NULL, msg, pvar->ts->UIMsg, MB_OK|MB_ICONINFORMATION);
                        msg[0] = '\0';

                } else {
                        PostMessage(pvar->NotificationWindow, WM_COMMAND,
                                    ID_SSHASYNCMESSAGEBOX, 0);
                }
        }
        if (msg[0] != 0) {
                logputs(LOG_LEVEL_ERROR, msg);
                add_err_msg(pvar, msg);
        }
}

void notify_fatal_error(PTInstVar pvar, char *msg, BOOL send_disconnect)
{
        if (msg[0] != 0) {
                logputs(LOG_LEVEL_FATAL, msg);
                add_err_msg(pvar, msg);
        }

        if (!pvar->fatal_error) {
                pvar->fatal_error = TRUE;

                if (send_disconnect) {
                        SSH_notify_disconnecting(pvar, msg);
                }
                AUTH_notify_disconnecting(pvar);
                HOSTS_notify_disconnecting(pvar);

                PostMessage(pvar->NotificationWindow, WM_USER_COMMNOTIFY,
                            pvar->socket, MAKELPARAM(FD_CLOSE,
                                                     (pvar->PWSAGetLastError) ()));
        }
}

void logputs(int level, char *msg)
{
        if (level <= pvar->settings.LogLevel) {
                char buf[4096];
                int file;

                get_teraterm_dir_relative_name(buf, NUM_ELEM(buf), "TTSSH.LOG");
                file = _open(buf, _O_RDWR | _O_APPEND | _O_CREAT | _O_TEXT,
                             _S_IREAD | _S_IWRITE);

                if (file >= 0) {
                        char *strtime = mctimelocal("%Y-%m-%d %H:%M:%S.%NZ", TRUE);
                        DWORD processid;
                        char tmp[26];

                        _write(file, strtime, strlen(strtime));
                        GetWindowThreadProcessId(pvar->cv->HWin, &processid);
                        _snprintf_s(tmp, sizeof(tmp), _TRUNCATE, " [%lu] ",processid);
                        _write(file, tmp, strlen(tmp));
                        _write(file, msg, strlen(msg));
                        _write(file, "\n", 1);
                        _close(file);
                }
        }
}

void logprintf(int level, char *fmt, ...)
{
        char buff[4096];
        va_list params;

        if (level <= pvar->settings.LogLevel) {
                va_start(params, fmt);
                vsnprintf_s(buff, sizeof(buff), _TRUNCATE, fmt, params);
                va_end(params);

                logputs(level, buff);
        }
}

static void format_line_hexdump(char *buf, int buflen, int addr, int *bytes, int byte_cnt)
{
        int i, c;
        char tmp[128];

        buf[0] = 0;

        /* �������A�h���X�\�� */
        _snprintf_s(tmp, sizeof(tmp), _TRUNCATE, "%08X : ", addr);
        strncat_s(buf, buflen, tmp, _TRUNCATE);

        /* �o�C�i���\���i4�o�C�g�������������}���j*/
        for (i = 0; i < byte_cnt; i++) {
                if (i > 0 && i % 4 == 0) {
                        strncat_s(buf, buflen, " ", _TRUNCATE);
                }

                _snprintf_s(tmp, sizeof(tmp), _TRUNCATE, "%02X", bytes[i]);
                strncat_s(buf, buflen, tmp, _TRUNCATE);
        }

        /* ASCII�\���������������������� */
        _snprintf_s(tmp, sizeof(tmp), _TRUNCATE, "   %*s%*s", (16 - byte_cnt) * 2 + 1, " ", (16 - byte_cnt + 3) / 4, " ");
        strncat_s(buf, buflen, tmp, _TRUNCATE);

        /* ASCII�\�� */
        for (i = 0; i < byte_cnt; i++) {
                c = bytes[i];
                if (isprint(c)) {
                        _snprintf_s(tmp, sizeof(tmp), _TRUNCATE, "%c", c);
                        strncat_s(buf, buflen, tmp, _TRUNCATE);
                }
                else {
                        strncat_s(buf, buflen, ".", _TRUNCATE);
                }
        }

        //strncat_s(buf, buflen, "\n", _TRUNCATE);
}

void logprintf_hexdump(int level, char *data, int len, char *fmt, ...)
{
        char buff[4096];
        va_list params;
        int c, addr;
        int bytes[16], *ptr;
        int byte_cnt;
        int i;

        if (level <= pvar->settings.LogLevel) {
                va_start(params, fmt);
                vsnprintf_s(buff, sizeof(buff), _TRUNCATE, fmt, params);
                va_end(params);

                logputs(level, buff);

                addr = 0;
                byte_cnt = 0;
                ptr = bytes;
                for (i = 0; i < len; i++) {
                        c = data[i];
                        *ptr++ = c & 0xff;
                        byte_cnt++;

                        if (byte_cnt == 16) {
                                format_line_hexdump(buff, sizeof(buff), addr, bytes, byte_cnt);
                                logputs(level, buff);

                                addr += 16;
                                byte_cnt = 0;
                                ptr = bytes;
                        }
                }

                if (byte_cnt > 0) {
                        format_line_hexdump(buff, sizeof(buff), addr, bytes, byte_cnt);
                        logputs(level, buff);
                }
        }
}

static void PASCAL TTXOpenTCP(TTXSockHooks *hooks)
{
        if (pvar->settings.Enabled) {
                // TCPLocalEcho/TCPCRSend ������������ (maya 2007.4.25)
                pvar->origDisableTCPEchoCR = pvar->ts->DisableTCPEchoCR;
                pvar->ts->DisableTCPEchoCR = TRUE;

                pvar->session_settings = pvar->settings;

                logputs(LOG_LEVEL_VERBOSE, "---------------------------------------------------------------------");
                logputs(LOG_LEVEL_VERBOSE, "Initiating SSH session");

                FWDUI_load_settings(pvar);

                pvar->cv->TelAutoDetect = FALSE;
                /* This next line should not be needed because Tera Term's
                   CommLib should find ts->Telnet == 0 ... but we'll do this
                   just to be on the safe side. */
                pvar->cv->TelFlag = FALSE;
                pvar->cv->TelLineMode = FALSE;

                pvar->Precv = *hooks->Precv;
                pvar->Psend = *hooks->Psend;
                pvar->PWSAAsyncSelect = *hooks->PWSAAsyncSelect;
                pvar->Pconnect = *hooks->Pconnect;
                pvar->PWSAGetLastError = *hooks->PWSAGetLastError;

                *hooks->Precv = TTXrecv;
                *hooks->Psend = TTXsend;
                *hooks->PWSAAsyncSelect = TTXWSAAsyncSelect;
                *hooks->Pconnect = TTXconnect;

                SSH_open(pvar);
                HOSTS_open(pvar);
                FWDUI_open(pvar);

                // ������ myproposal �����f���������A�������O�����������B (2006.6.26 maya)
                SSH2_update_cipher_myproposal(pvar);
                SSH2_update_kex_myproposal(pvar);
                SSH2_update_host_key_myproposal(pvar);
                SSH2_update_hmac_myproposal(pvar);
                SSH2_update_compression_myproposal(pvar);
        }
}

static void PASCAL TTXCloseTCP(TTXSockHooks *hooks)
{
        if (pvar->session_settings.Enabled) {
                pvar->socket = INVALID_SOCKET;

                logputs(LOG_LEVEL_VERBOSE, "Terminating SSH session...");

                *hooks->Precv = pvar->Precv;
                *hooks->Psend = pvar->Psend;
                *hooks->PWSAAsyncSelect = pvar->PWSAAsyncSelect;
                *hooks->Pconnect = pvar->Pconnect;

                pvar->ts->DisableTCPEchoCR = pvar->origDisableTCPEchoCR;
        }

        uninit_TTSSH(pvar);
        init_TTSSH(pvar);
}

static void enable_dlg_items(HWND dlg, int from, int to, BOOL enabled)
{
        for (; from <= to; from++) {
                EnableWindow(GetDlgItem(dlg, from), enabled);
        }
}

// C-p/C-n/C-b/C-f/C-a/C-e ���T�|�[�g (2007.9.5 maya)
// C-d/C-k ���T�|�[�g (2007.10.3 yutaka)
// �h���b�v�_�E���������G�f�B�b�g�R���g���[����
// �T�u�N���X�������������E�C���h�E�v���V�[�W��
WNDPROC OrigHostnameEditProc; // Original window procedure
LRESULT CALLBACK HostnameEditProc(HWND dlg, UINT msg,
                                  WPARAM wParam, LPARAM lParam)
{
        HWND parent;
        int  max, select, len;
        char *str, *orgstr;

        switch (msg) {
                // �L�[�����������������m����
                case WM_KEYDOWN:
                        if (GetKeyState(VK_CONTROL) < 0) {
                                switch (wParam) {
                                        case 0x50: // Ctrl+p ... up
                                                parent = GetParent(dlg);
                                                select = SendMessage(parent, CB_GETCURSEL, 0, 0);
                                                if (select > 0) {
                                                        PostMessage(parent, CB_SETCURSEL, select - 1, 0);
                                                }
                                                return 0;
                                        case 0x4e: // Ctrl+n ... down
                                                parent = GetParent(dlg);
                                                max = SendMessage(parent, CB_GETCOUNT, 0, 0);
                                                select = SendMessage(parent, CB_GETCURSEL, 0, 0);
                                                if (select < max - 1) {
                                                        PostMessage(parent, CB_SETCURSEL, select + 1, 0);
                                                }
                                                return 0;
                                        case 0x42: // Ctrl+b ... left
                                                SendMessage(dlg, EM_GETSEL, 0, (LPARAM)&select);
                                                PostMessage(dlg, EM_SETSEL, select-1, select-1);
                                                return 0;
                                        case 0x46: // Ctrl+f ... right
                                                SendMessage(dlg, EM_GETSEL, 0, (LPARAM)&select);
                                                max = GetWindowTextLength(dlg) ;
                                                PostMessage(dlg, EM_SETSEL, select+1, select+1);
                                                return 0;
                                        case 0x41: // Ctrl+a ... home
                                                PostMessage(dlg, EM_SETSEL, 0, 0);
                                                return 0;
                                        case 0x45: // Ctrl+e ... end
                                                max = GetWindowTextLength(dlg) ;
                                                PostMessage(dlg, EM_SETSEL, max, max);
                                                return 0;

                                        case 0x44: // Ctrl+d
                                        case 0x4b: // Ctrl+k
                                        case 0x55: // Ctrl+u
                                                SendMessage(dlg, EM_GETSEL, 0, (LPARAM)&select);
                                                max = GetWindowTextLength(dlg);
                                                max++; // '\0'
                                                orgstr = str = malloc(max);
                                                if (str != NULL) {
                                                        len = GetWindowText(dlg, str, max);
                                                        if (select >= 0 && select < len) {
                                                                if (wParam == 0x44) { // �J�[�\���z����������������������
                                                                        memmove(&str[select], &str[select + 1], len - select - 1);
                                                                        str[len - 1] = '\0';

                                                                } else if (wParam == 0x4b) { // �J�[�\�������s��������������
                                                                        str[select] = '\0';

                                                                }
                                                        }

                                                        if (wParam == 0x55) { // �J�[�\����������������������
                                                                if (select >= len) {
                                                                        str[0] = '\0';
                                                                } else {
                                                                        str = &str[select];
                                                                }
                                                                select = 0;
                                                        }

                                                        SetWindowText(dlg, str);
                                                        SendMessage(dlg, EM_SETSEL, select, select);
                                                        free(orgstr);
                                                        return 0;
                                                }
                                                break;
                                }
                        }
                        break;

                // �����L�[��������������������������������������������
                case WM_CHAR:
                        switch (wParam) {
                                case 0x01:
                                case 0x02:
                                case 0x04:
                                case 0x05:
                                case 0x06:
                                case 0x0b:
                                case 0x0e:
                                case 0x10:
                                case 0x15:
                                        return 0;
                        }
        }

        return CallWindowProc(OrigHostnameEditProc, dlg, msg, wParam, lParam);
}

static BOOL CALLBACK TTXHostDlg(HWND dlg, UINT msg, WPARAM wParam,
                                LPARAM lParam)
{
        static char *ssh_version[] = {"SSH1", "SSH2", NULL};
        PGetHNRec GetHNRec;
        char EntName[128];
        char TempHost[HostNameMaxLength + 1];
        WORD i, j, w;
        WORD ComPortTable[MAXCOMPORT];
        static char *ComPortDesc[MAXCOMPORT];
        int comports;
        BOOL Ok;
//      LOGFONT logfont;
//      HFONT font;
        char uimsg[MAX_UIMSG];
        static HWND hwndHostname     = NULL; // HOSTNAME dropdown
        static HWND hwndHostnameEdit = NULL; // Edit control on HOSTNAME dropdown

        switch (msg) {
        case WM_INITDIALOG:
                GetHNRec = (PGetHNRec) lParam;
                SetWindowLong(dlg, DWL_USER, lParam);

                GetWindowText(dlg, uimsg, sizeof(uimsg));
                UTIL_get_lang_msg("DLG_HOST_TITLE", pvar, uimsg);
                SetWindowText(dlg, pvar->ts->UIMsg);
                GetDlgItemText(dlg, IDC_HOSTNAMELABEL, uimsg, sizeof(uimsg));
                UTIL_get_lang_msg("DLG_HOST_TCPIPHOST", pvar, uimsg);
                SetDlgItemText(dlg, IDC_HOSTNAMELABEL, pvar->ts->UIMsg);
                GetDlgItemText(dlg, IDC_HISTORY, uimsg, sizeof(uimsg));
                UTIL_get_lang_msg("DLG_HOST_TCPIPHISTORY", pvar, uimsg);
                SetDlgItemText(dlg, IDC_HISTORY, pvar->ts->UIMsg);
                GetDlgItemText(dlg, IDC_SERVICELABEL, uimsg, sizeof(uimsg));
                UTIL_get_lang_msg("DLG_HOST_TCPIPSERVICE", pvar, uimsg);
                SetDlgItemText(dlg, IDC_SERVICELABEL, pvar->ts->UIMsg);
                GetDlgItemText(dlg, IDC_HOSTOTHER, uimsg, sizeof(uimsg));
                UTIL_get_lang_msg("DLG_HOST_TCPIPOTHER", pvar, uimsg);
                SetDlgItemText(dlg, IDC_HOSTOTHER, pvar->ts->UIMsg);
                GetDlgItemText(dlg, IDC_HOSTTCPPORTLABEL, uimsg, sizeof(uimsg));
                UTIL_get_lang_msg("DLG_HOST_TCPIPPORT", pvar, uimsg);
                SetDlgItemText(dlg, IDC_HOSTTCPPORTLABEL, pvar->ts->UIMsg);
                GetDlgItemText(dlg, IDC_SSH_VERSION_LABEL, uimsg, sizeof(uimsg));
                UTIL_get_lang_msg("DLG_HOST_TCPIPSSHVERSION", pvar, uimsg);
                SetDlgItemText(dlg, IDC_SSH_VERSION_LABEL, pvar->ts->UIMsg);
                GetDlgItemText(dlg, IDC_HOSTTCPPROTOCOLLABEL, uimsg, sizeof(uimsg));
                UTIL_get_lang_msg("DLG_HOST_TCPIPPROTOCOL", pvar, uimsg);
                SetDlgItemText(dlg, IDC_HOSTTCPPROTOCOLLABEL, pvar->ts->UIMsg);
                GetDlgItemText(dlg, IDC_HOSTSERIAL, uimsg, sizeof(uimsg));
                UTIL_get_lang_msg("DLG_HOST_SERIAL", pvar, uimsg);
                SetDlgItemText(dlg, IDC_HOSTSERIAL, pvar->ts->UIMsg);
                GetDlgItemText(dlg, IDC_HOSTCOMLABEL, uimsg, sizeof(uimsg));
                UTIL_get_lang_msg("DLG_HOST_SERIALPORT", pvar, uimsg);
                SetDlgItemText(dlg, IDC_HOSTCOMLABEL, pvar->ts->UIMsg);
                GetDlgItemText(dlg, IDC_HOSTHELP, uimsg, sizeof(uimsg));
                UTIL_get_lang_msg("DLG_HOST_HELP", pvar, uimsg);
                SetDlgItemText(dlg, IDC_HOSTHELP, pvar->ts->UIMsg);
                GetDlgItemText(dlg, IDOK, uimsg, sizeof(uimsg));
                UTIL_get_lang_msg("BTN_OK", pvar, uimsg);
                SetDlgItemText(dlg, IDOK, pvar->ts->UIMsg);
                GetDlgItemText(dlg, IDCANCEL, uimsg, sizeof(uimsg));
                UTIL_get_lang_msg("BTN_CANCEL", pvar, uimsg);
                SetDlgItemText(dlg, IDCANCEL, pvar->ts->UIMsg);

                // �z�X�g�q�X�g�����`�F�b�N�{�b�N�X������ (2005.10.21 yutaka)
                if (pvar->ts->HistoryList > 0) {
                        SendMessage(GetDlgItem(dlg, IDC_HISTORY), BM_SETCHECK, BST_CHECKED, 0);
                } else {
                        SendMessage(GetDlgItem(dlg, IDC_HISTORY), BM_SETCHECK, BST_UNCHECKED, 0);
                }

                // �t�@�C�����������O�t���p�C�v�������ATCP/IP�����������B
                if (GetHNRec->PortType == IdFile ||
                        GetHNRec->PortType == IdNamedPipe
                        )
                        GetHNRec->PortType = IdTCPIP;

                strncpy_s(EntName, sizeof(EntName), "Host", _TRUNCATE);

                i = 1;
                do {
                        _snprintf_s(&EntName[4], sizeof(EntName)-4, _TRUNCATE, "%d", i);
                        GetPrivateProfileString("Hosts", EntName, "",
                                                TempHost, sizeof(TempHost),
                                                GetHNRec->SetupFN);
                        if (strlen(TempHost) > 0)
                                SendDlgItemMessage(dlg, IDC_HOSTNAME, CB_ADDSTRING,
                                                   0, (LPARAM) TempHost);
                        i++;
                } while (i <= MAXHOSTLIST);

                SendDlgItemMessage(dlg, IDC_HOSTNAME, EM_LIMITTEXT,
                                   HostNameMaxLength - 1, 0);

                SendDlgItemMessage(dlg, IDC_HOSTNAME, CB_SETCURSEL, 0, 0);

                // C-n/C-p ���������T�u�N���X�� (2007.9.4 maya)
                hwndHostname = GetDlgItem(dlg, IDC_HOSTNAME);
                hwndHostnameEdit = GetWindow(hwndHostname, GW_CHILD);
                OrigHostnameEditProc = (WNDPROC)GetWindowLong(hwndHostnameEdit, GWL_WNDPROC);
                SetWindowLong(hwndHostnameEdit, GWL_WNDPROC, (LONG)HostnameEditProc);

                CheckRadioButton(dlg, IDC_HOSTTELNET, IDC_HOSTOTHER,
                                 pvar->settings.Enabled ? IDC_HOSTSSH : GetHNRec->
                                 Telnet ? IDC_HOSTTELNET : IDC_HOSTOTHER);
                SendDlgItemMessage(dlg, IDC_HOSTTCPPORT, EM_LIMITTEXT, 5, 0);
                SetDlgItemInt(dlg, IDC_HOSTTCPPORT, GetHNRec->TCPPort, FALSE);
                for (i = 0; ProtocolFamilyList[i]; ++i) {
                        SendDlgItemMessage(dlg, IDC_HOSTTCPPROTOCOL, CB_ADDSTRING,
                                           0, (LPARAM) ProtocolFamilyList[i]);
                }
                SendDlgItemMessage(dlg, IDC_HOSTTCPPROTOCOL, EM_LIMITTEXT,
                                   ProtocolFamilyMaxLength - 1, 0);
                SendDlgItemMessage(dlg, IDC_HOSTTCPPROTOCOL, CB_SETCURSEL, 0, 0);

                /////// SSH version
                for (i = 0; ssh_version[i]; ++i) {
                        SendDlgItemMessage(dlg, IDC_SSH_VERSION, CB_ADDSTRING,
                                           0, (LPARAM) ssh_version[i]);
                }
                SendDlgItemMessage(dlg, IDC_SSH_VERSION, EM_LIMITTEXT,
                                   NUM_ELEM(ssh_version) - 1, 0);

                if (pvar->settings.ssh_protocol_version == 1) {
                        SendDlgItemMessage(dlg, IDC_SSH_VERSION, CB_SETCURSEL, 0, 0); // SSH1
                } else {
                        SendDlgItemMessage(dlg, IDC_SSH_VERSION, CB_SETCURSEL, 1, 0); // SSH2
                }

                if (IsDlgButtonChecked(dlg, IDC_HOSTSSH)) {
                        enable_dlg_items(dlg, IDC_SSH_VERSION, IDC_SSH_VERSION, TRUE); // enabled
                } else {
                        enable_dlg_items(dlg, IDC_SSH_VERSION, IDC_SSH_VERSION, FALSE); // disabled
                }
                /////// SSH version


                j = 0;
                w = 1;
                if ((comports=DetectComPorts(ComPortTable, GetHNRec->MaxComPort, ComPortDesc)) >= 0) {
                        for (i=0; i<comports; i++) {
                                // MaxComPort ���z�����|�[�g���\��������
                                if (ComPortTable[i] > GetHNRec->MaxComPort) {
                                        continue;
                                }

                                // �g�p�����|�[�g���\��������
                                if (CheckCOMFlag(ComPortTable[i]) == 1) {
                                        continue;
                                }

                                _snprintf_s(EntName, sizeof(EntName), _TRUNCATE, "COM%d", ComPortTable[i]);
                                if (ComPortDesc[i] != NULL) {
                                        strncat_s(EntName, sizeof(EntName), ": ", _TRUNCATE);
                                        strncat_s(EntName, sizeof(EntName), ComPortDesc[i], _TRUNCATE);
                                }
                                SendDlgItemMessage(dlg, IDC_HOSTCOM, CB_ADDSTRING,
                                                   0, (LPARAM)EntName);
                                j++;
                                if (GetHNRec->ComPort == ComPortTable[i])
                                        w = j;
                        }

                } else {
                        for (i = 1; i <= GetHNRec->MaxComPort; i++) {
                                // �g�p�����|�[�g���\��������
                                if (CheckCOMFlag(i) == 1) {
                                        continue;
                                }

                                _snprintf_s(EntName, sizeof(EntName), _TRUNCATE, "COM%d", i);
                                SendDlgItemMessage(dlg, IDC_HOSTCOM, CB_ADDSTRING,
                                                   0, (LPARAM) EntName);
                                j++;
                                if (GetHNRec->ComPort == i)
                                        w = j;
                        }
                }

                if (j > 0)
                        SendDlgItemMessage(dlg, IDC_HOSTCOM, CB_SETCURSEL, w - 1, 0);
                else {                                  /* All com ports are already used */
                        GetHNRec->PortType = IdTCPIP;
                        enable_dlg_items(dlg, IDC_HOSTSERIAL, IDC_HOSTSERIAL, FALSE);
                }

                CheckRadioButton(dlg, IDC_HOSTTCPIP, IDC_HOSTSERIAL,
                                 IDC_HOSTTCPIP + GetHNRec->PortType - 1);

                if (GetHNRec->PortType == IdTCPIP) {
                        enable_dlg_items(dlg, IDC_HOSTCOMLABEL, IDC_HOSTCOM, FALSE);

                        enable_dlg_items(dlg, IDC_SSH_VERSION, IDC_SSH_VERSION, TRUE);
                        enable_dlg_items(dlg, IDC_SSH_VERSION_LABEL, IDC_SSH_VERSION_LABEL, TRUE);

                        enable_dlg_items(dlg, IDC_HISTORY, IDC_HISTORY, TRUE); // enabled
                }
                else {
                        enable_dlg_items(dlg, IDC_HOSTNAMELABEL, IDC_HOSTTCPPORT,
                                         FALSE);
                        enable_dlg_items(dlg, IDC_HOSTTCPPROTOCOLLABEL,
                                         IDC_HOSTTCPPROTOCOL, FALSE);

                        enable_dlg_items(dlg, IDC_SSH_VERSION, IDC_SSH_VERSION, FALSE); // disabled
                        enable_dlg_items(dlg, IDC_SSH_VERSION_LABEL, IDC_SSH_VERSION_LABEL, FALSE); // disabled (2004.11.23 yutaka)

                        enable_dlg_items(dlg, IDC_HISTORY, IDC_HISTORY, FALSE); // disabled
                }

                // Host dialog���t�H�[�J�X�������� (2004.10.2 yutaka)
                if (GetHNRec->PortType == IdTCPIP) {
                        HWND hwnd = GetDlgItem(dlg, IDC_HOSTNAME);
                        SetFocus(hwnd);
                } else {
                        HWND hwnd = GetDlgItem(dlg, IDC_HOSTCOM);
                        SetFocus(hwnd);
                }

#if 0
                font = (HFONT)SendMessage(dlg, WM_GETFONT, 0, 0);
                GetObject(font, sizeof(LOGFONT), &logfont);
                if (UTIL_get_lang_font("DLG_SYSTEM_FONT", dlg, &logfont, &DlgHostFont, pvar)) {
                        SendDlgItemMessage(dlg, IDC_HOSTTCPIP, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
                        SendDlgItemMessage(dlg, IDC_HOSTNAMELABEL, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
                        SendDlgItemMessage(dlg, IDC_HOSTNAME, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
                        SendDlgItemMessage(dlg, IDC_HISTORY, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
                        SendDlgItemMessage(dlg, IDC_SERVICELABEL, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
                        SendDlgItemMessage(dlg, IDC_HOSTTELNET, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
                        SendDlgItemMessage(dlg, IDC_HOSTSSH, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
                        SendDlgItemMessage(dlg, IDC_HOSTOTHER, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
                        SendDlgItemMessage(dlg, IDC_HOSTTCPPORTLABEL, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
                        SendDlgItemMessage(dlg, IDC_HOSTTCPPORT, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
                        SendDlgItemMessage(dlg, IDC_SSH_VERSION_LABEL, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
                        SendDlgItemMessage(dlg, IDC_SSH_VERSION, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
                        SendDlgItemMessage(dlg, IDC_HOSTTCPPROTOCOLLABEL, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
                        SendDlgItemMessage(dlg, IDC_HOSTTCPPROTOCOL, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
                        SendDlgItemMessage(dlg, IDC_HOSTSERIAL, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
                        SendDlgItemMessage(dlg, IDC_HOSTCOMLABEL, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
                        SendDlgItemMessage(dlg, IDC_HOSTCOM, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
                        SendDlgItemMessage(dlg, IDOK, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
                        SendDlgItemMessage(dlg, IDCANCEL, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
                        SendDlgItemMessage(dlg, IDC_HOSTHELP, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
                }
                else {
                        DlgHostFont = NULL;
                }
#endif

                CenterWindow(dlg, GetParent(dlg));

                // SetFocus()���t�H�[�J�X���������������AFALSE�������K�v�������B
                // TRUE���������ATABSTOP�������������������R���g���[�����I�������B
                // (2004.11.23 yutaka)
                return FALSE;
                //return TRUE;

        case WM_COMMAND:
                switch (LOWORD(wParam)) {
                case IDOK:
                        GetHNRec = (PGetHNRec) GetWindowLong(dlg, DWL_USER);
                        if (GetHNRec != NULL) {
                                if (IsDlgButtonChecked(dlg, IDC_HOSTTCPIP)) {
                                        char afstr[BUFSIZ];
                                        i = GetDlgItemInt(dlg, IDC_HOSTTCPPORT, &Ok, FALSE);
                                        if (Ok) {
                                                GetHNRec->TCPPort = i;
                                        } else {
                                                UTIL_get_lang_msg("MSG_TCPPORT_NAN_ERROR", pvar,
                                                                  "The TCP port must be a number.");
                                                MessageBox(dlg, pvar->ts->UIMsg,
                                                           "Tera Term", MB_OK | MB_ICONEXCLAMATION);
                                                return TRUE;
                                        }
#define getaf(str) \
((strcmp((str), "IPv6") == 0) ? AF_INET6 : \
 ((strcmp((str), "IPv4") == 0) ? AF_INET : AF_UNSPEC))
                                        memset(afstr, 0, sizeof(afstr));
                                        GetDlgItemText(dlg, IDC_HOSTTCPPROTOCOL, afstr,
                                                       sizeof(afstr));
                                        GetHNRec->ProtocolFamily = getaf(afstr);
                                        GetHNRec->PortType = IdTCPIP;
                                        GetDlgItemText(dlg, IDC_HOSTNAME, GetHNRec->HostName,
                                                       HostNameMaxLength);
                                        pvar->hostdlg_activated = TRUE;
                                        pvar->hostdlg_Enabled = FALSE;
                                        if (IsDlgButtonChecked(dlg, IDC_HOSTTELNET)) {
                                                GetHNRec->Telnet = TRUE;
                                        } else if (IsDlgButtonChecked(dlg, IDC_HOSTSSH)) {
                                                pvar->hostdlg_Enabled = TRUE;

                                                // check SSH protocol version
                                                memset(afstr, 0, sizeof(afstr));
                                                GetDlgItemText(dlg, IDC_SSH_VERSION, afstr, sizeof(afstr));
                                                if (_stricmp(afstr, "SSH1") == 0) {
                                                        pvar->settings.ssh_protocol_version = 1;
                                                } else {
                                                        pvar->settings.ssh_protocol_version = 2;
                                                }
                                        }
                                        else {  // IDC_HOSTOTHER
                                                GetHNRec->Telnet = FALSE;
                                        }

                                        // host history check button
                                        if (SendMessage(GetDlgItem(dlg, IDC_HISTORY), BM_GETCHECK, 0, 0) == BST_CHECKED) {
                                                pvar->ts->HistoryList = 1;
                                        } else {
                                                pvar->ts->HistoryList = 0;
                                        }

                                } else {
                                        GetHNRec->PortType = IdSerial;
                                        GetHNRec->HostName[0] = 0;
                                        memset(EntName, 0, sizeof(EntName));
                                        GetDlgItemText(dlg, IDC_HOSTCOM, EntName,
                                                       sizeof(EntName) - 1);
                                        if (strncmp(EntName, "COM", 3) == 0 && EntName[3] != '\0') {
                                                GetHNRec->ComPort = atoi(&EntName[3]);
                                                if (GetHNRec->ComPort > GetHNRec->MaxComPort)
                                                        GetHNRec->ComPort = 1;
                                        } else {
                                                GetHNRec->ComPort = 1;
                                        }
                                }
                        }
                        SetWindowLong(hwndHostnameEdit, GWL_WNDPROC, (LONG)OrigHostnameEditProc);
                        EndDialog(dlg, 1);
#if 0
                        if (DlgHostFont != NULL) {
                                DeleteObject(DlgHostFont);
                        }
#endif
                        return TRUE;

                case IDCANCEL:
                        SetWindowLong(hwndHostnameEdit, GWL_WNDPROC, (LONG)OrigHostnameEditProc);
                        EndDialog(dlg, 0);
#if 0
                        if (DlgHostFont != NULL) {
                                DeleteObject(DlgHostFont);
                        }
#endif
                        return TRUE;

                case IDC_HOSTTCPIP:
                        enable_dlg_items(dlg, IDC_HOSTNAMELABEL, IDC_HOSTTCPPORT,
                                         TRUE);
                        enable_dlg_items(dlg, IDC_HOSTTCPPROTOCOLLABEL,
                                         IDC_HOSTTCPPROTOCOL, TRUE);
                        enable_dlg_items(dlg, IDC_HOSTCOMLABEL, IDC_HOSTCOM, FALSE);

                        enable_dlg_items(dlg, IDC_SSH_VERSION_LABEL, IDC_SSH_VERSION_LABEL, TRUE); // disabled (2004.11.23 yutaka)
                        if (IsDlgButtonChecked(dlg, IDC_HOSTSSH)) {
                                enable_dlg_items(dlg, IDC_SSH_VERSION, IDC_SSH_VERSION, TRUE);
                        } else {
                                enable_dlg_items(dlg, IDC_SSH_VERSION, IDC_SSH_VERSION, FALSE); // disabled
                        }

                        enable_dlg_items(dlg, IDC_HISTORY, IDC_HISTORY, TRUE); // disabled

                        return TRUE;

                case IDC_HOSTSERIAL:
                        enable_dlg_items(dlg, IDC_HOSTCOMLABEL, IDC_HOSTCOM, TRUE);
                        enable_dlg_items(dlg, IDC_HOSTNAMELABEL, IDC_HOSTTCPPORT,
                                         FALSE);
                        enable_dlg_items(dlg, IDC_HOSTTCPPROTOCOLLABEL,
                                         IDC_HOSTTCPPROTOCOL, FALSE);
                        enable_dlg_items(dlg, IDC_SSH_VERSION, IDC_SSH_VERSION, FALSE); // disabled
                        enable_dlg_items(dlg, IDC_SSH_VERSION_LABEL, IDC_SSH_VERSION_LABEL, FALSE); // disabled (2004.11.23 yutaka)

                        enable_dlg_items(dlg, IDC_HISTORY, IDC_HISTORY, FALSE); // disabled

                        return TRUE;

                case IDC_HOSTSSH:
                        enable_dlg_items(dlg, IDC_SSH_VERSION,
                                         IDC_SSH_VERSION, TRUE);
                        goto hostssh_enabled;

                case IDC_HOSTTELNET:
                case IDC_HOSTOTHER:
                        enable_dlg_items(dlg, IDC_SSH_VERSION, IDC_SSH_VERSION, FALSE); // disabled
hostssh_enabled:

                        GetHNRec = (PGetHNRec) GetWindowLong(dlg, DWL_USER);

                        if (IsDlgButtonChecked(dlg, IDC_HOSTTELNET)) {
                                if (GetHNRec != NULL)
                                        SetDlgItemInt(dlg, IDC_HOSTTCPPORT, GetHNRec->TelPort,
                                                      FALSE);
                        } else if (IsDlgButtonChecked(dlg, IDC_HOSTSSH)) {
                                SetDlgItemInt(dlg, IDC_HOSTTCPPORT, 22, FALSE);
                        }
                        return TRUE;

                case IDC_HOSTCOM:
                        if(HIWORD(wParam) == CBN_DROPDOWN) {
                                HWND hostcom = GetDlgItem(dlg, IDC_HOSTCOM);
                                int count = SendMessage(hostcom, CB_GETCOUNT, 0, 0);
                                int i, len, max_len = 0;
                                char *lbl;
                                HDC TmpDC = GetDC(hostcom);
                                SIZE s;
                                for (i=0; i<count; i++) {
                                        len = SendMessage(hostcom, CB_GETLBTEXTLEN, i, 0);
                                        lbl = (char *)calloc(len+1, sizeof(char));
                                        SendMessage(hostcom, CB_GETLBTEXT, i, (LPARAM)lbl);
                                        GetTextExtentPoint32(TmpDC, lbl, len, &s);
                                        if (s.cx > max_len)
                                                max_len = s.cx;
                                        free(lbl);
                                }
                                SendMessage(hostcom, CB_SETDROPPEDWIDTH,
                                                        max_len + GetSystemMetrics(SM_CXVSCROLL), 0);
                        }
                        break;

                case IDC_HOSTHELP:
                        PostMessage(GetParent(dlg), WM_USER_DLGHELP2, 0, 0);
                }
        }
        return FALSE;
}

static void UTIL_SetDialogFont()
{
        SetDialogFont(pvar->ts->SetupFName, pvar->ts->UILanguageFile, "TTSSH", "DLG_TAHOMA_FONT");
}

static BOOL PASCAL TTXGetHostName(HWND parent, PGetHNRec rec)
{
        SetDialogFont(pvar->ts->SetupFName,
                                  pvar->ts->UILanguageFile, "TTSSH", "DLG_SYSTEM_FONT");
        return (BOOL) DialogBoxParam(hInst, MAKEINTRESOURCE(IDD_HOSTDLG),
                                     parent, TTXHostDlg, (LPARAM)rec);
}

static void PASCAL TTXGetUIHooks(TTXUIHooks *hooks)
{
        *hooks->GetHostName = TTXGetHostName;
}

static void PASCAL TTXReadINIFile(PCHAR fileName, PTTSet ts)
{
        (pvar->ReadIniFile) (fileName, ts);
        read_ssh_options(pvar, fileName);
        pvar->settings = *pvar->ts_SSH;
        logputs(LOG_LEVEL_VERBOSE, "Reading INI file");
        FWDUI_load_settings(pvar);
}

static void PASCAL TTXWriteINIFile(PCHAR fileName, PTTSet ts)
{
        (pvar->WriteIniFile) (fileName, ts);
        *pvar->ts_SSH = pvar->settings;
        clear_local_settings(pvar);
        logputs(LOG_LEVEL_VERBOSE, "Writing INI file");
        write_ssh_options(pvar, fileName, pvar->ts_SSH, TRUE);
}

static void read_ssh_options_from_user_file(PTInstVar pvar,
                                            char *user_file_name)
{
        if (user_file_name[0] == '.') {
                read_ssh_options(pvar, user_file_name);
        } else {
                char buf[1024];

                get_teraterm_dir_relative_name(buf, sizeof(buf), user_file_name);
                read_ssh_options(pvar, buf);
        }

        pvar->settings = *pvar->ts_SSH;
        FWDUI_load_settings(pvar);
}

// Percent-encode������������src���f�R�[�h����dst���R�s�[�����B
// dstlen��dst���T�C�Y�B�����������������������A�����������������������B
static void percent_decode(char *dst, int dstlen, char *src) {
        if (src == NULL || dst == NULL || dstlen < 1) {
                return;
        }

        while (*src != 0 && dstlen > 1) {
                if (*src == '%' && isxdigit(*(src+1)) && isxdigit(*(src+2))) {
                        src++; *dst  = (isalpha(*src) ? (*src|0x20) - 'a' + 10 : *src - '0') << 4;
                        src++; *dst |= (isalpha(*src) ? (*src|0x20) - 'a' + 10 : *src - '0');
                        src++; dst++;
                }
                else {
                        *dst++ = *src++;
                }
                dstlen--;
        }
        *dst = 0;
        return;
}

void add_forward_param(PTInstVar pvar, char *param)
{
        if (pvar->settings.DefaultForwarding[0] == 0) {
                strncpy_s(pvar->settings.DefaultForwarding,
                          sizeof(pvar->settings.DefaultForwarding),
                          param, _TRUNCATE);
        } else {
                strncat_s(pvar->settings.DefaultForwarding,
                          sizeof(pvar->settings.DefaultForwarding),
                          ";", _TRUNCATE);
                strncat_s(pvar->settings.DefaultForwarding,
                          sizeof(pvar->settings.DefaultForwarding),
                          param, _TRUNCATE);
        }
}

static void PASCAL TTXParseParam(PCHAR param, PTTSet ts, PCHAR DDETopic) {
        int param_len=strlen(param);
        int opt_len = param_len+1;
        char *option = (char *)calloc(opt_len, sizeof(char));
        char *option2 = (char *)calloc(opt_len, sizeof(char));
        int action;
        PCHAR start, cur, next;
        size_t i;

        if (pvar->hostdlg_activated) {
                pvar->settings.Enabled = pvar->hostdlg_Enabled;
        }

        /* the first term shuld be executable filename of Tera Term */
        start = GetParam(option, opt_len, param);

        cur = start;
        while (next = GetParam(option, opt_len, cur)) {
                DequoteParam(option, opt_len, option);
                action = OPTION_NONE;

                if ((option[0] == '-' || option[0] == '/')) {
                        if (MATCH_STR(option + 1, "ssh") == 0) {
                                if (MATCH_STR(option + 4, "-f=") == 0) {
                                        strncpy_s(option2, opt_len, option + 7, _TRUNCATE);
                                        read_ssh_options_from_user_file(pvar, option2);
                                        action = OPTION_CLEAR;
                                } else if (MATCH_STR(option + 4, "-consume=") == 0) {
                                        strncpy_s(option2, opt_len, option + 13, _TRUNCATE);
                                        read_ssh_options_from_user_file(pvar, option2);
                                        DeleteFile(option2);
                                        action = OPTION_CLEAR;
                                }

                        // ttermpro.exe �� /F= �w������ TTSSH ������������ (2006.10.11 maya)
                        } else if (MATCH_STR_I(option + 1, "f=") == 0) {
                                strncpy_s(option2, opt_len, option + 3, _TRUNCATE);
                                read_ssh_options_from_user_file(pvar, option2);
                                // Tera Term���������������K�v������������������
                        }
                }

                switch (action) {
                        case OPTION_CLEAR:
                                memset(cur, ' ', next-cur);
                                break;
                        case OPTION_REPLACE:
                                memset(cur, ' ', next-cur);
                                memcpy(cur+1, option, strlen(option));
                                break;
                }

                cur = next;
        }

        cur = start;
        while (next = GetParam(option, opt_len, cur)) { 
                DequoteParam(option, opt_len, option);
                action = OPTION_NONE;

                if ((option[0] == '-' || option[0] == '/')) {
                        action = OPTION_CLEAR;
                        if (MATCH_STR(option + 1, "ssh") == 0) {
                                if (option[4] == 0) {
                                        pvar->settings.Enabled = 1;
                                } else if (MATCH_STR(option + 4, "-L") == 0 ||
                                           MATCH_STR(option + 4, "-R") == 0 ||
                                           MATCH_STR(option + 4, "-D") == 0) {
                                        char *p = option + 5;
                                        option2[0] = *p;
                                        i = 1;
                                        while (*++p) {
                                                if (*p == ';' || *p == ',') {
                                                        option2[i] = 0;
                                                        add_forward_param(pvar, option2);
                                                        i = 1;
                                                }
                                                else {
                                                        option2[i++] = *p;
                                                }
                                        }
                                        if (i > 1) {
                                                option2[i] = 0;
                                                add_forward_param(pvar, option2);
                                        }
                                } else if (MATCH_STR(option + 4, "-X") == 0) {
                                        add_forward_param(pvar, "X");
                                        if (option+6 != 0) {
                                                strncpy_s(pvar->settings.X11Display,
                                                          sizeof(pvar->settings.X11Display),
                                                          option + 6, _TRUNCATE);
                                        }
                                } else if (strcmp(option + 4, "-v") == 0) {
                                        pvar->settings.LogLevel = LOG_LEVEL_VERBOSE;
                                } else if (_stricmp(option + 4, "-autologin") == 0 ||
                                           _stricmp(option + 4, "-autologon") == 0) {
                                        pvar->settings.TryDefaultAuth = TRUE;
                                } else if (MATCH_STR_I(option + 4, "-agentconfirm=") == 0) {
                                        if ((_stricmp(option+18, "off") == 0) ||
                                            (_stricmp(option+18, "no") == 0) ||
                                            (_stricmp(option+18, "false") == 0) ||
                                            (_stricmp(option+18, "0") == 0) ||
                                            (_stricmp(option+18, "n") == 0)) {
                                                pvar->settings.ForwardAgentConfirm = 0;
                                        }
                                        else {
                                                pvar->settings.ForwardAgentConfirm = 1;
                                        }
                                } else if (strcmp(option + 4, "-a") == 0) {
                                        pvar->settings.ForwardAgent = FALSE;
                                } else if (strcmp(option + 4, "-A") == 0) {
                                        pvar->settings.ForwardAgent = TRUE;

                                } else if (MATCH_STR(option + 4, "-C=") == 0) {
                                        pvar->settings.CompressionLevel = atoi(option+7);
                                        if (pvar->settings.CompressionLevel < 0) {
                                                pvar->settings.CompressionLevel = 0;
                                        }
                                        else if (pvar->settings.CompressionLevel > 9) {
                                                pvar->settings.CompressionLevel = 9;
                                        }
                                } else if (strcmp(option + 4, "-C") == 0) {
                                        pvar->settings.CompressionLevel = 6;
                                } else if (strcmp(option + 4, "-c") == 0) {
                                        pvar->settings.CompressionLevel = 0;
                                } else if (MATCH_STR_I(option + 4, "-icon=") == 0) {
                                        if ((_stricmp(option+10, "old") == 0) ||
                                            (_stricmp(option+10, "yellow") == 0) ||
                                            (_stricmp(option+10, "securett_yellow") == 0)) {
                                                pvar->settings.IconID = IDI_SECURETT_YELLOW;
                                        }
                                        else if ((_stricmp(option+10, "green") == 0) ||
                                                 (_stricmp(option+10, "securett_green") == 0)) {
                                                pvar->settings.IconID = IDI_SECURETT_GREEN;
                                        }
                                        else {
                                                pvar->settings.IconID = IDI_SECURETT;
                                        }
                                } else if (MATCH_STR(option + 4, "-subsystem=") == 0) {
                                        pvar->use_subsystem = TRUE;
                                        strncpy_s(pvar->subsystem_name,
                                                  sizeof(pvar->subsystem_name),
                                                  option + 15, _TRUNCATE);
                                } else if (strcmp(option + 4, "-N") == 0) {
                                        pvar->nosession = TRUE;

                                // /ssh1 �� /ssh2 �I�v�V�������V�K���� (2006.9.16 maya)
                                } else if (strcmp(option + 4, "1") == 0) {
                                        pvar->settings.Enabled = 1;
                                        pvar->settings.ssh_protocol_version = 1;
                                } else if (strcmp(option + 4, "2") == 0) {
                                        pvar->settings.Enabled = 1;
                                        pvar->settings.ssh_protocol_version = 2;

                                } else {
                                        char buf[1024];

                                        UTIL_get_lang_msg("MSG_UNKNOWN_OPTION_ERROR", pvar,
                                                          "Unrecognized command-line option: %s");
                                        _snprintf_s(buf, sizeof(buf), _TRUNCATE, pvar->ts->UIMsg, option);

                                        MessageBox(NULL, buf, "TTSSH", MB_OK | MB_ICONEXCLAMATION);
                                }

                        // ttermpro.exe �� /T= �w�������p�������A������������ (2006.10.19 maya)
                        } else if (MATCH_STR_I(option + 1, "t=") == 0) {
                                if (strcmp(option + 3, "2") == 0) {
                                        pvar->settings.Enabled = 1;
                                        // /t=2��ttssh�������g������������
                                } else {
                                        pvar->settings.Enabled = 0;
                                        action = OPTION_NONE;   // Tera Term������������������������
                                }

                        // /1 ������ /2 �I�v�V�������V�K���� (2004.10.3 yutaka)
                        } else if (strcmp(option + 1, "1") == 0) {
                                // command line: /ssh /1 is SSH1 only
                                pvar->settings.ssh_protocol_version = 1;

                        } else if (strcmp(option + 1, "2") == 0) {
                                // command line: /ssh /2 is SSH2 & SSH1
                                pvar->settings.ssh_protocol_version = 2;

                        } else if (strcmp(option + 1, "nossh") == 0) {
                                // '/nossh' �I�v�V�����������B
                                // TERATERM.INI ��SSH���L�������������������A������Cygterm���N��������������
                                // �����������������B(2004.10.11 yutaka)
                                pvar->settings.Enabled = 0;

                        } else if (strcmp(option + 1, "telnet") == 0) {
                                // '/telnet' ���w�������������������� '/nossh' ��������
                                // SSH������������ (2006.9.16 maya)
                                pvar->settings.Enabled = 0;
                                // Tera Term �� Telnet �t���O���t����
                                pvar->ts->Telnet = 1;

                        } else if (MATCH_STR(option + 1, "auth=") == 0) {
                                // SSH2�������O�C���I�v�V����������
                                //
                                // SYNOPSIS: /ssh /auth=passowrd /user=���[�U�� /passwd=�p�X���[�h
                                //           /ssh /auth=publickey /user=���[�U�� /passwd=�p�X���[�h /keyfile=�p�X
                                // EXAMPLE: /ssh /auth=password /user=nike /passwd="a b""c"  ; �p�X���[�h: �ua b"c�v
                                //          /ssh /auth=publickey /user=foo /passwd=bar /keyfile=d:\tmp\id_rsa
                                // NOTICE: �p�X���[�h���p�X���������Z�~�R���������������������_�u���N�H�[�g " ������
                                //         �p�X���[�h���_�u���N�H�[�g�����������������A�������_�u���N�H�[�g "" ���u��������
                                //
                                pvar->ssh2_autologin = 1; // for SSH2 (2004.11.30 yutaka)

                                if (_stricmp(option + 6, "password") == 0) { // �p�X���[�h
                                        //pvar->auth_state.cur_cred.method = SSH_AUTH_PASSWORD;
                                        pvar->ssh2_authmethod = SSH_AUTH_PASSWORD;

                                } else if (_stricmp(option + 6, "keyboard-interactive") == 0) { // keyboard-interactive�F��
                                        //pvar->auth_state.cur_cred.method = SSH_AUTH_TIS;
                                        pvar->ssh2_authmethod = SSH_AUTH_TIS;

                                } else if (_stricmp(option + 6, "challenge") == 0) { // keyboard-interactive�F��
                                        //pvar->auth_state.cur_cred.method = SSH_AUTH_TIS;
                                        pvar->ssh2_authmethod = SSH_AUTH_TIS;

                                } else if (_stricmp(option + 6, "publickey") == 0) { // ���J���F��
                                        //pvar->auth_state.cur_cred.method = SSH_AUTH_RSA;
                                        pvar->ssh2_authmethod = SSH_AUTH_RSA;

                                } else if (_stricmp(option + 6, "pageant") == 0) { // ���J���F�� by Pageant
                                        //pvar->auth_state.cur_cred.method = SSH_AUTH_RSA;
                                        pvar->ssh2_authmethod = SSH_AUTH_PAGEANT;

                                } else {
                                        // TODO:
                                }

                        } else if (MATCH_STR(option + 1, "user=") == 0) {
                                _snprintf_s(pvar->ssh2_username, sizeof(pvar->ssh2_username), _TRUNCATE, "%s", option+6);

                        } else if (MATCH_STR(option + 1, "passwd=") == 0) {
                                _snprintf_s(pvar->ssh2_password, sizeof(pvar->ssh2_password), _TRUNCATE, "%s", option+8);

                        } else if (MATCH_STR(option + 1, "keyfile=") == 0) {
                                _snprintf_s(pvar->ssh2_keyfile, sizeof(pvar->ssh2_keyfile), _TRUNCATE, "%s", option+9);

                        } else if (strcmp(option + 1, "ask4passwd") == 0) {
                                // �p�X���[�h������ (2006.9.18 maya)
                                pvar->ask4passwd = 1;

                        } else if (strcmp(option + 1, "nosecuritywarning") == 0) {
                                // known_hosts�`�F�b�N���������B���Y�I�v�V�������g�����A�Z�L�����e�B������������
                                // �����A�B���I�v�V���������������B
                                // (2009.10.4 yutaka)
                                pvar->nocheck_known_hosts = TRUE;

                        }
                        else {  // Other (not ttssh) option
                                action = OPTION_NONE;   // ttssh���I�v�V������������������������
                        }

                        // �p�X���[�h�������������������O�C��������������
                        // /auth ���F�����\�b�h���w�������������p������ (2006.9.18 maya)
                        if (pvar->ask4passwd == 1) {
                                pvar->ssh2_autologin = 0;
                        }

                }
                else if ((MATCH_STR_I(option, "ssh://") == 0) ||
                         (MATCH_STR_I(option, "ssh1://") == 0) ||
                         (MATCH_STR_I(option, "ssh2://") == 0) ||
                         (MATCH_STR_I(option, "slogin://") == 0) ||
                         (MATCH_STR_I(option, "slogin1://") == 0) ||
                         (MATCH_STR_I(option, "slogin2://") == 0)) {
                        //
                        // ssh://user@host/ ����URL�`�����T�|�[�g
                        // ���{�I�������� telnet:// URL��������
                        //
                        // �Q�l:
                        //   RFC3986: Uniform Resource Identifier (URI): Generic Syntax
                        //   RFC4248: The telnet URI Scheme
                        //
                        char *p, *p2, *p3;
                        int optlen, hostlen;

                        optlen = strlen(option);

                        // ������':'���O�����������������������A������ssh�v���g�R���o�[�W������������
                        p = _mbschr(option, ':');
                        switch (*(p-1)) {
                        case '1':
                                pvar->settings.ssh_protocol_version = 1;
                                break;
                        case '2':
                                pvar->settings.ssh_protocol_version = 2;
                                break;
                        }

                        // authority part �����|�C���^������
                        p += 3;

                        // path part ������������
                        if ((p2 = _mbschr(p, '/')) != NULL) {
                                *p2 = 0;
                        }

                        // '@'�������������A���������O�����[�U����
                        if ((p2 = _mbschr(p, '@')) != NULL) {
                                *p2 = 0;
                                // ':'���~���p�X���[�h
                                if ((p3 = _mbschr(p, ':')) != NULL) {
                                        *p3 = 0;
                                        percent_decode(pvar->ssh2_password, sizeof(pvar->ssh2_password), p3 + 1);
                                }
                                percent_decode(pvar->ssh2_username, sizeof(pvar->ssh2_username), p);
                                // p �� host part ������('@'����������)����������������
                                p = p2 + 1;
                        }

                        // host part �� option �����������������Ascheme part ������
                        // port�w����������������port���������������������m��������������
                        hostlen = strlen(p);
                        memmove_s(option, optlen, p, hostlen);
                        option[hostlen] = 0;

                        // �|�[�g�w������������":22"������
                        if (option[0] == '[' && option[hostlen-1] == ']' ||     // IPv6 raw address without port
                            option[0] != '[' && _mbschr(option, ':') == NULL) { // hostname or IPv4 raw address without port
                                memcpy_s(option+hostlen, optlen-hostlen, ":22", 3);
                                hostlen += 3;
                        }

                        // �|�[�g�w�����������������X�y�[�X������
                        memset(option+hostlen, ' ', optlen-hostlen);

                        pvar->settings.Enabled = 1;

                        action = OPTION_REPLACE;
                }
                else if (_mbschr(option, '@') != NULL) {
                        //
                        // user@host �`�����T�|�[�g
                        //   ����������ssh�������T�|�[�g�����A���[�U����ttssh���������B
                        //   (ssh�������O --  ttssh�������W������������)
                        //   �����I��telnet authentication option���T�|�[�g��������
                        //   Tera Term�{�����������������������\���B
                        //
                        char *p;
                        p = _mbschr(option, '@');
                        *p = 0;

                        strncpy_s(pvar->ssh2_username, sizeof(pvar->ssh2_username), option, _TRUNCATE);

                        // ���[�U���������X�y�[�X�������B
                        // ������TTX��Tera Term�{�������������������X�y�[�X�����������������A
                        // �z�X�g�����������l�����K�v�������B
                        memset(option, ' ', p-option+1);

                        action = OPTION_REPLACE;
                }


                switch (action) {
                        case OPTION_CLEAR:
                                memset(cur, ' ', next-cur);
                                break;
                        case OPTION_REPLACE:
                                memset(cur, ' ', next-cur);
                                memcpy(cur+1, option, strlen(option));
                                break;
                }

                cur = next;
        }

        free(option);

        FWDUI_load_settings(pvar);

        (pvar->ParseParam) (param, ts, DDETopic);
}

static void PASCAL TTXGetSetupHooks(TTXSetupHooks *hooks)
{
        pvar->ReadIniFile = *hooks->ReadIniFile;
        pvar->WriteIniFile = *hooks->WriteIniFile;
        pvar->ParseParam = *hooks->ParseParam;

        *hooks->ReadIniFile = TTXReadINIFile;
        *hooks->WriteIniFile = TTXWriteINIFile;
        *hooks->ParseParam = TTXParseParam;
}

static void PASCAL TTXSetWinSize(int rows, int cols)
{
        SSH_notify_win_size(pvar, cols, rows);
}

static void insertMenuBeforeItem(HMENU menu, WORD beforeItemID, WORD flags,
                                 WORD newItemID, char *text)
{
        int i, j;

        for (i = GetMenuItemCount(menu) - 1; i >= 0; i--) {
                HMENU submenu = GetSubMenu(menu, i);

                for (j = GetMenuItemCount(submenu) - 1; j >= 0; j--) {
                        if (GetMenuItemID(submenu, j) == beforeItemID) {
                                InsertMenu(submenu, j, MF_BYPOSITION | flags, newItemID, text);
                                return;
                        }
                }
        }
}

#define GetFileMenu(menu)       GetSubMenuByChildID(menu, 50110) // ID_FILE_NEWCONNECTION
#define GetEditMenu(menu)       GetSubMenuByChildID(menu, 50210) // ID_EDIT_COPY2
#define GetSetupMenu(menu)      GetSubMenuByChildID(menu, 50310) // ID_SETUP_TERMINAL
#define GetControlMenu(menu)    GetSubMenuByChildID(menu, 50410) // ID_CONTROL_RESETTERMINAL
#define GetHelpMenu(menu)       GetSubMenuByChildID(menu, 50990) // ID_HELP_ABOUT

HMENU GetSubMenuByChildID(HMENU menu, UINT id) {
  int i, j, items, subitems, cur_id;
  HMENU m;

  items = GetMenuItemCount(menu);

  for (i=0; i<items; i++) {
    if (m = GetSubMenu(menu, i)) {
      subitems = GetMenuItemCount(m);
      for (j=0; j<subitems; j++) {
        cur_id = GetMenuItemID(m, j);
        if (cur_id == id) {
          return m;
        }
      }
    }
  }
  return NULL;
}

static void PASCAL TTXModifyMenu(HMENU menu)
{
        pvar->FileMenu = GetFileMenu(menu);

        /* inserts before ID_HELP_ABOUT */
        UTIL_get_lang_msg("MENU_ABOUT", pvar, "About &TTSSH...");
        insertMenuBeforeItem(menu, 50990, MF_ENABLED, ID_ABOUTMENU, pvar->ts->UIMsg);

        /* inserts before ID_SETUP_TCPIP */
        UTIL_get_lang_msg("MENU_SSH", pvar, "SS&H...");
        insertMenuBeforeItem(menu, 50360, MF_ENABLED, ID_SSHSETUPMENU, pvar->ts->UIMsg);
        /* inserts before ID_SETUP_TCPIP */
        UTIL_get_lang_msg("MENU_SSH_AUTH", pvar, "SSH &Authentication...");
        insertMenuBeforeItem(menu, 50360, MF_ENABLED, ID_SSHAUTHSETUPMENU, pvar->ts->UIMsg);
        /* inserts before ID_SETUP_TCPIP */
        UTIL_get_lang_msg("MENU_SSH_FORWARD", pvar, "SSH F&orwarding...");
        insertMenuBeforeItem(menu, 50360, MF_ENABLED, ID_SSHFWDSETUPMENU, pvar->ts->UIMsg);
        UTIL_get_lang_msg("MENU_SSH_KEYGEN", pvar, "SSH KeyGe&nerator...");
        insertMenuBeforeItem(menu, 50360, MF_ENABLED, ID_SSHKEYGENMENU, pvar->ts->UIMsg);

        /* inserts before ID_FILE_CHANGEDIR */
        UTIL_get_lang_msg("MENU_SSH_SCP", pvar, "SS&H SCP...");
        insertMenuBeforeItem(menu, 50170, MF_GRAYED, ID_SSHSCPMENU, pvar->ts->UIMsg);
}

static void PASCAL TTXModifyPopupMenu(HMENU menu) {
        if (menu == pvar->FileMenu) {
                if (pvar->cv->Ready && pvar->socket != INVALID_SOCKET)
                        EnableMenuItem(menu, ID_SSHSCPMENU, MF_BYCOMMAND | MF_ENABLED);
                else
                        EnableMenuItem(menu, ID_SSHSCPMENU, MF_BYCOMMAND | MF_GRAYED);
        }
}

static void about_dlg_set_abouttext(PTInstVar pvar, HWND dlg, digest_algorithm dgst_alg)
{
        char buf[1024], buf2[2048];
        char *fp = NULL;

        // TTSSH�_�C�A���O���\������SSH������������ (2004.10.30 yutaka)
        if (pvar->socket != INVALID_SOCKET) {
                buf2[0] = '\0';

                if (SSHv1(pvar)) {
                        UTIL_get_lang_msg("DLG_ABOUT_SERVERID", pvar, "Server ID:");
                        strncat_s(buf2, sizeof(buf2), pvar->ts->UIMsg, _TRUNCATE);
                        strncat_s(buf2, sizeof(buf2), " ", _TRUNCATE);