1 // SoftEther UT-VPN SourceCode
\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
8 // http://utvpn.tsukuba.ac.jp/
\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
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
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
23 // このファイルは GPL バージョン 2 ライセンスで公開されています。
\r
24 // 誰でもこのファイルの内容を複製、改変したり、改変したバージョンを再配布
\r
25 // することができます。ただし、原著作物を改変した場合は、原著作物の著作権表示
\r
26 // を除去することはできません。改変した著作物を配布する場合は、改変実施者の
\r
27 // 著作権表示を原著作物の著作権表示に付随して記載するようにしてください。
\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
33 // 本プログラムの配布者は、本プログラムを、業としての利用以外のため、
\r
34 // および、試験または研究のために利用が行われることを想定して配布
\r
36 // SoftEther UT-VPN プロジェクトの Web サイトは http://utvpn.tsukuba.ac.jp/ に
\r
38 // 本ソフトウェアの不具合の修正、機能改良、セキュリティホールの修復などのコード
\r
39 // の改変を行った場合で、その成果物を SoftEther UT-VPN プロジェクトに提出して
\r
40 // いただける場合は、 http://utvpn.tsukuba.ac.jp/ までソースコードを送付して
\r
41 // ください。SoftEther UT-VPN プロジェクトの本体リリースまたはブランチリリース
\r
44 // GPL に基づいて原著作物が提供される本ソフトウェアの改良版を配布、販売する
\r
45 // 場合は、そのソースコードを GPL に基づいて誰にでも開示する義務が生じます。
\r
47 // 本ソフトウェアに関連する著作権、特許権、商標権はソフトイーサ株式会社
\r
48 // (SoftEther Corporation) およびその他の著作権保持者が保有しています。
\r
49 // ソフトイーサ株式会社等はこれらの権利を放棄していません。本ソフトウェアの
\r
50 // 二次著作物を配布、販売する場合は、これらの権利を侵害しないようにご注意
\r
53 // お願い: どのような通信ソフトウェアにも通常は必ず未発見の
\r
54 // セキュリティホールが潜んでいます。本ソースコードをご覧いただいた結果、
\r
55 // UT-VPN にセキュリティホールを発見された場合は、当該セキュリティホールの
\r
56 // 情報を不特定多数に開示される前に、必ず、ソフトイーサ株式会社
\r
57 // および脆弱性情報の届出を受け付ける公的機関まで通報いただき、
\r
58 // 公益保護にご協力いただきますようお願い申し上げます。
\r
60 // ソフトイーサ株式会社は、当該セキュリティホールについて迅速に対処を
\r
61 // 行い、UT-VPN および UT-VPN に関連するソフトウェアのユーザー・顧客
\r
64 // ソフトイーサへの届出先: http://www.softether.co.jp/jp/contact/
\r
65 // 日本国内の脆弱性情報届出受付公的機関:
\r
67 // http://www.ipa.go.jp/security/vuln/report/
\r
69 // 上記各事項について不明な点は、ソフトイーサ株式会社までご連絡ください。
\r
70 // 連絡先: http://www.softether.co.jp/jp/contact/
\r
72 // -----------------------------------------------
\r
75 // 新規リリース by SoftEther
\r
76 // -----------------------------------------------
\r
80 // (UT-VPN の動作テストを行うための CUI プログラム。)
\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
100 #include <stdlib.h>
\r
101 #include <string.h>
\r
103 #include <stdarg.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
123 typedef void (TEST_PROC)(UINT num, char **arg);
\r
125 typedef struct TEST_LIST
\r
131 typedef struct TESTST
\r
136 void test(UINT num, char **arg)
\r
141 void debug(UINT num, char **arg)
\r
146 PrintKernelStatus();
\r
152 PrintDebugInformation();
\r
156 void client_test(UINT num, char **arg)
\r
159 MsWriteCallingServiceManagerProcessId("utvpnclient", MsGetCurrentProcessId());
\r
162 Print("Client Test.\n");
\r
168 MsWriteCallingServiceManagerProcessId("utvpnclient", 0);
\r
172 void server_test(UINT num, char **arg)
\r
174 UINT p[] = {52, 80, 8080, 3128};
\r
175 Print("Server Test.\n");
\r
179 SERVER_CONFIG_FILE_NAME = "@vpn_member_server.config";
\r
184 StStartServer(false);
\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
200 HUB *h = GetHub(StGetServer()->Cedar, "DEFAULT");
\r
213 void disablevlan(UINT num, char **arg)
\r
219 Print("NO NAME.\n");
\r
223 ok = MsDisableVLan(arg[0]);
\r
238 void enablevlan(UINT num, char **arg)
\r
244 Print("NO NAME.\n");
\r
248 ok = MsEnableVLan(arg[0]);
\r
263 void instvlan(UINT num, char **arg)
\r
270 Print("NO NAME.\n");
\r
274 InitWinUi(L"VPN", _SS("DEFAULT_FONT"), _II("DEFAULT_FONT_SIZE"));
\r
281 ok = MsInstallVLan(VLAN_ADAPTER_NAME_TAG, VLAN_CONNECTION_NAME, arg[0]);
\r
300 void upgradevlan(UINT num, char **arg)
\r
307 Print("NO NAME.\n");
\r
311 InitWinUi(L"VPN", _SS("DEFAULT_FONT"), _II("DEFAULT_FONT_SIZE"));
\r
318 ok = MsUpgradeVLan(VLAN_ADAPTER_NAME_TAG, VLAN_CONNECTION_NAME, arg[0]);
\r
337 void uninstvlan(UINT num, char **arg)
\r
343 Print("NO NAME.\n");
\r
347 ok = MsUninstallVLan(arg[0]);
\r
362 void sm_test(UINT num, char **arg)
\r
369 void cm_test(UINT num, char **arg)
\r
376 TEST_LIST test_list[] =
\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
391 void TestMain(char *cmd)
\r
393 char tmp[MAX_SIZE];
\r
395 bool exit_now = false;
\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
402 MsSetEnableMinidump(false);
\r
408 if (first && StrLen(cmd) != 0 && g_memcheck == false)
\r
411 StrCpy(tmp, sizeof(tmp), cmd);
\r
413 Print("%s\n", cmd);
\r
417 GetLine(tmp, sizeof(tmp));
\r
420 if (StrLen(tmp) != 0)
\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
431 if (StartWith(tmp, "utvpncmd"))
\r
433 wchar_t *s = CopyStrToUni(tmp);
\r
439 num = sizeof(test_list) / sizeof(TEST_LIST);
\r
440 for (i = 0;i < num;i++)
\r
442 if (!StrCmpi(test_list[i].command_str, cmd))
\r
444 char **arg = Malloc(sizeof(char *) * (token->NumTokens - 1));
\r
446 for (j = 0;j < token->NumTokens - 1;j++)
\r
448 arg[j] = CopyStr(token->Token[j + 1]);
\r
450 test_list[i].proc(token->NumTokens - 1, arg);
\r
451 for (j = 0;j < token->NumTokens - 1;j++)
\r
463 Print("Invalid Command: %s\n\n", cmd);
\r
474 Print("Exiting...\n\n");
\r
479 int PASCAL WinMain(HINSTANCE hInst, HINSTANCE hPrev, char *CmdLine, int CmdShow)
\r
486 int main(int argc, char *argv[])
\r
488 bool memchk = false;
\r
490 char cmd[MAX_SIZE];
\r
493 printf("Starting Test Program...\n");
\r
498 for (i = 1;i < (UINT)argc;i++)
\r
503 if (!StrCmpi(s, "/memcheck"))
\r
510 StrCpy(cmd, sizeof(cmd), &s[0]);
\r
515 InitMayaqua(memchk, true, argc, argv);
\r