source: lab.git/Dev/utvpn/utvpn-unix-v101-7101-public/src/Cedar/NM.c @ 072e48b

// SoftEther UT-VPN SourceCode
// 
// Copyright (C) 2004-2010 SoftEther Corporation.
// Copyright (C) 2004-2010 University of Tsukuba, Japan.
// Copyright (C) 2003-2010 Daiyuu Nobori.
// All Rights Reserved.
// 
// http://utvpn.tsukuba.ac.jp/
// 
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License
// version 2 as published by the Free Software Foundation.
// 
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
// 
// You should have received a copy of the GNU General Public License version 2
// along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
// 
// このファイルは GPL バージョン 2 ライセンスで公開されています。
// 誰でもこのファイルの内容を複製、改変したり、改変したバージョンを再配布
// することができます。ただし、原著作物を改変した場合は、原著作物の著作権表示
// を除去することはできません。改変した著作物を配布する場合は、改変実施者の
// 著作権表示を原著作物の著作権表示に付随して記載するようにしてください。
// 
// この SoftEther UT-VPN オープンソース・プロジェクトは、日本国の
// ソフトイーサ株式会社 (SoftEther Corporation, http://www.softether.co.jp/ )
// および筑波大学 (University of Tsukuba, http://www.tsukuba.ac.jp/ ) によって
// ホストされています。
// 本プログラムの配布者は、本プログラムを、業としての利用以外のため、
// および、試験または研究のために利用が行われることを想定して配布
// しています。
// SoftEther UT-VPN プロジェクトの Web サイトは http://utvpn.tsukuba.ac.jp/ に
// あります。
// 本ソフトウェアの不具合の修正、機能改良、セキュリティホールの修復などのコード
// の改変を行った場合で、その成果物を SoftEther UT-VPN プロジェクトに提出して
// いただける場合は、 http://utvpn.tsukuba.ac.jp/ までソースコードを送付して
// ください。SoftEther UT-VPN プロジェクトの本体リリースまたはブランチリリース
// に組み込みさせていただきます。
// 
// GPL に基づいて原著作物が提供される本ソフトウェアの改良版を配布、販売する
// 場合は、そのソースコードを GPL に基づいて誰にでも開示する義務が生じます。
// 
// 本ソフトウェアに関連する著作権、特許権、商標権はソフトイーサ株式会社
// (SoftEther Corporation) およびその他の著作権保持者が保有しています。
// ソフトイーサ株式会社等はこれらの権利を放棄していません。本ソフトウェアの
// 二次著作物を配布、販売する場合は、これらの権利を侵害しないようにご注意
// ください。
// 
// お願い: どのような通信ソフトウェアにも通常は必ず未発見の
// セキュリティホールが潜んでいます。本ソースコードをご覧いただいた結果、
// UT-VPN にセキュリティホールを発見された場合は、当該セキュリティホールの
// 情報を不特定多数に開示される前に、必ず、ソフトイーサ株式会社
// および脆弱性情報の届出を受け付ける公的機関まで通報いただき、
// 公益保護にご協力いただきますようお願い申し上げます。
// 
// ソフトイーサ株式会社は、当該セキュリティホールについて迅速に対処を
// 行い、UT-VPN および UT-VPN に関連するソフトウェアのユーザー・顧客
// を保護するための努力を行います。
// 
// ソフトイーサへの届出先: http://www.softether.co.jp/jp/contact/
// 日本国内の脆弱性情報届出受付公的機関:
//         独立行政法人 情報処理推進機構
//         http://www.ipa.go.jp/security/vuln/report/
// 
// 上記各事項について不明な点は、ソフトイーサ株式会社までご連絡ください。
// 連絡先: http://www.softether.co.jp/jp/contact/

// -----------------------------------------------
// [ChangeLog]
// 2010.05.20
//  新規リリース by SoftEther
// -----------------------------------------------

// NM.c
// Win32 用 SoftEther UT-VPN User-mode Router Manager


#ifdef  WIN32

#define SM_C
#define CM_C
#define NM_C

#define _WIN32_WINNT        0x0502
#define WINVER              0x0502
#include <winsock2.h>
#include <windows.h>
#include <wincrypt.h>
#include <wininet.h>
#include <shlobj.h>
#include <commctrl.h>
#include <Dbghelp.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <wchar.h>
#include <stdarg.h>
#include <time.h>
#include <errno.h>
#include <Mayaqua/Mayaqua.h>
#include <Cedar/Cedar.h>
#include "CMInner.h"
#include "SMInner.h"
#include "NMInner.h"
#include "../PenCore/resource.h"

// グローバル変数
static NM *nm = NULL;


// パスワード変更ダイアログ
UINT NmChangePasswordProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam, void *param)
{
    RPC *r = (RPC *)param;
    char tmp1[MAX_SIZE];
    char tmp2[MAX_SIZE];
    RPC_SET_PASSWORD t;
    // 引数チェック
    if (hWnd == NULL)
    {
        return 0;
    }

    switch (msg)
    {
    case WM_INITDIALOG:
        FormatText(hWnd, 0, r->Sock->RemoteHostname);
        FormatText(hWnd, S_TITLE, r->Sock->RemoteHostname);
        break;

    case WM_COMMAND:
        GetTxtA(hWnd, E_PASSWORD1, tmp1, sizeof(tmp1));
        GetTxtA(hWnd, E_PASSWORD2, tmp2, sizeof(tmp2));
        switch (LOWORD(wParam))
        {
        case E_PASSWORD1:
        case E_PASSWORD2:
            SetEnable(hWnd, IDOK, StrCmp(tmp1, tmp2) == 0);
            break;
        }

        switch (wParam)
        {
        case IDOK:
            Zero(&t, sizeof(t));
            Hash(t.HashedPassword, tmp1, StrLen(tmp1), true);

            if (CALL(hWnd, NcSetPassword(r, &t)))
            {
                MsgBox(hWnd, MB_ICONINFORMATION, _UU("NM_PASSWORD_MSG"));
                EndDialog(hWnd, true);
            }
            break;

        case IDCANCEL:
            Close(hWnd);
            break;
        }
        break;

    case WM_CLOSE:
        EndDialog(hWnd, false);
        break;
    }

    return 0;
}

// パスワードの変更
void NmChangePassword(HWND hWnd, RPC *r)
{
    // 引数チェック
    if (hWnd == NULL || r == NULL)
    {
        return;
    }

    Dialog(hWnd, D_NM_CHANGE_PASSWORD, NmChangePasswordProc, r);
}

// DHCP 列挙初期化
void NmDhcpInit(HWND hWnd, SM_HUB *r)
{
    // 引数チェック
    if (hWnd == NULL || r == NULL)
    {
        return;
    }

    SetIcon(hWnd, 0, ICO_INTERNET);

    LvInit(hWnd, L_TABLE);
    LvInsertColumn(hWnd, L_TABLE, 0, _UU("DHCP_DHCP_ID"), 50);
    LvInsertColumn(hWnd, L_TABLE, 1, _UU("DHCP_LEASED_TIME"), 200);
    LvInsertColumn(hWnd, L_TABLE, 2, _UU("DHCP_EXPIRE_TIME"), 200);
    LvInsertColumn(hWnd, L_TABLE, 3, _UU("DHCP_MAC_ADDRESS"), 130);
    LvInsertColumn(hWnd, L_TABLE, 4, _UU("DHCP_IP_ADDRESS"), 100);
    LvInsertColumn(hWnd, L_TABLE, 5, _UU("DHCP_HOSTNAME"), 150);

    NmDhcpRefresh(hWnd, r);
}

// DHCP 列挙
void NmDhcpRefresh(HWND hWnd, SM_HUB *r)
{
    LVB *b;
    RPC_ENUM_DHCP t;
    UINT i;
    // 引数チェック
    if (hWnd == NULL || r == NULL)
    {
        Close(hWnd);
        return;
    }

    Zero(&t, sizeof(t));

    StrCpy(t.HubName, sizeof(t.HubName), r->HubName);

    if (CALL(hWnd, ScEnumDHCP(r->Rpc, &t)) == false)
    {
        return;
    }

    b = LvInsertStart();
    
    for (i = 0;i < t.NumItem;i++)
    {
        RPC_ENUM_DHCP_ITEM *e = &t.Items[i];
        wchar_t tmp0[MAX_SIZE];
        wchar_t tmp1[MAX_SIZE];
        wchar_t tmp2[MAX_SIZE];
        wchar_t tmp3[MAX_SIZE];
        wchar_t tmp4[MAX_SIZE];
        wchar_t tmp5[MAX_SIZE];
        char str[MAX_SIZE];

        // ID
        UniToStru(tmp0, e->Id);

        // 時刻
        GetDateTimeStrEx64(tmp1, sizeof(tmp1), SystemToLocal64(e->LeasedTime), NULL);
        GetDateTimeStrEx64(tmp2, sizeof(tmp2), SystemToLocal64(e->ExpireTime), NULL);

        MacToStr(str, sizeof(str), e->MacAddress);
        StrToUni(tmp3, sizeof(tmp3), str);

        IPToStr32(str, sizeof(str), e->IpAddress);
        StrToUni(tmp4, sizeof(tmp4), str);

        StrToUni(tmp5, sizeof(tmp5), e->Hostname);

        LvInsertAdd(b, ICO_INTERNET, NULL, 6,
            tmp0, tmp1, tmp2, tmp3, tmp4, tmp5);
    }

    LvInsertEnd(b, hWnd, L_TABLE);

    FreeRpcEnumDhcp(&t);
}

// DHCP 列挙プロシージャ
UINT NmDhcpProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam, void *param)
{
    SM_HUB *r = (SM_HUB *)param;
    // 引数チェック
    if (hWnd == NULL)
    {
        return 0;
    }

    switch (msg)
    {
    case WM_INITDIALOG:
        NmDhcpInit(hWnd, r);
        SetTimer(hWnd, 1, NM_DHCP_REFRESH_TIME, NULL);
        break;

    case WM_COMMAND:
        switch (wParam)
        {
        case IDCANCEL:
            Close(hWnd);
            break;

        case B_REFRESH:
            NmDhcpRefresh(hWnd, r);
            break;
        }
        break;

    case WM_TIMER:
        switch (wParam)
        {
        case 1:
            KillTimer(hWnd, 1);
            NmDhcpRefresh(hWnd, r);
            SetTimer(hWnd, 1, NM_DHCP_REFRESH_TIME, NULL);
            break;
        }
        break;

    case WM_CLOSE:
        EndDialog(hWnd, false);
        break;
    }

    LvStandardHandler(hWnd, msg, wParam, lParam, L_TABLE);

    return 0;
}

// DHCP 列挙
void NmDhcp(HWND hWnd, SM_HUB *r)
{
    // 引数チェック
    if (hWnd == NULL || r == NULL)
    {
        return;
    }

    Dialog(hWnd, D_NM_DHCP, NmDhcpProc, r);
}


// NAT 列挙初期化
void NmNatInit(HWND hWnd, SM_HUB *r)
{
    // 引数チェック
    if (hWnd == NULL || r == NULL)
    {
        return;
    }

    SetIcon(hWnd, 0, ICO_PROTOCOL);

    LvInit(hWnd, L_TABLE);
    LvInsertColumn(hWnd, L_TABLE, 0, _UU("NM_NAT_ID"), 50);
    LvInsertColumn(hWnd, L_TABLE, 1, _UU("NM_NAT_PROTOCOL"), 80);
    LvInsertColumn(hWnd, L_TABLE, 2, _UU("NM_NAT_SRC_HOST"), 100);
    LvInsertColumn(hWnd, L_TABLE, 3, _UU("NM_NAT_SRC_PORT"), 80);
    LvInsertColumn(hWnd, L_TABLE, 4, _UU("NM_NAT_DST_HOST"), 150);
    LvInsertColumn(hWnd, L_TABLE, 5, _UU("NM_NAT_DST_PORT"), 80);
    LvInsertColumn(hWnd, L_TABLE, 6, _UU("NM_NAT_CREATED"), 200);
    LvInsertColumn(hWnd, L_TABLE, 7, _UU("NM_NAT_LAST_COMM"), 200);
    LvInsertColumn(hWnd, L_TABLE, 8, _UU("NM_NAT_SIZE"), 120);
    LvInsertColumn(hWnd, L_TABLE, 9, _UU("NM_NAT_TCP_STATUS"), 120);

    NmNatRefresh(hWnd, r);
}

// NAT 列挙
void NmNatRefresh(HWND hWnd, SM_HUB *r)
{
    LVB *b;
    RPC_ENUM_NAT t;
    UINT i;
    // 引数チェック
    if (hWnd == NULL || r == NULL)
    {
        return;
    }

    Zero(&t, sizeof(t));

    StrCpy(t.HubName, sizeof(t.HubName), r->HubName);

    if (CALL(hWnd, ScEnumNAT(r->Rpc, &t)) == false)
    {
        Close(hWnd);
        return;
    }

    b = LvInsertStart();
    
    for (i = 0;i < t.NumItem;i++)
    {
        RPC_ENUM_NAT_ITEM *e = &t.Items[i];
        wchar_t tmp0[MAX_SIZE];
        wchar_t *tmp1 = L"";
        wchar_t tmp2[MAX_SIZE];
        wchar_t tmp3[MAX_SIZE];
        wchar_t tmp4[MAX_SIZE];
        wchar_t tmp5[MAX_SIZE];
        wchar_t tmp6[MAX_SIZE];
        wchar_t tmp7[MAX_SIZE];
        wchar_t tmp8[MAX_SIZE];
        wchar_t *tmp9 = L"";
        char v1[128], v2[128];

        // ID
        UniToStru(tmp0, e->Id);

        // プロトコル
        switch (e->Protocol)
        {
        case NAT_TCP:
            tmp1 = _UU("NM_NAT_PROTO_TCP");
            break;
        case NAT_UDP:
            tmp1 = _UU("NM_NAT_PROTO_UDP");
            break;
        case NAT_DNS:
            tmp1 = _UU("NM_NAT_PROTO_DNS");
            break;
        }

        // 接続元ホスト
        StrToUni(tmp2, sizeof(tmp2), e->SrcHost);

        // 接続元ポート
        UniToStru(tmp3, e->SrcPort);

        // 接続先ホスト
        StrToUni(tmp4, sizeof(tmp4), e->DestHost);

        // 接続先ポート
        UniToStru(tmp5, e->DestPort);

        // セッション作成日時
        GetDateTimeStrEx64(tmp6, sizeof(tmp6), SystemToLocal64(e->CreatedTime), NULL);

        // 最終通信日時
        GetDateTimeStrEx64(tmp7, sizeof(tmp7), SystemToLocal64(e->LastCommTime), NULL);

        // 通信量
        ToStr3(v1, sizeof(v1), e->RecvSize);
        ToStr3(v2, sizeof(v2), e->SendSize);
        UniFormat(tmp8, sizeof(tmp8), L"%S / %S", v1, v2);

        // TCP 状態
        if (e->Protocol == NAT_TCP)
        {
            switch (e->TcpStatus)
            {
            case NAT_TCP_CONNECTING:
                tmp9 = _UU("NAT_TCP_CONNECTING");
                break;
            case NAT_TCP_SEND_RESET:
                tmp9 = _UU("NAT_TCP_SEND_RESET");
                break;
            case NAT_TCP_CONNECTED:
                tmp9 = _UU("NAT_TCP_CONNECTED");
                break;
            case NAT_TCP_ESTABLISHED:
                tmp9 = _UU("NAT_TCP_ESTABLISHED");
                break;
            case NAT_TCP_WAIT_DISCONNECT:
                tmp9 = _UU("NAT_TCP_WAIT_DISCONNECT");
                break;
            }
        }

        LvInsertAdd(b, ICO_PROTOCOL, NULL, 10,
            tmp0, tmp1, tmp2, tmp3, tmp4, tmp5, tmp6, tmp7, tmp8, tmp9);
    }

    LvInsertEnd(b, hWnd, L_TABLE);

    FreeRpcEnumNat(&t);
}

// NAT 列挙プロシージャ
UINT NmNatProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam, void *param)
{
    SM_HUB *r = (SM_HUB *)param;
    // 引数チェック
    if (hWnd == NULL)
    {
        return 0;
    }

    switch (msg)
    {
    case WM_INITDIALOG:
        NmNatInit(hWnd, r);
        SetTimer(hWnd, 1, NM_NAT_REFRESH_TIME, NULL);
        break;

    case WM_COMMAND:
        switch (wParam)
        {
        case IDCANCEL:
            Close(hWnd);
            break;

        case B_REFRESH:
            NmNatRefresh(hWnd, r);
            break;
        }
        break;

    case WM_TIMER:
        switch (wParam)
        {
        case 1:
            KillTimer(hWnd, 1);
            NmNatRefresh(hWnd, r);
            SetTimer(hWnd, 1, NM_NAT_REFRESH_TIME, NULL);
            break;
        }
        break;

    case WM_CLOSE:
        EndDialog(hWnd, false);
        break;
    }

    LvStandardHandler(hWnd, msg, wParam, lParam, L_TABLE);

    return 0;
}

// NAT 列挙
void NmNat(HWND hWnd, SM_HUB *r)
{
    // 引数チェック
    if (hWnd == NULL || r == NULL)
    {
        return;
    }

    Dialog(hWnd, D_NM_NAT, NmNatProc, r);
}

// ルーターの情報の表示
bool NmInfo(HWND hWnd, SM_SERVER *s, void *param)
{
    LVB *b;
    RPC_NAT_INFO t;
    wchar_t tmp[MAX_SIZE];
    // 引数チェック
    if (hWnd == NULL || s == NULL)
    {
        return false;
    }

    Zero(&t, sizeof(t));

    if (CALL(hWnd, NcGetInfo(s->Rpc, &t)) == false)
    {
        return false;
    }

    b = LvInsertStart();

    StrToUni(tmp, sizeof(tmp), t.NatProductName);
    LvInsertAdd(b, ICO_ROUTER, NULL, 2, _UU("NM_INFO_PRODUCT_NAME"), tmp);

    StrToUni(tmp, sizeof(tmp), t.NatVersionString);
    LvInsertAdd(b, ICO_INFORMATION, NULL, 2, _UU("NM_INFO_VERSION_STR"), tmp);

    StrToUni(tmp, sizeof(tmp), t.NatBuildInfoString);
    LvInsertAdd(b, ICO_INFORMATION, NULL, 2, _UU("NM_INFO_BUILD_INFO"), tmp);

    StrToUni(tmp, sizeof(tmp), t.NatHostName);
    LvInsertAdd(b, ICO_TOWER, NULL, 2, _UU("NM_INFO_HOSTNAME"), tmp);

    // OS
    StrToUni(tmp, sizeof(tmp), t.OsInfo.OsSystemName);
    LvInsertAdd(b, ICO_MACHINE, NULL, 2, _UU("SM_OS_SYSTEM_NAME"), tmp);

    StrToUni(tmp, sizeof(tmp), t.OsInfo.OsProductName);
    LvInsertAdd(b, ICO_MACHINE, NULL, 2, _UU("SM_OS_PRODUCT_NAME"), tmp);

    if (t.OsInfo.OsServicePack != 0)
    {
        UniFormat(tmp, sizeof(tmp), _UU("SM_OS_SP_TAG"), t.OsInfo.OsServicePack);
        LvInsertAdd(b, ICO_MACHINE, NULL, 2, _UU("SM_OS_SERVICE_PACK"), tmp);
    }

    StrToUni(tmp, sizeof(tmp), t.OsInfo.OsVendorName);
    LvInsertAdd(b, ICO_MACHINE, NULL, 2, _UU("SM_OS_VENDER_NAME"), tmp);

    StrToUni(tmp, sizeof(tmp), t.OsInfo.OsVersion);
    LvInsertAdd(b, ICO_MACHINE, NULL, 2, _UU("SM_OS_VERSION"), tmp);

    StrToUni(tmp, sizeof(tmp), t.OsInfo.KernelName);
    LvInsertAdd(b, ICO_MACHINE, NULL, 2, _UU("SM_OS_KERNEL_NAME"), tmp);

    StrToUni(tmp, sizeof(tmp), t.OsInfo.KernelVersion);
    LvInsertAdd(b, ICO_MACHINE, NULL, 2, _UU("SM_OS_KERNEL_VERSION"), tmp);

    // メモリ情報
    if (t.MemInfo.TotalMemory != 0)
    {
        char vv[128];

        ToStr3(vv, sizeof(vv), t.MemInfo.TotalMemory);
        UniFormat(tmp, sizeof(tmp), _UU("SM_ST_RAM_SIZE_KB"), vv);
        LvInsertAdd(b, ICO_MEMORY, NULL, 2, _UU("SM_ST_TOTAL_MEMORY"), tmp);

        ToStr3(vv, sizeof(vv), t.MemInfo.UsedMemory);
        UniFormat(tmp, sizeof(tmp), _UU("SM_ST_RAM_SIZE_KB"), vv);
        LvInsertAdd(b, ICO_MEMORY, NULL, 2, _UU("SM_ST_USED_MEMORY"), tmp);

        ToStr3(vv, sizeof(vv), t.MemInfo.FreeMemory);
        UniFormat(tmp, sizeof(tmp), _UU("SM_ST_RAM_SIZE_KB"), vv);
        LvInsertAdd(b, ICO_MEMORY, NULL, 2, _UU("SM_ST_FREE_MEMORY"), tmp);

        ToStr3(vv, sizeof(vv), t.MemInfo.TotalPhys);
        UniFormat(tmp, sizeof(tmp), _UU("SM_ST_RAM_SIZE_KB"), vv);
        LvInsertAdd(b, ICO_MEMORY, NULL, 2, _UU("SM_ST_TOTAL_PHYS"), tmp);

        ToStr3(vv, sizeof(vv), t.MemInfo.UsedPhys);
        UniFormat(tmp, sizeof(tmp), _UU("SM_ST_RAM_SIZE_KB"), vv);
        LvInsertAdd(b, ICO_MEMORY, NULL, 2, _UU("SM_ST_USED_PHYS"), tmp);

        ToStr3(vv, sizeof(vv), t.MemInfo.FreePhys);
        UniFormat(tmp, sizeof(tmp), _UU("SM_ST_RAM_SIZE_KB"), vv);
        LvInsertAdd(b, ICO_MEMORY, NULL, 2, _UU("SM_ST_FREE_PHYS"), tmp);
    }

    LvInsertEnd(b, hWnd, L_STATUS);

    FreeRpcNatInfo(&t);

    return true;
}

// ルータの状況の表示
bool NmStatus(HWND hWnd, SM_SERVER *s, void *param)
{
    LVB *b;
    RPC_NAT_STATUS t;
    wchar_t tmp[MAX_SIZE];
    SM_HUB *h = (SM_HUB *)param;
    // 引数チェック
    if (hWnd == NULL || s == NULL)
    {
        return false;
    }

    Zero(&t, sizeof(t));

    StrCpy(t.HubName, sizeof(t.HubName), h->HubName);

    if (CALL(hWnd, ScGetSecureNATStatus(s->Rpc, &t)) == false)
    {
        return false;
    }

    b = LvInsertStart();

    StrToUni(tmp, sizeof(tmp), h->HubName);
    LvInsertAdd(b, ICO_HUB, NULL, 2, _UU("SM_HUB_COLUMN_1"), tmp);

    UniFormat(tmp, sizeof(tmp), _UU("SM_SNAT_NUM_SESSION"), t.NumTcpSessions);
    LvInsertAdd(b, ICO_PROTOCOL, NULL, 2, _UU("NM_STATUS_TCP"), tmp);

    UniFormat(tmp, sizeof(tmp), _UU("SM_SNAT_NUM_SESSION"), t.NumUdpSessions);
    LvInsertAdd(b, ICO_PROTOCOL, NULL, 2, _UU("NM_STATUS_UDP"), tmp);

    UniFormat(tmp, sizeof(tmp), _UU("SM_SNAT_NUM_CLIENT"), t.NumDhcpClients);
    LvInsertAdd(b, ICO_PROTOCOL_DHCP, NULL, 2, _UU("NM_STATUS_DHCP"), tmp);

    LvInsertEnd(b, hWnd, L_STATUS);

    FreeRpcNatStatus(&t);

    return true;
}

// フォームの内容を VH_OPTION に変換
void NmEditVhOptionFormToVH(HWND hWnd, VH_OPTION *t)
{
    char tmp[MAX_SIZE];
    BUF *b;
    // 引数チェック
    if (hWnd == NULL || t == NULL)
    {
        return;
    }

    Zero(t, sizeof(VH_OPTION));

    GetTxtA(hWnd, E_MAC, tmp, sizeof(tmp));
    b = StrToBin(tmp);
    if (b != NULL)
    {
        if (b->Size == 6)
        {
            Copy(t->MacAddress, b->Buf, 6);
        }
        FreeBuf(b);
    }

    UINTToIP(&t->Ip, IpGet(hWnd, E_IP));
    UINTToIP(&t->Mask, IpGet(hWnd, E_MASK));

    t->UseNat = IsChecked(hWnd, R_USE_NAT);
    t->Mtu = GetInt(hWnd, E_MTU);
    t->NatTcpTimeout = GetInt(hWnd, E_TCP);
    t->NatUdpTimeout = GetInt(hWnd, E_UDP);

    t->UseDhcp = IsChecked(hWnd, R_USE_DHCP);
    UINTToIP(&t->DhcpLeaseIPStart, IpGet(hWnd, E_DHCP_START));
    UINTToIP(&t->DhcpLeaseIPEnd, IpGet(hWnd, E_DHCP_END));
    UINTToIP(&t->DhcpSubnetMask, IpGet(hWnd, E_DHCP_MASK));
    t->DhcpExpireTimeSpan = GetInt(hWnd, E_EXPIRES);
    UINTToIP(&t->DhcpGatewayAddress, IpGet(hWnd, E_GATEWAY));
    UINTToIP(&t->DhcpDnsServerAddress, IpGet(hWnd, E_DNS));
    GetTxtA(hWnd, E_DOMAIN, t->DhcpDomainName, sizeof(t->DhcpDomainName));
    t->SaveLog = IsChecked(hWnd, R_SAVE_LOG);
}

// 初期化
void NmEditVhOptionInit(HWND hWnd, SM_HUB *r)
{
    char tmp[MAX_SIZE];
    VH_OPTION t;
    // 引数チェック
    if (hWnd == NULL || r == NULL)
    {
        return;
    }

    FormatText(hWnd, S_TITLE, r->HubName);

    Zero(&t, sizeof(VH_OPTION));
    StrCpy(t.HubName, sizeof(t.HubName), r->HubName);
    if (CALL(hWnd, ScGetSecureNATOption(r->Rpc, &t)) == false)
    {
        EndDialog(hWnd, false);
        return;
    }

    if (GetCapsBool(r->p->CapsList, "b_virtual_nat_disabled"))
    {
        SetEnable(hWnd, R_USE_NAT, false);
        Check(hWnd, R_USE_NAT, false);
    }

    MacToStr(tmp, sizeof(tmp), t.MacAddress);
    SetTextA(hWnd, E_MAC, tmp);
    IpSet(hWnd, E_IP, IPToUINT(&t.Ip));
    IpSet(hWnd, E_MASK, IPToUINT(&t.Mask));

    Check(hWnd, R_USE_NAT, t.UseNat);
    SetIntEx(hWnd, E_MTU, t.Mtu);
    SetIntEx(hWnd, E_TCP, t.NatTcpTimeout);
    SetIntEx(hWnd, E_UDP, t.NatUdpTimeout);

    Check(hWnd, R_USE_DHCP, t.UseDhcp);
    IpSet(hWnd, E_DHCP_START, IPToUINT(&t.DhcpLeaseIPStart));
    IpSet(hWnd, E_DHCP_END, IPToUINT(&t.DhcpLeaseIPEnd));
    IpSet(hWnd, E_DHCP_MASK, IPToUINT(&t.DhcpSubnetMask));
    SetIntEx(hWnd, E_EXPIRES, t.DhcpExpireTimeSpan);

    if (IPToUINT(&t.DhcpGatewayAddress) != 0)
    {
        IpSet(hWnd, E_GATEWAY, IPToUINT(&t.DhcpGatewayAddress));
    }

    if (IPToUINT(&t.DhcpDnsServerAddress) != 0)
    {
        IpSet(hWnd, E_DNS, IPToUINT(&t.DhcpDnsServerAddress));
    }

    SetTextA(hWnd, E_DOMAIN, t.DhcpDomainName);
    Check(hWnd, R_SAVE_LOG, t.SaveLog);

    NmEditVhOptionUpdate(hWnd, r);

}

void NmEditVhOptionUpdate(HWND hWnd, SM_HUB *r)
{
    VH_OPTION t;
    bool ok = true;
    // 引数チェック
    if (hWnd == NULL || r == NULL)
    {
        return;
    }

    NmEditVhOptionFormToVH(hWnd, &t);

    if (IsZero(t.MacAddress, 6))
    {
        ok = false;
    }

    if (IPToUINT(&t.Ip) == 0 || IPToUINT(&t.Mask) == 0)
    {
        ok = false;
    }

    if (IpIsFilled(hWnd, E_IP) == false || IpIsFilled(hWnd, E_MASK) == false)
    {
        ok = false;
    }

    if (IsHostIPAddress4(&t.Ip) == false || IsSubnetMask4(&t.Mask) == false)
    {
        ok = false;
    }

    if (t.UseNat)
    {
        if (t.Mtu < 64 || t.Mtu > 1500)
        {
            ok = false;
        }

        if (t.NatTcpTimeout < (NAT_TCP_MIN_TIMEOUT / 1000) || t.NatTcpTimeout > (NAT_TCP_MAX_TIMEOUT / 1000))
        {
            ok = false;
        }

        if (t.NatUdpTimeout < (NAT_UDP_MIN_TIMEOUT / 1000) || t.NatUdpTimeout > (NAT_UDP_MAX_TIMEOUT / 1000))
        {
            ok = false;
        }
    }

    if (t.UseDhcp)
    {
        if (IpIsFilled(hWnd, E_DHCP_START) == false || IpIsFilled(hWnd, E_DHCP_END) == false ||
            IpIsFilled(hWnd, E_DHCP_MASK) == false)
        {
            ok = false;
        }

        if (IpGetFilledNum(hWnd, E_GATEWAY) != 0 && IpGetFilledNum(hWnd, E_GATEWAY) != 4)
        {
            ok = false;
        }

        if (IpGetFilledNum(hWnd, E_DNS) != 0 && IpGetFilledNum(hWnd, E_DNS) != 4)
        {
            ok = false;
        }

        if (IPToUINT(&t.DhcpLeaseIPStart) == 0 || IPToUINT(&t.DhcpLeaseIPEnd) == 0 ||
            IPToUINT(&t.DhcpSubnetMask) == 0)
        {
            ok = false;
        }

        if (t.DhcpExpireTimeSpan < 15)
        {
            ok = false;
        }

        if (Endian32(IPToUINT(&t.DhcpLeaseIPStart)) > Endian32(IPToUINT(&t.DhcpLeaseIPEnd)))
        {
            ok = false;
        }

        if (IsHostIPAddress4(&t.DhcpLeaseIPStart) == false ||
            IsHostIPAddress4(&t.DhcpLeaseIPEnd) == false)
        {
            ok = false;
        }

        if (IsSubnetMask4(&t.DhcpSubnetMask) == false)
        {
            ok = false;
        }
    }

    SetEnable(hWnd, E_MTU, t.UseNat);
    SetEnable(hWnd, E_TCP, t.UseNat);
    SetEnable(hWnd, E_UDP, t.UseNat);

    SetEnable(hWnd, E_DHCP_START, t.UseDhcp);
    SetEnable(hWnd, E_DHCP_END, t.UseDhcp);
    SetEnable(hWnd, E_DHCP_MASK, t.UseDhcp);
    SetEnable(hWnd, E_EXPIRES, t.UseDhcp);
    SetEnable(hWnd, E_GATEWAY, t.UseDhcp);
    SetEnable(hWnd, E_DNS, t.UseDhcp);
    SetEnable(hWnd, E_DOMAIN, t.UseDhcp);

    SetEnable(hWnd, IDOK, ok);
}

// OK ボタン
void NmEditVhOptionOnOk(HWND hWnd, SM_HUB *r)
{
    VH_OPTION t;
    // 引数チェック
    if (hWnd == NULL || r == NULL)
    {
        return;
    }

    NmEditVhOptionFormToVH(hWnd, &t);
    StrCpy(t.HubName, sizeof(t.HubName), r->HubName);

    if (CALL(hWnd, ScSetSecureNATOption(r->Rpc, &t)))
    {
        EndDialog(hWnd, true);
    }
}

// 仮想ホストオプション編集ダイアログ
UINT NmEditVhOptionProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam, void *param)
{
    SM_HUB *r = (SM_HUB *)param;
    // 引数チェック
    if (hWnd == NULL)
    {
        return 0;
    }

    switch (msg)
    {
    case WM_INITDIALOG:
        NmEditVhOptionInit(hWnd, r);
        break;

    case WM_COMMAND:
        switch (LOWORD(wParam))
        {
        case E_MAC:
        case E_IP:
        case E_MASK:
        case R_USE_NAT:
        case E_MTU:
        case E_TCP:
        case E_UDP:
        case R_SAVE_LOG:
        case R_USE_DHCP:
        case E_DHCP_START:
        case E_DHCP_END:
        case E_DHCP_MASK:
        case E_EXPIRES:
        case E_GATEWAY:
        case E_DNS:
        case E_DOMAIN:
            NmEditVhOptionUpdate(hWnd, r);
            break;
        }

        switch (wParam)
        {
        case IDOK:
            NmEditVhOptionOnOk(hWnd, r);
            break;

        case IDCANCEL:
            EndDialog(hWnd, false);
            break;

        case R_USE_NAT:
            if (IsChecked(hWnd, R_USE_NAT))
            {
                FocusEx(hWnd, E_MTU);
            }

            if (IsChecked(hWnd, R_USE_DHCP))
            {
                Focus(hWnd, E_DHCP_START);
            }
            break;
        }

        break;
    }

    return 0;
}

// 仮想ホストオプションの編集
void NmEditVhOption(HWND hWnd, SM_HUB *r)
{
    // 引数チェック
    if (hWnd == NULL || r == NULL)
    {
        return;
    }

    Dialog(hWnd, D_NM_OPTION, NmEditVhOptionProc, r);
}

// クライアント設定の編集
void NmEditClientConfig(HWND hWnd, RPC *r)
{
    CM_ACCOUNT a;
    RPC_CREATE_LINK t;
    bool ret = false;
    // 引数チェック
    if (hWnd == NULL || r == NULL)
    {
        return;
    }

    Zero(&a, sizeof(a));
    Zero(&t, sizeof(t));

    a.ClientOption = ZeroMalloc(sizeof(CLIENT_OPTION));
    a.NatMode = true;
    a.Rpc = r;

    if (CALLEX(hWnd, NcGetClientConfig(r, &t)) != ERR_NO_ERROR)
    {
        // 新規作成
        a.ClientOption->Port = 443;
        a.ClientOption->RetryInterval = 15;
        a.ClientOption->NumRetry = INFINITE;
        a.ClientOption->AdditionalConnectionInterval = 1;
        a.ClientOption->UseEncrypt = true;
        a.ClientOption->NoRoutingTracking = true;
        a.ClientAuth = ZeroMalloc(sizeof(CLIENT_AUTH));
        a.ClientAuth->AuthType = CLIENT_AUTHTYPE_PASSWORD;
    }
    else
    {
        // 編集
        a.EditMode = true;
        Copy(a.ClientOption, t.ClientOption, sizeof(CLIENT_OPTION));
        a.ClientAuth = CopyClientAuth(t.ClientAuth);

        FreeRpcCreateLink(&t);
    }

    ret = CmEditAccountDlg(hWnd, &a);

    Free(a.ServerCert);
    Free(a.ClientOption);
    CiFreeClientAuth(a.ClientAuth);
}

// 初期化
void NmMainDlgInit(HWND hWnd, RPC *r)
{
    // 引数チェック
    if (r == NULL || hWnd == NULL)
    {
        return;
    }

    SetIcon(hWnd, 0, ICO_ROUTER);
    FormatText(hWnd, 0, r->Sock->RemoteHostname);
    DlgFont(hWnd, S_STATUS, 11, true);

    NmMainDlgRefresh(hWnd, r);
}

// 更新
void NmMainDlgRefresh(HWND hWnd, RPC *r)
{
#if 0
    RPC_NAT_STATUS t;
    wchar_t tmp[MAX_SIZE];
    wchar_t tmp2[MAX_SIZE];
    // 引数チェック
    if (r == NULL || hWnd == NULL)
    {
        return;
    }

    Zero(&t, sizeof(RPC_NAT_STATUS));

    CALL(hWnd, NcGetStatus(r, &t));

    if (t.Online == false)
    {
        UniStrCpy(tmp, sizeof(tmp), _UU("NM_OFFLINE"));

        Enable(hWnd, B_CONNECT);
        Disable(hWnd, B_DISCONNECT);
    }
    else
    {
        if (t.Connected)
        {
            UniFormat(tmp, sizeof(tmp), _UU("NM_CONNECTED"), t.Status.ServerName);
        }
        else
        {
            if (t.LastError == ERR_NO_ERROR)
            {
                UniStrCpy(tmp, sizeof(tmp), _UU("NM_CONNECTING"));
            }
            else
            {
                UniFormat(tmp, sizeof(tmp), _UU("NM_CONNECT_ERROR"), t.LastError, _E(t.LastError));
            }
        }
        Disable(hWnd, B_CONNECT);
        Enable(hWnd, B_DISCONNECT);
    }

    UniFormat(tmp2, sizeof(tmp2), _UU("NM_STATUS_TAG"), tmp);

    SetText(hWnd, S_STATUS, tmp2);

    FreeRpcNatStatus(&t);
#endif
}

// メインダイアログプロシージャ
UINT NmMainDlgProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam, void *param)
{
#if 0
    SM_HUB *r = (SM_HUB *)param;
    RPC_DUMMY dummy;
    SM_SERVER sm;
    // 引数チェック
    if (hWnd == NULL)
    {
        return 0;
    }

    switch (msg)
    {
    case WM_INITDIALOG:
        NmMainDlgInit(hWnd, r);

        SetTimer(hWnd, 1, NM_REFRESH_TIME, NULL);

        break;

    case WM_COMMAND:
        switch (wParam)
        {
        case B_SETTING:
            // 接続設定
            NmEditClientConfig(hWnd, r);
            break;

        case B_CONNECT:
            // 接続
            Zero(&dummy, sizeof(dummy));
            CALL(hWnd, NcOnline(r, &dummy));
            NmMainDlgRefresh(hWnd, r);
            break;

        case B_DISCONNECT:
            // 切断
            Zero(&dummy, sizeof(dummy));
            CALL(hWnd, NcOffline(r, &dummy));
            NmMainDlgRefresh(hWnd, r);
            break;

        case B_OPTION:
            // 動作設定
            NmEditVhOption(hWnd, r->Rpc);
            break;

        case B_NAT:
            // NAT
            NmNat(hWnd, r);
            break;

        case B_DHCP:
            // DHCP
            NmDhcp(hWnd, r);
            break;

        case B_STATUS:
            // 状況
            Zero(&sm, sizeof(sm));
            sm.Rpc = r;
            SmStatusDlg(hWnd, &sm, NULL, true, true, _UU("NM_STATUS"), ICO_ROUTER,
                NULL, NmStatus);
            break;

        case B_INFO:
            // 情報
            Zero(&sm, sizeof(sm));
            sm.Rpc = r;
            SmStatusDlg(hWnd, &sm, NULL, false, true, _UU("NM_INFO"), ICO_ROUTER,
                NULL, NmInfo);
            break;

        case B_REFRESH:
            // 更新
            NmMainDlgRefresh(hWnd, r);
            break;

        case B_PASSWORD:
            // パスワード変更
            NmChangePassword(hWnd, r);
            break;

        case B_ABOUT:
            // バージョン情報
            About(hWnd, nm->Cedar, CEDAR_ROUTER_STR, BMP_SPLASH_ROUTER);
            break;

        case IDCANCEL:
            Close(hWnd);
            break;
        }
        break;

    case WM_TIMER:
        switch (wParam)
        {
        case 1:
            KillTimer(hWnd, 1);

            if (IsEnable(hWnd, 0))
            {
                NmMainDlgRefresh(hWnd, r);
            }

            SetTimer(hWnd, 1, NM_REFRESH_TIME, NULL);
            break;
        }
        break;

    case WM_CLOSE:
        EndDialog(hWnd, false);
        break;
    }

#endif

    return 0;
}

// メインダイアログ
void NmMainDlg(RPC *r)
{
    // 引数チェック
    if (r == NULL)
    {
        return;
    }

    Dialog(NULL, D_NM_MAIN, NmMainDlgProc, r);
}

// ログインダイアログ
UINT NmLogin(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam, void *param)
{
    NM_LOGIN *login = (NM_LOGIN *)param;
    char tmp[MAX_SIZE];
    // 引数チェック
    if (hWnd == NULL)
    {
        return 0;
    }

    switch (msg)
    {
    case WM_INITDIALOG:
        FormatText(hWnd, S_TITLE, login->Hostname);
        break;

    case WM_COMMAND:
        switch (wParam)
        {
        case IDOK:
            GetTxtA(hWnd, E_PASSWORD, tmp, sizeof(tmp));
            Hash(login->hashed_password, tmp, StrLen(tmp), true);
            EndDialog(hWnd, true);
            break;

        case IDCANCEL:
            Close(hWnd);
            break;
        }
        break;

    case WM_CLOSE:
        EndDialog(hWnd, false);
        break;
    }

    return 0;
}

// 接続ダイアログ
UINT NmConnectDlgProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam, void *param)
{
    NM_CONNECT *t = (NM_CONNECT *)param;
    RPC *rpc;
    NM_LOGIN login;
    UINT err;
    // 引数チェック
    if (hWnd == NULL)
    {
        return 0;
    }

    switch (msg)
    {
    case WM_INITDIALOG:
        FormatText(hWnd, S_TITLE, t->Hostname);
        SetTimer(hWnd, 1, 50, NULL);
        break;

    case WM_TIMER:
        switch (wParam)
        {
        case 1:
            KillTimer(hWnd, 1);

            while (true)
            {
                bool flag = false;
RETRY_PASSWORD:
                // パスワード入力ダイアログ
                Zero(&login, sizeof(login));
                login.Hostname = t->Hostname;
                login.Port = t->Port;
                Hash(login.hashed_password, "", 0, true);

                if (flag)
                {
                    if (Dialog(hWnd, D_NM_LOGIN, NmLogin, &login) == false)
                    {
                        EndDialog(hWnd, false);
                        break;
                    }
                }

RETRY_CONNECT:
                Refresh(DlgItem(hWnd, S_TITLE));
                Refresh(hWnd);
                // 接続
                rpc = NatAdminConnect(nm->Cedar, t->Hostname, t->Port, login.hashed_password, &err);
                if (rpc != NULL)
                {
                    t->Rpc = rpc;
                    EndDialog(hWnd, true);
                    break;
                }

                // エラー
                if (err == ERR_ACCESS_DENIED || err == ERR_AUTH_FAILED)
                {
                    if (flag)
                    {
                        if (MsgBox(hWnd, MB_ICONEXCLAMATION | MB_RETRYCANCEL,
                            _E(err)) == IDCANCEL)
                        {
                            EndDialog(hWnd, false);
                            break;
                        }
                    }
                    flag = true;
                    goto RETRY_PASSWORD;
                }
                else
                {
                    if (MsgBox(hWnd, MB_ICONEXCLAMATION | MB_RETRYCANCEL,
                        _E(err)) == IDCANCEL)
                    {
                        EndDialog(hWnd, false);
                        break;
                    }
                    goto RETRY_CONNECT;
                }
            }
            break;
        }
        break;
    }

    return 0;
}

// User-mode NAT プログラムに接続する
RPC *NmConnect(char *hostname, UINT port)
{
    NM_CONNECT t;
    // 引数チェック
    if (hostname == NULL || port == 0)
    {
        return NULL;
    }

    Zero(&t, sizeof(t));
    t.Hostname = hostname;
    t.Port = port;

    Dialog(NULL, D_NM_CONNECT, NmConnectDlgProc, &t);

    return t.Rpc;
}

// メイン処理
void MainNM()
{
    UINT port;
    char hostname[MAX_HOST_NAME_LEN + 1];
    char *tmp =
        RemoteDlg(NULL, NM_SETTING_REG_KEY, ICO_ROUTER,
        _UU("NM_TITLE"), _UU("NM_CONNECT_TITLE"), NULL);
    TOKEN_LIST *t;

    Zero(hostname, sizeof(hostname));

    if (tmp == NULL)
    {
        return;
    }

    t = ParseToken(tmp, ":");
    port = DEFAULT_NAT_ADMIN_PORT;

    if (t->NumTokens >= 2)
    {
        UINT i = ToInt(t->Token[1]);
        if (i != 0)
        {
            port = i;
        }
    }
    if (t->NumTokens >= 1)
    {
        RPC *rpc;
        StrCpy(hostname, sizeof(hostname), t->Token[0]);

        // 接続
        Trim(hostname);

        if (StrLen(hostname) != 0)
        {
            rpc = NmConnect(hostname, port);
            if (rpc != NULL)
            {
                // 接続した
                NmMainDlg(rpc);
                NatAdminDisconnect(rpc);
            }
        }
    }

    FreeToken(t);

    Free(tmp);
}

// 初期化
void InitNM()
{
    if (nm != NULL)
    {
        // すでに初期化されている
        return;
    }

    nm = ZeroMalloc(sizeof(NM));

    InitWinUi(_UU("NM_TITLE"), _SS("DEFAULT_FONT"), _II("DEFAULT_FONT_SIZE"));

    nm->Cedar = NewCedar(NULL, NULL);

    InitCM();
    InitSM();
}

// 解放
void FreeNM()
{
    if (nm == NULL)
    {
        // 初期化されていない
        return;
    }

    FreeSM();
    FreeCM();

    ReleaseCedar(nm->Cedar);

    FreeWinUi();

    Free(nm);
    nm = NULL;
}

// NM の実行
void NMExec()
{
    InitNM();
    MainNM();
    FreeNM();
}

#endif