Dev/utvpn/utvpn-unix-v101-7101-public/src/Ham/Ham.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 // Ham.c\r
  79 // Hamster テストプログラム\r
  80 // (UT-VPN の動作テストを行うための CUI プログラム。)\r
  81 \r
  82 \r
  83 \r
  84 #define HAM_C\r
  85 \r
  86 #ifdef  WIN32\r
  87 #define HAM_WIN32\r
  88 #define _WIN32_WINNT            0x0502\r
  89 #define WINVER                          0x0502\r
  90 #include <winsock2.h>\r
  91 #include <Ws2tcpip.h>\r
  92 #include <windows.h>\r
  93 #include <DbgHelp.h>\r
  94 #include <Iphlpapi.h>\r
  95 #include <wtsapi32.h>\r
  96 #include "../pencore/resource.h"\r
  97 #endif\r
  98 \r
  99 #include <stdio.h>\r
 100 #include <stdlib.h>\r
 101 #include <string.h>\r
 102 #include <wchar.h>\r
 103 #include <stdarg.h>\r
 104 #include <time.h>\r
 105 #include <errno.h>\r
 106 #include <math.h>\r
 107 #include <openssl/ssl.h>\r
 108 #include <openssl/err.h>\r
 109 #include <openssl/rand.h>\r
 110 #include <openssl/engine.h>\r
 111 #include <openssl/bio.h>\r
 112 #include <openssl/x509.h>\r
 113 #include <openssl/pkcs7.h>\r
 114 #include <openssl/pkcs12.h>\r
 115 #include <openssl/rc4.h>\r
 116 #include <openssl/md5.h>\r
 117 #include <openssl/sha.h>\r
 118 #include <Mayaqua/Mayaqua.h>\r
 119 #include <Cedar/Cedar.h>\r
 120 #include "Ham.h"\r
 121 \r
 122 // テスト関数一覧定義\r
 123 typedef void (TEST_PROC)(UINT num, char **arg);\r
 124 \r
 125 typedef struct TEST_LIST\r
 126 {\r
 127         char *command_str;\r
 128         TEST_PROC *proc;\r
 129 } TEST_LIST;\r
 130 \r
 131 typedef struct TESTST\r
 132 {\r
 133         USHORT a:4, b:4;\r
 134 } TESTST;\r
 135 \r
 136 void test(UINT num, char **arg)\r
 137 {\r
 138 }\r
 139 \r
 140 // デバッグ\r
 141 void debug(UINT num, char **arg)\r
 142 {\r
 143         // カーネル状態の表示\r
 144         if (g_debug)\r
 145         {\r
 146                 PrintKernelStatus();\r
 147         }\r
 148 \r
 149         // デバッグ情報の表示\r
 150         if (g_memcheck)\r
 151         {\r
 152                 PrintDebugInformation();\r
 153         }\r
 154 }\r
 155 \r
 156 void client_test(UINT num, char **arg)\r
 157 {\r
 158 #ifdef  OS_WIN32\r
 159         MsWriteCallingServiceManagerProcessId("utvpnclient", MsGetCurrentProcessId());\r
 160 #endif  // OS_WIN32\r
 161 \r
 162         Print("Client Test.\n");\r
 163         CtStartClient();\r
 164         GetLine(NULL, 0);\r
 165         CtStopClient();\r
 166 \r
 167 #ifdef  OS_WIN32\r
 168         MsWriteCallingServiceManagerProcessId("utvpnclient", 0);\r
 169 #endif  // OS_WIN32\r
 170 }\r
 171 \r
 172 void server_test(UINT num, char **arg)\r
 173 {\r
 174         UINT p[] = {52, 80, 8080, 3128};\r
 175         Print("Server Test.\n");\r
 176 \r
 177         if (num != 0)\r
 178         {\r
 179                 SERVER_CONFIG_FILE_NAME = "@vpn_member_server.config";\r
 180         }\r
 181 \r
 182         StInit();\r
 183 \r
 184         StStartServer(false);\r
 185 \r
 186         GetLine(NULL, 0);\r
 187 \r
 188         if (0 && num != 0)\r
 189         {\r
 190                 UINT ports[] = {443, 992};\r
 191                 UCHAR password[SHA1_SIZE];\r
 192                 Hash(password, "", 0, true);\r
 193                 SiSetServerType(StGetServer(), SERVER_TYPE_FARM_MEMBER, 0x0100007f,\r
 194                         sizeof(ports) / sizeof(ports[0]), ports, "pc1.sec.softether.co.jp", 5555, password, 0, false);\r
 195                 GetLine(NULL, 0);\r
 196         }\r
 197 \r
 198         if (0 && num == 0)\r
 199         {\r
 200                 HUB *h = GetHub(StGetServer()->Cedar, "DEFAULT");\r
 201                 SetHubOffline(h);\r
 202                 GetLine(NULL, 0);\r
 203                 SetHubOnline(h);\r
 204                 GetLine(NULL, 0);\r
 205                 ReleaseHub(h);\r
 206         }\r
 207 \r
 208         StStopServer();\r
 209 \r
 210         StFree();\r
 211 }\r
 212 \r
 213 void disablevlan(UINT num, char **arg)\r
 214 {\r
 215 #ifdef  OS_WIN32\r
 216         bool ok;\r
 217         if (num < 1)\r
 218         {\r
 219                 Print("NO NAME.\n");\r
 220                 return;\r
 221         }\r
 222 \r
 223         ok = MsDisableVLan(arg[0]);\r
 224 \r
 225 #ifdef  VISTA_HAM\r
 226         if (ok == false)\r
 227         {\r
 228                 _exit(1);\r
 229         }\r
 230         else\r
 231         {\r
 232                 _exit(0);\r
 233         }\r
 234 #endif\r
 235 #endif  // OS_WIN32\r
 236 }\r
 237 \r
 238 void enablevlan(UINT num, char **arg)\r
 239 {\r
 240 #ifdef  OS_WIN32\r
 241         bool ok;\r
 242         if (num < 1)\r
 243         {\r
 244                 Print("NO NAME.\n");\r
 245                 return;\r
 246         }\r
 247 \r
 248         ok = MsEnableVLan(arg[0]);\r
 249 \r
 250 #ifdef  VISTA_HAM\r
 251         if (ok == false)\r
 252         {\r
 253                 _exit(1);\r
 254         }\r
 255         else\r
 256         {\r
 257                 _exit(0);\r
 258         }\r
 259 #endif\r
 260 #endif  // OS_WIN32\r
 261 }\r
 262 \r
 263 void instvlan(UINT num, char **arg)\r
 264 {\r
 265 #ifdef  OS_WIN32\r
 266         KAKUSHI *k = NULL;\r
 267         bool ok;\r
 268         if (num < 1)\r
 269         {\r
 270                 Print("NO NAME.\n");\r
 271                 return;\r
 272         }\r
 273 \r
 274         InitWinUi(L"VPN", _SS("DEFAULT_FONT"), _II("DEFAULT_FONT_SIZE"));\r
 275 \r
 276         if (MsIsNt())\r
 277         {\r
 278                 k = InitKakushi();\r
 279         }\r
 280 \r
 281         ok = MsInstallVLan(VLAN_ADAPTER_NAME_TAG, VLAN_CONNECTION_NAME, arg[0]);\r
 282 \r
 283         FreeKakushi(k);\r
 284 \r
 285         FreeWinUi();\r
 286 \r
 287 #ifdef  VISTA_HAM\r
 288         if (ok == false)\r
 289         {\r
 290                 _exit(1);\r
 291         }\r
 292         else\r
 293         {\r
 294                 _exit(0);\r
 295         }\r
 296 #endif\r
 297 #endif\r
 298 }\r
 299 \r
 300 void upgradevlan(UINT num, char **arg)\r
 301 {\r
 302 #ifdef  OS_WIN32\r
 303         bool ok;\r
 304         KAKUSHI *k = NULL;\r
 305         if (num < 1)\r
 306         {\r
 307                 Print("NO NAME.\n");\r
 308                 return;\r
 309         }\r
 310 \r
 311         InitWinUi(L"VPN", _SS("DEFAULT_FONT"), _II("DEFAULT_FONT_SIZE"));\r
 312 \r
 313         if (MsIsNt())\r
 314         {\r
 315                 k = InitKakushi();\r
 316         }\r
 317 \r
 318         ok = MsUpgradeVLan(VLAN_ADAPTER_NAME_TAG, VLAN_CONNECTION_NAME, arg[0]);\r
 319 \r
 320         FreeKakushi(k);\r
 321 \r
 322         FreeWinUi();\r
 323 \r
 324 #ifdef  VISTA_HAM\r
 325         if (ok == false)\r
 326         {\r
 327                 _exit(1);\r
 328         }\r
 329         else\r
 330         {\r
 331                 _exit(0);\r
 332         }\r
 333 #endif\r
 334 #endif\r
 335 }\r
 336 \r
 337 void uninstvlan(UINT num, char **arg)\r
 338 {\r
 339 #ifdef  OS_WIN32\r
 340         bool ok;\r
 341         if (num < 1)\r
 342         {\r
 343                 Print("NO NAME.\n");\r
 344                 return;\r
 345         }\r
 346 \r
 347         ok = MsUninstallVLan(arg[0]);\r
 348 \r
 349 #ifdef  VISTA_HAM\r
 350         if (ok == false)\r
 351         {\r
 352                 _exit(1);\r
 353         }\r
 354         else\r
 355         {\r
 356                 _exit(0);\r
 357         }\r
 358 #endif\r
 359 #endif\r
 360 }\r
 361 \r
 362 void sm_test(UINT num, char **arg)\r
 363 {\r
 364 #ifdef  OS_WIN32\r
 365         SMExec();\r
 366 #endif\r
 367 }\r
 368 \r
 369 void cm_test(UINT num, char **arg)\r
 370 {\r
 371 #ifdef  OS_WIN32\r
 372         CMExec();\r
 373 #endif\r
 374 }\r
 375 \r
 376 TEST_LIST test_list[] =\r
 377 {\r
 378         {"cc", client_test},\r
 379         {"ss", server_test},\r
 380         {"instvlan", instvlan},\r
 381         {"uninstvlan", uninstvlan},\r
 382         {"upgradevlan", upgradevlan},\r
 383         {"enablevlan", enablevlan},\r
 384         {"disablevlan", disablevlan},\r
 385         {"cm", cm_test},\r
 386         {"sm", sm_test},\r
 387         {"test", test},\r
 388 };\r
 389 \r
 390 // テスト関数\r
 391 void TestMain(char *cmd)\r
 392 {\r
 393         char tmp[MAX_SIZE];\r
 394         bool first = true;\r
 395         bool exit_now = false;\r
 396 \r
 397         Print("SoftEther UT-VPN Hamster Tester\n\n"\r
 398                 "Copyright (C) 2004-2010 SoftEther Corporation.\nCopyright (C) 2004-2010 University of Tsukuba, Japan.\n"\r
 399                 "Copyright (C) 2003-2010 Daiyuu Nobori.\nAll Rights Reserved.\n\n");\r
 400 \r
 401 #ifdef  OS_WIN32\r
 402         MsSetEnableMinidump(false);\r
 403 #endif  // OS_WIN32\r
 404 \r
 405         while (true)\r
 406         {\r
 407                 Print("TEST>");\r
 408                 if (first && StrLen(cmd) != 0 && g_memcheck == false)\r
 409                 {\r
 410                         first = false;\r
 411                         StrCpy(tmp, sizeof(tmp), cmd);\r
 412                         exit_now = true;\r
 413                         Print("%s\n", cmd);\r
 414                 }\r
 415                 else\r
 416                 {\r
 417                         GetLine(tmp, sizeof(tmp));\r
 418                 }\r
 419                 Trim(tmp);\r
 420                 if (StrLen(tmp) != 0)\r
 421                 {\r
 422                         UINT i, num;\r
 423                         bool b = false;\r
 424                         TOKEN_LIST *token = ParseCmdLine(tmp);\r
 425                         char *cmd = token->Token[0];\r
 426                         if (!StrCmpi(cmd, "exit") || !StrCmpi(cmd, "quit") || !StrCmpi(cmd, "q"))\r
 427                         {\r
 428                                 FreeToken(token);\r
 429                                 break;\r
 430                         }\r
 431                         if (StartWith(tmp, "utvpncmd"))\r
 432                         {\r
 433                                 wchar_t *s = CopyStrToUni(tmp);\r
 434                                 CommandMain(s);\r
 435                                 Free(s);\r
 436                         }\r
 437                         else\r
 438                         {\r
 439                                 num = sizeof(test_list) / sizeof(TEST_LIST);\r
 440                                 for (i = 0;i < num;i++)\r
 441                                 {\r
 442                                         if (!StrCmpi(test_list[i].command_str, cmd))\r
 443                                         {\r
 444                                                 char **arg = Malloc(sizeof(char *) * (token->NumTokens - 1));\r
 445                                                 UINT j;\r
 446                                                 for (j = 0;j < token->NumTokens - 1;j++)\r
 447                                                 {\r
 448                                                         arg[j] = CopyStr(token->Token[j + 1]);\r
 449                                                 }\r
 450                                                 test_list[i].proc(token->NumTokens - 1, arg);\r
 451                                                 for (j = 0;j < token->NumTokens - 1;j++)\r
 452                                                 {\r
 453                                                         Free(arg[j]);\r
 454                                                 }\r
 455                                                 Free(arg);\r
 456                                                 b = true;\r
 457                                                 Print("\n");\r
 458                                                 break;\r
 459                                         }\r
 460                                 }\r
 461                                 if (b == false)\r
 462                                 {\r
 463                                         Print("Invalid Command: %s\n\n", cmd);\r
 464                                 }\r
 465                         }\r
 466                         FreeToken(token);\r
 467 \r
 468                         if (exit_now)\r
 469                         {\r
 470                                 break;\r
 471                         }\r
 472                 }\r
 473         }\r
 474         Print("Exiting...\n\n");\r
 475 }\r
 476 \r
 477 #ifdef  WIN32\r
 478 // winmain 関数\r
 479 int PASCAL WinMain(HINSTANCE hInst, HINSTANCE hPrev, char *CmdLine, int CmdShow)\r
 480 {\r
 481         main(0, NULL);\r
 482 }\r
 483 #endif\r
 484 \r
 485 // main 関数\r
 486 int main(int argc, char *argv[])\r
 487 {\r
 488         bool memchk = false;\r
 489         UINT i;\r
 490         char cmd[MAX_SIZE];\r
 491         char *s;\r
 492 \r
 493         printf("Starting Test Program...\n");\r
 494 \r
 495         cmd[0] = 0;\r
 496         if (argc >= 2)\r
 497         {\r
 498                 for (i = 1;i < (UINT)argc;i++)\r
 499                 {\r
 500                         s = argv[i];\r
 501                         if (s[0] == '/')\r
 502                         {\r
 503                                 if (!StrCmpi(s, "/memcheck"))\r
 504                                 {\r
 505                                         memchk = true;\r
 506                                 }\r
 507                         }\r
 508                         else\r
 509                         {\r
 510                                 StrCpy(cmd, sizeof(cmd), &s[0]);\r
 511                         }\r
 512                 }\r
 513         }\r
 514 \r
 515         InitMayaqua(memchk, true, argc, argv);\r
 516         EnableProbe(true);\r
 517         InitCedar();\r
 518         SetHamMode();\r
 519         TestMain(cmdline);\r
 520         FreeCedar();\r
 521         FreeMayaqua();\r
 522 \r
 523         return 0;\r
 524 }\r
 525 \r