apps/silc/silc.c

   1 /*
   2
   3   silc.c
   4
   5   Author: Pekka Riikonen <priikone@poseidon.pspt.fi>
   6
   7   Copyright (C) 1997 - 2000 Pekka Riikonen
   8
   9   This program is free software; you can redistribute it and/or modify
  10   it under the terms of the GNU General Public License as published by
  11   the Free Software Foundation; either version 2 of the License, or
  12   (at your option) any later version.
  13
  14   This program is distributed in the hope that it will be useful,
  15   but WITHOUT ANY WARRANTY; without even the implied warranty of
  16   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17   GNU General Public License for more details.
  18
  19 */
  20 /* $Id$ */
  21
  22 #include "clientincludes.h"
  23 #include "version.h"
  24
  25 /* Static function prototypes */
  26 static int silc_client_bad_keys(unsigned char key);
  27 static void silc_client_clear_input(SilcClientInternal app);
  28 static void silc_client_process_message(SilcClientInternal app);
  29 static char *silc_client_parse_command(unsigned char *buffer);
  30
  31 void silc_client_create_main_window(SilcClientInternal app);
  32
  33 /* Static task callback prototypes */
  34 SILC_TASK_CALLBACK(silc_client_update_clock);
  35 SILC_TASK_CALLBACK(silc_client_run_commands);
  36 SILC_TASK_CALLBACK(silc_client_process_key_press);
  37
  38 /* Long command line options */
  39 static struct option long_opts[] =
  40 {
  41   /* Generic options */
  42   { "server", 1, NULL, 's' },
  43   { "port", 1, NULL, 'p' },
  44   { "nickname", 1, NULL, 'n' },
  45   { "channel", 1, NULL, 'c' },
  46   { "cipher", 1, NULL, 'r' },
  47   { "public-key", 1, NULL, 'b' },
  48   { "private-key", 1, NULL, 'k' },
  49   { "config-file", 1, NULL, 'f' },
  50   { "no-silcrc", 0, NULL, 'q' },
  51   { "debug", 0, NULL, 'd' },
  52   { "help", 0, NULL, 'h' },
  53   { "version", 0, NULL, 'V' },
  54   { "list-ciphers", 0, NULL, 1 },
  55   { "list-hash-funcs", 0, NULL, 2 },
  56   { "list-pkcs", 0, NULL, 3 },
  57
  58   /* Key management options */
  59   { "create-key-pair", 0, NULL, 'C' },
  60   { "pkcs", 1, NULL, 10 },
  61   { "bits", 1, NULL, 11 },
  62   { "show-key", 1, NULL, 'S' },
  63
  64   { NULL, 0, NULL, 0 }
  65 };
  66
  67 /* Command line option variables */
  68 static char *opt_server = NULL;
  69 static int opt_port = 0;
  70 static char *opt_nickname = NULL;
  71 static char *opt_channel = NULL;
  72 static char *opt_cipher = NULL;
  73 static char *opt_public_key = NULL;
  74 static char *opt_private_key = NULL;
  75 static char *opt_config_file = NULL;
  76 static bool opt_no_silcrc = FALSE;
  77
  78 static bool opt_create_keypair = FALSE;
  79 static bool opt_show_key = FALSE;
  80 static char *opt_pkcs = NULL;
  81 static char *opt_keyfile = NULL;
  82 static int opt_bits = 0;
  83
  84 /* SILC Client operations */
  85 extern SilcClientOperations ops;
  86
  87 /* Prints out the usage of silc client */
  88
  89 void usage()
  90 {
  91   printf("\
  92 Usage: silc [options]\n\
  93 \n\
  94   Generic Options:\n\
  95   -s, --server=HOST            Open connection to server HOST\n\
  96   -p, --port=PORT              Set PORT as default port to connect\n\
  97   -n, --nickname=STRING        Set default nickname on startup\n\
  98   -c, --channel=STRING         Join channel on startup\n\
  99   -r, --cipher=CIPHER          Use CIPHER as default cipher in SILC\n\
 100   -b, --public-key=FILE        Public key used in SILC\n\
 101   -k, --private-key=FILE       Private key used in SILC\n\
 102   -f, --config-file=FILE       Alternate configuration file\n\
 103   -q, --no-silcrc              Don't load ~/.silcrc on startup\n\
 104   -d, --debug                  Enable debugging\n\
 105   -h, --help                   Display this help message\n\
 106   -V, --version                Display version\n\
 107       --list-ciphers           List supported ciphers\n\
 108       --list-hash-funcs        List supported hash functions\n\
 109       --list-pkcs              List supported PKCS's\n\
 110 \n\
 111   Key Management Options:\n\
 112   -C, --create-key-pair        Create new public key pair\n\
 113       --pkcs=PKCS              Set the PKCS of the public key pair\n\
 114       --bits=VALUE             Set length of the public key pair\n\
 115   -S, --show-key=FILE          Show the contents of the public key\n\
 116 \n");
 117 }
 118
 119 int main(int argc, char **argv)
 120 {
 121   int opt, option_index = 1;
 122   int ret;
 123   SilcClient silc = NULL;
 124   SilcClientInternal app = NULL;
 125
 126   silc_debug = FALSE;
 127
 128   if (argc > 1)
 129     {
 130       while ((opt =
 131               getopt_long(argc, argv,
 132                           "s:p:n:c:b:k:f:qdhVCS:",
 133                           long_opts, &option_index)) != EOF)
 134         {
 135           switch(opt)
 136             {
 137               /*
 138                * Generic options
 139                */
 140             case 's':
 141               if (optarg)
 142                 opt_server = strdup(optarg);
 143               break;
 144             case 'p':
 145               if (optarg)
 146                 opt_port = atoi(optarg);
 147               break;
 148             case 'n':
 149               if (optarg)
 150                 opt_nickname = strdup(optarg);
 151               break;
 152             case 'c':
 153               if (optarg)
 154                 opt_channel = strdup(optarg);
 155               break;
 156             case 'r':
 157               if (optarg)
 158                 opt_cipher = strdup(optarg);
 159               break;
 160             case 'b':
 161               if (optarg)
 162                 opt_public_key = strdup(optarg);
 163               break;
 164             case 'k':
 165               if (optarg)
 166                 opt_private_key = strdup(optarg);
 167               break;
 168             case 'f':
 169               if (optarg)
 170                 opt_config_file = strdup(optarg);
 171               break;
 172             case 'q':
 173               opt_no_silcrc = TRUE;
 174               break;
 175             case 'd':
 176               silc_debug = TRUE;
 177               break;
 178             case 'h':
 179               usage();
 180               exit(0);
 181               break;
 182             case 'V':
 183               printf("\
 184 SILC Secure Internet Live Conferencing, version %s\n",
 185                      silc_version);
 186               printf("\
 187 (c) 1997 - 2000 Pekka Riikonen <priikone@poseidon.pspt.fi>\n");
 188               exit(0);
 189               break;
 190             case 1:
 191               silc_client_list_ciphers();
 192               exit(0);
 193               break;
 194             case 2:
 195               silc_client_list_hash_funcs();
 196               exit(0);
 197               break;
 198             case 3:
 199               silc_client_list_pkcs();
 200               exit(0);
 201               break;
 202
 203               /*
 204                * Key management options
 205                */
 206             case 'C':
 207               opt_create_keypair = TRUE;
 208               break;
 209             case 10:
 210               if (optarg)
 211                 opt_pkcs = strdup(optarg);
 212               break;
 213             case 11:
 214               if (optarg)
 215                 opt_bits = atoi(optarg);
 216               break;
 217             case 'S':
 218               opt_show_key = TRUE;
 219               if (optarg)
 220                 opt_keyfile = strdup(optarg);
 221               break;
 222
 223             default:
 224               exit(0);
 225               break;
 226             }
 227         }
 228     }
 229
 230   /* Init signals */
 231   signal(SIGHUP, SIG_DFL);
 232   signal(SIGTERM, SIG_DFL);
 233   signal(SIGPIPE, SIG_IGN);
 234   signal(SIGCHLD, SIG_DFL);
 235   signal(SIGALRM, SIG_IGN);
 236   signal(SIGQUIT, SIG_IGN);
 237   signal(SIGSEGV, SIG_DFL);
 238   signal(SIGBUS, SIG_DFL);
 239   signal(SIGFPE, SIG_DFL);
 240   //  signal(SIGINT, SIG_IGN);
 241
 242 #ifdef SOCKS
 243   /* Init SOCKS */
 244   SOCKSinit(argv[0]);
 245 #endif
 246
 247   if (opt_create_keypair == TRUE) {
 248     /* Create new key pair and exit */
 249     silc_client_create_key_pair(opt_pkcs, opt_bits,
 250                                 NULL, NULL, NULL, NULL, NULL);
 251     silc_free(opt_pkcs);
 252     exit(0);
 253   }
 254
 255   if (opt_show_key == TRUE) {
 256     /* Dump the key */
 257     silc_client_show_key(opt_keyfile);
 258     silc_free(opt_keyfile);
 259     exit(0);
 260   }
 261
 262   /* Default configuration file */
 263   if (!opt_config_file)
 264     opt_config_file = strdup(SILC_CLIENT_CONFIG_FILE);
 265
 266   /* Allocate internal application context */
 267   app = silc_calloc(1, sizeof(*app));
 268
 269   /* Allocate new client */
 270   app->client = silc = silc_client_alloc(&ops, app);
 271   if (!silc)
 272     goto fail;
 273
 274   /* Read global configuration file. */
 275   app->config = silc_client_config_alloc(opt_config_file);
 276
 277   /* XXX Read local configuration file */
 278
 279   /* Check ~/.silc directory and public and private keys */
 280   if (silc_client_check_silc_dir() == FALSE)
 281     goto fail;
 282
 283   /* Get user information */
 284   silc->username = silc_get_username();
 285   silc->hostname = silc_net_localhost();
 286   silc->realname = silc_get_real_name();
 287
 288   /* Register all configured ciphers, PKCS and hash functions. */
 289   if (app->config) {
 290     app->config->client = (void *)app;
 291     if (!silc_client_config_register_ciphers(app->config))
 292       silc_cipher_register_default();
 293     if (!silc_client_config_register_pkcs(app->config))
 294       silc_pkcs_register_default();
 295     if (!silc_client_config_register_hashfuncs(app->config))
 296       silc_hash_register_default();
 297     if (!silc_client_config_register_hmacs(app->config))
 298       silc_hmac_register_default();
 299   } else {
 300     /* Register default ciphers, pkcs, hash funtions and hmacs. */
 301     silc_cipher_register_default();
 302     silc_pkcs_register_default();
 303     silc_hash_register_default();
 304     silc_hmac_register_default();
 305   }
 306
 307   /* Load public and private key */
 308   if (silc_client_load_keys(silc) == FALSE)
 309     goto fail;
 310
 311   /* Initialize the client. This initializes the client library and
 312      sets everything ready for silc_client_run. */
 313   ret = silc_client_init(silc);
 314   if (ret == FALSE)
 315     goto fail;
 316
 317   /* Register the main task that is used in client. This receives
 318      the key pressings. */
 319   silc_task_register(silc->io_queue, fileno(stdin),
 320                      silc_client_process_key_press,
 321                      (void *)silc, 0, 0,
 322                      SILC_TASK_FD,
 323                      SILC_TASK_PRI_NORMAL);
 324
 325   /* Register timeout task that updates clock every minute. */
 326   silc_task_register(silc->timeout_queue, 0,
 327                      silc_client_update_clock,
 328                      (void *)silc,
 329                      silc_client_time_til_next_min(), 0,
 330                      SILC_TASK_TIMEOUT,
 331                      SILC_TASK_PRI_LOW);
 332
 333   if (app->config && app->config->commands) {
 334     /* Run user configured commands with timeout */
 335     silc_task_register(silc->timeout_queue, 0,
 336                        silc_client_run_commands,
 337                        (void *)silc, 0, 1,
 338                        SILC_TASK_TIMEOUT,
 339                        SILC_TASK_PRI_LOW);
 340   }
 341
 342   /* Allocate the input buffer used to save typed characters */
 343   app->input_buffer = silc_buffer_alloc(SILC_SCREEN_INPUT_WIN_SIZE);
 344   silc_buffer_pull_tail(app->input_buffer,
 345                         SILC_BUFFER_END(app->input_buffer));
 346
 347   /* Initialize the screen */
 348   silc_client_create_main_window(app);
 349   silc_screen_print_coordinates(app->screen, 0);
 350
 351   /* Run the client. When this returns the application will be
 352      terminated. */
 353   silc_client_run(silc);
 354
 355   /* Stop the client. This probably has been done already but it
 356      doesn't hurt to do it here again. */
 357   silc_client_stop(silc);
 358   silc_client_free(silc);
 359
 360   exit(0);
 361
 362  fail:
 363   if (opt_config_file)
 364     silc_free(opt_config_file);
 365   if (app->config)
 366     silc_client_config_free(app->config);
 367   if (silc)
 368     silc_client_free(silc);
 369   exit(1);
 370 }
 371
 372 /* Creates the main window used in SILC client. This is called always
 373    at the initialization of the client. If user wants to create more
 374    than one windows a new windows are always created by calling
 375    silc_client_add_window. */
 376
 377 void silc_client_create_main_window(SilcClientInternal app)
 378 {
 379   void *screen;
 380
 381   SILC_LOG_DEBUG(("Creating main window"));
 382
 383   app->screen = silc_screen_init();
 384   app->screen->input_buffer = app->input_buffer->data;
 385   app->screen->u_stat_line.program_name = silc_name;
 386   app->screen->u_stat_line.program_version = silc_version;
 387
 388   /* Create the actual screen */
 389   screen = (void *)silc_screen_create_output_window(app->screen);
 390   silc_screen_create_input_window(app->screen);
 391   silc_screen_init_upper_status_line(app->screen);
 392   silc_screen_init_output_status_line(app->screen);
 393
 394   app->screen->bottom_line->nickname = silc_get_username();
 395   silc_screen_print_bottom_line(app->screen, 0);
 396 }
 397
 398 /* The main task on SILC client. This processes the key pressings user
 399    has made. */
 400
 401 SILC_TASK_CALLBACK(silc_client_process_key_press)
 402 {
 403   SilcClient client = (SilcClient)context;
 404   SilcClientInternal app = (SilcClientInternal)client->application;
 405   int c;
 406
 407   /* There is data pending in stdin, this gets it directly */
 408   c = wgetch(app->screen->input_win);
 409   if (silc_client_bad_keys(c))
 410     return;
 411
 412   SILC_LOG_DEBUG(("Pressed key: %d", c));
 413
 414   switch(c) {
 415     /*
 416      * Special character handling
 417      */
 418   case KEY_UP:
 419   case KEY_DOWN:
 420     break;
 421   case KEY_RIGHT:
 422     /* Right arrow */
 423     SILC_LOG_DEBUG(("RIGHT"));
 424     silc_screen_input_cursor_right(app->screen);
 425     break;
 426   case KEY_LEFT:
 427     /* Left arrow */
 428     SILC_LOG_DEBUG(("LEFT"));
 429     silc_screen_input_cursor_left(app->screen);
 430     break;
 431   case KEY_BACKSPACE:
 432   case KEY_DC:
 433   case '\177':
 434   case '\b':
 435     /* Backspace */
 436     silc_screen_input_backspace(app->screen);
 437     break;
 438   case '\011':
 439     /* Tabulator */
 440     break;
 441   case KEY_IC:
 442     /* Insert switch. Turns on/off insert on input window */
 443     silc_screen_input_insert(app->screen);
 444     break;
 445   case CTRL('j'):
 446   case '\r':
 447     /* Enter, Return. User pressed enter we are ready to
 448        process the message. */
 449     silc_client_process_message(app);
 450     break;
 451   case CTRL('l'):
 452     /* Refresh screen, Ctrl^l */
 453     silc_screen_refresh_all(app->screen);
 454     break;
 455   case CTRL('a'):
 456   case KEY_HOME:
 457 #ifdef KEY_BEG
 458   case KEY_BEG:
 459 #endif
 460     /* Beginning, Home */
 461     silc_screen_input_cursor_home(app->screen);
 462     break;
 463   case CTRL('e'):
 464 #ifdef KEY_END
 465   case KEY_END:
 466 #endif
 467   case KEY_LL:
 468     /* End */
 469     silc_screen_input_cursor_end(app->screen);
 470     break;
 471   case CTRL('g'):
 472     /* Bell, Ctrl^g */
 473     beep();
 474     break;
 475   case KEY_DL:
 476   case CTRL('u'):
 477     /* Delete line */
 478     silc_client_clear_input(app);
 479     break;
 480   default:
 481     /*
 482      * Other characters
 483      */
 484     if (c < 32) {
 485       /* Control codes are printed as reversed */
 486       c = (c & 127) | 64;
 487       wattron(app->screen->input_win, A_REVERSE);
 488       silc_screen_input_print(app->screen, c);
 489       wattroff(app->screen->input_win, A_REVERSE);
 490     } else  {
 491       /* Normal character */
 492       silc_screen_input_print(app->screen, c);
 493     }
 494   }
 495
 496   silc_screen_print_coordinates(app->screen, 0);
 497   silc_screen_refresh_win(app->screen->input_win);
 498 }
 499
 500 static int silc_client_bad_keys(unsigned char key)
 501 {
 502   /* these are explained in curses.h */
 503   switch(key) {
 504   case KEY_SF:
 505   case KEY_SR:
 506   case KEY_NPAGE:
 507   case KEY_PPAGE:
 508   case KEY_PRINT:
 509   case KEY_A1:
 510   case KEY_A3:
 511   case KEY_B2:
 512   case KEY_C1:
 513   case KEY_C3:
 514 #ifdef KEY_UNDO
 515   case KEY_UNDO:
 516 #endif
 517 #ifdef KEY_EXIT
 518   case KEY_EXIT:
 519 #endif
 520   case '\v':           /* VT */
 521   case '\E':           /* we ignore ESC */
 522     return TRUE;
 523   default:
 524     return FALSE;
 525   }
 526 }
 527
 528 /* Clears input buffer */
 529
 530 static void silc_client_clear_input(SilcClientInternal app)
 531 {
 532   silc_buffer_clear(app->input_buffer);
 533   silc_buffer_pull_tail(app->input_buffer,
 534                         SILC_BUFFER_END(app->input_buffer));
 535   silc_screen_input_reset(app->screen);
 536 }
 537
 538 /* Processes messages user has typed on the screen. This either sends
 539    a packet out to network or if command were written executes it. */
 540
 541 static void silc_client_process_message(SilcClientInternal app)
 542 {
 543   unsigned char *data;
 544   uint32 len;
 545
 546   SILC_LOG_DEBUG(("Start"));
 547
 548   data = app->input_buffer->data;
 549   len = strlen(data);
 550
 551   if (data[0] == '/' && data[1] != ' ') {
 552     /* Command */
 553     uint32 argc = 0;
 554     unsigned char **argv, *tmpcmd;
 555     uint32 *argv_lens, *argv_types;
 556     SilcClientCommand *cmd;
 557     SilcClientCommandContext ctx;
 558
 559     /* Get the command */
 560     tmpcmd = silc_client_parse_command(data);
 561     cmd = silc_client_local_command_find(tmpcmd);
 562     if (!cmd && (cmd = silc_client_command_find(tmpcmd)) == NULL) {
 563       silc_say(app->client, app->current_win, "Invalid command: %s", tmpcmd);
 564       silc_free(tmpcmd);
 565       goto out;
 566     }
 567
 568     /* Now parse all arguments */
 569     silc_parse_command_line(data + 1, &argv, &argv_lens,
 570                             &argv_types, &argc, cmd->max_args);
 571     silc_free(tmpcmd);
 572
 573     SILC_LOG_DEBUG(("Executing command: %s", cmd->name));
 574
 575     /* Allocate command context. This and its internals must be free'd
 576        by the command routine receiving it. */
 577     ctx = silc_client_command_alloc();
 578     ctx->client = app->client;
 579     ctx->conn = app->conn;
 580     ctx->command = cmd;
 581     ctx->argc = argc;
 582     ctx->argv = argv;
 583     ctx->argv_lens = argv_lens;
 584     ctx->argv_types = argv_types;
 585
 586     /* Execute command */
 587     (*cmd->cb)(ctx);
 588
 589   } else {
 590     /* Normal message to a channel */
 591     if (len && app->conn && app->conn->current_channel &&
 592         app->conn->current_channel->on_channel == TRUE) {
 593       silc_print(app->client, "> %s", data);
 594       silc_client_send_channel_message(app->client,
 595                                        app->conn,
 596                                        app->conn->current_channel, NULL,
 597                                        0, data, strlen(data), TRUE);
 598     }
 599   }
 600
 601  out:
 602   /* Clear the input buffer */
 603   silc_client_clear_input(app);
 604 }
 605
 606 /* Returns the command fetched from user typed command line */
 607
 608 static char *silc_client_parse_command(unsigned char *buffer)
 609 {
 610   char *ret;
 611   const char *cp = buffer;
 612   int len;
 613
 614   len = strcspn(cp, " ");
 615   ret = silc_to_upper((char *)++cp);
 616   ret[len - 1] = 0;
 617
 618   return ret;
 619 }
 620
 621 /* Updates clock on the screen every minute. */
 622
 623 SILC_TASK_CALLBACK(silc_client_update_clock)
 624 {
 625   SilcClient client = (SilcClient)context;
 626   SilcClientInternal app = (SilcClientInternal)client->application;
 627
 628   /* Update the clock on the screen */
 629   silc_screen_print_clock(app->screen);
 630
 631   /* Re-register this same task */
 632   silc_task_register(qptr, 0, silc_client_update_clock, context,
 633                      silc_client_time_til_next_min(), 0,
 634                      SILC_TASK_TIMEOUT,
 635                      SILC_TASK_PRI_LOW);
 636
 637   silc_screen_refresh_win(app->screen->input_win);
 638 }
 639
 640 /* Runs commands user configured in configuration file. This is
 641    called when initializing client. */
 642
 643 SILC_TASK_CALLBACK(silc_client_run_commands)
 644 {
 645   SilcClient client = (SilcClient)context;
 646   SilcClientInternal app = (SilcClientInternal)client->application;
 647   SilcClientConfigSectionCommand *cs;
 648
 649   SILC_LOG_DEBUG(("Start"));
 650
 651   cs = app->config->commands;
 652   while(cs) {
 653     uint32 argc = 0;
 654     unsigned char **argv, *tmpcmd;
 655     uint32 *argv_lens, *argv_types;
 656     SilcClientCommand *cmd;
 657     SilcClientCommandContext ctx;
 658
 659     /* Get the command */
 660     tmpcmd = silc_client_parse_command(cs->command);
 661     cmd = silc_client_local_command_find(tmpcmd);
 662     if (!cmd && (cmd = silc_client_command_find(tmpcmd)) == NULL) {
 663       silc_say(client, app->conn, "Invalid command: %s", tmpcmd);
 664       silc_free(tmpcmd);
 665       continue;
 666     }
 667
 668     /* Now parse all arguments */
 669     silc_parse_command_line(cs->command + 1, &argv, &argv_lens,
 670                             &argv_types, &argc, cmd->max_args);
 671     silc_free(tmpcmd);
 672
 673     SILC_LOG_DEBUG(("Executing command: %s", cmd->name));
 674
 675     /* Allocate command context. This and its internals must be free'd
 676        by the command routine receiving it. */
 677     ctx = silc_client_command_alloc();
 678     ctx->client = client;
 679     ctx->conn = app->conn;
 680     ctx->command = cmd;
 681     ctx->argc = argc;
 682     ctx->argv = argv;
 683     ctx->argv_lens = argv_lens;
 684     ctx->argv_types = argv_types;
 685
 686     /* Execute command */
 687     (*cmd->cb)(ctx);
 688
 689     cs = cs->next;
 690   }
 691 }