62
64
#include <string.h> /* memset */
63
65
#include <arpa/inet.h> /* inet_pton() */
64
66
#include <iso646.h> /* not */
67
#include <net/if.h> /* IF_NAMESIZE */
68
#include <argp.h> /* struct argp_option,
69
struct argp_state, struct argp,
67
72
#include <errno.h> /* perror() */
73
75
#define BUFFER_SIZE 256
75
78
static const char *keydir = "/conf/conf.d/mandos";
76
static const char *pubkeyfile = "pubkey.txt";
77
static const char *seckeyfile = "seckey.txt";
81
/* Used for passing in values through all the callback functions */
79
const char *argp_program_version = "mandosclient 0.9";
80
const char *argp_program_bug_address = "<mandos@fukt.bsnet.se>";
81
static const char mandos_protocol_version[] = "1";
83
/* Used for passing in values through the Avahi callback functions */
83
85
AvahiSimplePoll *simple_poll;
84
86
AvahiServer *server;
85
87
gnutls_certificate_credentials_t cred;
86
88
unsigned int dh_bits;
89
gnutls_dh_params_t dh_params;
87
90
const char *priority;
93
/* Make room in "buffer" for at least BUFFER_SIZE additional bytes.
94
* "buffer_capacity" is how much is currently allocated,
95
* "buffer_length" is how much is already used. */
96
size_t adjustbuffer(char **buffer, size_t buffer_length,
97
size_t buffer_capacity){
98
if (buffer_length + BUFFER_SIZE > buffer_capacity){
99
*buffer = realloc(*buffer, buffer_capacity + BUFFER_SIZE);
103
buffer_capacity += BUFFER_SIZE;
105
return buffer_capacity;
91
109
* Decrypt OpenPGP data using keyrings in HOMEDIR.
92
110
* Returns -1 on error
284
300
if ((ret = gnutls_global_init ())
285
301
!= GNUTLS_E_SUCCESS) {
286
fprintf (stderr, "global_init: %s\n", safer_gnutls_strerror(ret));
302
fprintf (stderr, "GnuTLS global_init: %s\n",
303
safer_gnutls_strerror(ret));
308
/* "Use a log level over 10 to enable all debugging options."
291
311
gnutls_global_set_log_level(11);
292
312
gnutls_global_set_log_function(debuggnutls);
295
/* openpgp credentials */
315
/* OpenPGP credentials */
296
316
if ((ret = gnutls_certificate_allocate_credentials (&mc->cred))
297
317
!= GNUTLS_E_SUCCESS) {
298
fprintf (stderr, "memory error: %s\n",
318
fprintf (stderr, "GnuTLS memory error: %s\n",
299
319
safer_gnutls_strerror(ret));
309
329
ret = gnutls_certificate_set_openpgp_key_file
310
330
(mc->cred, pubkeyfile, seckeyfile, GNUTLS_OPENPGP_FMT_BASE64);
311
331
if (ret != GNUTLS_E_SUCCESS) {
313
(stderr, "Error[%d] while reading the OpenPGP key pair ('%s',"
315
ret, pubkeyfile, seckeyfile);
316
fprintf(stdout, "The Error is: %s\n",
333
"Error[%d] while reading the OpenPGP key pair ('%s',"
334
" '%s')\n", ret, pubkeyfile, seckeyfile);
335
fprintf(stdout, "The GnuTLS error is: %s\n",
317
336
safer_gnutls_strerror(ret));
321
//GnuTLS server initialization
322
if ((ret = gnutls_dh_params_init(dh_params))
323
!= GNUTLS_E_SUCCESS) {
324
fprintf (stderr, "Error in dh parameter initialization: %s\n",
325
safer_gnutls_strerror(ret));
329
if ((ret = gnutls_dh_params_generate2(*dh_params, mc->dh_bits))
330
!= GNUTLS_E_SUCCESS) {
331
fprintf (stderr, "Error in prime generation: %s\n",
332
safer_gnutls_strerror(ret));
336
gnutls_certificate_set_dh_params(mc->cred, *dh_params);
338
// GnuTLS session creation
339
if ((ret = gnutls_init(session, GNUTLS_SERVER))
340
!= GNUTLS_E_SUCCESS){
340
/* GnuTLS server initialization */
341
ret = gnutls_dh_params_init(&mc->dh_params);
342
if (ret != GNUTLS_E_SUCCESS) {
343
fprintf (stderr, "Error in GnuTLS DH parameter initialization:"
344
" %s\n", safer_gnutls_strerror(ret));
347
ret = gnutls_dh_params_generate2(mc->dh_params, mc->dh_bits);
348
if (ret != GNUTLS_E_SUCCESS) {
349
fprintf (stderr, "Error in GnuTLS prime generation: %s\n",
350
safer_gnutls_strerror(ret));
354
gnutls_certificate_set_dh_params(mc->cred, mc->dh_params);
359
static int init_gnutls_session(mandos_context *mc,
360
gnutls_session_t *session){
362
/* GnuTLS session creation */
363
ret = gnutls_init(session, GNUTLS_SERVER);
364
if (ret != GNUTLS_E_SUCCESS){
341
365
fprintf(stderr, "Error in GnuTLS session initialization: %s\n",
342
366
safer_gnutls_strerror(ret));
345
if ((ret = gnutls_priority_set_direct(*session, mc->priority, &err))
346
!= GNUTLS_E_SUCCESS) {
347
fprintf(stderr, "Syntax error at: %s\n", err);
348
fprintf(stderr, "GnuTLS error: %s\n",
349
safer_gnutls_strerror(ret));
371
ret = gnutls_priority_set_direct(*session, mc->priority, &err);
372
if (ret != GNUTLS_E_SUCCESS) {
373
fprintf(stderr, "Syntax error at: %s\n", err);
374
fprintf(stderr, "GnuTLS error: %s\n",
375
safer_gnutls_strerror(ret));
353
if ((ret = gnutls_credentials_set(*session, GNUTLS_CRD_CERTIFICATE,
355
!= GNUTLS_E_SUCCESS) {
356
fprintf(stderr, "Error setting a credentials set: %s\n",
380
ret = gnutls_credentials_set(*session, GNUTLS_CRD_CERTIFICATE,
382
if (ret != GNUTLS_E_SUCCESS) {
383
fprintf(stderr, "Error setting GnuTLS credentials: %s\n",
357
384
safer_gnutls_strerror(ret));
397
/* Avahi log function callback */
370
398
static void empty_log(__attribute__((unused)) AvahiLogLevel level,
371
399
__attribute__((unused)) const char *txt){}
401
/* Called when a Mandos server is found */
373
402
static int start_mandos_communication(const char *ip, uint16_t port,
374
403
AvahiIfIndex if_index,
375
404
mandos_context *mc){
377
struct sockaddr_in6 to;
406
union { struct sockaddr in; struct sockaddr_in6 in6; } to;
378
407
char *buffer = NULL;
379
408
char *decrypted_buffer;
380
409
size_t buffer_length = 0;
381
410
size_t buffer_capacity = 0;
382
411
ssize_t decrypted_buffer_size;
385
414
char interface[IF_NAMESIZE];
386
415
gnutls_session_t session;
387
gnutls_dh_params_t dh_params;
417
ret = init_gnutls_session (mc, &session);
390
423
fprintf(stderr, "Setting up a tcp connection to %s, port %d\n",
436
ret = connect(tcp_sd, (struct sockaddr *) &to, sizeof(to));
471
ret = connect(tcp_sd, &to.in, sizeof(to));
438
473
perror("connect");
442
ret = initgnutls (mc, &session, &dh_params);
477
const char *out = mandos_protocol_version;
480
size_t out_size = strlen(out);
481
ret = TEMP_FAILURE_RETRY(write(tcp_sd, out + written,
482
out_size - written));
488
written += (size_t)ret;
489
if(written < out_size){
492
if (out == mandos_protocol_version){
502
fprintf(stderr, "Establishing TLS session with %s\n", ip);
448
505
gnutls_transport_set_ptr (session, (gnutls_transport_ptr_t) tcp_sd);
451
fprintf(stderr, "Establishing TLS session with %s\n", ip);
454
507
ret = gnutls_handshake (session);
456
509
if (ret != GNUTLS_E_SUCCESS){
458
fprintf(stderr, "\n*** Handshake failed ***\n");
511
fprintf(stderr, "*** GnuTLS Handshake failed ***\n");
459
512
gnutls_perror (ret);
465
//Retrieve OpenPGP packet that contains the wanted password
518
/* Read OpenPGP packet that contains the wanted password */
468
521
fprintf(stderr, "Retrieving pgp encrypted password from %s\n",
492
544
case GNUTLS_E_REHANDSHAKE:
493
545
ret = gnutls_handshake (session);
495
fprintf(stderr, "\n*** Handshake failed ***\n");
547
fprintf(stderr, "*** GnuTLS Re-handshake failed ***\n");
496
548
gnutls_perror (ret);
502
554
fprintf(stderr, "Unknown error while reading data from"
503
" encrypted session with mandos server\n");
555
" encrypted session with Mandos server\n");
505
557
gnutls_bye (session, GNUTLS_SHUT_RDWR);
509
561
buffer_length += (size_t) ret;
566
fprintf(stderr, "Closing TLS session\n");
569
gnutls_bye (session, GNUTLS_SHUT_RDWR);
513
571
if (buffer_length > 0){
514
572
decrypted_buffer_size = pgp_packet_decrypt(buffer,
516
574
&decrypted_buffer,
518
576
if (decrypted_buffer_size >= 0){
519
578
while(written < (size_t) decrypted_buffer_size){
520
579
ret = (int)fwrite (decrypted_buffer + written, 1,
521
580
(size_t)decrypted_buffer_size - written,
618
672
case AVAHI_BROWSER_FAILURE:
620
fprintf(stderr, "(Browser) %s\n",
674
fprintf(stderr, "(Avahi browser) %s\n",
621
675
avahi_strerror(avahi_server_errno(mc->server)));
622
676
avahi_simple_poll_quit(mc->simple_poll);
625
679
case AVAHI_BROWSER_NEW:
626
/* We ignore the returned resolver object. In the callback
627
function we free it. If the server is terminated before
628
the callback function is called the server will free
629
the resolver for us. */
680
/* We ignore the returned Avahi resolver object. In the callback
681
function we free it. If the Avahi server is terminated before
682
the callback function is called the Avahi server will free the
631
685
if (!(avahi_s_service_resolver_new(mc->server, interface,
632
686
protocol, name, type, domain,
633
687
AVAHI_PROTO_INET6, 0,
634
688
resolve_callback, mc)))
635
fprintf(stderr, "Failed to resolve service '%s': %s\n", name,
636
avahi_strerror(avahi_server_errno(mc->server)));
689
fprintf(stderr, "Avahi: Failed to resolve service '%s': %s\n",
690
name, avahi_strerror(avahi_server_errno(mc->server)));
639
693
case AVAHI_BROWSER_REMOVE:
669
int main(AVAHI_GCC_UNUSED int argc, AVAHI_GCC_UNUSED char*argv[]) {
670
AvahiServerConfig config;
726
int main(int argc, char *argv[]){
671
727
AvahiSServiceBrowser *sb = NULL;
675
int returncode = EXIT_SUCCESS;
730
int exitcode = EXIT_SUCCESS;
676
731
const char *interface = "eth0";
677
732
struct ifreq network;
679
736
char *connect_to = NULL;
680
737
AvahiIfIndex if_index = AVAHI_IF_UNSPEC;
738
const char *pubkeyfile = "pubkey.txt";
739
const char *seckeyfile = "seckey.txt";
681
740
mandos_context mc = { .simple_poll = NULL, .server = NULL,
682
741
.dh_bits = 1024, .priority = "SECURE256"};
684
debug_int = debug ? 1 : 0;
686
struct option long_options[] = {
687
{"debug", no_argument, &debug_int, 1},
688
{"connect", required_argument, NULL, 'c'},
689
{"interface", required_argument, NULL, 'i'},
690
{"keydir", required_argument, NULL, 'd'},
691
{"seckey", required_argument, NULL, 's'},
692
{"pubkey", required_argument, NULL, 'p'},
693
{"dh-bits", required_argument, NULL, 'D'},
694
{"priority", required_argument, NULL, 'P'},
697
int option_index = 0;
698
ret = getopt_long (argc, argv, "i:", long_options,
725
mc.dh_bits = (unsigned int) strtol(optarg, NULL, 10);
744
struct argp_option options[] = {
745
{ .name = "debug", .key = 128,
746
.doc = "Debug mode", .group = 3 },
747
{ .name = "connect", .key = 'c',
749
.doc = "Connect directly to a sepcified mandos server",
751
{ .name = "interface", .key = 'i',
753
.doc = "Interface that Avahi will conntect through",
755
{ .name = "keydir", .key = 'd',
757
.doc = "Directory where the openpgp keyring is",
759
{ .name = "seckey", .key = 's',
761
.doc = "Secret openpgp key for gnutls authentication",
763
{ .name = "pubkey", .key = 'p',
765
.doc = "Public openpgp key for gnutls authentication",
767
{ .name = "dh-bits", .key = 129,
769
.doc = "dh-bits to use in gnutls communication",
771
{ .name = "priority", .key = 130,
773
.doc = "GNUTLS priority", .group = 1 },
778
error_t parse_opt (int key, char *arg,
779
struct argp_state *state) {
780
/* Get the INPUT argument from `argp_parse', which we know is
781
a pointer to our plugin list pointer. */
803
mc.dh_bits = (unsigned int) strtol(arg, NULL, 10);
818
return ARGP_ERR_UNKNOWN;
732
mc.priority = optarg;
823
struct argp argp = { .options = options, .parser = parse_opt,
825
.doc = "Mandos client -- Get and decrypt"
826
" passwords from mandos server" };
827
argp_parse (&argp, argc, argv, 0, 0, NULL);
739
debug = debug_int ? true : false;
741
830
pubkeyfile = combinepath(keydir, pubkeyfile);
742
831
if (pubkeyfile == NULL){
743
832
perror("combinepath");
744
returncode = EXIT_FAILURE;
833
exitcode = EXIT_FAILURE;
748
837
seckeyfile = combinepath(keydir, seckeyfile);
749
838
if (seckeyfile == NULL){
750
839
perror("combinepath");
843
ret = init_gnutls_global(&mc, pubkeyfile, seckeyfile);
845
fprintf(stderr, "init_gnutls_global\n");
754
862
if_index = (AvahiIfIndex) if_nametoindex(interface);
763
871
char *address = strrchr(connect_to, ':');
764
872
if(address == NULL){
765
873
fprintf(stderr, "No colon in address\n");
874
exitcode = EXIT_FAILURE;
769
878
uint16_t port = (uint16_t) strtol(address+1, NULL, 10);
771
880
perror("Bad port number");
881
exitcode = EXIT_FAILURE;
775
885
address = connect_to;
776
886
ret = start_mandos_communication(address, port, if_index, &mc);
888
exitcode = EXIT_FAILURE;
890
exitcode = EXIT_SUCCESS;
784
sd = socket(PF_INET6, SOCK_DGRAM, IPPROTO_IP);
787
returncode = EXIT_FAILURE;
790
strcpy(network.ifr_name, interface); /* Spurious warning */
791
ret = ioctl(sd, SIOCGIFFLAGS, &network);
794
perror("ioctl SIOCGIFFLAGS");
795
returncode = EXIT_FAILURE;
798
if((network.ifr_flags & IFF_UP) == 0){
799
network.ifr_flags |= IFF_UP;
800
ret = ioctl(sd, SIOCSIFFLAGS, &network);
895
/* If the interface is down, bring it up */
897
sd = socket(PF_INET6, SOCK_DGRAM, IPPROTO_IP);
900
exitcode = EXIT_FAILURE;
903
strcpy(network.ifr_name, interface); /* Spurious warning */
904
ret = ioctl(sd, SIOCGIFFLAGS, &network);
802
perror("ioctl SIOCSIFFLAGS");
803
returncode = EXIT_FAILURE;
906
perror("ioctl SIOCGIFFLAGS");
907
exitcode = EXIT_FAILURE;
910
if((network.ifr_flags & IFF_UP) == 0){
911
network.ifr_flags |= IFF_UP;
912
ret = ioctl(sd, SIOCSIFFLAGS, &network);
914
perror("ioctl SIOCSIFFLAGS");
915
exitcode = EXIT_FAILURE;
810
923
avahi_set_log_function(empty_log);
813
/* Initialize the psuedo-RNG */
926
/* Initialize the pseudo-RNG for Avahi */
814
927
srand((unsigned int) time(NULL));
816
/* Allocate main loop object */
817
if (!(mc.simple_poll = avahi_simple_poll_new())) {
818
fprintf(stderr, "Failed to create simple poll object.\n");
819
returncode = EXIT_FAILURE;
823
/* Do not publish any local records */
824
avahi_server_config_init(&config);
825
config.publish_hinfo = 0;
826
config.publish_addresses = 0;
827
config.publish_workstation = 0;
828
config.publish_domain = 0;
830
/* Allocate a new server */
831
mc.server=avahi_server_new(avahi_simple_poll_get(mc.simple_poll),
832
&config, NULL, NULL, &error);
834
/* Free the configuration data */
835
avahi_server_config_free(&config);
837
/* Check if creating the server object succeeded */
839
fprintf(stderr, "Failed to create server: %s\n",
929
/* Allocate main Avahi loop object */
930
mc.simple_poll = avahi_simple_poll_new();
931
if (mc.simple_poll == NULL) {
932
fprintf(stderr, "Avahi: Failed to create simple poll"
934
exitcode = EXIT_FAILURE;
939
AvahiServerConfig config;
940
/* Do not publish any local Zeroconf records */
941
avahi_server_config_init(&config);
942
config.publish_hinfo = 0;
943
config.publish_addresses = 0;
944
config.publish_workstation = 0;
945
config.publish_domain = 0;
947
/* Allocate a new server */
948
mc.server = avahi_server_new(avahi_simple_poll_get
949
(mc.simple_poll), &config, NULL,
952
/* Free the Avahi configuration data */
953
avahi_server_config_free(&config);
956
/* Check if creating the Avahi server object succeeded */
957
if (mc.server == NULL) {
958
fprintf(stderr, "Failed to create Avahi server: %s\n",
840
959
avahi_strerror(error));
841
returncode = EXIT_FAILURE;
960
exitcode = EXIT_FAILURE;
845
/* Create the service browser */
964
/* Create the Avahi service browser */
846
965
sb = avahi_s_service_browser_new(mc.server, if_index,
847
966
AVAHI_PROTO_INET6,
848
967
"_mandos._tcp", NULL, 0,
849
968
browse_callback, &mc);
851
970
fprintf(stderr, "Failed to create service browser: %s\n",
852
971
avahi_strerror(avahi_server_errno(mc.server)));
853
returncode = EXIT_FAILURE;
972
exitcode = EXIT_FAILURE;
857
976
/* Run the main loop */
860
fprintf(stderr, "Starting avahi loop search\n");
979
fprintf(stderr, "Starting Avahi loop search\n");
863
982
avahi_simple_poll_loop(mc.simple_poll);
868
987
fprintf(stderr, "%s exiting\n", argv[0]);
871
990
/* Cleanup things */
873
992
avahi_s_service_browser_free(sb);
994
if (mc.server != NULL)
876
995
avahi_server_free(mc.server);
997
if (mc.simple_poll != NULL)
879
998
avahi_simple_poll_free(mc.simple_poll);
880
999
free(pubkeyfile);
881
1000
free(seckeyfile);