Dev/utvpn/utvpn-unix-v101-7101-public/src/Cedar/UT.c

   1 // SoftEther UT-VPN SourceCode\r
   2 // \r
   3 // Copyright (C) 2004-2010 SoftEther Corporation.\r
   4 // Copyright (C) 2004-2010 University of Tsukuba, Japan.\r
   5 // Copyright (C) 2003-2010 Daiyuu Nobori.\r
   6 // All Rights Reserved.\r
   7 // \r
   8 // http://utvpn.tsukuba.ac.jp/\r
   9 // \r
  10 // This program is free software; you can redistribute it and/or\r
  11 // modify it under the terms of the GNU General Public License\r
  12 // version 2 as published by the Free Software Foundation.\r
  13 // \r
  14 // This program is distributed in the hope that it will be useful,\r
  15 // but WITHOUT ANY WARRANTY; without even the implied warranty of\r
  16 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
  17 // GNU General Public License for more details.\r
  18 // \r
  19 // You should have received a copy of the GNU General Public License version 2\r
  20 // along with this program; if not, write to the Free Software\r
  21 // Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.\r
  22 // \r
  23 // このファイルは GPL バージョン 2 ライセンスで公開されています。\r
  24 // 誰でもこのファイルの内容を複製、改変したり、改変したバージョンを再配布\r
  25 // することができます。ただし、原著作物を改変した場合は、原著作物の著作権表示\r
  26 // を除去することはできません。改変した著作物を配布する場合は、改変実施者の\r
  27 // 著作権表示を原著作物の著作権表示に付随して記載するようにしてください。\r
  28 // \r
  29 // この SoftEther UT-VPN オープンソース・プロジェクトは、日本国の\r
  30 // ソフトイーサ株式会社 (SoftEther Corporation, http://www.softether.co.jp/ )\r
  31 // および筑波大学 (University of Tsukuba, http://www.tsukuba.ac.jp/ ) によって\r
  32 // ホストされています。\r
  33 // 本プログラムの配布者は、本プログラムを、業としての利用以外のため、\r
  34 // および、試験または研究のために利用が行われることを想定して配布\r
  35 // しています。\r
  36 // SoftEther UT-VPN プロジェクトの Web サイトは http://utvpn.tsukuba.ac.jp/ に\r
  37 // あります。\r
  38 // 本ソフトウェアの不具合の修正、機能改良、セキュリティホールの修復などのコード\r
  39 // の改変を行った場合で、その成果物を SoftEther UT-VPN プロジェクトに提出して\r
  40 // いただける場合は、 http://utvpn.tsukuba.ac.jp/ までソースコードを送付して\r
  41 // ください。SoftEther UT-VPN プロジェクトの本体リリースまたはブランチリリース\r
  42 // に組み込みさせていただきます。\r
  43 // \r
  44 // GPL に基づいて原著作物が提供される本ソフトウェアの改良版を配布、販売する\r
  45 // 場合は、そのソースコードを GPL に基づいて誰にでも開示する義務が生じます。\r
  46 // \r
  47 // 本ソフトウェアに関連する著作権、特許権、商標権はソフトイーサ株式会社\r
  48 // (SoftEther Corporation) およびその他の著作権保持者が保有しています。\r
  49 // ソフトイーサ株式会社等はこれらの権利を放棄していません。本ソフトウェアの\r
  50 // 二次著作物を配布、販売する場合は、これらの権利を侵害しないようにご注意\r
  51 // ください。\r
  52 // \r
  53 // お願い: どのような通信ソフトウェアにも通常は必ず未発見の\r
  54 // セキュリティホールが潜んでいます。本ソースコードをご覧いただいた結果、\r
  55 // UT-VPN にセキュリティホールを発見された場合は、当該セキュリティホールの\r
  56 // 情報を不特定多数に開示される前に、必ず、ソフトイーサ株式会社\r
  57 // および脆弱性情報の届出を受け付ける公的機関まで通報いただき、\r
  58 // 公益保護にご協力いただきますようお願い申し上げます。\r
  59 // \r
  60 // ソフトイーサ株式会社は、当該セキュリティホールについて迅速に対処を\r
  61 // 行い、UT-VPN および UT-VPN に関連するソフトウェアのユーザー・顧客\r
  62 // を保護するための努力を行います。\r
  63 // \r
  64 // ソフトイーサへの届出先: http://www.softether.co.jp/jp/contact/\r
  65 // 日本国内の脆弱性情報届出受付公的機関:\r
  66 //         独立行政法人 情報処理推進機構\r
  67 //         http://www.ipa.go.jp/security/vuln/report/\r
  68 // \r
  69 // 上記各事項について不明な点は、ソフトイーサ株式会社までご連絡ください。\r
  70 // 連絡先: http://www.softether.co.jp/jp/contact/\r
  71 \r
  72 // -----------------------------------------------\r
  73 // [ChangeLog]\r
  74 // 2010.05.20\r
  75 //  新規リリース by SoftEther\r
  76 // -----------------------------------------------\r
  77 \r
  78 // UT.c\r
  79 // Win32 用 SoftEther Network Utility\r
  80 \r
  81 #ifdef  WIN32\r
  82 \r
  83 #define UT_C\r
  84 \r
  85 #define _WIN32_WINNT            0x0502\r
  86 #define WINVER                          0x0502\r
  87 #include <winsock2.h>\r
  88 #include <windows.h>\r
  89 #include <wincrypt.h>\r
  90 #include <wininet.h>\r
  91 #include <shlobj.h>\r
  92 #include <commctrl.h>\r
  93 #include <Dbghelp.h>\r
  94 #include <stdio.h>\r
  95 #include <stdlib.h>\r
  96 #include <string.h>\r
  97 #include <wchar.h>\r
  98 #include <stdarg.h>\r
  99 #include <time.h>\r
 100 #include <errno.h>\r
 101 #include <Mayaqua/Mayaqua.h>\r
 102 #include <Cedar/Cedar.h>\r
 103 #include "../PenCore/resource.h"\r
 104 \r
 105 static char *selected_adapter = NULL;\r
 106 \r
 107 // Q. 「スピードメーター」という関数名になっているがこれはどういう意味か? 警察のオービスなのか?\r
 108 // A. もともとこのネットワーク情報表示ユーティリティは、通信速度を測定するために開発\r
 109 //    されたのである。しかし、その後「TrafficServer」、「TrafficClient」機能が別途\r
 110 //    開発されたため、速度測定機能はこのユーティリティからは削除された。\r
 111 //    関数名はその時代の名残である。\r
 112 \r
 113 // ステータスの更新\r
 114 void UtSpeedMeterDlgRefreshStatus(HWND hWnd)\r
 115 {\r
 116         char *title;\r
 117         MS_ADAPTER *a;\r
 118         UINT i;\r
 119         // 引数チェック\r
 120         if (hWnd == NULL)\r
 121         {\r
 122                 return;\r
 123         }\r
 124 \r
 125         title = selected_adapter;\r
 126 \r
 127         a = MsGetAdapter(title);\r
 128         if (a == NULL)\r
 129         {\r
 130                 LbReset(hWnd, L_STATUS);\r
 131                 Disable(hWnd, L_STATUS);\r
 132         }\r
 133         else\r
 134         {\r
 135                 LVB *b;\r
 136                 wchar_t tmp[MAX_SIZE];\r
 137                 wchar_t tmp2[MAX_SIZE];\r
 138                 char str[MAX_SIZE];\r
 139                 b = LvInsertStart();\r
 140 \r
 141                 StrToUni(tmp, sizeof(tmp), a->Title);\r
 142                 LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_TITLE"), tmp);\r
 143 \r
 144                 StrToUni(tmp, sizeof(tmp), a->Guid);\r
 145                 LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_GUID"), tmp);\r
 146 \r
 147                 LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_TYPE"), MsGetAdapterTypeStr(a->Type));\r
 148 \r
 149                 LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_STATUS"), MsGetAdapterStatusStr(a->Status));\r
 150 \r
 151                 UniToStr3(tmp, sizeof(tmp), a->Mtu);\r
 152                 LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_MTU"), tmp);\r
 153 \r
 154                 UniToStr3(tmp, sizeof(tmp), a->Speed);\r
 155                 LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_SPEED"), tmp);\r
 156 \r
 157                 Zero(str, sizeof(str));\r
 158                 BinToStrEx2(str, sizeof(str), a->Address, a->AddressSize, '-');\r
 159                 StrToUni(tmp, sizeof(tmp), str);\r
 160                 LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_ADDRESS"), tmp);\r
 161 \r
 162                 UniToStr3(tmp, sizeof(tmp), a->RecvBytes);\r
 163                 LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_RECV_BYTES"), tmp);\r
 164 \r
 165                 UniToStr3(tmp, sizeof(tmp), a->RecvPacketsBroadcast);\r
 166                 LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_RECV_BCASTS"), tmp);\r
 167 \r
 168                 UniToStr3(tmp, sizeof(tmp), a->RecvPacketsUnicast);\r
 169                 LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_RECV_UNICASTS"), tmp);\r
 170 \r
 171                 UniToStr3(tmp, sizeof(tmp), a->SendBytes);\r
 172                 LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_SEND_BYTES"), tmp);\r
 173 \r
 174                 UniToStr3(tmp, sizeof(tmp), a->SendPacketsBroadcast);\r
 175                 LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_SEND_BCASTS"), tmp);\r
 176 \r
 177                 UniToStr3(tmp, sizeof(tmp), a->SendPacketsUnicast);\r
 178                 LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_SEND_UNICASTS"), tmp);\r
 179 \r
 180                 for (i = 0;i < a->NumIpAddress;i++)\r
 181                 {\r
 182                         UniFormat(tmp2, sizeof(tmp2), _UU("UT_SM_ST_IP"), i + 1);\r
 183                         IPToUniStr(tmp, sizeof(tmp), &a->IpAddresses[i]);\r
 184                         LvInsertAdd(b, 0, NULL, 2, tmp2, tmp);\r
 185 \r
 186                         UniFormat(tmp2, sizeof(tmp2), _UU("UT_SM_ST_SUBNET"), i + 1);\r
 187                         IPToUniStr(tmp, sizeof(tmp), &a->SubnetMasks[i]);\r
 188                         LvInsertAdd(b, 0, NULL, 2, tmp2, tmp);\r
 189                 }\r
 190 \r
 191                 for (i = 0;i < a->NumGateway;i++)\r
 192                 {\r
 193                         UniFormat(tmp2, sizeof(tmp2), _UU("UT_SM_ST_GATEWAY"), i + 1);\r
 194                         IPToUniStr(tmp, sizeof(tmp), &a->Gateways[i]);\r
 195                         LvInsertAdd(b, 0, NULL, 2, tmp2, tmp);\r
 196                 }\r
 197 \r
 198                 if (a->UseDhcp)\r
 199                 {\r
 200                         IPToUniStr(tmp, sizeof(tmp), &a->DhcpServer);\r
 201                         LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_DHCP"), tmp);\r
 202 \r
 203                         GetDateTimeStrEx64(tmp, sizeof(tmp), a->DhcpLeaseStart, NULL);\r
 204                         LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_DHCP_1"), tmp);\r
 205 \r
 206                         GetDateTimeStrEx64(tmp, sizeof(tmp), a->DhcpLeaseExpires, NULL);\r
 207                         LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_DHCP_2"), tmp);\r
 208                 }\r
 209 \r
 210                 if (a->UseWins)\r
 211                 {\r
 212                         IPToUniStr(tmp, sizeof(tmp), &a->PrimaryWinsServer);\r
 213                         LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_WINS_1"), tmp);\r
 214 \r
 215                         IPToUniStr(tmp, sizeof(tmp), &a->SecondaryWinsServer);\r
 216                         LvInsertAdd(b, 0, NULL, 2, _UU("UT_SM_ST_WINS_2"), tmp);\r
 217                 }\r
 218 \r
 219                 LvInsertEnd(b, hWnd, L_STATUS);\r
 220                 Enable(hWnd, L_STATUS);\r
 221 \r
 222                 MsFreeAdapter(a);\r
 223         }\r
 224 \r
 225 }\r
 226 \r
 227 // アダプタリストの更新\r
 228 void UtSpeedMeterDlgRefreshList(HWND hWnd)\r
 229 {\r
 230         wchar_t *old;\r
 231         MS_ADAPTER_LIST *o;\r
 232         UINT i;\r
 233         // 引数チェック\r
 234         if (hWnd == NULL)\r
 235         {\r
 236                 return;\r
 237         }\r
 238 \r
 239         // 現在の選択を取得\r
 240         old = GetText(hWnd, E_LIST);\r
 241         if (old != NULL)\r
 242         {\r
 243                 if (UniStrLen(old) == 0)\r
 244                 {\r
 245                         Free(old);\r
 246                         old = NULL;\r
 247                 }\r
 248         }\r
 249 \r
 250         o = MsCreateAdapterList();\r
 251         CbReset(hWnd, E_LIST);\r
 252         CbSetHeight(hWnd, E_LIST, 18);\r
 253 \r
 254         for (i = 0;i < o->Num;i++)\r
 255         {\r
 256                 wchar_t tmp[MAX_SIZE];\r
 257                 MS_ADAPTER *a = o->Adapters[i];\r
 258 \r
 259                 if (a->Info)\r
 260                 {\r
 261                         StrToUni(tmp, sizeof(tmp), a->Title);\r
 262                         CbAddStr(hWnd, E_LIST, tmp, 0);\r
 263                 }\r
 264         }\r
 265 \r
 266 \r
 267         // 前回の選択を再選択\r
 268         if (old != NULL)\r
 269         {\r
 270                 CbSelectIndex(hWnd, E_LIST, CbFindStr(hWnd, E_LIST, old));\r
 271                 Free(old);\r
 272         }\r
 273 \r
 274         MsFreeAdapterList(o);\r
 275 }\r
 276 \r
 277 // スピードメーターダイアログコントロール更新\r
 278 void UtSpeedMeterDlgUpdate(HWND hWnd)\r
 279 {\r
 280         // 引数チェック\r
 281         if (hWnd == NULL)\r
 282         {\r
 283                 return;\r
 284         }\r
 285 }\r
 286 \r
 287 // スピードメーターダイアログ初期化\r
 288 void UtSpeedMeterDlgInit(HWND hWnd)\r
 289 {\r
 290         // 引数チェック\r
 291         if (hWnd == NULL)\r
 292         {\r
 293                 return;\r
 294         }\r
 295 \r
 296         LvInitEx(hWnd, L_STATUS, true);\r
 297         LvInsertColumn(hWnd, L_STATUS, 0, _UU("UT_SM_COLUMN_1"), 150);\r
 298         LvInsertColumn(hWnd, L_STATUS, 1, _UU("UT_SM_COLUMN_2"), 290);\r
 299 \r
 300         UtSpeedMeterDlgRefreshList(hWnd);\r
 301         selected_adapter = GetTextA(hWnd, E_LIST);\r
 302         UtSpeedMeterDlgRefreshStatus(hWnd);\r
 303         UtSpeedMeterDlgUpdate(hWnd);\r
 304 }\r
 305 \r
 306 // スピードメーターダイアログ\r
 307 UINT UtSpeedMeterDlgProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam, void *param)\r
 308 {\r
 309         // 引数チェック\r
 310         if (hWnd == NULL)\r
 311         {\r
 312                 return 0;\r
 313         }\r
 314 \r
 315         switch (msg)\r
 316         {\r
 317         case WM_INITDIALOG:\r
 318                 SetIcon(hWnd, 0, ICO_NIC_ONLINE);\r
 319                 UtSpeedMeterDlgInit(hWnd);\r
 320                 SetTimer(hWnd, 1, SPEED_METER_REFRESH_INTERVAL, NULL);\r
 321                 break;\r
 322 \r
 323         case WM_TIMER:\r
 324                 switch (wParam)\r
 325                 {\r
 326                 case 1:\r
 327                         KillTimer(hWnd, 1);\r
 328                         UtSpeedMeterDlgRefreshStatus(hWnd);\r
 329                         UtSpeedMeterDlgUpdate(hWnd);\r
 330                         SetTimer(hWnd, 1, SPEED_METER_REFRESH_INTERVAL, NULL);\r
 331                         break;\r
 332                 }\r
 333                 break;\r
 334 \r
 335         case WM_COMMAND:\r
 336                 if (HIWORD(wParam) == CBN_SELCHANGE) {\r
 337                         Free(selected_adapter);\r
 338                         selected_adapter = GetTextA(hWnd, E_LIST);\r
 339                         UtSpeedMeterDlgUpdate(hWnd);\r
 340                 } else {\r
 341                         switch (wParam)\r
 342                         {\r
 343                         case B_REFRESH:\r
 344                                 UtSpeedMeterDlgRefreshList(hWnd);\r
 345                                 Free(selected_adapter);\r
 346                                 selected_adapter = GetTextA(hWnd, E_LIST);\r
 347                                 UtSpeedMeterDlgUpdate(hWnd);\r
 348                                 break;\r
 349 \r
 350                         case IDCANCEL:\r
 351                                 Close(hWnd);\r
 352                                 break;\r
 353                         }\r
 354                 }\r
 355                 break;\r
 356 \r
 357         case WM_CLOSE:\r
 358                 Free(selected_adapter);\r
 359                 selected_adapter = NULL;\r
 360                 EndDialog(hWnd, 0);\r
 361                 break;\r
 362         }\r
 363 \r
 364         return 0;\r
 365 }\r
 366 \r
 367 // スピードメーター\r
 368 void UtSpeedMeter()\r
 369 {\r
 370         UtSpeedMeterEx(NULL);\r
 371 }\r
 372 void UtSpeedMeterEx(void *hWnd)\r
 373 {\r
 374         Dialog((HWND)hWnd, D_SPEEDMETER, UtSpeedMeterDlgProc, NULL);\r
 375 }\r
 376 \r
 377 #endif // WIN32\r
 378 \r