* tar xzf utvpn-src-unix-v101-7101-public-2010.06.27.tar.gz
[lab.git] / utvpn / utvpn-unix-v101-7101-public / src / Cedar / UT.c
diff --git a/utvpn/utvpn-unix-v101-7101-public/src/Cedar/UT.c b/utvpn/utvpn-unix-v101-7101-public/src/Cedar/UT.c
new file mode 100644 (file)
index 0000000..7fba055
--- /dev/null
@@ -0,0 +1,378 @@
+// SoftEther UT-VPN SourceCode\r
+// \r
+// Copyright (C) 2004-2010 SoftEther Corporation.\r
+// Copyright (C) 2004-2010 University of Tsukuba, Japan.\r
+// Copyright (C) 2003-2010 Daiyuu Nobori.\r
+// All Rights Reserved.\r
+// \r
+// http://utvpn.tsukuba.ac.jp/\r
+// \r
+// This program is free software; you can redistribute it and/or\r
+// modify it under the terms of the GNU General Public License\r
+// version 2 as published by the Free Software Foundation.\r
+// \r
+// This program is distributed in the hope that it will be useful,\r
+// but WITHOUT ANY WARRANTY; without even the implied warranty of\r
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
+// GNU General Public License for more details.\r
+// \r
+// You should have received a copy of the GNU General Public License version 2\r
+// along with this program; if not, write to the Free Software\r
+// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.\r
+// \r
+// このファイルは GPL バージョン 2 ライセンスで公開されています。\r
+// 誰でもこのファイルの内容を複製、改変したり、改変したバージョンを再配布\r
+// することができます。ただし、原著作物を改変した場合は、原著作物の著作権表示\r
+// を除去することはできません。改変した著作物を配布する場合は、改変実施者の\r
+// 著作権表示を原著作物の著作権表示に付随して記載するようにしてください。\r
+// \r
+// この SoftEther UT-VPN オープンソース・プロジェクトは、日本国の\r
+// ソフトイーサ株式会社 (SoftEther Corporation, http://www.softether.co.jp/ )\r
+// および筑波大学 (University of Tsukuba, http://www.tsukuba.ac.jp/ ) によって\r
+// ホストされています。\r
+// 本プログラムの配布者は、本プログラムを、業としての利用以外のため、\r
+// および、試験または研究のために利用が行われることを想定して配布\r
+// しています。\r
+// SoftEther UT-VPN プロジェクトの Web サイトは http://utvpn.tsukuba.ac.jp/ に\r
+// あります。\r
+// 本ソフトウェアの不具合の修正、機能改良、セキュリティホールの修復などのコード\r
+// の改変を行った場合で、その成果物を SoftEther UT-VPN プロジェクトに提出して\r
+// いただける場合は、 http://utvpn.tsukuba.ac.jp/ までソースコードを送付して\r
+// ください。SoftEther UT-VPN プロジェクトの本体リリースまたはブランチリリース\r
+// に組み込みさせていただきます。\r
+// \r
+// GPL に基づいて原著作物が提供される本ソフトウェアの改良版を配布、販売する\r
+// 場合は、そのソースコードを GPL に基づいて誰にでも開示する義務が生じます。\r
+// \r
+// 本ソフトウェアに関連する著作権、特許権、商標権はソフトイーサ株式会社\r
+// (SoftEther Corporation) およびその他の著作権保持者が保有しています。\r
+// ソフトイーサ株式会社等はこれらの権利を放棄していません。本ソフトウェアの\r
+// 二次著作物を配布、販売する場合は、これらの権利を侵害しないようにご注意\r
+// ください。\r
+// \r
+// お願い: どのような通信ソフトウェアにも通常は必ず未発見の\r
+// セキュリティホールが潜んでいます。本ソースコードをご覧いただいた結果、\r
+// UT-VPN にセキュリティホールを発見された場合は、当該セキュリティホールの\r
+// 情報を不特定多数に開示される前に、必ず、ソフトイーサ株式会社\r
+// および脆弱性情報の届出を受け付ける公的機関まで通報いただき、\r
+// 公益保護にご協力いただきますようお願い申し上げます。\r
+// \r
+// ソフトイーサ株式会社は、当該セキュリティホールについて迅速に対処を\r
+// 行い、UT-VPN および UT-VPN に関連するソフトウェアのユーザー・顧客\r
+// を保護するための努力を行います。\r
+// \r
+// ソフトイーサへの届出先: http://www.softether.co.jp/jp/contact/\r
+// 日本国内の脆弱性情報届出受付公的機関:\r
+//         独立行政法人 情報処理推進機構\r
+//         http://www.ipa.go.jp/security/vuln/report/\r
+// \r
+// 上記各事項について不明な点は、ソフトイーサ株式会社までご連絡ください。\r
+// 連絡先: http://www.softether.co.jp/jp/contact/\r
+\r
+// -----------------------------------------------\r
+// [ChangeLog]\r
+// 2010.05.20\r
+//  新規リリース by SoftEther\r
+// -----------------------------------------------\r
+\r
+// UT.c\r
+// Win32 用 SoftEther Network Utility\r
+\r
+#ifdef WIN32\r
+\r
+#define        UT_C\r
+\r
+#define        _WIN32_WINNT            0x0502\r
+#define        WINVER                          0x0502\r
+#include <winsock2.h>\r
+#include <windows.h>\r
+#include <wincrypt.h>\r
+#include <wininet.h>\r
+#include <shlobj.h>\r
+#include <commctrl.h>\r
+#include <Dbghelp.h>\r
+#include <stdio.h>\r
+#include <stdlib.h>\r
+#include <string.h>\r
+#include <wchar.h>\r
+#include <stdarg.h>\r
+#include <time.h>\r
+#include <errno.h>\r
+#include <Mayaqua/Mayaqua.h>\r
+#include <Cedar/Cedar.h>\r
+#include "../PenCore/resource.h"\r
+\r
+static char *selected_adapter = NULL;\r
+\r
+// Q. 「スピードメーター」という関数名になっているがこれはどういう意味か? 警察のオービスなのか?\r
+// A. もともとこのネットワーク情報表示ユーティリティは、通信速度を測定するために開発\r
+//    されたのである。しかし、その後「TrafficServer」、「TrafficClient」機能が別途\r
+//    開発されたため、速度測定機能はこのユーティリティからは削除された。\r
+//    関数名はその時代の名残である。\r
+\r
+// ステータスの更新\r
+void UtSpeedMeterDlgRefreshStatus(HWND hWnd)\r
+{\r
+       char *title;\r
+       MS_ADAPTER *a;\r
+       UINT i;\r
+       // 引数チェック\r
+       if (hWnd == NULL)\r
+       {\r
+               return;\r
+       }\r
+\r
+       title = selected_adapter;\r
+\r
+       a = MsGetAdapter(title);\r
+       if (a == NULL)\r
+       {\r
+               LbReset(hWnd, L_STATUS);\r
+               Disable(hWnd, L_STATUS);\r
+       }\r
+       else\r
+       {\r
+               LVB *b;\r
+               wchar_t tmp[MAX_SIZE];\r
+               wchar_t tmp2[MAX_SIZE];\r
+               char str[MAX_SIZE];\r
+               b = LvInsertStart();\r
+\r
+               StrToUni(tmp, sizeof(tmp), a->Title);\r
+               LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_TITLE"), tmp);\r
+\r
+               StrToUni(tmp, sizeof(tmp), a->Guid);\r
+               LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_GUID"), tmp);\r
+\r
+               LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_TYPE"), MsGetAdapterTypeStr(a->Type));\r
+\r
+               LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_STATUS"), MsGetAdapterStatusStr(a->Status));\r
+\r
+               UniToStr3(tmp, sizeof(tmp), a->Mtu);\r
+               LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_MTU"), tmp);\r
+\r
+               UniToStr3(tmp, sizeof(tmp), a->Speed);\r
+               LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_SPEED"), tmp);\r
+\r
+               Zero(str, sizeof(str));\r
+               BinToStrEx2(str, sizeof(str), a->Address, a->AddressSize, '-');\r
+               StrToUni(tmp, sizeof(tmp), str);\r
+               LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_ADDRESS"), tmp);\r
+\r
+               UniToStr3(tmp, sizeof(tmp), a->RecvBytes);\r
+               LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_RECV_BYTES"), tmp);\r
+\r
+               UniToStr3(tmp, sizeof(tmp), a->RecvPacketsBroadcast);\r
+               LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_RECV_BCASTS"), tmp);\r
+\r
+               UniToStr3(tmp, sizeof(tmp), a->RecvPacketsUnicast);\r
+               LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_RECV_UNICASTS"), tmp);\r
+\r
+               UniToStr3(tmp, sizeof(tmp), a->SendBytes);\r
+               LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_SEND_BYTES"), tmp);\r
+\r
+               UniToStr3(tmp, sizeof(tmp), a->SendPacketsBroadcast);\r
+               LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_SEND_BCASTS"), tmp);\r
+\r
+               UniToStr3(tmp, sizeof(tmp), a->SendPacketsUnicast);\r
+               LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_SEND_UNICASTS"), tmp);\r
+\r
+               for (i = 0;i < a->NumIpAddress;i++)\r
+               {\r
+                       UniFormat(tmp2, sizeof(tmp2), _UU("UT_SM_ST_IP"), i + 1);\r
+                       IPToUniStr(tmp, sizeof(tmp), &a->IpAddresses[i]);\r
+                       LvInsertAdd(b, 0, NULL, 2, tmp2, tmp);\r
+\r
+                       UniFormat(tmp2, sizeof(tmp2), _UU("UT_SM_ST_SUBNET"), i + 1);\r
+                       IPToUniStr(tmp, sizeof(tmp), &a->SubnetMasks[i]);\r
+                       LvInsertAdd(b, 0, NULL, 2, tmp2, tmp);\r
+               }\r
+\r
+               for (i = 0;i < a->NumGateway;i++)\r
+               {\r
+                       UniFormat(tmp2, sizeof(tmp2), _UU("UT_SM_ST_GATEWAY"), i + 1);\r
+                       IPToUniStr(tmp, sizeof(tmp), &a->Gateways[i]);\r
+                       LvInsertAdd(b, 0, NULL, 2, tmp2, tmp);\r
+               }\r
+\r
+               if (a->UseDhcp)\r
+               {\r
+                       IPToUniStr(tmp, sizeof(tmp), &a->DhcpServer);\r
+                       LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_DHCP"), tmp);\r
+\r
+                       GetDateTimeStrEx64(tmp, sizeof(tmp), a->DhcpLeaseStart, NULL);\r
+                       LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_DHCP_1"), tmp);\r
+\r
+                       GetDateTimeStrEx64(tmp, sizeof(tmp), a->DhcpLeaseExpires, NULL);\r
+                       LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_DHCP_2"), tmp);\r
+               }\r
+\r
+               if (a->UseWins)\r
+               {\r
+                       IPToUniStr(tmp, sizeof(tmp), &a->PrimaryWinsServer);\r
+                       LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_WINS_1"), tmp);\r
+\r
+                       IPToUniStr(tmp, sizeof(tmp), &a->SecondaryWinsServer);\r
+                       LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_WINS_2"), tmp);\r
+               }\r
+\r
+               LvInsertEnd(b, hWnd, L_STATUS);\r
+               Enable(hWnd, L_STATUS);\r
+\r
+               MsFreeAdapter(a);\r
+       }\r
+\r
+}\r
+\r
+// アダプタリストの更新\r
+void UtSpeedMeterDlgRefreshList(HWND hWnd)\r
+{\r
+       wchar_t *old;\r
+       MS_ADAPTER_LIST *o;\r
+       UINT i;\r
+       // 引数チェック\r
+       if (hWnd == NULL)\r
+       {\r
+               return;\r
+       }\r
+\r
+       // 現在の選択を取得\r
+       old = GetText(hWnd, E_LIST);\r
+       if (old != NULL)\r
+       {\r
+               if (UniStrLen(old) == 0)\r
+               {\r
+                       Free(old);\r
+                       old = NULL;\r
+               }\r
+       }\r
+\r
+       o = MsCreateAdapterList();\r
+       CbReset(hWnd, E_LIST);\r
+       CbSetHeight(hWnd, E_LIST, 18);\r
+\r
+       for (i = 0;i < o->Num;i++)\r
+       {\r
+               wchar_t tmp[MAX_SIZE];\r
+               MS_ADAPTER *a = o->Adapters[i];\r
+\r
+               if (a->Info)\r
+               {\r
+                       StrToUni(tmp, sizeof(tmp), a->Title);\r
+                       CbAddStr(hWnd, E_LIST, tmp, 0);\r
+               }\r
+       }\r
+\r
+\r
+       // 前回の選択を再選択\r
+       if (old != NULL)\r
+       {\r
+               CbSelectIndex(hWnd, E_LIST, CbFindStr(hWnd, E_LIST, old));\r
+               Free(old);\r
+       }\r
+\r
+       MsFreeAdapterList(o);\r
+}\r
+\r
+// スピードメーターダイアログコントロール更新\r
+void UtSpeedMeterDlgUpdate(HWND hWnd)\r
+{\r
+       // 引数チェック\r
+       if (hWnd == NULL)\r
+       {\r
+               return;\r
+       }\r
+}\r
+\r
+// スピードメーターダイアログ初期化\r
+void UtSpeedMeterDlgInit(HWND hWnd)\r
+{\r
+       // 引数チェック\r
+       if (hWnd == NULL)\r
+       {\r
+               return;\r
+       }\r
+\r
+       LvInitEx(hWnd, L_STATUS, true);\r
+       LvInsertColumn(hWnd, L_STATUS, 0, _UU("UT_SM_COLUMN_1"), 150);\r
+       LvInsertColumn(hWnd, L_STATUS, 1, _UU("UT_SM_COLUMN_2"), 290);\r
+\r
+       UtSpeedMeterDlgRefreshList(hWnd);\r
+       selected_adapter = GetTextA(hWnd, E_LIST);\r
+       UtSpeedMeterDlgRefreshStatus(hWnd);\r
+       UtSpeedMeterDlgUpdate(hWnd);\r
+}\r
+\r
+// スピードメーターダイアログ\r
+UINT UtSpeedMeterDlgProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam, void *param)\r
+{\r
+       // 引数チェック\r
+       if (hWnd == NULL)\r
+       {\r
+               return 0;\r
+       }\r
+\r
+       switch (msg)\r
+       {\r
+       case WM_INITDIALOG:\r
+               SetIcon(hWnd, 0, ICO_NIC_ONLINE);\r
+               UtSpeedMeterDlgInit(hWnd);\r
+               SetTimer(hWnd, 1, SPEED_METER_REFRESH_INTERVAL, NULL);\r
+               break;\r
+\r
+       case WM_TIMER:\r
+               switch (wParam)\r
+               {\r
+               case 1:\r
+                       KillTimer(hWnd, 1);\r
+                       UtSpeedMeterDlgRefreshStatus(hWnd);\r
+                       UtSpeedMeterDlgUpdate(hWnd);\r
+                       SetTimer(hWnd, 1, SPEED_METER_REFRESH_INTERVAL, NULL);\r
+                       break;\r
+               }\r
+               break;\r
+\r
+       case WM_COMMAND:\r
+               if (HIWORD(wParam) == CBN_SELCHANGE) {\r
+                       Free(selected_adapter);\r
+                       selected_adapter = GetTextA(hWnd, E_LIST);\r
+                       UtSpeedMeterDlgUpdate(hWnd);\r
+               } else {\r
+                       switch (wParam)\r
+                       {\r
+                       case B_REFRESH:\r
+                               UtSpeedMeterDlgRefreshList(hWnd);\r
+                               Free(selected_adapter);\r
+                               selected_adapter = GetTextA(hWnd, E_LIST);\r
+                               UtSpeedMeterDlgUpdate(hWnd);\r
+                               break;\r
+\r
+                       case IDCANCEL:\r
+                               Close(hWnd);\r
+                               break;\r
+                       }\r
+               }\r
+               break;\r
+\r
+       case WM_CLOSE:\r
+               Free(selected_adapter);\r
+               selected_adapter = NULL;\r
+               EndDialog(hWnd, 0);\r
+               break;\r
+       }\r
+\r
+       return 0;\r
+}\r
+\r
+// スピードメーター\r
+void UtSpeedMeter()\r
+{\r
+       UtSpeedMeterEx(NULL);\r
+}\r
+void UtSpeedMeterEx(void *hWnd)\r
+{\r
+       Dialog((HWND)hWnd, D_SPEEDMETER, UtSpeedMeterDlgProc, NULL);\r
+}\r
+\r
+#endif // WIN32\r
+\r