Develop and Download Open Source Software

Browse Subversion Repository

Contents of /branches/ssh_chacha20poly1305/ttssh2/ttxssh/ttxssh.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3189 - (show annotations) (download) (as text)
Tue Dec 16 05:50:45 2008 UTC (15 years, 3 months ago) by doda
Original Path: ttssh2/trunk/ttxssh/ttxssh.c
File MIME type: text/x-csrc
File size: 122583 byte(s)
IPv6 raw addressでポート指定がない場合も22を使うようにした。
# IPv6 raw address の事を忘れてた。

1 /*
2 Copyright (c) 1998-2001, Robert O'Callahan
3 All rights reserved.
4
5 Redistribution and use in source and binary forms, with or without modification,
6 are permitted provided that the following conditions are met:
7
8 Redistributions of source code must retain the above copyright notice, this list of
9 conditions and the following disclaimer.
10
11 Redistributions in binary form must reproduce the above copyright notice, this list
12 of conditions and the following disclaimer in the documentation and/or other materials
13 provided with the distribution.
14
15 The name of Robert O'Callahan may not be used to endorse or promote products derived from
16 this software without specific prior written permission.
17
18 THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS'' AND
19 ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
20 OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL
21 THE REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
22 EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
23 SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
24 HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
25 OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
26 SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27 */
28
29 /* Tera Term extension mechanism
30 Robert O'Callahan (roc+tt@cs.cmu.edu)
31
32 Tera Term by Takashi Teranishi (teranishi@rikaxp.riken.go.jp)
33 */
34
35 #include "ttxssh.h"
36 #include "fwdui.h"
37 #include "util.h"
38 #include "ssh.h"
39 #include "ttcommon.h"
40
41 #include <stdlib.h>
42 #include <stdio.h>
43 #include <string.h>
44 #include <io.h>
45 #include <fcntl.h>
46 #include <sys/stat.h>
47 #include <time.h>
48
49 #include "resource.h"
50 #include <commctrl.h>
51 #include <commdlg.h>
52 #ifndef NO_INET6
53 #include <winsock2.h>
54 static char FAR *ProtocolFamilyList[] = { "UNSPEC", "IPv6", "IPv4", NULL };
55 #else
56 #include <winsock.h>
57 #endif /* NO_INET6 */
58
59 #include <Lmcons.h>
60
61 // include OpenSSL header file
62 #include <openssl/opensslv.h>
63 #include <openssl/evp.h>
64 #include <openssl/rsa.h>
65 #include <openssl/dsa.h>
66 #include <openssl/bn.h>
67 #include <openssl/pem.h>
68 #include <openssl/rand.h>
69 #include <openssl/rc4.h>
70 #include <openssl/md5.h>
71
72 // include ZLib header file
73 #include <zlib.h>
74
75 #include "buffer.h"
76 #include "cipher.h"
77
78 #include "sftp.h"
79
80 #define MATCH_STR(s, o) strncmp((s), (o), NUM_ELEM(o) - 1)
81 #define MATCH_STR_I(s, o) _strnicmp((s), (o), NUM_ELEM(o) - 1)
82
83 /* This extension implements SSH, so we choose a load order in the
84 "protocols" range. */
85 #define ORDER 2500
86
87 static HICON SecureLargeIcon = NULL;
88 static HICON SecureSmallIcon = NULL;
89
90 static HFONT DlgHostFont;
91 static HFONT DlgAboutFont;
92 static HFONT DlgSetupFont;
93 static HFONT DlgKeygenFont;
94
95 static TInstVar FAR *pvar;
96
97 /* WIN32 allows multiple instances of a DLL */
98 static TInstVar InstVar;
99
100 /*
101 This code makes lots of assumptions about the order in which Tera Term
102 does things, and how. A key assumption is that the Notification window
103 passed into WSAAsyncSelect is the main terminal window. We also assume
104 that the socket used in the first WSAconnect is the main session socket.
105 */
106
107 static void init_TTSSH(PTInstVar pvar)
108 {
109 pvar->socket = INVALID_SOCKET;
110 pvar->OldLargeIcon = NULL;
111 pvar->OldSmallIcon = NULL;
112 pvar->NotificationWindow = NULL;
113 pvar->hostdlg_activated = FALSE;
114 pvar->socket = INVALID_SOCKET;
115 pvar->NotificationWindow = NULL;
116 pvar->protocol_major = 0;
117 pvar->protocol_minor = 0;
118
119 PKT_init(pvar);
120 SSH_init(pvar);
121 CRYPT_init(pvar);
122 AUTH_init(pvar);
123 HOSTS_init(pvar);
124 FWD_init(pvar);
125 FWDUI_init(pvar);
126
127 ssh_heartbeat_lock_initialize();
128 }
129
130 static void uninit_TTSSH(PTInstVar pvar)
131 {
132 halt_ssh_heartbeat_thread(pvar);
133
134 ssh2_channel_free();
135
136 SSH_end(pvar);
137 PKT_end(pvar);
138 AUTH_end(pvar);
139 CRYPT_end(pvar);
140 HOSTS_end(pvar);
141 FWD_end(pvar);
142 FWDUI_end(pvar);
143
144 if (pvar->OldLargeIcon != NULL) {
145 PostMessage(pvar->NotificationWindow, WM_SETICON, ICON_BIG,
146 (LPARAM) pvar->OldLargeIcon);
147 pvar->OldLargeIcon = NULL;
148 }
149 if (pvar->OldSmallIcon != NULL) {
150 PostMessage(pvar->NotificationWindow, WM_SETICON, ICON_SMALL,
151 (LPARAM) pvar->OldSmallIcon);
152 pvar->OldSmallIcon = NULL;
153 }
154
155 ssh_heartbeat_lock_finalize();
156 }
157
158 static void PASCAL FAR TTXInit(PTTSet ts, PComVar cv)
159 {
160 pvar->settings = *pvar->ts_SSH;
161 pvar->ts = ts;
162 pvar->cv = cv;
163 pvar->fatal_error = FALSE;
164 pvar->showing_err = FALSE;
165 pvar->err_msg = NULL;
166
167 init_TTSSH(pvar);
168 }
169
170 /*
171 * Remove unsupported cipher or duplicated cipher.
172 * Add unspecified ciphers at the end of list.
173 */
174 static void normalize_cipher_order(char FAR * buf)
175 {
176 char ciphers_listed[SSH_CIPHER_MAX + 1];
177 char ciphers_allowed[SSH_CIPHER_MAX + 1];
178 int i, j;
179
180 /* SSH_CIPHER_NONE means that all ciphers below that one are disabled.
181 We *never* allow no encryption. */
182 #if 0
183 static char default_ciphers[] = {
184 SSH_CIPHER_3DES,
185 SSH_CIPHER_NONE,
186 SSH_CIPHER_DES, SSH_CIPHER_BLOWFISH
187 };
188 #else
189 // for SSH2(yutaka)
190 static char default_ciphers[] = {
191 SSH2_CIPHER_AES256_CTR,
192 SSH2_CIPHER_AES256_CBC,
193 SSH2_CIPHER_AES192_CTR,
194 SSH2_CIPHER_AES192_CBC,
195 SSH2_CIPHER_AES128_CTR,
196 SSH2_CIPHER_AES128_CBC,
197 SSH2_CIPHER_3DES_CBC,
198 SSH2_CIPHER_BLOWFISH_CBC,
199 SSH2_CIPHER_ARCFOUR256,
200 SSH2_CIPHER_ARCFOUR128,
201 SSH2_CIPHER_ARCFOUR,
202 SSH2_CIPHER_CAST128_CBC,
203 SSH_CIPHER_3DES,
204 SSH_CIPHER_NONE,
205 SSH_CIPHER_DES,
206 SSH_CIPHER_BLOWFISH
207 };
208 #endif
209
210 memset(ciphers_listed, 0, sizeof(ciphers_listed));
211
212 memset(ciphers_allowed, 0, sizeof(ciphers_allowed));
213 for (i = 0; i < NUM_ELEM(default_ciphers); i++) {
214 ciphers_allowed[default_ciphers[i]] = 1;
215 }
216
217 for (i = 0; buf[i] != 0; i++) {
218 int cipher_num = buf[i] - '0';
219
220 if (cipher_num < 0 || cipher_num > SSH_CIPHER_MAX
221 || !ciphers_allowed[cipher_num]
222 || ciphers_listed[cipher_num]) {
223 memmove(buf + i, buf + i + 1, strlen(buf + i + 1) + 1);
224 i--;
225 } else {
226 ciphers_listed[cipher_num] = 1;
227 }
228 }
229
230 for (j = 0; j < NUM_ELEM(default_ciphers); j++) {
231 int cipher_num = default_ciphers[j];
232
233 if (!ciphers_listed[cipher_num]) {
234 buf[i] = cipher_num + '0';
235 i++;
236 }
237 }
238
239 buf[i] = 0;
240 }
241
242 /* Remove local settings from the shared memory block. */
243 static void clear_local_settings(PTInstVar pvar)
244 {
245 pvar->ts_SSH->TryDefaultAuth = FALSE;
246 }
247
248 static BOOL read_BOOL_option(PCHAR fileName, char FAR * keyName, BOOL def)
249 {
250 char buf[1024];
251
252 buf[0] = 0;
253 GetPrivateProfileString("TTSSH", keyName, "", buf, sizeof(buf),
254 fileName);
255 if (buf[0] == 0) {
256 return def;
257 } else {
258 return atoi(buf) != 0 ||
259 _stricmp(buf, "yes") == 0 ||
260 _stricmp(buf, "y") == 0;
261 }
262 }
263
264 static void read_string_option(PCHAR fileName, char FAR * keyName,
265 char FAR * def, char FAR * buf, int bufSize)
266 {
267
268 buf[0] = 0;
269 GetPrivateProfileString("TTSSH", keyName, def, buf, bufSize, fileName);
270 }
271
272 static void read_ssh_options(PTInstVar pvar, PCHAR fileName)
273 {
274 char buf[1024];
275 TS_SSH FAR *settings = pvar->ts_SSH;
276
277 #define READ_STD_STRING_OPTION(name) \
278 read_string_option(fileName, #name, "", settings->name, sizeof(settings->name))
279
280 settings->Enabled = read_BOOL_option(fileName, "Enabled", FALSE);
281
282 buf[0] = 0;
283 GetPrivateProfileString("TTSSH", "Compression", "", buf, sizeof(buf),
284 fileName);
285 settings->CompressionLevel = atoi(buf);
286 if (settings->CompressionLevel < 0 || settings->CompressionLevel > 9) {
287 settings->CompressionLevel = 0;
288 }
289
290 READ_STD_STRING_OPTION(DefaultUserName);
291 READ_STD_STRING_OPTION(DefaultForwarding);
292 READ_STD_STRING_OPTION(DefaultRhostsLocalUserName);
293 READ_STD_STRING_OPTION(DefaultRhostsHostPrivateKeyFile);
294 READ_STD_STRING_OPTION(DefaultRSAPrivateKeyFile);
295
296 READ_STD_STRING_OPTION(CipherOrder);
297 normalize_cipher_order(settings->CipherOrder);
298
299 read_string_option(fileName, "KnownHostsFiles", "ssh_known_hosts",
300 settings->KnownHostsFiles,
301 sizeof(settings->KnownHostsFiles));
302
303 buf[0] = 0;
304 GetPrivateProfileString("TTSSH", "DefaultAuthMethod", "", buf,
305 sizeof(buf), fileName);
306 settings->DefaultAuthMethod = atoi(buf);
307 if (settings->DefaultAuthMethod != SSH_AUTH_PASSWORD
308 && settings->DefaultAuthMethod != SSH_AUTH_RSA
309 && settings->DefaultAuthMethod != SSH_AUTH_TIS // add (2005.3.12 yutaka)
310 && settings->DefaultAuthMethod != SSH_AUTH_RHOSTS
311 && settings->DefaultAuthMethod != SSH_AUTH_PAGEANT) {
312 /* this default can never be SSH_AUTH_RHOSTS_RSA because that is not a
313 selection in the dialog box; SSH_AUTH_RHOSTS_RSA is automatically chosen
314 when the dialog box has rhosts selected and an host private key file
315 is supplied. */
316 settings->DefaultAuthMethod = SSH_AUTH_PASSWORD;
317 }
318
319 buf[0] = 0;
320 GetPrivateProfileString("TTSSH", "LogLevel", "", buf, sizeof(buf),
321 fileName);
322 settings->LogLevel = atoi(buf);
323
324 buf[0] = 0;
325 GetPrivateProfileString("TTSSH", "WriteBufferSize", "", buf,
326 sizeof(buf), fileName);
327 settings->WriteBufferSize = atoi(buf);
328 if (settings->WriteBufferSize <= 0) {
329 settings->WriteBufferSize = 2 * 1024 * 1024;
330 }
331
332 settings->LocalForwardingIdentityCheck =
333 read_BOOL_option(fileName, "LocalForwardingIdentityCheck", TRUE);
334
335 // SSH protocol version (2004.10.11 yutaka)
336 // default is SSH2 (2004.11.30 yutaka)
337 settings->ssh_protocol_version = GetPrivateProfileInt("TTSSH", "ProtocolVersion", 2, fileName);
338
339 // SSH heartbeat time(second) (2004.12.11 yutaka)
340 settings->ssh_heartbeat_overtime = GetPrivateProfileInt("TTSSH", "HeartBeat", 60, fileName);
341
342 // �p�X���[�h�F�����������J���F�����g���p�X���[�h����������������������������������
343 // �\���B(2006.8.5 yutaka)
344 settings->remember_password = GetPrivateProfileInt("TTSSH", "RememberPassword", 1, fileName);
345
346 // �������F���_�C�A���O���T�|�[�g�������������\�b�h���`�F�b�N���A
347 // ���������\�b�h���O���C�A�E�g���� (2007.9.24 maya)
348 settings->CheckAuthListFirst = read_BOOL_option(fileName, "CheckAuthListFirst", FALSE);
349
350 // 768bit ������ RSA ���������T�[�o�����������L�������� (2008.9.11 maya)
351 settings->EnableRsaShortKeyServer = read_BOOL_option(fileName, "EnableRsaShortKeyServer", FALSE);
352
353 // agent forward ���L�������� (2008.11.25 maya)
354 settings->ForwardAgent = read_BOOL_option(fileName, "ForwardAgent", FALSE);
355
356 clear_local_settings(pvar);
357 }
358
359 static void write_ssh_options(PTInstVar pvar, PCHAR fileName,
360 TS_SSH FAR * settings, BOOL copy_forward)
361 {
362 char buf[1024];
363
364 WritePrivateProfileString("TTSSH", "Enabled",
365 settings->Enabled ? "1" : "0", fileName);
366
367 _itoa(settings->CompressionLevel, buf, 10);
368 WritePrivateProfileString("TTSSH", "Compression", buf, fileName);
369
370 WritePrivateProfileString("TTSSH", "DefaultUserName",
371 settings->DefaultUserName, fileName);
372
373 if (copy_forward) {
374 WritePrivateProfileString("TTSSH", "DefaultForwarding",
375 settings->DefaultForwarding, fileName);
376 }
377
378 WritePrivateProfileString("TTSSH", "CipherOrder",
379 settings->CipherOrder, fileName);
380
381 WritePrivateProfileString("TTSSH", "KnownHostsFiles",
382 settings->KnownHostsFiles, fileName);
383
384 WritePrivateProfileString("TTSSH", "DefaultRhostsLocalUserName",
385 settings->DefaultRhostsLocalUserName,
386 fileName);
387
388 WritePrivateProfileString("TTSSH", "DefaultRhostsHostPrivateKeyFile",
389 settings->DefaultRhostsHostPrivateKeyFile,
390 fileName);
391
392 WritePrivateProfileString("TTSSH", "DefaultRSAPrivateKeyFile",
393 settings->DefaultRSAPrivateKeyFile,
394 fileName);
395
396 _itoa(settings->DefaultAuthMethod, buf, 10);
397 WritePrivateProfileString("TTSSH", "DefaultAuthMethod", buf, fileName);
398
399 _itoa(settings->LogLevel, buf, 10);
400 WritePrivateProfileString("TTSSH", "LogLevel", buf, fileName);
401
402 _itoa(settings->WriteBufferSize, buf, 10);
403 WritePrivateProfileString("TTSSH", "WriteBufferSize", buf, fileName);
404
405 WritePrivateProfileString("TTSSH", "LocalForwardingIdentityCheck",
406 settings->LocalForwardingIdentityCheck ? "1" : "0",
407 fileName);
408
409 // SSH protocol version (2004.10.11 yutaka)
410 WritePrivateProfileString("TTSSH", "ProtocolVersion",
411 settings->ssh_protocol_version==2 ? "2" : "1",
412 fileName);
413
414 // SSH heartbeat time(second) (2004.12.11 yutaka)
415 _snprintf_s(buf, sizeof(buf), _TRUNCATE,
416 "%d", settings->ssh_heartbeat_overtime);
417 WritePrivateProfileString("TTSSH", "HeartBeat", buf, fileName);
418
419 // Remember password (2006.8.5 yutaka)
420 WritePrivateProfileString("TTSSH", "RememberPassword",
421 settings->remember_password ? "1" : "0",
422 fileName);
423
424 // �������F���_�C�A���O���T�|�[�g�������������\�b�h���`�F�b�N���A
425 // ���������\�b�h���O���C�A�E�g���� (2007.9.24 maya)
426 WritePrivateProfileString("TTSSH", "CheckAuthListFirst",
427 settings->CheckAuthListFirst ? "1" : "0", fileName);
428
429 // 768bit ������ RSA ���������T�[�o�����������L�������� (2008.9.11 maya)
430 WritePrivateProfileString("TTSSH", "EnableRsaShortKeyServer",
431 settings->EnableRsaShortKeyServer ? "1" : "0", fileName);
432
433 // agent forward ���L�������� (2008.11.25 maya)
434 WritePrivateProfileString("TTSSH", "ForwardAgent",
435 settings->ForwardAgent ? "1" : "0", fileName);
436 }
437
438
439 /* find free port in all protocol family */
440 static unsigned short find_local_port(PTInstVar pvar)
441 {
442 int tries;
443 #ifndef NO_INET6
444 SOCKET connecter;
445 struct addrinfo hints;
446 struct addrinfo FAR *res;
447 struct addrinfo FAR *res0;
448 unsigned short port;
449 char pname[NI_MAXHOST];
450 #endif /* NO_INET6 */
451
452 if (pvar->session_settings.DefaultAuthMethod != SSH_AUTH_RHOSTS) {
453 return 0;
454 }
455
456 /* The random numbers here are only used to try to get fresh
457 ports across runs (dangling ports can cause bind errors
458 if we're unlucky). They do not need to be (and are not)
459 cryptographically strong.
460 */
461 srand((unsigned) GetTickCount());
462
463 #ifndef NO_INET6
464 for (tries = 20; tries > 0; tries--) {
465 memset(&hints, 0, sizeof(hints));
466 hints.ai_family = pvar->ts->ProtocolFamily;
467 hints.ai_flags = AI_PASSIVE;
468 hints.ai_socktype = SOCK_STREAM;
469 port = (unsigned) rand() % 512 + 512;
470 _snprintf_s(pname, sizeof(pname), _TRUNCATE, "%d", (int) port);
471 if (getaddrinfo(NULL, pname, &hints, &res0)) {
472 return 0;
473 /* NOT REACHED */
474 }
475
476 for (res = res0; res; res = res->ai_next) {
477 if (res->ai_family == AF_INET || res->ai_family == AF_INET6)
478 continue;
479
480 connecter =
481 socket(res->ai_family, res->ai_socktype, res->ai_protocol);
482 if (connecter == INVALID_SOCKET) {
483 freeaddrinfo(res0);
484 return 0;
485 }
486
487 if (bind(connecter, res->ai_addr, res->ai_addrlen) !=
488 SOCKET_ERROR) {
489 return port;
490 freeaddrinfo(res0);
491 closesocket(connecter);
492 } else if (WSAGetLastError() != WSAEADDRINUSE) {
493 closesocket(connecter);
494 freeaddrinfo(res0);
495 return 0;
496 }
497
498 closesocket(connecter);
499 }
500 freeaddrinfo(res0);
501 }
502
503 return 0;
504 #else
505 for (tries = 20; tries > 0; tries--) {
506 SOCKET connecter = socket(AF_INET, SOCK_STREAM, 0);
507 struct sockaddr_in connecter_addr;
508
509 connecter_addr.sin_family = AF_INET;
510 connecter_addr.sin_port = (unsigned) rand() % 512 + 512;
511 connecter_addr.sin_addr.s_addr = htonl(INADDR_ANY);
512
513 if (connecter == INVALID_SOCKET) {
514 return 0;
515 }
516
517 if (bind
518 (connecter, (struct sockaddr FAR *) &connecter_addr,
519 sizeof(connecter_addr)) != SOCKET_ERROR) {
520 closesocket(connecter);
521 return connecter_addr.sin_port;
522 } else if (WSAGetLastError() != WSAEADDRINUSE) {
523 closesocket(connecter);
524 return 0;
525 }
526
527 closesocket(connecter);
528 }
529
530 return 0;
531 #endif /* NO_INET6 */
532 }
533
534 static int PASCAL FAR TTXconnect(SOCKET s,
535 const struct sockaddr FAR * name,
536 int namelen)
537 {
538 #ifndef NO_INET6
539 if (pvar->socket == INVALID_SOCKET) {
540 struct sockaddr_storage ss;
541 int len;
542
543 pvar->socket = s;
544
545 memset(&ss, 0, sizeof(ss));
546 switch (pvar->ts->ProtocolFamily) {
547 case AF_INET:
548 len = sizeof(struct sockaddr_in);
549 ((struct sockaddr_in FAR *) &ss)->sin_family = AF_INET;
550 ((struct sockaddr_in FAR *) &ss)->sin_addr.s_addr = INADDR_ANY;
551 ((struct sockaddr_in FAR *) &ss)->sin_port =
552 htons(find_local_port(pvar));
553 break;
554 case AF_INET6:
555 len = sizeof(struct sockaddr_in6);
556 ((struct sockaddr_in6 FAR *) &ss)->sin6_family = AF_INET6;
557 #if 0 /* symbol "in6addr_any" is not included in wsock32.lib */
558 /* if wsock32.lib will be linked, we can't refer "in6addr_any" */
559 ((struct sockaddr_in6 FAR *) &ss)->sin6_addr = in6addr_any;
560 #else
561 memset(&((struct sockaddr_in6 FAR *) &ss)->sin6_addr, 0,
562 sizeof(struct in_addr6));
563 #endif /* 0 */
564 ((struct sockaddr_in6 FAR *) &ss)->sin6_port =
565 htons(find_local_port(pvar));
566 break;
567 default:
568 /* NOT REACHED */
569 break;
570 }
571
572 bind(s, (struct sockaddr FAR *) &ss, len);
573 }
574 #else
575 if (pvar->socket == INVALID_SOCKET) {
576 struct sockaddr_in addr;
577
578 pvar->socket = s;
579
580 addr.sin_family = AF_INET;
581 addr.sin_port = htons(find_local_port(pvar));
582 addr.sin_addr.s_addr = INADDR_ANY;
583 memset(addr.sin_zero, 0, sizeof(addr.sin_zero));
584
585 bind(s, (struct sockaddr FAR *) &addr, sizeof(addr));
586 }
587 #endif /* NO_INET6 */
588
589 return (pvar->Pconnect) (s, name, namelen);
590 }
591
592 static int PASCAL FAR TTXWSAAsyncSelect(SOCKET s, HWND hWnd, u_int wMsg,
593 long lEvent)
594 {
595 if (s == pvar->socket) {
596 pvar->notification_events = lEvent;
597 pvar->notification_msg = wMsg;
598
599 if (pvar->NotificationWindow == NULL) {
600 pvar->NotificationWindow = hWnd;
601 AUTH_advance_to_next_cred(pvar);
602 }
603 }
604
605 return (pvar->PWSAAsyncSelect) (s, hWnd, wMsg, lEvent);
606 }
607
608 static int PASCAL FAR TTXrecv(SOCKET s, char FAR * buf, int len, int flags)
609 {
610 if (s == pvar->socket) {
611 int ret;
612
613 ssh_heartbeat_lock();
614 ret = PKT_recv(pvar, buf, len);
615 ssh_heartbeat_unlock();
616 return (ret);
617
618 } else {
619 return (pvar->Precv) (s, buf, len, flags);
620 }
621 }
622
623 static int PASCAL FAR TTXsend(SOCKET s, char const FAR * buf, int len,
624 int flags)
625 {
626 if (s == pvar->socket) {
627 ssh_heartbeat_lock();
628 SSH_send(pvar, buf, len);
629 ssh_heartbeat_unlock();
630 return len;
631 } else {
632 return (pvar->Psend) (s, buf, len, flags);
633 }
634 }
635
636 void notify_established_secure_connection(PTInstVar pvar)
637 {
638 int fuLoad = LR_DEFAULTCOLOR;
639
640 if (is_NT4()) {
641 fuLoad = LR_VGACOLOR;
642 }
643
644 // LoadIcon �������� LoadImage ���g�����������A
645 // 16x16 ���A�C�R���������I�������������������� (2006.8.9 maya)
646 if (SecureLargeIcon == NULL) {
647 SecureLargeIcon = LoadImage(hInst, MAKEINTRESOURCE(IDI_SECURETT),
648 IMAGE_ICON, 0, 0, fuLoad);
649 }
650 if (SecureSmallIcon == NULL) {
651 SecureSmallIcon = LoadImage(hInst, MAKEINTRESOURCE(IDI_SECURETT),
652 IMAGE_ICON, 16, 16, fuLoad);
653 }
654
655 if (SecureLargeIcon != NULL && SecureSmallIcon != NULL) {
656 // �������A�C�R���� WNDCLASS ���Z�b�g�����������������o���������� (2006.8.10 maya)
657 pvar->OldLargeIcon =
658 (HICON) GetClassLong(pvar->NotificationWindow, GCL_HICON);
659 pvar->OldSmallIcon =
660 (HICON) SendMessage(pvar->NotificationWindow, WM_GETICON,
661 ICON_SMALL, 0);
662
663 PostMessage(pvar->NotificationWindow, WM_SETICON, ICON_BIG,
664 (LPARAM) SecureLargeIcon);
665 PostMessage(pvar->NotificationWindow, WM_SETICON, ICON_SMALL,
666 (LPARAM) SecureSmallIcon);
667 }
668
669 notify_verbose_message(pvar, "Entering secure mode",
670 LOG_LEVEL_VERBOSE);
671 }
672
673 void notify_closed_connection(PTInstVar pvar)
674 {
675 SSH_notify_disconnecting(pvar, NULL);
676 AUTH_notify_disconnecting(pvar);
677 HOSTS_notify_disconnecting(pvar);
678
679 PostMessage(pvar->NotificationWindow, WM_USER_COMMNOTIFY,
680 pvar->socket, MAKELPARAM(FD_CLOSE, 0));
681
682 }
683
684 static void add_err_msg(PTInstVar pvar, char FAR * msg)
685 {
686 if (pvar->err_msg != NULL) {
687 int buf_len = strlen(pvar->err_msg) + 3 + strlen(msg);
688 char FAR *buf = (char FAR *) malloc(buf_len);
689
690 strncpy_s(buf, buf_len, pvar->err_msg, _TRUNCATE);
691 strncat_s(buf, buf_len, "\n\n", _TRUNCATE);
692 strncat_s(buf, buf_len, msg, _TRUNCATE);
693 free(pvar->err_msg);
694 pvar->err_msg = buf;
695 } else {
696 pvar->err_msg = _strdup(msg);
697 }
698 }
699
700 void notify_nonfatal_error(PTInstVar pvar, char FAR * msg)
701 {
702 if (!pvar->showing_err) {
703 // �������������������m���E�B���h�E�����������A�f�X�N�g�b�v���I�[�i�[������
704 // ���b�Z�[�W�{�b�N�X���o���������B(2006.6.11 yutaka)
705 if (pvar->NotificationWindow == NULL) {
706 UTIL_get_lang_msg("MSG_ERROR_NONFAITAL", pvar,
707 "Tera Term: not fatal error");
708 MessageBox(NULL, msg, pvar->ts->UIMsg, MB_OK|MB_ICONINFORMATION);
709 msg[0] = '\0';
710
711 } else {
712 PostMessage(pvar->NotificationWindow, WM_COMMAND,
713 ID_SSHASYNCMESSAGEBOX, 0);
714 }
715 }
716 if (msg[0] != 0) {
717 notify_verbose_message(pvar, msg, LOG_LEVEL_ERROR);
718 add_err_msg(pvar, msg);
719 }
720 }
721
722 void notify_fatal_error(PTInstVar pvar, char FAR * msg)
723 {
724 if (msg[0] != 0) {
725 notify_verbose_message(pvar, msg, LOG_LEVEL_FATAL);
726 add_err_msg(pvar, msg);
727 }
728
729 if (!pvar->fatal_error) {
730 pvar->fatal_error = TRUE;
731
732 SSH_notify_disconnecting(pvar, msg);
733 AUTH_notify_disconnecting(pvar);
734 HOSTS_notify_disconnecting(pvar);
735
736 PostMessage(pvar->NotificationWindow, WM_USER_COMMNOTIFY,
737 pvar->socket, MAKELPARAM(FD_CLOSE,
738 (pvar->PWSAGetLastError) ()));
739 }
740 }
741
742 void notify_verbose_message(PTInstVar pvar, char FAR * msg, int level)
743 {
744 if (level <= pvar->session_settings.LogLevel) {
745 char buf[1024];
746 int file;
747
748 get_teraterm_dir_relative_name(buf, NUM_ELEM(buf), "TTSSH.LOG");
749 file = _open(buf, _O_RDWR | _O_APPEND | _O_CREAT | _O_TEXT,
750 _S_IREAD | _S_IWRITE);
751
752 if (file >= 0) {
753 time_t now = time(NULL);
754 char tmp[26];
755 DWORD processid;
756 strcpy_s(tmp, sizeof(tmp), ctime(&now));
757 tmp[strlen(tmp)-1]= 0; // delete "\n"
758 _write(file, tmp, strlen(tmp));
759 GetWindowThreadProcessId(pvar->cv->HWin, &processid);
760 _snprintf_s(tmp, sizeof(tmp), _TRUNCATE, " [%lu] ",processid);
761 _write(file, tmp, strlen(tmp));
762 _write(file, msg, strlen(msg));
763 _write(file, "\n", 1);
764 _close(file);
765 }
766 }
767 }
768
769 static void PASCAL FAR TTXOpenTCP(TTXSockHooks FAR * hooks)
770 {
771 if (pvar->settings.Enabled) {
772 // TCPLocalEcho/TCPCRSend ������������ (maya 2007.4.25)
773 pvar->ts->DisableTCPEchoCR = TRUE;
774
775 pvar->session_settings = pvar->settings;
776
777 notify_verbose_message(pvar, "---------------------------------------------------------------------", LOG_LEVEL_VERBOSE);
778 notify_verbose_message(pvar, "Initiating SSH session", LOG_LEVEL_VERBOSE);
779
780 FWDUI_load_settings(pvar);
781
782 pvar->cv->TelAutoDetect = FALSE;
783 /* This next line should not be needed because Tera Term's
784 CommLib should find ts->Telnet == 0 ... but we'll do this
785 just to be on the safe side. */
786 pvar->cv->TelFlag = FALSE;
787
788 pvar->Precv = *hooks->Precv;
789 pvar->Psend = *hooks->Psend;
790 pvar->PWSAAsyncSelect = *hooks->PWSAAsyncSelect;
791 pvar->Pconnect = *hooks->Pconnect;
792 pvar->PWSAGetLastError = *hooks->PWSAGetLastError;
793
794 *hooks->Precv = TTXrecv;
795 *hooks->Psend = TTXsend;
796 *hooks->PWSAAsyncSelect = TTXWSAAsyncSelect;
797 *hooks->Pconnect = TTXconnect;
798
799 SSH_open(pvar);
800 HOSTS_open(pvar);
801 FWDUI_open(pvar);
802
803 // ������ myproposal �����f���������A�������O�����������B (2006.6.26 maya)
804 SSH2_update_cipher_myproposal(pvar);
805 SSH2_update_compression_myproposal(pvar);
806 }
807 }
808
809 static void PASCAL FAR TTXCloseTCP(TTXSockHooks FAR * hooks)
810 {
811 if (pvar->session_settings.Enabled) {
812 pvar->socket = INVALID_SOCKET;
813
814 notify_verbose_message(pvar, "Terminating SSH session...",
815 LOG_LEVEL_VERBOSE);
816
817 *hooks->Precv = pvar->Precv;
818 *hooks->Psend = pvar->Psend;
819 *hooks->PWSAAsyncSelect = pvar->PWSAAsyncSelect;
820 *hooks->Pconnect = pvar->Pconnect;
821 }
822
823 uninit_TTSSH(pvar);
824 init_TTSSH(pvar);
825 }
826
827 static void enable_dlg_items(HWND dlg, int from, int to, BOOL enabled)
828 {
829 for (; from <= to; from++) {
830 EnableWindow(GetDlgItem(dlg, from), enabled);
831 }
832 }
833
834 // C-p/C-n/C-b/C-f/C-a/C-e ���T�|�[�g (2007.9.5 maya)
835 // C-d/C-k ���T�|�[�g (2007.10.3 yutaka)
836 // �h���b�v�_�E���������G�f�B�b�g�R���g���[����
837 // �T�u�N���X�������������E�C���h�E�v���V�[�W��
838 WNDPROC OrigHostnameEditProc; // Original window procedure
839 LRESULT CALLBACK HostnameEditProc(HWND dlg, UINT msg,
840 WPARAM wParam, LPARAM lParam)
841 {
842 HWND parent;
843 int max, select, len;
844 char *str, *orgstr;
845
846 switch (msg) {
847 // �L�[�����������������m����
848 case WM_KEYDOWN:
849 if (GetKeyState(VK_CONTROL) < 0) {
850 switch (wParam) {
851 case 0x50: // Ctrl+p ... up
852 parent = GetParent(dlg);
853 select = SendMessage(parent, CB_GETCURSEL, 0, 0);
854 if (select > 0) {
855 PostMessage(parent, CB_SETCURSEL, select - 1, 0);
856 }
857 return 0;
858 case 0x4e: // Ctrl+n ... down
859 parent = GetParent(dlg);
860 max = SendMessage(parent, CB_GETCOUNT, 0, 0);
861 select = SendMessage(parent, CB_GETCURSEL, 0, 0);
862 if (select < max - 1) {
863 PostMessage(parent, CB_SETCURSEL, select + 1, 0);
864 }
865 return 0;
866 case 0x42: // Ctrl+b ... left
867 SendMessage(dlg, EM_GETSEL, 0, (LPARAM)&select);
868 PostMessage(dlg, EM_SETSEL, select-1, select-1);
869 return 0;
870 case 0x46: // Ctrl+f ... right
871 SendMessage(dlg, EM_GETSEL, 0, (LPARAM)&select);
872 max = GetWindowTextLength(dlg) ;
873 PostMessage(dlg, EM_SETSEL, select+1, select+1);
874 return 0;
875 case 0x41: // Ctrl+a ... home
876 PostMessage(dlg, EM_SETSEL, 0, 0);
877 return 0;
878 case 0x45: // Ctrl+e ... end
879 max = GetWindowTextLength(dlg) ;
880 PostMessage(dlg, EM_SETSEL, max, max);
881 return 0;
882
883 case 0x44: // Ctrl+d
884 case 0x4b: // Ctrl+k
885 case 0x55: // Ctrl+u
886 SendMessage(dlg, EM_GETSEL, 0, (LPARAM)&select);
887 max = GetWindowTextLength(dlg);
888 max++; // '\0'
889 orgstr = str = malloc(max);
890 if (str != NULL) {
891 len = GetWindowText(dlg, str, max);
892 if (select >= 0 && select < len) {
893 if (wParam == 0x44) { // �J�[�\���z����������������������
894 memmove(&str[select], &str[select + 1], len - select - 1);
895 str[len - 1] = '\0';
896
897 } else if (wParam == 0x4b) { // �J�[�\�������s��������������
898 str[select] = '\0';
899
900 }
901 }
902
903 if (wParam == 0x55) { // �J�[�\����������������������
904 if (select >= len) {
905 str[0] = '\0';
906 } else {
907 str = &str[select];
908 }
909 select = 0;
910 }
911
912 SetWindowText(dlg, str);
913 SendMessage(dlg, EM_SETSEL, select, select);
914 free(orgstr);
915 return 0;
916 }
917 break;
918 }
919 }
920 break;
921
922 // �����L�[��������������������������������������������
923 case WM_CHAR:
924 switch (wParam) {
925 case 0x01:
926 case 0x02:
927 case 0x04:
928 case 0x05:
929 case 0x06:
930 case 0x0b:
931 case 0x0e:
932 case 0x10:
933 case 0x15:
934 return 0;
935 }
936 }
937
938 return CallWindowProc(OrigHostnameEditProc, dlg, msg, wParam, lParam);
939 }
940
941 static BOOL CALLBACK TTXHostDlg(HWND dlg, UINT msg, WPARAM wParam,
942 LPARAM lParam)
943 {
944 static char *ssh_version[] = {"SSH1", "SSH2", NULL};
945 PGetHNRec GetHNRec;
946 char EntName[128];
947 char TempHost[HostNameMaxLength + 1];
948 WORD i, j, w;
949 WORD ComPortTable[MAXCOMPORT];
950 static char *ComPortDesc[MAXCOMPORT];
951 int comports;
952 BOOL Ok;
953 LOGFONT logfont;
954 HFONT font;
955 char uimsg[MAX_UIMSG];
956 static HWND hwndHostname = NULL; // HOSTNAME dropdown
957 static HWND hwndHostnameEdit = NULL; // Edit control on HOSTNAME dropdown
958
959 switch (msg) {
960 case WM_INITDIALOG:
961 GetHNRec = (PGetHNRec) lParam;
962 SetWindowLong(dlg, DWL_USER, lParam);
963
964 GetWindowText(dlg, uimsg, sizeof(uimsg));
965 UTIL_get_lang_msg("DLG_HOST_TITLE", pvar, uimsg);
966 SetWindowText(dlg, pvar->ts->UIMsg);
967 GetDlgItemText(dlg, IDC_HOSTNAMELABEL, uimsg, sizeof(uimsg));
968 UTIL_get_lang_msg("DLG_HOST_TCPIPHOST", pvar, uimsg);
969 SetDlgItemText(dlg, IDC_HOSTNAMELABEL, pvar->ts->UIMsg);
970 GetDlgItemText(dlg, IDC_HISTORY, uimsg, sizeof(uimsg));
971 UTIL_get_lang_msg("DLG_HOST_TCPIPHISTORY", pvar, uimsg);
972 SetDlgItemText(dlg, IDC_HISTORY, pvar->ts->UIMsg);
973 GetDlgItemText(dlg, IDC_SERVICELABEL, uimsg, sizeof(uimsg));
974 UTIL_get_lang_msg("DLG_HOST_TCPIPSERVICE", pvar, uimsg);
975 SetDlgItemText(dlg, IDC_SERVICELABEL, pvar->ts->UIMsg);
976 GetDlgItemText(dlg, IDC_HOSTOTHER, uimsg, sizeof(uimsg));
977 UTIL_get_lang_msg("DLG_HOST_TCPIPOTHER", pvar, uimsg);
978 SetDlgItemText(dlg, IDC_HOSTOTHER, pvar->ts->UIMsg);
979 GetDlgItemText(dlg, IDC_HOSTTCPPORTLABEL, uimsg, sizeof(uimsg));
980 UTIL_get_lang_msg("DLG_HOST_TCPIPPORT", pvar, uimsg);
981 SetDlgItemText(dlg, IDC_HOSTTCPPORTLABEL, pvar->ts->UIMsg);
982 GetDlgItemText(dlg, IDC_SSH_VERSION_LABEL, uimsg, sizeof(uimsg));
983 UTIL_get_lang_msg("DLG_HOST_TCPIPSSHVERSION", pvar, uimsg);
984 SetDlgItemText(dlg, IDC_SSH_VERSION_LABEL, pvar->ts->UIMsg);
985 GetDlgItemText(dlg, IDC_HOSTTCPPROTOCOLLABEL, uimsg, sizeof(uimsg));
986 UTIL_get_lang_msg("DLG_HOST_TCPIPPROTOCOL", pvar, uimsg);
987 SetDlgItemText(dlg, IDC_HOSTTCPPROTOCOLLABEL, pvar->ts->UIMsg);
988 GetDlgItemText(dlg, IDC_HOSTSERIAL, uimsg, sizeof(uimsg));
989 UTIL_get_lang_msg("DLG_HOST_SERIAL", pvar, uimsg);
990 SetDlgItemText(dlg, IDC_HOSTSERIAL, pvar->ts->UIMsg);
991 GetDlgItemText(dlg, IDC_HOSTCOMLABEL, uimsg, sizeof(uimsg));
992 UTIL_get_lang_msg("DLG_HOST_SERIALPORT", pvar, uimsg);
993 SetDlgItemText(dlg, IDC_HOSTCOMLABEL, pvar->ts->UIMsg);
994 GetDlgItemText(dlg, IDC_HOSTHELP, uimsg, sizeof(uimsg));
995 UTIL_get_lang_msg("DLG_HOST_HELP", pvar, uimsg);
996 SetDlgItemText(dlg, IDC_HOSTHELP, pvar->ts->UIMsg);
997 GetDlgItemText(dlg, IDOK, uimsg, sizeof(uimsg));
998 UTIL_get_lang_msg("BTN_OK", pvar, uimsg);
999 SetDlgItemText(dlg, IDOK, pvar->ts->UIMsg);
1000 GetDlgItemText(dlg, IDCANCEL, uimsg, sizeof(uimsg));
1001 UTIL_get_lang_msg("BTN_CANCEL", pvar, uimsg);
1002 SetDlgItemText(dlg, IDCANCEL, pvar->ts->UIMsg);
1003
1004 // �z�X�g�q�X�g�����`�F�b�N�{�b�N�X������ (2005.10.21 yutaka)
1005 if (pvar->ts->HistoryList > 0) {
1006 SendMessage(GetDlgItem(dlg, IDC_HISTORY), BM_SETCHECK, BST_CHECKED, 0);
1007 } else {
1008 SendMessage(GetDlgItem(dlg, IDC_HISTORY), BM_SETCHECK, BST_UNCHECKED, 0);
1009 }
1010
1011 if (GetHNRec->PortType == IdFile)
1012 GetHNRec->PortType = IdTCPIP;
1013
1014 strncpy_s(EntName, sizeof(EntName), "Host", _TRUNCATE);
1015
1016 i = 1;
1017 do {
1018 _snprintf_s(&EntName[4], sizeof(EntName)-4, _TRUNCATE, "%d", i);
1019 GetPrivateProfileString("Hosts", EntName, "",
1020 TempHost, sizeof(TempHost),
1021 GetHNRec->SetupFN);
1022 if (strlen(TempHost) > 0)
1023 SendDlgItemMessage(dlg, IDC_HOSTNAME, CB_ADDSTRING,
1024 0, (LPARAM) TempHost);
1025 i++;
1026 } while ((i <= MAXHOSTLIST) && (strlen(TempHost) > 0));
1027
1028 SendDlgItemMessage(dlg, IDC_HOSTNAME, EM_LIMITTEXT,
1029 HostNameMaxLength - 1, 0);
1030
1031 SendDlgItemMessage(dlg, IDC_HOSTNAME, CB_SETCURSEL, 0, 0);
1032
1033 // C-n/C-p ���������T�u�N���X�� (2007.9.4 maya)
1034 hwndHostname = GetDlgItem(dlg, IDC_HOSTNAME);
1035 hwndHostnameEdit = GetWindow(hwndHostname, GW_CHILD);
1036 OrigHostnameEditProc = (WNDPROC)GetWindowLong(hwndHostnameEdit, GWL_WNDPROC);
1037 SetWindowLong(hwndHostnameEdit, GWL_WNDPROC, (LONG)HostnameEditProc);
1038
1039 CheckRadioButton(dlg, IDC_HOSTTELNET, IDC_HOSTOTHER,
1040 pvar->settings.Enabled ? IDC_HOSTSSH : GetHNRec->
1041 Telnet ? IDC_HOSTTELNET : IDC_HOSTOTHER);
1042 SendDlgItemMessage(dlg, IDC_HOSTTCPPORT, EM_LIMITTEXT, 5, 0);
1043 SetDlgItemInt(dlg, IDC_HOSTTCPPORT, GetHNRec->TCPPort, FALSE);
1044 #ifndef NO_INET6
1045 for (i = 0; ProtocolFamilyList[i]; ++i) {
1046 SendDlgItemMessage(dlg, IDC_HOSTTCPPROTOCOL, CB_ADDSTRING,
1047 0, (LPARAM) ProtocolFamilyList[i]);
1048 }
1049 SendDlgItemMessage(dlg, IDC_HOSTTCPPROTOCOL, EM_LIMITTEXT,
1050 ProtocolFamilyMaxLength - 1, 0);
1051 SendDlgItemMessage(dlg, IDC_HOSTTCPPROTOCOL, CB_SETCURSEL, 0, 0);
1052 #endif /* NO_INET6 */
1053
1054 /////// SSH version
1055 for (i = 0; ssh_version[i]; ++i) {
1056 SendDlgItemMessage(dlg, IDC_SSH_VERSION, CB_ADDSTRING,
1057 0, (LPARAM) ssh_version[i]);
1058 }
1059 SendDlgItemMessage(dlg, IDC_SSH_VERSION, EM_LIMITTEXT,
1060 NUM_ELEM(ssh_version) - 1, 0);
1061
1062 if (pvar->settings.ssh_protocol_version == 1) {
1063 SendDlgItemMessage(dlg, IDC_SSH_VERSION, CB_SETCURSEL, 0, 0); // SSH1
1064 } else {
1065 SendDlgItemMessage(dlg, IDC_SSH_VERSION, CB_SETCURSEL, 1, 0); // SSH2
1066 }
1067
1068 if (IsDlgButtonChecked(dlg, IDC_HOSTSSH)) {
1069 enable_dlg_items(dlg, IDC_SSH_VERSION, IDC_SSH_VERSION, TRUE); // enabled
1070 } else {
1071 enable_dlg_items(dlg, IDC_SSH_VERSION, IDC_SSH_VERSION, FALSE); // disabled
1072 }
1073 /////// SSH version
1074
1075
1076 j = 0;
1077 w = 1;
1078 if ((comports=DetectComPorts(ComPortTable, GetHNRec->MaxComPort, ComPortDesc)) >= 0) {
1079 for (i=0; i<comports; i++) {
1080 // MaxComPort ���z�����|�[�g���\��������
1081 if (ComPortTable[i] > GetHNRec->MaxComPort) {
1082 continue;
1083 }
1084
1085 // �g�p�����|�[�g���\��������
1086 if (CheckCOMFlag(ComPortTable[i]) == 1) {
1087 continue;
1088 }
1089
1090 _snprintf_s(EntName, sizeof(EntName), _TRUNCATE, "COM%d", ComPortTable[i]);
1091 if (ComPortDesc[i] != NULL) {
1092 strncat_s(EntName, sizeof(EntName), ": ", _TRUNCATE);
1093 strncat_s(EntName, sizeof(EntName), ComPortDesc[i], _TRUNCATE);
1094 }
1095 SendDlgItemMessage(dlg, IDC_HOSTCOM, CB_ADDSTRING,
1096 0, (LPARAM)EntName);
1097 j++;
1098 if (GetHNRec->ComPort == ComPortTable[i])
1099 w = j;
1100 }
1101
1102 } else {
1103 for (i = 1; i <= GetHNRec->MaxComPort; i++) {
1104 // �g�p�����|�[�g���\��������
1105 if (CheckCOMFlag(i) == 1) {
1106 continue;
1107 }
1108
1109 _snprintf_s(EntName, sizeof(EntName), _TRUNCATE, "COM%d", i);
1110 SendDlgItemMessage(dlg, IDC_HOSTCOM, CB_ADDSTRING,
1111 0, (LPARAM) EntName);
1112 j++;
1113 if (GetHNRec->ComPort == i)
1114 w = j;
1115 }
1116 }
1117
1118 if (j > 0)
1119 SendDlgItemMessage(dlg, IDC_HOSTCOM, CB_SETCURSEL, w - 1, 0);
1120 else { /* All com ports are already used */
1121 GetHNRec->PortType = IdTCPIP;
1122 enable_dlg_items(dlg, IDC_HOSTSERIAL, IDC_HOSTSERIAL, FALSE);
1123 }
1124
1125 CheckRadioButton(dlg, IDC_HOSTTCPIP, IDC_HOSTSERIAL,
1126 IDC_HOSTTCPIP + GetHNRec->PortType - 1);
1127
1128 if (GetHNRec->PortType == IdTCPIP) {
1129 enable_dlg_items(dlg, IDC_HOSTCOMLABEL, IDC_HOSTCOM, FALSE);
1130
1131 enable_dlg_items(dlg, IDC_SSH_VERSION, IDC_SSH_VERSION, TRUE);
1132 enable_dlg_items(dlg, IDC_SSH_VERSION_LABEL, IDC_SSH_VERSION_LABEL, TRUE);
1133
1134 enable_dlg_items(dlg, IDC_HISTORY, IDC_HISTORY, TRUE); // enabled
1135 }
1136 #ifndef NO_INET6
1137 else {
1138 enable_dlg_items(dlg, IDC_HOSTNAMELABEL, IDC_HOSTTCPPORT,
1139 FALSE);
1140 enable_dlg_items(dlg, IDC_HOSTTCPPROTOCOLLABEL,
1141 IDC_HOSTTCPPROTOCOL, FALSE);
1142
1143 enable_dlg_items(dlg, IDC_SSH_VERSION, IDC_SSH_VERSION, FALSE); // disabled
1144 enable_dlg_items(dlg, IDC_SSH_VERSION_LABEL, IDC_SSH_VERSION_LABEL, FALSE); // disabled (2004.11.23 yutaka)
1145
1146 enable_dlg_items(dlg, IDC_HISTORY, IDC_HISTORY, FALSE); // disabled
1147 }
1148 #else
1149 else
1150 enable_dlg_items(dlg, IDC_HOSTNAMELABEL, IDC_HOSTTCPPORT,
1151 FALSE);
1152 #endif /* NO_INET6 */
1153
1154 // Host dialog���t�H�[�J�X�������� (2004.10.2 yutaka)
1155 if (GetHNRec->PortType == IdTCPIP) {
1156 HWND hwnd = GetDlgItem(dlg, IDC_HOSTNAME);
1157 SetFocus(hwnd);
1158 } else {
1159 HWND hwnd = GetDlgItem(dlg, IDC_HOSTCOM);
1160 SetFocus(hwnd);
1161 }
1162
1163 font = (HFONT)SendMessage(dlg, WM_GETFONT, 0, 0);
1164 GetObject(font, sizeof(LOGFONT), &logfont);
1165 if (UTIL_get_lang_font("DLG_SYSTEM_FONT", dlg, &logfont, &DlgHostFont, pvar)) {
1166 SendDlgItemMessage(dlg, IDC_HOSTTCPIP, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
1167 SendDlgItemMessage(dlg, IDC_HOSTNAMELABEL, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
1168 SendDlgItemMessage(dlg, IDC_HOSTNAME, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
1169 SendDlgItemMessage(dlg, IDC_HISTORY, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
1170 SendDlgItemMessage(dlg, IDC_SERVICELABEL, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
1171 SendDlgItemMessage(dlg, IDC_HOSTTELNET, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
1172 SendDlgItemMessage(dlg, IDC_HOSTSSH, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
1173 SendDlgItemMessage(dlg, IDC_HOSTOTHER, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
1174 SendDlgItemMessage(dlg, IDC_HOSTTCPPORTLABEL, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
1175 SendDlgItemMessage(dlg, IDC_HOSTTCPPORT, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
1176 SendDlgItemMessage(dlg, IDC_SSH_VERSION_LABEL, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
1177 SendDlgItemMessage(dlg, IDC_SSH_VERSION, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
1178 SendDlgItemMessage(dlg, IDC_HOSTTCPPROTOCOLLABEL, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
1179 SendDlgItemMessage(dlg, IDC_HOSTTCPPROTOCOL, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
1180 SendDlgItemMessage(dlg, IDC_HOSTSERIAL, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
1181 SendDlgItemMessage(dlg, IDC_HOSTCOMLABEL, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
1182 SendDlgItemMessage(dlg, IDC_HOSTCOM, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
1183 SendDlgItemMessage(dlg, IDOK, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
1184 SendDlgItemMessage(dlg, IDCANCEL, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
1185 SendDlgItemMessage(dlg, IDC_HOSTHELP, WM_SETFONT, (WPARAM)DlgHostFont, MAKELPARAM(TRUE,0));
1186 }
1187 else {
1188 DlgHostFont = NULL;
1189 }
1190
1191 // SetFocus()���t�H�[�J�X���������������AFALSE�������K�v�������B
1192 // TRUE���������ATABSTOP�������������������R���g���[�����I�������B
1193 // (2004.11.23 yutaka)
1194 return FALSE;
1195 //return TRUE;
1196
1197 case WM_COMMAND:
1198 switch (LOWORD(wParam)) {
1199 case IDOK:
1200 GetHNRec = (PGetHNRec) GetWindowLong(dlg, DWL_USER);
1201 if (GetHNRec != NULL) {
1202 if (IsDlgButtonChecked(dlg, IDC_HOSTTCPIP)) {
1203 #ifndef NO_INET6
1204 char afstr[BUFSIZ];
1205 #endif /* NO_INET6 */
1206 i = GetDlgItemInt(dlg, IDC_HOSTTCPPORT, &Ok, FALSE);
1207 if (Ok) {
1208 GetHNRec->TCPPort = i;
1209 } else {
1210 UTIL_get_lang_msg("MSG_TCPPORT_NAN_ERROR", pvar,
1211 "The TCP port must be a number.");
1212 MessageBox(dlg, pvar->ts->UIMsg,
1213 "Tera Term", MB_OK | MB_ICONEXCLAMATION);
1214 return TRUE;
1215 }
1216 #ifndef NO_INET6
1217 #define getaf(str) \
1218 ((strcmp((str), "IPv6") == 0) ? AF_INET6 : \
1219 ((strcmp((str), "IPv4") == 0) ? AF_INET : AF_UNSPEC))
1220 memset(afstr, 0, sizeof(afstr));
1221 GetDlgItemText(dlg, IDC_HOSTTCPPROTOCOL, afstr,
1222 sizeof(afstr));
1223 GetHNRec->ProtocolFamily = getaf(afstr);
1224 #endif /* NO_INET6 */
1225 GetHNRec->PortType = IdTCPIP;
1226 GetDlgItemText(dlg, IDC_HOSTNAME, GetHNRec->HostName,
1227 HostNameMaxLength);
1228 GetHNRec->Telnet = FALSE;
1229 pvar->hostdlg_activated = TRUE;
1230 pvar->hostdlg_Enabled = FALSE;
1231 if (IsDlgButtonChecked(dlg, IDC_HOSTTELNET)) {
1232 GetHNRec->Telnet = TRUE;
1233 } else if (IsDlgButtonChecked(dlg, IDC_HOSTSSH)) {
1234 pvar->hostdlg_Enabled = TRUE;
1235
1236 // check SSH protocol version
1237 memset(afstr, 0, sizeof(afstr));
1238 GetDlgItemText(dlg, IDC_SSH_VERSION, afstr, sizeof(afstr));
1239 if (_stricmp(afstr, "SSH1") == 0) {
1240 pvar->settings.ssh_protocol_version = 1;
1241 } else {
1242 pvar->settings.ssh_protocol_version = 2;
1243 }
1244 }
1245
1246 // host history check button
1247 if (SendMessage(GetDlgItem(dlg, IDC_HISTORY), BM_GETCHECK, 0, 0) == BST_CHECKED) {
1248 pvar->ts->HistoryList = 1;
1249 } else {
1250 pvar->ts->HistoryList = 0;
1251 }
1252
1253 } else {
1254 GetHNRec->PortType = IdSerial;
1255 GetHNRec->HostName[0] = 0;
1256 memset(EntName, 0, sizeof(EntName));
1257 GetDlgItemText(dlg, IDC_HOSTCOM, EntName,
1258 sizeof(EntName) - 1);
1259 if (strncmp(EntName, "COM", 3) == 0 && EntName[3] != '\0') {
1260 #if 0
1261 GetHNRec->ComPort = (BYTE) (EntName[3]) - 0x30;
1262 if (strlen(EntName) > 4)
1263 GetHNRec->ComPort =
1264 GetHNRec->ComPort * 10 + (BYTE) (EntName[4]) -
1265 0x30;
1266 #else
1267 GetHNRec->ComPort = atoi(&EntName[3]);
1268 #endif
1269 if (GetHNRec->ComPort > GetHNRec->MaxComPort)
1270 GetHNRec->ComPort = 1;
1271 } else {
1272 GetHNRec->ComPort = 1;
1273 }
1274 }
1275 }
1276 SetWindowLong(hwndHostnameEdit, GWL_WNDPROC, (LONG)OrigHostnameEditProc);
1277 EndDialog(dlg, 1);
1278
1279 if (DlgHostFont != NULL) {
1280 DeleteObject(DlgHostFont);
1281 }
1282
1283 return TRUE;
1284
1285 case IDCANCEL:
1286 SetWindowLong(hwndHostnameEdit, GWL_WNDPROC, (LONG)OrigHostnameEditProc);
1287 EndDialog(dlg, 0);
1288
1289 if (DlgHostFont != NULL) {
1290 DeleteObject(DlgHostFont);
1291 }
1292
1293 return TRUE;
1294
1295 case IDC_HOSTTCPIP:
1296 enable_dlg_items(dlg, IDC_HOSTNAMELABEL, IDC_HOSTTCPPORT,
1297 TRUE);
1298 #ifndef NO_INET6
1299 enable_dlg_items(dlg, IDC_HOSTTCPPROTOCOLLABEL,
1300 IDC_HOSTTCPPROTOCOL, TRUE);
1301 #endif /* NO_INET6 */
1302 enable_dlg_items(dlg, IDC_HOSTCOMLABEL, IDC_HOSTCOM, FALSE);
1303
1304 enable_dlg_items(dlg, IDC_SSH_VERSION_LABEL, IDC_SSH_VERSION_LABEL, TRUE); // disabled (2004.11.23 yutaka)
1305 if (IsDlgButtonChecked(dlg, IDC_HOSTSSH)) {
1306 enable_dlg_items(dlg, IDC_SSH_VERSION, IDC_SSH_VERSION, TRUE);
1307 } else {
1308 enable_dlg_items(dlg, IDC_SSH_VERSION, IDC_SSH_VERSION, FALSE); // disabled
1309 }
1310
1311 enable_dlg_items(dlg, IDC_HISTORY, IDC_HISTORY, TRUE); // disabled
1312
1313 return TRUE;
1314
1315 case IDC_HOSTSERIAL:
1316 enable_dlg_items(dlg, IDC_HOSTCOMLABEL, IDC_HOSTCOM, TRUE);
1317 enable_dlg_items(dlg, IDC_HOSTNAMELABEL, IDC_HOSTTCPPORT,
1318 FALSE);
1319 #ifndef NO_INET6
1320 enable_dlg_items(dlg, IDC_HOSTTCPPROTOCOLLABEL,
1321 IDC_HOSTTCPPROTOCOL, FALSE);
1322 #endif /* NO_INET6 */
1323 enable_dlg_items(dlg, IDC_SSH_VERSION, IDC_SSH_VERSION, FALSE); // disabled
1324 enable_dlg_items(dlg, IDC_SSH_VERSION_LABEL, IDC_SSH_VERSION_LABEL, FALSE); // disabled (2004.11.23 yutaka)
1325
1326 enable_dlg_items(dlg, IDC_HISTORY, IDC_HISTORY, FALSE); // disabled
1327
1328 return TRUE;
1329
1330 case IDC_HOSTSSH:
1331 enable_dlg_items(dlg, IDC_SSH_VERSION,
1332 IDC_SSH_VERSION, TRUE);
1333 goto hostssh_enabled;
1334
1335 case IDC_HOSTTELNET:
1336 case IDC_HOSTOTHER:
1337 enable_dlg_items(dlg, IDC_SSH_VERSION, IDC_SSH_VERSION, FALSE); // disabled
1338 hostssh_enabled:
1339
1340 GetHNRec = (PGetHNRec) GetWindowLong(dlg, DWL_USER);
1341
1342 if (IsDlgButtonChecked(dlg, IDC_HOSTTELNET)) {
1343 if (GetHNRec != NULL)
1344 SetDlgItemInt(dlg, IDC_HOSTTCPPORT, GetHNRec->TelPort,
1345 FALSE);
1346 } else if (IsDlgButtonChecked(dlg, IDC_HOSTSSH)) {
1347 SetDlgItemInt(dlg, IDC_HOSTTCPPORT, 22, FALSE);
1348 }
1349 return TRUE;
1350
1351 case IDC_HOSTCOM:
1352 if(HIWORD(wParam) == CBN_DROPDOWN) {
1353 HWND hostcom = GetDlgItem(dlg, IDC_HOSTCOM);
1354 int count = SendMessage(hostcom, CB_GETCOUNT, 0, 0);
1355 int i, len, max_len = 0;
1356 char *lbl;
1357 HDC TmpDC = GetDC(hostcom);
1358 SIZE s;
1359 for (i=0; i<count; i++) {
1360 len = SendMessage(hostcom, CB_GETLBTEXTLEN, i, 0);
1361 lbl = (char *)calloc(len+1, sizeof(char));
1362 SendMessage(hostcom, CB_GETLBTEXT, i, (LPARAM)lbl);
1363 GetTextExtentPoint32(TmpDC, lbl, len, &s);
1364 if (s.cx > max_len)
1365 max_len = s.cx;
1366 free(lbl);
1367 }
1368 SendMessage(hostcom, CB_SETDROPPEDWIDTH,
1369 max_len + GetSystemMetrics(SM_CXVSCROLL), 0);
1370 }
1371 break;
1372
1373 case IDC_HOSTHELP:
1374 PostMessage(GetParent(dlg), WM_USER_DLGHELP2, 0, 0);
1375 }
1376 }
1377 return FALSE;
1378 }
1379
1380 static BOOL FAR PASCAL TTXGetHostName(HWND parent, PGetHNRec rec)
1381 {
1382 return (BOOL) DialogBoxParam(hInst, MAKEINTRESOURCE(IDD_HOSTDLG),
1383 parent, TTXHostDlg, (LONG) rec);
1384 }
1385
1386 static void PASCAL FAR TTXGetUIHooks(TTXUIHooks FAR * hooks)
1387 {
1388 *hooks->GetHostName = TTXGetHostName;
1389 }
1390
1391 static void FAR PASCAL TTXReadINIFile(PCHAR fileName, PTTSet ts)
1392 {
1393 (pvar->ReadIniFile) (fileName, ts);
1394 read_ssh_options(pvar, fileName);
1395 pvar->settings = *pvar->ts_SSH;
1396 notify_verbose_message(pvar, "Reading INI file", LOG_LEVEL_VERBOSE);
1397 FWDUI_load_settings(pvar);
1398 }
1399
1400 static void FAR PASCAL TTXWriteINIFile(PCHAR fileName, PTTSet ts)
1401 {
1402 (pvar->WriteIniFile) (fileName, ts);
1403 *pvar->ts_SSH = pvar->settings;
1404 clear_local_settings(pvar);
1405 notify_verbose_message(pvar, "Writing INI file", LOG_LEVEL_VERBOSE);
1406 write_ssh_options(pvar, fileName, pvar->ts_SSH, TRUE);
1407 }
1408
1409 static void read_ssh_options_from_user_file(PTInstVar pvar,
1410 char FAR * user_file_name)
1411 {
1412 if (user_file_name[0] == '.') {
1413 read_ssh_options(pvar, user_file_name);
1414 } else {
1415 char buf[1024];
1416
1417 get_teraterm_dir_relative_name(buf, sizeof(buf), user_file_name);
1418 read_ssh_options(pvar, buf);
1419 }
1420
1421 pvar->settings = *pvar->ts_SSH;
1422 FWDUI_load_settings(pvar);
1423 }
1424
1425
1426 // @���u�����N���u�������B (2005.1.26 yutaka)
1427 static void replace_to_blank(char *src, char *dst, int dst_len)
1428 {
1429 int len, i;
1430
1431 len = strlen(src);
1432 if (dst_len < len) // buffer overflow check
1433 return;
1434
1435 for (i = 0 ; i < len ; i++) {
1436 if (src[i] == '@') { // @ ���o��������
1437 if (i < len - 1 && src[i + 1] == '@') { // �������� @ �����A�b�g�}�[�N���F������
1438 *dst++ = '@';
1439 i++;
1440 } else {
1441 *dst++ = ' '; // �������u��������
1442 }
1443 } else {
1444 *dst++ = src[i];
1445 }
1446 }
1447 *dst = '\0';
1448 }
1449
1450 /* returns 1 if the option text must be deleted */
1451 static int parse_option(PTInstVar pvar, char FAR * option)
1452 {
1453 if ((option[0] == '-' || option[0] == '/')) {
1454 if (MATCH_STR(option + 1, "ssh") == 0) {
1455 if (option[4] == 0) {
1456 pvar->settings.Enabled = 1;
1457 } else if (MATCH_STR(option + 4, "-L") == 0 ||
1458 MATCH_STR(option + 4, "-R") == 0 ||
1459 _stricmp(option + 4, "-X") == 0) {
1460 if (pvar->settings.DefaultForwarding[0] == 0) {
1461 strncpy_s(pvar->settings.DefaultForwarding,
1462 sizeof(pvar->settings.DefaultForwarding),
1463 option + 5, _TRUNCATE);
1464 } else {
1465 strncat_s(pvar->settings.DefaultForwarding,
1466 sizeof(pvar->settings.DefaultForwarding),
1467 ";", _TRUNCATE);
1468 strncat_s(pvar->settings.DefaultForwarding,
1469 sizeof(pvar->settings.DefaultForwarding),
1470 option + 5, _TRUNCATE);
1471 }
1472 } else if (MATCH_STR(option + 4, "-f=") == 0) {
1473 read_ssh_options_from_user_file(pvar, option + 7);
1474 } else if (MATCH_STR(option + 4, "-v") == 0) {
1475 pvar->settings.LogLevel = LOG_LEVEL_VERBOSE;
1476 } else if (_stricmp(option + 4, "-autologin") == 0 ||
1477 _stricmp(option + 4, "-autologon") == 0) {
1478 pvar->settings.TryDefaultAuth = TRUE;
1479
1480 } else if (_stricmp(option + 4, "-acceptall") == 0) {
1481 pvar->settings.LocalForwardingIdentityCheck = FALSE;
1482
1483 // -axx������������������
1484 } else if (MATCH_STR(option + 4, "-a") == 0) {
1485 pvar->settings.ForwardAgent = FALSE;
1486 } else if (MATCH_STR(option + 4, "-A") == 0) {
1487 pvar->settings.ForwardAgent = TRUE;
1488
1489 } else if (MATCH_STR(option + 4, "-consume=") == 0) {
1490 read_ssh_options_from_user_file(pvar, option + 13);
1491 DeleteFile(option + 13);
1492
1493 // /ssh1 �� /ssh2 �I�v�V�������V�K���� (2006.9.16 maya)
1494 } else if (MATCH_STR(option + 4, "1") == 0) {
1495 pvar->settings.Enabled = 1;
1496 pvar->settings.ssh_protocol_version = 1;
1497 } else if (MATCH_STR(option + 4, "2") == 0) {
1498 pvar->settings.Enabled = 1;
1499 pvar->settings.ssh_protocol_version = 2;
1500
1501 } else {
1502 char buf[1024];
1503
1504 UTIL_get_lang_msg("MSG_UNKNOWN_OPTION_ERROR", pvar,
1505 "Unrecognized command-line option: %s");
1506 _snprintf_s(buf, sizeof(buf), _TRUNCATE, pvar->ts->UIMsg, option);
1507
1508 MessageBox(NULL, buf, "TTSSH", MB_OK | MB_ICONEXCLAMATION);
1509 }
1510
1511 return OPTION_CLEAR;
1512
1513 // ttermpro.exe �� /T= �w�������p�������A������������ (2006.10.19 maya)
1514 } else if (MATCH_STR_I(option + 1, "t=") == 0) {
1515 if (strcmp(option + 3, "2") == 0) {
1516 pvar->settings.Enabled = 1;
1517 return OPTION_CLEAR;
1518 } else {
1519 pvar->settings.Enabled = 0;
1520 }
1521
1522 // ttermpro.exe �� /F= �w������ TTSSH ������������ (2006.10.11 maya)
1523 } else if (MATCH_STR_I(option + 1, "f=") == 0) {
1524 read_ssh_options_from_user_file(pvar, option + 3);
1525
1526 // /1 ������ /2 �I�v�V�������V�K���� (2004.10.3 yutaka)
1527 } else if (MATCH_STR(option + 1, "1") == 0) {
1528 // command line: /ssh /1 is SSH1 only
1529 pvar->settings.ssh_protocol_version = 1;
1530
1531 } else if (MATCH_STR(option + 1, "2") == 0) {
1532 // command line: /ssh /2 is SSH2 & SSH1
1533 pvar->settings.ssh_protocol_version = 2;
1534
1535 } else if (MATCH_STR(option + 1, "nossh") == 0) {
1536 // '/nossh' �I�v�V�����������B
1537 // TERATERM.INI ��SSH���L�������������������A������Cygterm���N��������������
1538 // �����������������B(2004.10.11 yutaka)
1539 pvar->settings.Enabled = 0;
1540
1541 } else if (MATCH_STR(option + 1, "telnet") == 0) {
1542 // '/telnet' ���w�������������������� '/nossh' ��������
1543 // SSH������������ (2006.9.16 maya)
1544 pvar->settings.Enabled = 0;
1545
1546 } else if (MATCH_STR(option + 1, "auth") == 0) {
1547 // SSH2�������O�C���I�v�V����������
1548 //
1549 // SYNOPSIS: /ssh /auth=passowrd /user=���[�U�� /passwd=�p�X���[�h
1550 // /ssh /auth=publickey /user=���[�U�� /passwd=�p�X���[�h /keyfile=�p�X
1551 // EXAMPLE: /ssh /auth=password /user=nike /passwd=a@bc
1552 // /ssh /auth=publickey /user=foo /passwd=bar /keyfile=d:\tmp\id_rsa
1553 // NOTICE: �p�X���[�h���p�X�������������������A�u�����N���������� @ ���g�������B
1554 //
1555 // (2004.11.30 yutaka)
1556 // (2005.1.26 yutaka) ���������B���J���F���T�|�[�g�B
1557 //
1558 pvar->ssh2_autologin = 1; // for SSH2 (2004.11.30 yutaka)
1559
1560 if (MATCH_STR(option + 5, "=password") == 0) { // �p�X���[�h
1561 //pvar->auth_state.cur_cred.method = SSH_AUTH_PASSWORD;
1562 pvar->ssh2_authmethod = SSH_AUTH_PASSWORD;
1563
1564 // /auth=challenge ������ (2007.10.5 maya)
1565 } else if (MATCH_STR(option + 5, "=challenge") == 0) { // keyboard-interactive�F��
1566 //pvar->auth_state.cur_cred.method = SSH_AUTH_TIS;
1567 pvar->ssh2_authmethod = SSH_AUTH_TIS;
1568
1569 } else if (MATCH_STR(option + 5, "=publickey") == 0) { // ���J���F��
1570 //pvar->auth_state.cur_cred.method = SSH_AUTH_RSA;
1571 pvar->ssh2_authmethod = SSH_AUTH_RSA;
1572
1573 } else if (MATCH_STR(option + 5, "=pageant") == 0) { // ���J���F�� by Pageant
1574 //pvar->auth_state.cur_cred.method = SSH_AUTH_RSA;
1575 pvar->ssh2_authmethod = SSH_AUTH_PAGEANT;
1576
1577 } else {
1578 // TODO:
1579
1580 }
1581
1582 } else if (MATCH_STR(option + 1, "user=") == 0) {
1583 replace_to_blank(option + 6, pvar->ssh2_username, sizeof(pvar->ssh2_username));
1584 //_snprintf(pvar->ssh2_username, sizeof(pvar->ssh2_username), "%s", option + 6);
1585
1586 } else if (MATCH_STR(option + 1, "passwd=") == 0) {
1587 replace_to_blank(option + 8, pvar->ssh2_password, sizeof(pvar->ssh2_password));
1588 //_snprintf(pvar->ssh2_password, sizeof(pvar->ssh2_password), "%s", option + 8);
1589
1590 } else if (MATCH_STR(option + 1, "keyfile=") == 0) {
1591 replace_to_blank(option + 9, pvar->ssh2_keyfile, sizeof(pvar->ssh2_keyfile));
1592
1593 } else if (MATCH_STR(option + 1, "ask4passwd") == 0) {
1594 // �p�X���[�h������ (2006.9.18 maya)
1595 pvar->ask4passwd = 1;
1596
1597 }
1598
1599 // �p�X���[�h�������������������O�C��������������
1600 // /auth ���F�����\�b�h���w�������������p������ (2006.9.18 maya)
1601 if (pvar->ask4passwd == 1) {
1602 pvar->ssh2_autologin = 0;
1603 }
1604
1605 }
1606 else if ((MATCH_STR_I(option, "ssh://") == 0) ||
1607 (MATCH_STR_I(option, "ssh1://") == 0) ||
1608 (MATCH_STR_I(option, "ssh2://") == 0) ||
1609 (MATCH_STR_I(option, "slogin://") == 0) ||
1610 (MATCH_STR_I(option, "slogin1://") == 0) ||
1611 (MATCH_STR_I(option, "slogin2://") == 0)) {
1612 //
1613 // ssh://user@host/ ����URL�`�����T�|�[�g
1614 // ���{�I�������� telnet:// URL��������
1615 //
1616 // �Q�l:
1617 // RFC3986: Uniform Resource Identifier (URI): Generic Syntax
1618 // RFC4248: The telnet URI Scheme
1619 //
1620 char *p, *p2, *p3;
1621 int optlen, hostlen;
1622
1623 optlen = strlen(option);
1624
1625 // ������':'���O�����������������������A������ssh�v���g�R���o�[�W������������
1626 p = strchr(option, ':');
1627 switch (*(p-1)) {
1628 case '1':
1629 pvar->settings.ssh_protocol_version = 1;
1630 break;
1631 case '2':
1632 pvar->settings.ssh_protocol_version = 2;
1633 break;
1634 }
1635
1636 // authority part �����|�C���^������
1637 p += 3;
1638
1639 // path part ������������
1640 if ((p2 = strchr(p, '/')) != NULL) {
1641 *p2 = 0;
1642 }
1643
1644 // '@'�������������A���������O�����[�U����
1645 if ((p2 = strchr(p, '@')) != NULL) {
1646 *p2 = 0;
1647 // ':'���~���p�X���[�h
1648 if ((p3 = strchr(p, ':')) != NULL) {
1649 *p3 = 0;
1650 strcpy_s(pvar->ssh2_password, sizeof(pvar->ssh2_password), p3 + 1);
1651 pvar->ssh2_autologin = 1;
1652 }
1653 strcpy_s(pvar->ssh2_username, sizeof(pvar->ssh2_username), p);
1654 // p �� host part ������('@'����������)����������������
1655 p = p2 + 1;
1656 }
1657
1658 // host part �� option �����������������Ascheme part ������
1659 // port�w����������������port���������������������m��������������
1660 hostlen = strlen(p);
1661 memmove_s(option, optlen, p, hostlen);
1662 option[hostlen] = 0;
1663
1664 // �|�[�g�w������������":22"������
1665 #ifndef NO_INET6
1666 if (option[0] == '[' && option[hostlen-1] == ']' || // IPv6 raw address without port
1667 option[0] != '[' && strchr(option, ':') == NULL) { // hostname or IPv4 raw address without port
1668 #else
1669 if (strchr(option, ':') == NULL) {
1670 #endif /* NO_INET6 */
1671 memcpy_s(option+hostlen, optlen-hostlen, ":22", 3);
1672 hostlen += 3;
1673 }
1674
1675 // �|�[�g�w�����������������X�y�[�X������
1676 memset(option+hostlen, ' ', optlen-hostlen);
1677
1678 pvar->settings.Enabled = 1;
1679
1680 return OPTION_REPLACE;
1681 }
1682
1683 return OPTION_NONE;
1684 }
1685
1686 static void FAR PASCAL TTXParseParam(PCHAR param, PTTSet ts,
1687 PCHAR DDETopic)
1688 {
1689 // �X�y�[�X�������t�@�C�������F�������������C�� (2006.10.7 maya)
1690 int i, buflen;
1691 BOOL inParam = FALSE;
1692 BOOL inQuotes = FALSE;
1693 BOOL inFileParam = FALSE;
1694 PCHAR option = NULL;
1695
1696 if (pvar->hostdlg_activated) {
1697 pvar->settings.Enabled = pvar->hostdlg_Enabled;
1698 }
1699
1700 for (i = 0; param[i] != 0; i++) {
1701 if (inQuotes ? param[i] == '"'
1702 : (param[i] == ' ' || param[i] == '\t')) {
1703 if (option != NULL) {
1704 char ch = param[i];
1705 PCHAR Equal;
1706
1707 param[i] = 0;
1708 Equal = strchr(option, '=');
1709 if (inFileParam && Equal != NULL && *(Equal + 1) == '"') {
1710 int buf_len = strlen(option) * sizeof(char);
1711 char *buf = (char *)calloc(strlen(option), sizeof(char));
1712 char c = option[Equal - option + 1];
1713 option[Equal - option + 1] = 0;
1714 strncat_s(buf, buf_len, option, _TRUNCATE);
1715 option[Equal - option + 1] = c;
1716 strncat_s(buf, buf_len, Equal + 2, _TRUNCATE);
1717 switch (parse_option(pvar, *buf == '"' ? buf + 1 : buf)) {
1718 case OPTION_CLEAR:
1719 memset(option, ' ', i + 1 - (option - param));
1720 break;
1721 case OPTION_REPLACE:
1722 buflen = strlen(buf);
1723 memcpy(option, buf, buflen);
1724 memset(option + buflen, ' ', i + 1 - buflen - (option - param));
1725 break;
1726 default:
1727 param[i] = ch;
1728 }
1729 free(buf);
1730 }
1731 else {
1732 switch (parse_option(pvar, *option == '"' ? option + 1 : option)) {
1733 case OPTION_CLEAR:
1734 memset(option, ' ', i + 1 - (option - param));
1735 break;
1736 default:
1737 param[i] = ch;
1738 }
1739 }
1740 option = NULL;
1741 }
1742 inParam = FALSE;
1743 inQuotes = FALSE;
1744 inFileParam = FALSE;
1745 } else if (!inParam) {
1746 if (param[i] == '"') {
1747 inQuotes = TRUE;
1748 inParam = TRUE;
1749 option = param + i;
1750 } else if (param[i] != ' ' && param[i] != '\t') {
1751 inParam = TRUE;
1752 option = param + i;
1753 }
1754 } else {
1755 if (option == NULL) {
1756 continue;
1757 }
1758 if ((option[0] == '-' || option[0] == '/') &&
1759 (MATCH_STR(option + 1, "ssh-f=") == 0 ||
1760 MATCH_STR(option + 1, "ssh-consume=") == 0 ||
1761 MATCH_STR_I(option + 1, "f=") == 0 ||
1762 MATCH_STR(option + 1, "keyfile=") == 0)) {
1763 if (param[i] == '"') {
1764 inQuotes = TRUE;
1765 }
1766 inFileParam = TRUE;
1767 }
1768 }
1769 }
1770
1771 if (option != NULL) {
1772 PCHAR Equal = strchr(option, '=');
1773 if (inFileParam && Equal != NULL && *(Equal + 1) == '"') {
1774 int buf_len = strlen(option) * sizeof(char);
1775 char *buf = (char *)calloc(strlen(option), sizeof(char));
1776 char c = option[Equal - option + 1];
1777 option[Equal - option + 1] = 0;
1778 strncat_s(buf, buf_len, option, _TRUNCATE);
1779 option[Equal - option + 1] = c;
1780 strncat_s(buf, buf_len, Equal + 2, _TRUNCATE);
1781 switch (parse_option(pvar, *buf == '"' ? buf + 1 : buf)) {
1782 case OPTION_CLEAR:
1783 memset(option, ' ', i + 1 - (option - param));
1784 break;
1785 case OPTION_REPLACE:
1786 strcpy_s(option, i - (param - option), buf);
1787 break;
1788 }
1789 free(buf);
1790 }
1791 else {
1792 switch (parse_option(pvar, option)) {
1793 case OPTION_CLEAR:
1794 memset(option, ' ', i - (option - param));
1795 break;
1796 }
1797 }
1798 }
1799
1800 FWDUI_load_settings(pvar);
1801
1802 (pvar->ParseParam) (param, ts, DDETopic);
1803
1804 }
1805
1806 static void PASCAL FAR TTXGetSetupHooks(TTXSetupHooks FAR * hooks)
1807 {
1808 pvar->ReadIniFile = *hooks->ReadIniFile;
1809 pvar->WriteIniFile = *hooks->WriteIniFile;
1810 pvar->ParseParam = *hooks->ParseParam;
1811
1812 *hooks->ReadIniFile = TTXReadINIFile;
1813 *hooks->WriteIniFile = TTXWriteINIFile;
1814 *hooks->ParseParam = TTXParseParam;
1815 }
1816
1817 static void PASCAL FAR TTXSetWinSize(int rows, int cols)
1818 {
1819 SSH_notify_win_size(pvar, cols, rows);
1820 }
1821
1822 static void insertMenuBeforeItem(HMENU menu, WORD beforeItemID, WORD flags,
1823 WORD newItemID, char FAR * text)
1824 {
1825 int i, j;
1826
1827 for (i = GetMenuItemCount(menu) - 1; i >= 0; i--) {
1828 HMENU submenu = GetSubMenu(menu, i);
1829
1830 for (j = GetMenuItemCount(submenu) - 1; j >= 0; j--) {
1831 if (GetMenuItemID(submenu, j) == beforeItemID) {
1832 InsertMenu(submenu, j, MF_BYPOSITION | flags, newItemID, text);
1833 return;
1834 }
1835 }
1836 }
1837 }
1838
1839 static void PASCAL FAR TTXModifyMenu(HMENU menu)
1840 {
1841 /* inserts before ID_HELP_ABOUT */
1842 UTIL_get_lang_msg("MENU_ABOUT", pvar, "About &TTSSH...");
1843 insertMenuBeforeItem(menu, 50990, MF_ENABLED, ID_ABOUTMENU, pvar->ts->UIMsg);
1844
1845 /* inserts before ID_SETUP_TCPIP */
1846 UTIL_get_lang_msg("MENU_SSH", pvar, "SS&H...");
1847 insertMenuBeforeItem(menu, 50360, MF_ENABLED, ID_SSHSETUPMENU, pvar->ts->UIMsg);
1848 /* inserts before ID_SETUP_TCPIP */
1849 UTIL_get_lang_msg("MENU_SSH_AUTH", pvar, "SSH &Authentication...");
1850 insertMenuBeforeItem(menu, 50360, MF_ENABLED, ID_SSHAUTHSETUPMENU, pvar->ts->UIMsg);
1851 /* inserts before ID_SETUP_TCPIP */
1852 UTIL_get_lang_msg("MENU_SSH_FORWARD", pvar, "SSH F&orwarding...");
1853 insertMenuBeforeItem(menu, 50360, MF_ENABLED, ID_SSHFWDSETUPMENU, pvar->ts->UIMsg);
1854 UTIL_get_lang_msg("MENU_SSH_KEYGEN", pvar, "SSH KeyGe&nerator...");
1855 insertMenuBeforeItem(menu, 50360, MF_ENABLED, ID_SSHKEYGENMENU, pvar->ts->UIMsg);
1856
1857 /* inserts before ID_FILE_CHANGEDIR */
1858 UTIL_get_lang_msg("MENU_SSH_SCP", pvar, "SSH SCP...");
1859 insertMenuBeforeItem(menu, 50170, MF_ENABLED, ID_SSHSCPMENU, pvar->ts->UIMsg);
1860 }
1861
1862 static void append_about_text(HWND dlg, char FAR * prefix, char FAR * msg)
1863 {
1864 SendDlgItemMessage(dlg, IDC_ABOUTTEXT, EM_REPLACESEL, 0,
1865 (LPARAM) prefix);
1866 SendDlgItemMessage(dlg, IDC_ABOUTTEXT, EM_REPLACESEL, 0, (LPARAM) msg);
1867 SendDlgItemMessage(dlg, IDC_ABOUTTEXT, EM_REPLACESEL, 0,
1868 (LPARAM) (char FAR *) "\r\n");
1869 }
1870
1871 // ���s�t�@�C�������o�[�W�������������� (2005.2.28 yutaka)
1872 void get_file_version(char *exefile, int *major, int *minor, int *release, int *build)
1873 {
1874 typedef struct {
1875 WORD wLanguage;
1876 WORD wCodePage;
1877 } LANGANDCODEPAGE, *LPLANGANDCODEPAGE;
1878 LPLANGANDCODEPAGE lplgcode;
1879 UINT unLen;
1880 DWORD size;
1881 char *buf = NULL;
1882 BOOL ret;
1883 int i;
1884 char fmt[80];
1885 char *pbuf;
1886
1887 size = GetFileVersionInfoSize(exefile, NULL);
1888 if (size == 0) {
1889 goto error;
1890 }
1891 buf = malloc(size);
1892 ZeroMemory(buf, size);
1893
1894 if (GetFileVersionInfo(exefile, 0, size, buf) == FALSE) {
1895 goto error;
1896 }
1897
1898 ret = VerQueryValue(buf,
1899 "\\VarFileInfo\\Translation",
1900 (LPVOID *)&lplgcode, &unLen);
1901 if (ret == FALSE)
1902 goto error;
1903
1904 for (i = 0 ; i < (int)(unLen / sizeof(LANGANDCODEPAGE)) ; i++) {
1905 _snprintf_s(fmt, sizeof(fmt), _TRUNCATE,
1906 "\\StringFileInfo\\%04x%04x\\FileVersion",
1907 lplgcode[i].wLanguage, lplgcode[i].wCodePage);
1908 VerQueryValue(buf, fmt, &pbuf, &unLen);
1909 if (unLen > 0) { // get success
1910 int n, a, b, c, d;
1911
1912 n = sscanf(pbuf, "%d, %d, %d, %d", &a, &b, &c, &d);
1913 if (n == 4) { // convert success
1914 *major = a;
1915 *minor = b;
1916 *release = c;
1917 *build = d;
1918 break;
1919 }
1920 }
1921 }
1922
1923 free(buf);
1924 return;
1925
1926 error:
1927 free(buf);
1928 *major = *minor = *release = *build = 0;
1929 }
1930
1931 static void init_about_dlg(PTInstVar pvar, HWND dlg)
1932 {
1933 char buf[1024];
1934 int a, b, c, d;
1935 char uimsg[MAX_UIMSG];
1936
1937 GetWindowText(dlg, uimsg, sizeof(uimsg));
1938 UTIL_get_lang_msg("DLG_ABOUT_TITLE", pvar, uimsg);
1939 SetWindowText(dlg, pvar->ts->UIMsg);
1940 GetDlgItemText(dlg, IDOK, uimsg, sizeof(uimsg));
1941 UTIL_get_lang_msg("BTN_OK", pvar, uimsg);
1942 SetDlgItemText(dlg, IDOK, pvar->ts->UIMsg);
1943
1944 // TTSSH���o�[�W�������������� (2005.2.28 yutaka)
1945 get_file_version("ttxssh.dll", &a, &b, &c, &d);
1946 _snprintf_s(buf, sizeof(buf), _TRUNCATE,
1947 "TTSSH\r\nTera Term Secure Shell extension, %d.%d", a, b);
1948 SendMessage(GetDlgItem(dlg, IDC_TTSSH_VERSION), WM_SETTEXT, 0, (LPARAM)buf);
1949
1950 // OpenSSL���o�[�W�������������� (2005.1.24 yutaka)
1951 // ���������� (2005.5.11 yutaka)
1952 #ifdef OPENSSL_VERSION_TEXT
1953 SendMessage(GetDlgItem(dlg, IDC_OPENSSL_VERSION), WM_SETTEXT, 0, (LPARAM)OPENSSL_VERSION_TEXT);
1954 #else
1955 SendMessage(GetDlgItem(dlg, IDC_OPENSSL_VERSION), WM_SETTEXT, 0, (LPARAM)"Unknown");
1956 #endif
1957
1958 // zlib���o�[�W�������������� (2005.5.11 yutaka)
1959 #ifdef ZLIB_VERSION
1960 _snprintf_s(buf, sizeof(buf), _TRUNCATE, "ZLib %s", ZLIB_VERSION);
1961 #else
1962 _snprintf(buf, sizeof(buf), "ZLib Unknown");
1963 #endif
1964 SendMessage(GetDlgItem(dlg, IDC_ZLIB_VERSION), WM_SETTEXT, 0, (LPARAM)buf);
1965
1966
1967 // TTSSH�_�C�A���O���\������SSH������������ (2004.10.30 yutaka)
1968 if (pvar->socket != INVALID_SOCKET) {
1969 if (SSHv1(pvar)) {
1970 SSH_get_server_ID_info(pvar, buf, sizeof(buf));
1971 UTIL_get_lang_msg("DLG_ABOUT_SERVERID", pvar, "Server ID: ");
1972 append_about_text(dlg, pvar->ts->UIMsg, buf);
1973 SSH_get_protocol_version_info(pvar, buf, sizeof(buf));
1974 UTIL_get_lang_msg("DLG_ABOUT_PROTOCOL", pvar, "Using protocol: ");
1975 append_about_text(dlg, pvar->ts->UIMsg, buf);
1976 CRYPT_get_cipher_info(pvar, buf, sizeof(buf));
1977 UTIL_get_lang_msg("DLG_ABOUT_ENCRYPTION", pvar, "Encryption: ");
1978 append_about_text(dlg, pvar->ts->UIMsg, buf);
1979 CRYPT_get_server_key_info(pvar, buf, sizeof(buf));
1980 UTIL_get_lang_msg("DLG_ABOUT_SERVERKEY", pvar, "Server keys: ");
1981 append_about_text(dlg, pvar->ts->UIMsg, buf);
1982 AUTH_get_auth_info(pvar, buf, sizeof(buf));
1983 UTIL_get_lang_msg("DLG_ABOUT_AUTH", pvar, "Authentication: ");
1984 append_about_text(dlg, pvar->ts->UIMsg, buf);
1985 SSH_get_compression_info(pvar, buf, sizeof(buf));
1986 UTIL_get_lang_msg("DLG_ABOUT_COMP", pvar, "Compression: ");
1987 append_about_text(dlg, pvar->ts->UIMsg, buf);
1988
1989 } else { // SSH2
1990 SSH_get_server_ID_info(pvar, buf, sizeof(buf));
1991 UTIL_get_lang_msg("DLG_ABOUT_SERVERID", pvar, "Server ID: ");
1992 append_about_text(dlg, pvar->ts->UIMsg, buf);
1993 UTIL_get_lang_msg("DLG_ABOUT_CLIENTID", pvar, "Client ID: ");
1994 append_about_text(dlg, pvar->ts->UIMsg, pvar->client_version_string);
1995
1996 SSH_get_protocol_version_info(pvar, buf, sizeof(buf));
1997 UTIL_get_lang_msg("DLG_ABOUT_PROTOCOL", pvar, "Using protocol: ");
1998 append_about_text(dlg, pvar->ts->UIMsg, buf);
1999
2000 if (pvar->kex_type == KEX_DH_GRP1_SHA1) {
2001 strncpy_s(buf, sizeof(buf), KEX_DH1, _TRUNCATE);
2002 } else if (pvar->kex_type == KEX_DH_GRP14_SHA1) {
2003 strncpy_s(buf, sizeof(buf), KEX_DH14, _TRUNCATE);
2004 } else {
2005 strncpy_s(buf, sizeof(buf), KEX_DHGEX, _TRUNCATE);
2006 }
2007 append_about_text(dlg, "KEX: ", buf);
2008
2009 if (pvar->hostkey_type == KEY_DSA) {
2010 strncpy_s(buf, sizeof(buf), "ssh-dss", _TRUNCATE);
2011 } else {
2012 strncpy_s(buf, sizeof(buf), "ssh-rsa", _TRUNCATE);
2013 }
2014 UTIL_get_lang_msg("DLG_ABOUT_HOSTKEY", pvar, "Host Key: ");
2015 append_about_text(dlg, pvar->ts->UIMsg, buf);
2016
2017 // add HMAC algorithm (2004.12.17 yutaka)
2018 buf[0] = '\0';
2019 if (pvar->ctos_hmac == HMAC_SHA1) {
2020 strncat_s(buf, sizeof(buf), "hmac-sha1", _TRUNCATE);
2021 } else if (pvar->ctos_hmac == HMAC_MD5) {
2022 strncat_s(buf, sizeof(buf), "hmac-md5", _TRUNCATE);
2023 }
2024 UTIL_get_lang_msg("DLG_ABOUT_TOSERVER", pvar, " to server, ");
2025 strncat_s(buf, sizeof(buf), pvar->ts->UIMsg, _TRUNCATE);
2026 if (pvar->stoc_hmac == HMAC_SHA1) {
2027 strncat_s(buf, sizeof(buf), "hmac-sha1", _TRUNCATE);
2028 } else if (pvar->stoc_hmac == HMAC_MD5) {
2029 strncat_s(buf, sizeof(buf), "hmac-md5", _TRUNCATE);
2030 }
2031 UTIL_get_lang_msg("DLG_ABOUT_FROMSERVER", pvar, " from server");
2032 strncat_s(buf, sizeof(buf), pvar->ts->UIMsg, _TRUNCATE);
2033 append_about_text(dlg, "HMAC: ", buf);
2034
2035 CRYPT_get_cipher_info(pvar, buf, sizeof(buf));
2036 UTIL_get_lang_msg("DLG_ABOUT_ENCRYPTION", pvar, "Encryption: ");
2037 append_about_text(dlg, pvar->ts->UIMsg, buf);
2038 CRYPT_get_server_key_info(pvar, buf, sizeof(buf));
2039 UTIL_get_lang_msg("DLG_ABOUT_SERVERKEY", pvar, "Server keys: ");
2040 append_about_text(dlg, pvar->ts->UIMsg, buf);
2041
2042 AUTH_get_auth_info(pvar, buf, sizeof(buf));
2043 UTIL_get_lang_msg("DLG_ABOUT_AUTH", pvar, "Authentication: ");
2044 append_about_text(dlg, pvar->ts->UIMsg, buf);
2045
2046 SSH_get_compression_info(pvar, buf, sizeof(buf));
2047 if (pvar->ctos_compression == COMP_DELAYED) { // �x���p�P�b�g���k������ (2006.6.23 yutaka)
2048 UTIL_get_lang_msg("DLG_ABOUT_COMPDELAY", pvar, "Delayed Compression: ");
2049 append_about_text(dlg, pvar->ts->UIMsg, buf);
2050 } else {
2051 UTIL_get_lang_msg("DLG_ABOUT_COMP", pvar, "Compression: ");
2052 append_about_text(dlg, pvar->ts->UIMsg, buf);
2053 }
2054 }
2055 }
2056 }
2057
2058 static BOOL CALLBACK TTXAboutDlg(HWND dlg, UINT msg, WPARAM wParam,
2059 LPARAM lParam)
2060 {
2061 LOGFONT logfont;
2062 HFONT font;
2063
2064 switch (msg) {
2065 case WM_INITDIALOG:
2066 font = (HFONT)SendMessage(dlg, WM_GETFONT, 0, 0);
2067 GetObject(font, sizeof(LOGFONT), &logfont);
2068 if (UTIL_get_lang_font("DLG_TAHOMA_FONT", dlg, &logfont, &DlgAboutFont, pvar)) {
2069 SendDlgItemMessage(dlg, IDC_TTSSH_VERSION, WM_SETFONT, (WPARAM)DlgAboutFont, MAKELPARAM(TRUE,0));
2070 SendDlgItemMessage(dlg, IDC_SSHVERSIONS, WM_SETFONT, (WPARAM)DlgAboutFont, MAKELPARAM(TRUE,0));
2071 SendDlgItemMessage(dlg, IDC_INCLUDES, WM_SETFONT, (WPARAM)DlgAboutFont, MAKELPARAM(TRUE,0));
2072 SendDlgItemMessage(dlg, IDC_OPENSSL_VERSION, WM_SETFONT, (WPARAM)DlgAboutFont, MAKELPARAM(TRUE,0));
2073 SendDlgItemMessage(dlg, IDC_ZLIB_VERSION, WM_SETFONT, (WPARAM)DlgAboutFont, MAKELPARAM(TRUE,0));
2074 SendDlgItemMessage(dlg, IDC_WEBSITES, WM_SETFONT, (WPARAM)DlgAboutFont, MAKELPARAM(TRUE,0));
2075 SendDlgItemMessage(dlg, IDC_CRYPTOGRAPHY, WM_SETFONT, (WPARAM)DlgAboutFont, MAKELPARAM(TRUE,0));
2076 SendDlgItemMessage(dlg, IDC_CREDIT, WM_SETFONT, (WPARAM)DlgAboutFont, MAKELPARAM(TRUE,0));
2077 SendDlgItemMessage(dlg, IDC_ABOUTTEXT, WM_SETFONT, (WPARAM)DlgAboutFont, MAKELPARAM(TRUE,0));
2078 SendDlgItemMessage(dlg, IDOK, WM_SETFONT, (WPARAM)DlgAboutFont, MAKELPARAM(TRUE,0));
2079 }
2080 else {
2081 DlgAboutFont = NULL;
2082 }
2083
2084 // �A�C�R�������I���Z�b�g
2085 {
2086 int fuLoad = LR_DEFAULTCOLOR;
2087 HICON hicon;
2088
2089 if (is_NT4()) {
2090 fuLoad = LR_VGACOLOR;
2091 }
2092
2093 hicon = LoadImage(hInst, MAKEINTRESOURCE(IDI_SECURETT),
2094 IMAGE_ICON, 32, 32, fuLoad);
2095 SendDlgItemMessage(dlg, IDC_TTSSH_ICON, STM_SETICON, (WPARAM)hicon, 0);
2096 }
2097
2098 init_about_dlg((PTInstVar) lParam, dlg);
2099 return TRUE;
2100 case WM_COMMAND:
2101 switch (LOWORD(wParam)) {
2102 case IDOK:
2103 EndDialog(dlg, 1);
2104 if (DlgAboutFont != NULL) {
2105 DeleteObject(DlgAboutFont);
2106 }
2107 return TRUE;
2108 case IDCANCEL: /* there isn't a cancel button, but other Windows
2109 UI things can send this message */
2110 EndDialog(dlg, 0);
2111 if (DlgAboutFont != NULL) {
2112 DeleteObject(DlgAboutFont);
2113 }
2114 return TRUE;
2115 }
2116 break;
2117 }
2118
2119 return FALSE;
2120 }
2121
2122 static char FAR *get_cipher_name(int cipher)
2123 {
2124 switch (cipher) {
2125 case SSH_CIPHER_NONE:
2126 UTIL_get_lang_msg("DLG_SSHSETUP_CIPHER_BORDER", pvar,
2127 "<ciphers below this line are disabled>");
2128 return pvar->ts->UIMsg;
2129 case SSH_CIPHER_RC4:
2130 return "RC4(SSH1)";
2131 case SSH_CIPHER_3DES:
2132 return "3DES(SSH1)";
2133 case SSH_CIPHER_DES:
2134 return "DES(SSH1)";
2135 case SSH_CIPHER_IDEA:
2136 return "IDEA(SSH1)";
2137 case SSH_CIPHER_TSS:
2138 return "TSS(SSH1)";
2139 case SSH_CIPHER_BLOWFISH:
2140 return "Blowfish(SSH1)";
2141
2142 // for SSH2(yutaka)
2143 case SSH2_CIPHER_AES128_CBC:
2144 return "AES128-CBC(SSH2)";
2145 case SSH2_CIPHER_AES192_CBC:
2146 return "AES192-CBC(SSH2)";
2147 case SSH2_CIPHER_AES256_CBC:
2148 return "AES256-CBC(SSH2)";
2149 case SSH2_CIPHER_3DES_CBC:
2150 return "3DES-CBC(SSH2)";
2151 case SSH2_CIPHER_BLOWFISH_CBC:
2152 return "Blowfish-CBC(SSH2)";
2153 case SSH2_CIPHER_AES128_CTR:
2154 return "AES128-CTR(SSH2)";
2155 case SSH2_CIPHER_AES192_CTR:
2156 return "AES192-CTR(SSH2)";
2157 case SSH2_CIPHER_AES256_CTR:
2158 return "AES256-CTR(SSH2)";
2159 case SSH2_CIPHER_ARCFOUR:
2160 return "Arcfour(SSH2)";
2161 case SSH2_CIPHER_ARCFOUR128:
2162 return "Arcfour128(SSH2)";
2163 case SSH2_CIPHER_ARCFOUR256:
2164 return "Arcfour256(SSH2)";
2165 case SSH2_CIPHER_CAST128_CBC:
2166 return "CAST128-CBC(SSH2)";
2167
2168 default:
2169 return NULL;
2170 }
2171 }
2172
2173 static void set_move_button_status(HWND dlg)
2174 {
2175 HWND cipherControl = GetDlgItem(dlg, IDC_SSHCIPHERPREFS);
2176 int curPos = (int) SendMessage(cipherControl, LB_GETCURSEL, 0, 0);
2177 int maxPos = (int) SendMessage(cipherControl, LB_GETCOUNT, 0, 0) - 1;
2178
2179 EnableWindow(GetDlgItem(dlg, IDC_SSHMOVECIPHERUP),
2180 curPos > 0 && curPos <= maxPos);
2181 EnableWindow(GetDlgItem(dlg, IDC_SSHMOVECIPHERDOWN),
2182 curPos >= 0 && curPos < maxPos);
2183 }
2184
2185 static void init_setup_dlg(PTInstVar pvar, HWND dlg)
2186 {
2187 HWND compressionControl = GetDlgItem(dlg, IDC_SSHCOMPRESSIONLEVEL);
2188 HWND cipherControl = GetDlgItem(dlg, IDC_SSHCIPHERPREFS);
2189 int i;
2190 int ch;
2191 char uimsg[MAX_UIMSG];
2192
2193 GetWindowText(dlg, uimsg, sizeof(uimsg));
2194 UTIL_get_lang_msg("DLG_SSHSETUP_TITLE", pvar, uimsg);
2195 SetWindowText(dlg, pvar->ts->UIMsg);
2196 GetDlgItemText(dlg, IDC_COMPRESSLABEL, uimsg, sizeof(uimsg));
2197 UTIL_get_lang_msg("DLG_SSHSETUP_COMPRESS", pvar, uimsg);
2198 SetDlgItemText(dlg, IDC_COMPRESSLABEL, pvar->ts->UIMsg);
2199 GetDlgItemText(dlg, IDC_COMPRESSNONE, uimsg, sizeof(uimsg));
2200 UTIL_get_lang_msg("DLG_SSHSETUP_COMPRESS_NONE", pvar, uimsg);
2201 SetDlgItemText(dlg, IDC_COMPRESSNONE, pvar->ts->UIMsg);
2202 GetDlgItemText(dlg, IDC_COMPRESSHIGH, uimsg, sizeof(uimsg));
2203 UTIL_get_lang_msg("DLG_SSHSETUP_COMPRESS_HIGHEST", pvar, uimsg);
2204 SetDlgItemText(dlg, IDC_COMPRESSHIGH, pvar->ts->UIMsg);
2205 GetDlgItemText(dlg, IDC_CIPHERORDER, uimsg, sizeof(uimsg));
2206 UTIL_get_lang_msg("DLG_SSHSETUP_CHIPER", pvar, uimsg);
2207 SetDlgItemText(dlg, IDC_CIPHERORDER, pvar->ts->UIMsg);
2208 GetDlgItemText(dlg, IDC_SSHMOVECIPHERUP, uimsg, sizeof(uimsg));
2209 UTIL_get_lang_msg("DLG_SSHSETUP_CHIPER_UP", pvar, uimsg);
2210 SetDlgItemText(dlg, IDC_SSHMOVECIPHERUP, pvar->ts->UIMsg);
2211 GetDlgItemText(dlg, IDC_SSHMOVECIPHERDOWN, uimsg, sizeof(uimsg));
2212 UTIL_get_lang_msg("DLG_SSHSETUP_CHIPER_DOWN", pvar, uimsg);
2213 SetDlgItemText(dlg, IDC_SSHMOVECIPHERDOWN, pvar->ts->UIMsg);
2214 GetDlgItemText(dlg, IDC_KNOWNHOSTS, uimsg, sizeof(uimsg));
2215 UTIL_get_lang_msg("DLG_SSHSETUP_KNOWNHOST", pvar, uimsg);
2216 SetDlgItemText(dlg, IDC_KNOWNHOSTS, pvar->ts->UIMsg);
2217 GetDlgItemText(dlg, IDC_CHOOSEREADWRITEFILE, uimsg, sizeof(uimsg));
2218 UTIL_get_lang_msg("DLG_SSHSETUP_KNOWNHOST_RW", pvar, uimsg);
2219 SetDlgItemText(dlg, IDC_CHOOSEREADWRITEFILE, pvar->ts->UIMsg);
2220 GetDlgItemText(dlg, IDC_CHOOSEREADONLYFILE, uimsg, sizeof(uimsg));
2221 UTIL_get_lang_msg("DLG_SSHSETUP_KNOWNHOST_RO", pvar, uimsg);
2222 SetDlgItemText(dlg, IDC_CHOOSEREADONLYFILE, pvar->ts->UIMsg);
2223 GetDlgItemText(dlg, IDC_HEARTBEATLABEL, uimsg, sizeof(uimsg));
2224 UTIL_get_lang_msg("DLG_SSHSETUP_HEARTBEAT", pvar, uimsg);
2225 SetDlgItemText(dlg, IDC_HEARTBEATLABEL, pvar->ts->UIMsg);
2226 GetDlgItemText(dlg, IDC_HEARTBEATLABEL2, uimsg, sizeof(uimsg));
2227 UTIL_get_lang_msg("DLG_SSHSETUP_HEARTBEAT_UNIT", pvar, uimsg);
2228 SetDlgItemText(dlg, IDC_HEARTBEATLABEL2, pvar->ts->UIMsg);
2229 GetDlgItemText(dlg, IDC_FORWARDAGENT, uimsg, sizeof(uimsg));
2230 UTIL_get_lang_msg("DLG_SSHSETUP_FORWARDAGENT", pvar, uimsg);
2231 SetDlgItemText(dlg, IDC_FORWARDAGENT, pvar->ts->UIMsg);
2232 GetDlgItemText(dlg, IDC_NOTICEBANNER, uimsg, sizeof(uimsg));
2233 UTIL_get_lang_msg("DLG_SSHSETUP_NOTICE", pvar, uimsg);
2234 SetDlgItemText(dlg, IDC_NOTICEBANNER, pvar->ts->UIMsg);
2235 GetDlgItemText(dlg, IDOK, uimsg, sizeof(uimsg));
2236 UTIL_get_lang_msg("BTN_OK", pvar, uimsg);
2237 SetDlgItemText(dlg, IDOK, pvar->ts->UIMsg);
2238 GetDlgItemText(dlg, IDCANCEL, uimsg, sizeof(uimsg));
2239 UTIL_get_lang_msg("BTN_CANCEL", pvar, uimsg);
2240 SetDlgItemText(dlg, IDCANCEL, pvar->ts->UIMsg);
2241
2242 SendMessage(compressionControl, TBM_SETRANGE, TRUE, MAKELONG(0, 9));
2243 SendMessage(compressionControl, TBM_SETPOS, TRUE,
2244 pvar->settings.CompressionLevel);
2245
2246 normalize_cipher_order(pvar->settings.CipherOrder);
2247
2248 for (i = 0; pvar->settings.CipherOrder[i] != 0; i++) {
2249 int cipher = pvar->settings.CipherOrder[i] - '0';
2250 char FAR *name = get_cipher_name(cipher);
2251
2252 if (name != NULL) {
2253 SendMessage(cipherControl, LB_ADDSTRING, 0, (LPARAM) name);
2254 }
2255 }
2256
2257 SendMessage(cipherControl, LB_SETCURSEL, 0, 0);
2258 set_move_button_status(dlg);
2259
2260 for (i = 0; (ch = pvar->settings.KnownHostsFiles[i]) != 0 && ch != ';';
2261 i++) {
2262 }
2263 if (ch != 0) {
2264 pvar->settings.KnownHostsFiles[i] = 0;
2265 SetDlgItemText(dlg, IDC_READWRITEFILENAME,
2266 pvar->settings.KnownHostsFiles);
2267 pvar->settings.KnownHostsFiles[i] = ch;
2268 SetDlgItemText(dlg, IDC_READONLYFILENAME,
2269 pvar->settings.KnownHostsFiles + i + 1);
2270 } else {
2271 SetDlgItemText(dlg, IDC_READWRITEFILENAME,
2272 pvar->settings.KnownHostsFiles);
2273 }
2274
2275 // SSH2 HeartBeat(keep-alive)������ (2005.2.22 yutaka)
2276 {
2277 char buf[10];
2278 _snprintf_s(buf, sizeof(buf), _TRUNCATE,
2279 "%d", pvar->settings.ssh_heartbeat_overtime);
2280 SetDlgItemText(dlg, IDC_HEARTBEAT_EDIT, buf);
2281 }
2282
2283 if (pvar->settings.ForwardAgent) {
2284 CheckDlgButton(dlg, IDC_FORWARDAGENT, TRUE);
2285 }
2286 }
2287
2288 void get_teraterm_dir_relative_name(char FAR * buf, int bufsize,
2289 char FAR * basename)
2290 {
2291 int filename_start = 0;
2292 int i;
2293 int ch;
2294
2295 if (basename[0] == '\\' || basename[0] == '/'
2296 || (basename[0] != 0 && basename[1] == ':')) {
2297 strncpy_s(buf, bufsize, basename, _TRUNCATE);
2298 return;
2299 }
2300
2301 GetModuleFileName(NULL, buf, bufsize);
2302 for (i = 0; (ch = buf[i]) != 0; i++) {
2303 if (ch == '\\' || ch == '/' || ch == ':') {
2304 filename_start = i + 1;
2305 }
2306 }
2307
2308 if (bufsize > filename_start) {
2309 strncpy_s(buf + filename_start, bufsize - filename_start, basename, _TRUNCATE);
2310 }
2311 }
2312
2313 int copy_teraterm_dir_relative_path(char FAR * dest, int destsize,
2314 char FAR * basename)
2315 {
2316 char buf[1024];
2317 int filename_start = 0;
2318 int i;
2319 int ch, ch2;
2320
2321 if (basename[0] != '\\' && basename[0] != '/'
2322 && (basename[0] == 0 || basename[1] != ':')) {
2323 strncpy_s(dest, destsize, basename, _TRUNCATE);
2324 return strlen(dest);
2325 }
2326
2327 GetModuleFileName(NULL, buf, sizeof(buf));
2328 for (i = 0; (ch = buf[i]) != 0; i++) {
2329 if (ch == '\\' || ch == '/' || ch == ':') {
2330 filename_start = i + 1;
2331 }
2332 }
2333
2334 for (i = 0; i < filename_start; i++) {
2335 ch = toupper(buf[i]);
2336 ch2 = toupper(basename[i]);
2337
2338 if (ch == ch2 ||
2339 ((ch == '\\' || ch == '/') && (ch2 == '\\' || ch2 == '/'))) {
2340 } else {
2341 break;
2342 }
2343 }
2344
2345 if (i == filename_start) {
2346 strncpy_s(dest, destsize, basename + i, _TRUNCATE);
2347 } else {
2348 strncpy_s(dest, destsize, basename, _TRUNCATE);
2349 }
2350 return strlen(dest);
2351 }
2352
2353 static void complete_setup_dlg(PTInstVar pvar, HWND dlg)
2354 {
2355 char buf[4096];
2356 char buf2[1024];
2357 HWND compressionControl = GetDlgItem(dlg, IDC_SSHCOMPRESSIONLEVEL);
2358 HWND cipherControl = GetDlgItem(dlg, IDC_SSHCIPHERPREFS);
2359 int i, j, buf2index, bufindex;
2360 int count = (int) SendMessage(cipherControl, LB_GETCOUNT, 0, 0);
2361
2362 pvar->settings.CompressionLevel =
2363 (int) SendMessage(compressionControl, TBM_GETPOS, 0, 0);
2364
2365 buf2index = 0;
2366 for (i = 0; i < count; i++) {
2367 int len = SendMessage(cipherControl, LB_GETTEXTLEN, i, 0);
2368
2369 if (len > 0 && len < sizeof(buf)) { /* should always be true */
2370 buf[0] = 0;
2371 SendMessage(cipherControl, LB_GETTEXT, i, (LPARAM) buf);
2372 for (j = 0;
2373 j <= SSH_CIPHER_MAX
2374 && strcmp(buf, get_cipher_name(j)) != 0; j++) {
2375 }
2376 if (j <= SSH_CIPHER_MAX) {
2377 buf2[buf2index] = '0' + j;
2378 buf2index++;
2379 }
2380 }
2381 }
2382 buf2[buf2index] = 0;
2383 normalize_cipher_order(buf2);
2384 strncpy_s(pvar->settings.CipherOrder, sizeof(pvar->settings.CipherOrder), buf2, _TRUNCATE);
2385
2386 buf[0] = 0;
2387 GetDlgItemText(dlg, IDC_READWRITEFILENAME, buf, sizeof(buf));
2388 j = copy_teraterm_dir_relative_path(pvar->settings.KnownHostsFiles,
2389 sizeof(pvar->settings.KnownHostsFiles),
2390 buf);
2391 buf[0] = 0;
2392 bufindex = 0;
2393 GetDlgItemText(dlg, IDC_READONLYFILENAME, buf, sizeof(buf));
2394 for (i = 0; buf[i] != 0; i++) {
2395 if (buf[i] == ';') {
2396 buf[i] = 0;
2397 if (j < sizeof(pvar->settings.KnownHostsFiles) - 1) {
2398 pvar->settings.KnownHostsFiles[j] = ';';
2399 j++;
2400 j += copy_teraterm_dir_relative_path(pvar->settings.
2401 KnownHostsFiles + j,
2402 sizeof(pvar->settings.
2403 KnownHostsFiles)
2404 - j, buf + bufindex);
2405 }
2406 bufindex = i + 1;
2407 }
2408 }
2409 if (bufindex < i && j < sizeof(pvar->settings.KnownHostsFiles) - 1) {
2410 pvar->settings.KnownHostsFiles[j] = ';';
2411 j++;
2412 copy_teraterm_dir_relative_path(pvar->settings.KnownHostsFiles + j,
2413 sizeof(pvar->settings. KnownHostsFiles) - j,
2414 buf + bufindex);
2415 }
2416
2417 // get SSH HeartBeat(keep-alive)
2418 SendMessage(GetDlgItem(dlg, IDC_HEARTBEAT_EDIT), WM_GETTEXT, sizeof(buf), (LPARAM)buf);
2419 i = atoi(buf);
2420 if (i < 0)
2421 i = 60;
2422 pvar->settings.ssh_heartbeat_overtime = i;
2423
2424 pvar->settings.ForwardAgent = IsDlgButtonChecked(dlg, IDC_FORWARDAGENT);
2425 }
2426
2427 static void move_cur_sel_delta(HWND listbox, int delta)
2428 {
2429 int curPos = (int) SendMessage(listbox, LB_GETCURSEL, 0, 0);
2430 int maxPos = (int) SendMessage(listbox, LB_GETCOUNT, 0, 0) - 1;
2431 int newPos = curPos + delta;
2432 char buf[1024];
2433
2434 if (curPos >= 0 && newPos >= 0 && newPos <= maxPos) {
2435 int len = SendMessage(listbox, LB_GETTEXTLEN, curPos, 0);
2436
2437 if (len > 0 && len < sizeof(buf)) { /* should always be true */
2438 buf[0] = 0;
2439 SendMessage(listbox, LB_GETTEXT, curPos, (LPARAM) buf);
2440 SendMessage(listbox, LB_DELETESTRING, curPos, 0);
2441 SendMessage(listbox, LB_INSERTSTRING, newPos,
2442 (LPARAM) (char FAR *) buf);
2443 SendMessage(listbox, LB_SETCURSEL, newPos, 0);
2444 }
2445 }
2446 }
2447
2448 static int get_keys_file_name(HWND parent, char FAR * buf, int bufsize,
2449 int readonly)
2450 {
2451 OPENFILENAME params;
2452 char fullname_buf[2048] = "ssh_known_hosts";
2453
2454 params.lStructSize = sizeof(OPENFILENAME);
2455 params.hwndOwner = parent;
2456 params.lpstrFilter = NULL;
2457 params.lpstrCustomFilter = NULL;
2458 params.nFilterIndex = 0;
2459 buf[0] = 0;
2460 params.lpstrFile = fullname_buf;
2461 params.nMaxFile = sizeof(fullname_buf);
2462 params.lpstrFileTitle = NULL;
2463 params.lpstrInitialDir = NULL;
2464 if (readonly) {
2465 UTIL_get_lang_msg("MSG_OPEN_KNOWNHOSTS_RO_TITLE", pvar,
2466 "Choose a read-only known-hosts file to add");
2467 }
2468 else {
2469 UTIL_get_lang_msg("MSG_OPEN_KNOWNHOSTS_RW_TITLE", pvar,
2470 "Choose a read/write known-hosts file");
2471 }
2472 params.lpstrTitle = pvar->ts->UIMsg;
2473 params.Flags = (readonly ? OFN_FILEMUSTEXIST | OFN_PATHMUSTEXIST : 0)
2474 | OFN_HIDEREADONLY | (!readonly ? OFN_NOREADONLYRETURN : 0);
2475 params.lpstrDefExt = NULL;
2476
2477 if (GetOpenFileName(&params) != 0) {
2478 copy_teraterm_dir_relative_path(buf, bufsize, fullname_buf);
2479 return 1;
2480 } else {
2481 int err = CommDlgExtendedError();
2482
2483 if (err != 0) {
2484 char buf[1024];
2485 UTIL_get_lang_msg("MSG_OPEN_FILEDLG_KNOWNHOSTS_ERROR", pvar,
2486 "Unable to display file dialog box: error %d");
2487 _snprintf_s(buf, sizeof(buf), _TRUNCATE, pvar->ts->UIMsg, err);
2488 MessageBox(parent, buf, "TTSSH Error",
2489 MB_OK | MB_ICONEXCLAMATION);
2490 }
2491
2492 return 0;
2493 }
2494 }
2495
2496 static void choose_read_write_file(HWND dlg)
2497 {
2498 char buf[1024];
2499
2500 if (get_keys_file_name(dlg, buf, sizeof(buf), 0)) {
2501 SetDlgItemText(dlg, IDC_READWRITEFILENAME, buf);
2502 }
2503 }
2504
2505 static void choose_read_only_file(HWND dlg)
2506 {
2507 char buf[1024];
2508 char buf2[4096];
2509
2510 if (get_keys_file_name(dlg, buf, sizeof(buf), 1)) {
2511 buf2[0] = 0;
2512 GetDlgItemText(dlg, IDC_READONLYFILENAME, buf2, sizeof(buf2));
2513 if (buf2[0] != 0 && buf2[strlen(buf2) - 1] != ';') {
2514 strncat_s(buf2, sizeof(buf2), ";", _TRUNCATE);
2515 }
2516 strncat_s(buf2, sizeof(buf2), buf, _TRUNCATE);
2517 SetDlgItemText(dlg, IDC_READONLYFILENAME, buf2);
2518 }
2519 }
2520
2521 static BOOL CALLBACK TTXSetupDlg(HWND dlg, UINT msg, WPARAM wParam,
2522 LPARAM lParam)
2523 {
2524 LOGFONT logfont;
2525 HFONT font;
2526
2527 switch (msg) {
2528 case WM_INITDIALOG:
2529 SetWindowLong(dlg, DWL_USER, lParam);
2530 init_setup_dlg((PTInstVar) lParam, dlg);
2531
2532 font = (HFONT)SendMessage(dlg, WM_GETFONT, 0, 0);
2533 GetObject(font, sizeof(LOGFONT), &logfont);
2534 if (UTIL_get_lang_font("DLG_TAHOMA_FONT", dlg, &logfont, &DlgSetupFont, pvar)) {
2535 SendDlgItemMessage(dlg, IDC_COMPRESSLABEL, WM_SETFONT, (WPARAM)DlgSetupFont, MAKELPARAM(TRUE,0));
2536 SendDlgItemMessage(dlg, IDC_CIPHERORDER, WM_SETFONT, (WPARAM)DlgSetupFont, MAKELPARAM(TRUE,0));
2537 SendDlgItemMessage(dlg, IDC_SSHCIPHERPREFS, WM_SETFONT, (WPARAM)DlgSetupFont, MAKELPARAM(TRUE,0));
2538 SendDlgItemMessage(dlg, IDC_SSHMOVECIPHERUP, WM_SETFONT, (WPARAM)DlgSetupFont, MAKELPARAM(TRUE,0));
2539 SendDlgItemMessage(dlg, IDC_SSHMOVECIPHERDOWN, WM_SETFONT, (WPARAM)DlgSetupFont, MAKELPARAM(TRUE,0));
2540 SendDlgItemMessage(dlg, IDC_CHOOSEREADWRITEFILE, WM_SETFONT, (WPARAM)DlgSetupFont, MAKELPARAM(TRUE,0));
2541 SendDlgItemMessage(dlg, IDC_READWRITEFILENAME, WM_SETFONT, (WPARAM)DlgSetupFont, MAKELPARAM(TRUE,0));
2542 SendDlgItemMessage(dlg, IDC_CHOOSEREADONLYFILE, WM_SETFONT, (WPARAM)DlgSetupFont, MAKELPARAM(TRUE,0));
2543 SendDlgItemMessage(dlg, IDC_READONLYFILENAME, WM_SETFONT, (WPARAM)DlgSetupFont, MAKELPARAM(TRUE,0));
2544 SendDlgItemMessage(dlg, IDC_COMPRESSNONE, WM_SETFONT, (WPARAM)DlgSetupFont, MAKELPARAM(TRUE,0));
2545 SendDlgItemMessage(dlg, IDC_COMPRESSHIGH, WM_SETFONT, (WPARAM)DlgSetupFont, MAKELPARAM(TRUE,0));
2546 SendDlgItemMessage(dlg, IDC_NOTICEBANNER, WM_SETFONT, (WPARAM)DlgSetupFont, MAKELPARAM(TRUE,0));
2547 SendDlgItemMessage(dlg, IDC_KNOWNHOSTS, WM_SETFONT, (WPARAM)DlgSetupFont, MAKELPARAM(TRUE,0));
2548 SendDlgItemMessage(dlg, IDC_HEARTBEATLABEL, WM_SETFONT, (WPARAM)DlgSetupFont, MAKELPARAM(TRUE,0));
2549 SendDlgItemMessage(dlg, IDC_HEARTBEAT_EDIT, WM_SETFONT, (WPARAM)DlgSetupFont, MAKELPARAM(TRUE,0));
2550 SendDlgItemMessage(dlg, IDC_HEARTBEATLABEL2, WM_SETFONT, (WPARAM)DlgSetupFont, MAKELPARAM(TRUE,0));
2551 SendDlgItemMessage(dlg, IDC_FORWARDAGENT, WM_SETFONT, (WPARAM)DlgSetupFont, MAKELPARAM(TRUE,0));
2552 SendDlgItemMessage(dlg, IDOK, WM_SETFONT, (WPARAM)DlgSetupFont, MAKELPARAM(TRUE,0));
2553 SendDlgItemMessage(dlg, IDCANCEL, WM_SETFONT, (WPARAM)DlgSetupFont, MAKELPARAM(TRUE,0));
2554 }
2555 else {
2556 DlgSetupFont = NULL;
2557 }
2558
2559 return TRUE;
2560 case WM_COMMAND:
2561 switch (LOWORD(wParam)) {
2562 case IDOK:
2563 complete_setup_dlg((PTInstVar) GetWindowLong(dlg, DWL_USER), dlg);
2564 EndDialog(dlg, 1);
2565 if (DlgSetupFont != NULL) {
2566 DeleteObject(DlgSetupFont);
2567 }
2568 return TRUE;
2569 case IDCANCEL: /* there isn't a cancel button, but other Windows
2570 UI things can send this message */
2571 EndDialog(dlg, 0);
2572 if (DlgSetupFont != NULL) {
2573 DeleteObject(DlgSetupFont);
2574 }
2575 return TRUE;
2576 case IDC_SSHMOVECIPHERUP:
2577 move_cur_sel_delta(GetDlgItem(dlg, IDC_SSHCIPHERPREFS), -1);
2578 set_move_button_status(dlg);
2579 SetFocus(GetDlgItem(dlg, IDC_SSHCIPHERPREFS));
2580 return TRUE;
2581 case IDC_SSHMOVECIPHERDOWN:
2582 move_cur_sel_delta(GetDlgItem(dlg, IDC_SSHCIPHERPREFS), 1);
2583 set_move_button_status(dlg);
2584 SetFocus(GetDlgItem(dlg, IDC_SSHCIPHERPREFS));
2585 return TRUE;
2586 case IDC_SSHCIPHERPREFS:
2587 set_move_button_status(dlg);
2588 return TRUE;
2589 case IDC_CHOOSEREADWRITEFILE:
2590 choose_read_write_file(dlg);
2591 return TRUE;
2592 case IDC_CHOOSEREADONLYFILE:
2593 choose_read_only_file(dlg);
2594 return TRUE;
2595 }
2596 break;
2597 }
2598
2599 return FALSE;
2600 }
2601
2602
2603 //
2604 // SSH key generator dialog (2005.4.10 yutaka)
2605 //
2606
2607 typedef struct {
2608 RSA *rsa;
2609 DSA *dsa;
2610 } ssh_private_key_t;
2611
2612 static ssh_private_key_t private_key = {NULL, NULL};
2613
2614 typedef struct {
2615 RSA *rsa;
2616 DSA *dsa;
2617 } ssh_public_key_t;
2618
2619 static ssh_public_key_t public_key = {NULL, NULL};;
2620
2621 static void free_ssh_key(void)
2622 {
2623 // DSA_free(), RSA_free()��NULL���n�����������������B
2624 DSA_free(private_key.dsa);
2625 private_key.dsa = NULL;
2626 DSA_free(public_key.dsa);
2627 public_key.dsa = NULL;
2628
2629 RSA_free(private_key.rsa);
2630 private_key.rsa = NULL;
2631 RSA_free(public_key.rsa);
2632 public_key.rsa = NULL;
2633 }
2634
2635
2636 static BOOL generate_ssh_key(enum hostkey_type type)
2637 {
2638 int bits = 1024;
2639
2640 // if SSH key already is generated, should free the resource.
2641 free_ssh_key();
2642
2643 if (type == KEY_RSA1 || type == KEY_RSA) {
2644 RSA *priv = NULL;
2645 RSA *pub = NULL;
2646
2647 // private key
2648 priv = RSA_generate_key(bits, 35, NULL, NULL);
2649 if (priv == NULL)
2650 goto error;
2651 private_key.rsa = priv;
2652
2653 // public key
2654 pub = RSA_new();
2655 pub->n = BN_new();
2656 pub->e = BN_new();
2657 if (pub->n == NULL || pub->e == NULL) {
2658 RSA_free(pub);
2659 goto error;
2660 }
2661
2662 BN_copy(pub->n, priv->n);
2663 BN_copy(pub->e, priv->e);
2664 public_key.rsa = pub;
2665
2666 } else if (type == KEY_DSA) {
2667 DSA *priv = NULL;
2668 DSA *pub = NULL;
2669
2670 // private key
2671 priv = DSA_generate_parameters(bits, NULL, 0, NULL, NULL, NULL, NULL);
2672 if (priv == NULL)
2673 goto error;
2674 if (!DSA_generate_key(priv)) {
2675 // TODO: free 'priv'?
2676 goto error;
2677 }
2678 private_key.dsa = priv;
2679
2680 // public key
2681 pub = DSA_new();
2682 if (pub == NULL)
2683 goto error;
2684 pub->p = BN_new();
2685 pub->q = BN_new();
2686 pub->g = BN_new();
2687 pub->pub_key = BN_new();
2688 if (pub->p == NULL || pub->q == NULL || pub->g == NULL || pub->pub_key == NULL) {
2689 DSA_free(pub);
2690 goto error;
2691 }
2692
2693 BN_copy(pub->p, priv->p);
2694 BN_copy(pub->q, priv->q);
2695 BN_copy(pub->g, priv->g);
2696 BN_copy(pub->pub_key, priv->pub_key);
2697 public_key.dsa = pub;
2698
2699 } else {
2700 goto error;
2701 }
2702
2703 return TRUE;
2704
2705 error:
2706 free_ssh_key();
2707 return FALSE;
2708 }
2709
2710
2711 //
2712 // RC4
2713 //
2714
2715 /* Size of key to use */
2716 #define SEED_SIZE 20
2717
2718 /* Number of bytes to reseed after */
2719 #define REKEY_BYTES (1 << 24)
2720
2721 static int rc4_ready = 0;
2722 static RC4_KEY rc4;
2723
2724 static void seed_rng(void)
2725 {
2726 if (RAND_status() != 1)
2727 return;
2728 }
2729
2730 static void arc4random_stir(void)
2731 {
2732 unsigned char rand_buf[SEED_SIZE];
2733 int i;
2734
2735 memset(&rc4, 0, sizeof(rc4));
2736 if (RAND_bytes(rand_buf, sizeof(rand_buf)) <= 0) {
2737 //fatal("Couldn't obtain random bytes (error %ld)",
2738 // ERR_get_error());
2739 }
2740 RC4_set_key(&rc4, sizeof(rand_buf), rand_buf);
2741
2742 /*
2743 * Discard early keystream, as per recommendations in:
2744 * http://www.wisdom.weizmann.ac.il/~itsik/RC4/Papers/Rc4_ksa.ps
2745 */
2746 for(i = 0; i <= 256; i += sizeof(rand_buf))
2747 RC4(&rc4, sizeof(rand_buf), rand_buf, rand_buf);
2748
2749 memset(rand_buf, 0, sizeof(rand_buf));
2750
2751 rc4_ready = REKEY_BYTES;
2752 }
2753
2754 static unsigned int arc4random(void)
2755 {
2756 unsigned int r = 0;
2757 static int first_time = 1;
2758
2759 if (rc4_ready <= 0) {
2760 if (first_time) {
2761 seed_rng();
2762 }
2763 first_time = 0;
2764 arc4random_stir();
2765 }
2766
2767 RC4(&rc4, sizeof(r), (unsigned char *)&r, (unsigned char *)&r);
2768
2769 rc4_ready -= sizeof(r);
2770
2771 return(r);
2772 }
2773
2774 //
2775 // SSH1 3DES
2776 //
2777 /*
2778 * This is used by SSH1:
2779 *
2780 * What kind of triple DES are these 2 routines?
2781 *
2782 * Why is there a redundant initialization vector?
2783 *
2784 * If only iv3 was used, then, this would till effect have been
2785 * outer-cbc. However, there is also a private iv1 == iv2 which
2786 * perhaps makes differential analysis easier. On the other hand, the
2787 * private iv1 probably makes the CRC-32 attack ineffective. This is a
2788 * result of that there is no longer any known iv1 to use when
2789 * choosing the X block.
2790 */
2791 struct ssh1_3des_ctx
2792 {
2793 EVP_CIPHER_CTX k1, k2, k3;
2794 };
2795
2796 static int ssh1_3des_init(EVP_CIPHER_CTX *ctx, const u_char *key, const u_char *iv, int enc)
2797 {
2798 struct ssh1_3des_ctx *c;
2799 u_char *k1, *k2, *k3;
2800
2801 if ((c = EVP_CIPHER_CTX_get_app_data(ctx)) == NULL) {
2802 c = malloc(sizeof(*c));
2803 EVP_CIPHER_CTX_set_app_data(ctx, c);
2804 }
2805 if (key == NULL)
2806 return (1);
2807 if (enc == -1)
2808 enc = ctx->encrypt;
2809 k1 = k2 = k3 = (u_char *) key;
2810 k2 += 8;
2811 if (EVP_CIPHER_CTX_key_length(ctx) >= 16+8) {
2812 if (enc)
2813 k3 += 16;
2814 else
2815 k1 += 16;
2816 }
2817 EVP_CIPHER_CTX_init(&c->k1);
2818 EVP_CIPHER_CTX_init(&c->k2);
2819 EVP_CIPHER_CTX_init(&c->k3);
2820 if (EVP_CipherInit(&c->k1, EVP_des_cbc(), k1, NULL, enc) == 0 ||
2821 EVP_CipherInit(&c->k2, EVP_des_cbc(), k2, NULL, !enc) == 0 ||
2822 EVP_CipherInit(&c->k3, EVP_des_cbc(), k3, NULL, enc) == 0) {
2823 memset(c, 0, sizeof(*c));
2824 free(c);
2825 EVP_CIPHER_CTX_set_app_data(ctx, NULL);
2826 return (0);
2827 }
2828 return (1);
2829 }
2830
2831 static int ssh1_3des_cbc(EVP_CIPHER_CTX *ctx, u_char *dest, const u_char *src, u_int len)
2832 {
2833 struct ssh1_3des_ctx *c;
2834
2835 if ((c = EVP_CIPHER_CTX_get_app_data(ctx)) == NULL) {
2836 //error("ssh1_3des_cbc: no context");
2837 return (0);
2838 }
2839 if (EVP_Cipher(&c->k1, dest, (u_char *)src, len) == 0 ||
2840 EVP_Cipher(&c->k2, dest, dest, len) == 0 ||
2841 EVP_Cipher(&c->k3, dest, dest, len) == 0)
2842 return (0);
2843 return (1);
2844 }
2845
2846 static int ssh1_3des_cleanup(EVP_CIPHER_CTX *ctx)
2847 {
2848 struct ssh1_3des_ctx *c;
2849
2850 if ((c = EVP_CIPHER_CTX_get_app_data(ctx)) != NULL) {
2851 EVP_CIPHER_CTX_cleanup(&c->k1);