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
76
static const char *certdir = "/conf/conf.d/mandos";
77
static const char *certfile = "openpgp-client.txt";
78
static const char *certkey = "openpgp-client-key.txt";
80
77
bool debug = false;
82
const char mandos_protocol_version[] = "1";
78
static const char *keydir = "/conf/conf.d/mandos";
79
static const char mandos_protocol_version[] = "1";
80
const char *argp_program_version = "mandosclient 0.9";
81
const char *argp_program_bug_address = "<mandos@fukt.bsnet.se>";
83
/* Used for passing in values through the Avahi callback functions */
85
85
AvahiSimplePoll *simple_poll;
86
86
AvahiServer *server;
87
87
gnutls_certificate_credentials_t cred;
88
88
unsigned int dh_bits;
89
gnutls_dh_params_t dh_params;
89
90
const char *priority;
92
size_t adjustbuffer(char *buffer, size_t buffer_length,
94
* Make room in "buffer" for at least BUFFER_SIZE additional bytes.
95
* "buffer_capacity" is how much is currently allocated,
96
* "buffer_length" is how much is already used.
98
size_t adjustbuffer(char **buffer, size_t buffer_length,
93
99
size_t buffer_capacity){
94
100
if (buffer_length + BUFFER_SIZE > buffer_capacity){
95
buffer = realloc(buffer, buffer_capacity + BUFFER_SIZE);
101
*buffer = realloc(*buffer, buffer_capacity + BUFFER_SIZE);
96
102
if (buffer == NULL){
214
/* Delete the GPGME FILE pointer cryptotext data buffer */
215
gpgme_data_release(dh_crypto);
217
229
/* Seek back to the beginning of the GPGME plaintext data buffer */
218
230
if (gpgme_data_seek(dh_plain, (off_t) 0, SEEK_SET) == -1){
219
231
perror("pgpme_data_seek");
232
plaintext_length = -1;
224
new_packet_capacity = adjustbuffer(*new_packet, new_packet_length,
225
new_packet_capacity);
226
if (new_packet_capacity == 0){
238
plaintext_capacity = adjustbuffer(plaintext,
239
(size_t)plaintext_length,
241
if (plaintext_capacity == 0){
227
242
perror("adjustbuffer");
230
new_packet_capacity += BUFFER_SIZE;
243
plaintext_length = -1;
233
ret = gpgme_data_read(dh_plain, *new_packet + new_packet_length,
247
ret = gpgme_data_read(dh_plain, *plaintext + plaintext_length,
235
249
/* Print the data, if any */
240
255
perror("gpgme_data_read");
256
plaintext_length = -1;
243
new_packet_length += ret;
259
plaintext_length += ret;
246
/* FIXME: check characters before printing to screen so to not print
247
terminal control characters */
249
/* fprintf(stderr, "decrypted password is: "); */
250
/* fwrite(*new_packet, 1, new_packet_length, stderr); */
251
/* fprintf(stderr, "\n"); */
263
fprintf(stderr, "Decrypted password is: ");
264
for(ssize_t i = 0; i < plaintext_length; i++){
265
fprintf(stderr, "%02hhX ", (*plaintext)[i]);
267
fprintf(stderr, "\n");
272
/* Delete the GPGME cryptotext data buffer */
273
gpgme_data_release(dh_crypto);
254
275
/* Delete the GPGME plaintext data buffer */
255
276
gpgme_data_release(dh_plain);
256
return new_packet_length;
277
return plaintext_length;
259
280
static const char * safer_gnutls_strerror (int value) {
279
302
if ((ret = gnutls_global_init ())
280
303
!= GNUTLS_E_SUCCESS) {
281
fprintf (stderr, "global_init: %s\n", safer_gnutls_strerror(ret));
304
fprintf (stderr, "GnuTLS global_init: %s\n",
305
safer_gnutls_strerror(ret));
310
/* "Use a log level over 10 to enable all debugging options."
286
313
gnutls_global_set_log_level(11);
287
314
gnutls_global_set_log_function(debuggnutls);
290
/* openpgp credentials */
291
if ((ret = gnutls_certificate_allocate_credentials (&es->cred))
317
/* OpenPGP credentials */
318
if ((ret = gnutls_certificate_allocate_credentials (&mc->cred))
292
319
!= GNUTLS_E_SUCCESS) {
293
fprintf (stderr, "memory error: %s\n",
320
fprintf (stderr, "GnuTLS memory error: %s\n",
294
321
safer_gnutls_strerror(ret));
322
gnutls_global_deinit ();
299
327
fprintf(stderr, "Attempting to use OpenPGP certificate %s"
300
" and keyfile %s as GnuTLS credentials\n", certfile,
328
" and keyfile %s as GnuTLS credentials\n", pubkeyfile,
304
332
ret = gnutls_certificate_set_openpgp_key_file
305
(es->cred, certfile, certkey, GNUTLS_OPENPGP_FMT_BASE64);
333
(mc->cred, pubkeyfile, seckeyfile, GNUTLS_OPENPGP_FMT_BASE64);
306
334
if (ret != GNUTLS_E_SUCCESS) {
308
(stderr, "Error[%d] while reading the OpenPGP key pair ('%s',"
310
ret, certfile, certkey);
311
fprintf(stdout, "The Error is: %s\n",
336
"Error[%d] while reading the OpenPGP key pair ('%s',"
337
" '%s')\n", ret, pubkeyfile, seckeyfile);
338
fprintf(stdout, "The GnuTLS error is: %s\n",
312
339
safer_gnutls_strerror(ret));
316
//GnuTLS server initialization
317
if ((ret = gnutls_dh_params_init (&es->dh_params))
318
!= GNUTLS_E_SUCCESS) {
319
fprintf (stderr, "Error in dh parameter initialization: %s\n",
320
safer_gnutls_strerror(ret));
324
if ((ret = gnutls_dh_params_generate2 (es->dh_params, DH_BITS))
325
!= GNUTLS_E_SUCCESS) {
326
fprintf (stderr, "Error in prime generation: %s\n",
327
safer_gnutls_strerror(ret));
331
gnutls_certificate_set_dh_params (es->cred, es->dh_params);
333
// GnuTLS session creation
334
if ((ret = gnutls_init (&es->session, GNUTLS_SERVER))
335
!= GNUTLS_E_SUCCESS){
343
/* GnuTLS server initialization */
344
ret = gnutls_dh_params_init(&mc->dh_params);
345
if (ret != GNUTLS_E_SUCCESS) {
346
fprintf (stderr, "Error in GnuTLS DH parameter initialization:"
347
" %s\n", safer_gnutls_strerror(ret));
350
ret = gnutls_dh_params_generate2(mc->dh_params, mc->dh_bits);
351
if (ret != GNUTLS_E_SUCCESS) {
352
fprintf (stderr, "Error in GnuTLS prime generation: %s\n",
353
safer_gnutls_strerror(ret));
357
gnutls_certificate_set_dh_params(mc->cred, mc->dh_params);
363
gnutls_certificate_free_credentials (mc->cred);
364
gnutls_global_deinit ();
369
static int init_gnutls_session(mandos_context *mc,
370
gnutls_session_t *session){
372
/* GnuTLS session creation */
373
ret = gnutls_init(session, GNUTLS_SERVER);
374
if (ret != GNUTLS_E_SUCCESS){
336
375
fprintf(stderr, "Error in GnuTLS session initialization: %s\n",
337
376
safer_gnutls_strerror(ret));
340
if ((ret = gnutls_priority_set_direct (es->session, mc->priority, &err))
341
!= GNUTLS_E_SUCCESS) {
342
fprintf(stderr, "Syntax error at: %s\n", err);
343
fprintf(stderr, "GnuTLS error: %s\n",
344
safer_gnutls_strerror(ret));
381
ret = gnutls_priority_set_direct(*session, mc->priority, &err);
382
if (ret != GNUTLS_E_SUCCESS) {
383
fprintf(stderr, "Syntax error at: %s\n", err);
384
fprintf(stderr, "GnuTLS error: %s\n",
385
safer_gnutls_strerror(ret));
386
gnutls_deinit (*session);
348
if ((ret = gnutls_credentials_set
349
(es->session, GNUTLS_CRD_CERTIFICATE, es->cred))
350
!= GNUTLS_E_SUCCESS) {
351
fprintf(stderr, "Error setting a credentials set: %s\n",
391
ret = gnutls_credentials_set(*session, GNUTLS_CRD_CERTIFICATE,
393
if (ret != GNUTLS_E_SUCCESS) {
394
fprintf(stderr, "Error setting GnuTLS credentials: %s\n",
352
395
safer_gnutls_strerror(ret));
396
gnutls_deinit (*session);
356
400
/* ignore client certificate if any. */
357
gnutls_certificate_server_set_request (es->session,
401
gnutls_certificate_server_set_request (*session,
358
402
GNUTLS_CERT_IGNORE);
360
gnutls_dh_set_prime_bits (es->session, DH_BITS);
404
gnutls_dh_set_prime_bits (*session, mc->dh_bits);
409
/* Avahi log function callback */
365
410
static void empty_log(__attribute__((unused)) AvahiLogLevel level,
366
411
__attribute__((unused)) const char *txt){}
413
/* Called when a Mandos server is found */
368
414
static int start_mandos_communication(const char *ip, uint16_t port,
369
415
AvahiIfIndex if_index,
370
416
mandos_context *mc){
372
struct sockaddr_in6 to;
373
encrypted_session es;
418
union { struct sockaddr in; struct sockaddr_in6 in6; } to;
374
419
char *buffer = NULL;
375
420
char *decrypted_buffer;
376
421
size_t buffer_length = 0;
395
446
if(if_indextoname((unsigned int)if_index, interface) == NULL){
397
perror("if_indextoname");
447
perror("if_indextoname");
402
450
fprintf(stderr, "Binding to interface %s\n", interface);
405
453
memset(&to,0,sizeof(to)); /* Spurious warning */
406
to.sin6_family = AF_INET6;
407
ret = inet_pton(AF_INET6, ip, &to.sin6_addr);
454
to.in6.sin6_family = AF_INET6;
455
/* It would be nice to have a way to detect if we were passed an
456
IPv4 address here. Now we assume an IPv6 address. */
457
ret = inet_pton(AF_INET6, ip, &to.in6.sin6_addr);
409
459
perror("inet_pton");
413
463
fprintf(stderr, "Bad address: %s\n", ip);
416
to.sin6_port = htons(port); /* Spurious warning */
466
to.in6.sin6_port = htons(port); /* Spurious warning */
418
to.sin6_scope_id = (uint32_t)if_index;
468
to.in6.sin6_scope_id = (uint32_t)if_index;
421
471
fprintf(stderr, "Connection to: %s, port %d\n", ip, port);
422
/* char addrstr[INET6_ADDRSTRLEN]; */
423
/* if(inet_ntop(to.sin6_family, &(to.sin6_addr), addrstr, */
424
/* sizeof(addrstr)) == NULL){ */
425
/* perror("inet_ntop"); */
427
/* fprintf(stderr, "Really connecting to: %s, port %d\n", */
428
/* addrstr, ntohs(to.sin6_port)); */
472
char addrstr[INET6_ADDRSTRLEN] = "";
473
if(inet_ntop(to.in6.sin6_family, &(to.in6.sin6_addr), addrstr,
474
sizeof(addrstr)) == NULL){
477
if(strcmp(addrstr, ip) != 0){
478
fprintf(stderr, "Canonical address form: %s\n", addrstr);
432
ret = connect(tcp_sd, (struct sockaddr *) &to, sizeof(to));
483
ret = connect(tcp_sd, &to.in, sizeof(to));
434
485
perror("connect");
438
char *out = mandos_protocol_version;
489
const char *out = mandos_protocol_version;
441
492
size_t out_size = strlen(out);
562
fprintf(stderr, "Closing TLS session\n");
610
/* Shutdown procedure */
566
gnutls_bye (es.session, GNUTLS_SHUT_RDWR);
569
gnutls_deinit (es.session);
570
gnutls_certificate_free_credentials (es.cred);
571
gnutls_global_deinit ();
615
gnutls_deinit (session);
575
static void resolve_callback( AvahiSServiceResolver *r,
576
AvahiIfIndex interface,
577
AVAHI_GCC_UNUSED AvahiProtocol protocol,
578
AvahiResolverEvent event,
582
const char *host_name,
583
const AvahiAddress *address,
585
AVAHI_GCC_UNUSED AvahiStringList *txt,
586
AVAHI_GCC_UNUSED AvahiLookupResultFlags flags,
587
AVAHI_GCC_UNUSED void* userdata) {
619
static void resolve_callback(AvahiSServiceResolver *r,
620
AvahiIfIndex interface,
621
AVAHI_GCC_UNUSED AvahiProtocol protocol,
622
AvahiResolverEvent event,
626
const char *host_name,
627
const AvahiAddress *address,
629
AVAHI_GCC_UNUSED AvahiStringList *txt,
630
AVAHI_GCC_UNUSED AvahiLookupResultFlags
588
633
mandos_context *mc = userdata;
589
634
assert(r); /* Spurious warning */
636
682
case AVAHI_BROWSER_FAILURE:
638
fprintf(stderr, "(Browser) %s\n",
684
fprintf(stderr, "(Avahi browser) %s\n",
639
685
avahi_strerror(avahi_server_errno(mc->server)));
640
686
avahi_simple_poll_quit(mc->simple_poll);
643
689
case AVAHI_BROWSER_NEW:
644
/* We ignore the returned resolver object. In the callback
645
function we free it. If the server is terminated before
646
the callback function is called the server will free
647
the resolver for us. */
649
if (!(avahi_s_service_resolver_new(mc->server, interface, protocol, name,
690
/* We ignore the returned Avahi resolver object. In the callback
691
function we free it. If the Avahi server is terminated before
692
the callback function is called the Avahi server will free the
695
if (!(avahi_s_service_resolver_new(mc->server, interface,
696
protocol, name, type, domain,
651
697
AVAHI_PROTO_INET6, 0,
652
698
resolve_callback, mc)))
653
fprintf(stderr, "Failed to resolve service '%s': %s\n", name,
654
avahi_strerror(avahi_server_errno(s)));
699
fprintf(stderr, "Avahi: Failed to resolve service '%s': %s\n",
700
name, avahi_strerror(avahi_server_errno(mc->server)));
657
703
case AVAHI_BROWSER_REMOVE:
660
706
case AVAHI_BROWSER_ALL_FOR_NOW:
661
707
case AVAHI_BROWSER_CACHE_EXHAUSTED:
709
fprintf(stderr, "No Mandos server found, still searching...\n");
676
memcpy(tmp, first, f_len);
725
memcpy(tmp, first, f_len); /* Spurious warning */
678
727
tmp[f_len] = '/';
680
memcpy(tmp + f_len + 1, second, s_len);
729
memcpy(tmp + f_len + 1, second, s_len); /* Spurious warning */
682
731
tmp[f_len + 1 + s_len] = '\0';
687
int main(AVAHI_GCC_UNUSED int argc, AVAHI_GCC_UNUSED char*argv[]) {
688
AvahiServerConfig config;
736
int main(int argc, char *argv[]){
689
737
AvahiSServiceBrowser *sb = NULL;
692
int returncode = EXIT_SUCCESS;
740
int exitcode = EXIT_SUCCESS;
693
741
const char *interface = "eth0";
694
742
struct ifreq network;
696
746
char *connect_to = NULL;
697
747
AvahiIfIndex if_index = AVAHI_IF_UNSPEC;
748
const char *pubkeyfile = "pubkey.txt";
749
const char *seckeyfile = "seckey.txt";
698
750
mandos_context mc = { .simple_poll = NULL, .server = NULL,
699
.dh_bits = 2048, .priority = "SECURE256"};
751
.dh_bits = 1024, .priority = "SECURE256"};
752
bool gnutls_initalized = false;
702
static struct option long_options[] = {
703
{"debug", no_argument, (int *)&debug, 1},
704
{"connect", required_argument, 0, 'C'},
705
{"interface", required_argument, 0, 'i'},
706
{"certdir", required_argument, 0, 'd'},
707
{"certkey", required_argument, 0, 'c'},
708
{"certfile", required_argument, 0, 'k'},
709
{"dh_bits", required_argument, 0, 'D'},
710
{"priority", required_argument, 0, 'p'},
713
int option_index = 0;
714
ret = getopt_long (argc, argv, "i:", long_options,
755
struct argp_option options[] = {
756
{ .name = "debug", .key = 128,
757
.doc = "Debug mode", .group = 3 },
758
{ .name = "connect", .key = 'c',
760
.doc = "Connect directly to a sepcified mandos server",
762
{ .name = "interface", .key = 'i',
764
.doc = "Interface that Avahi will conntect through",
766
{ .name = "keydir", .key = 'd',
768
.doc = "Directory where the openpgp keyring is",
770
{ .name = "seckey", .key = 's',
772
.doc = "Secret openpgp key for gnutls authentication",
774
{ .name = "pubkey", .key = 'p',
776
.doc = "Public openpgp key for gnutls authentication",
778
{ .name = "dh-bits", .key = 129,
780
.doc = "dh-bits to use in gnutls communication",
782
{ .name = "priority", .key = 130,
784
.doc = "GNUTLS priority", .group = 1 },
789
error_t parse_opt (int key, char *arg,
790
struct argp_state *state) {
791
/* Get the INPUT argument from `argp_parse', which we know is
792
a pointer to our plugin list pointer. */
743
tmp = strtol(optarg, NULL, 10);
744
if (errno == ERANGE){
814
mc.dh_bits = (unsigned int) strtol(arg, NULL, 10);
745
816
perror("strtol");
746
817
exit(EXIT_FAILURE);
829
return ARGP_ERR_UNKNOWN;
752
mc.priority = optarg;
759
certfile = combinepath(certdir, certfile);
760
if (certfile == NULL){
761
perror("combinepath");
762
returncode = EXIT_FAILURE;
766
certkey = combinepath(certdir, certkey);
767
if (certkey == NULL){
768
perror("combinepath");
769
returncode = EXIT_FAILURE;
834
struct argp argp = { .options = options, .parser = parse_opt,
836
.doc = "Mandos client -- Get and decrypt"
837
" passwords from mandos server" };
838
argp_parse (&argp, argc, argv, 0, 0, NULL);
841
pubkeyfile = combinepath(keydir, pubkeyfile);
842
if (pubkeyfile == NULL){
843
perror("combinepath");
844
exitcode = EXIT_FAILURE;
848
seckeyfile = combinepath(keydir, seckeyfile);
849
if (seckeyfile == NULL){
850
perror("combinepath");
854
ret = init_gnutls_global(&mc, pubkeyfile, seckeyfile);
856
fprintf(stderr, "init_gnutls_global\n");
859
gnutls_initalized = true;
773
875
if_index = (AvahiIfIndex) if_nametoindex(interface);
782
884
char *address = strrchr(connect_to, ':');
783
885
if(address == NULL){
784
886
fprintf(stderr, "No colon in address\n");
887
exitcode = EXIT_FAILURE;
788
891
uint16_t port = (uint16_t) strtol(address+1, NULL, 10);
790
893
perror("Bad port number");
894
exitcode = EXIT_FAILURE;
794
898
address = connect_to;
795
ret = start_mandos_communication(address, port, if_index);
899
ret = start_mandos_communication(address, port, if_index, &mc);
901
exitcode = EXIT_FAILURE;
903
exitcode = EXIT_SUCCESS;
803
sd = socket(PF_INET6, SOCK_DGRAM, IPPROTO_IP);
806
returncode = EXIT_FAILURE;
809
strcpy(network.ifr_name, interface);
810
ret = ioctl(sd, SIOCGIFFLAGS, &network);
813
perror("ioctl SIOCGIFFLAGS");
814
returncode = EXIT_FAILURE;
817
if((network.ifr_flags & IFF_UP) == 0){
818
network.ifr_flags |= IFF_UP;
819
ret = ioctl(sd, SIOCSIFFLAGS, &network);
908
/* If the interface is down, bring it up */
910
sd = socket(PF_INET6, SOCK_DGRAM, IPPROTO_IP);
913
exitcode = EXIT_FAILURE;
916
strcpy(network.ifr_name, interface); /* Spurious warning */
917
ret = ioctl(sd, SIOCGIFFLAGS, &network);
821
perror("ioctl SIOCSIFFLAGS");
822
returncode = EXIT_FAILURE;
919
perror("ioctl SIOCGIFFLAGS");
920
exitcode = EXIT_FAILURE;
923
if((network.ifr_flags & IFF_UP) == 0){
924
network.ifr_flags |= IFF_UP;
925
ret = ioctl(sd, SIOCSIFFLAGS, &network);
927
perror("ioctl SIOCSIFFLAGS");
928
exitcode = EXIT_FAILURE;
829
936
avahi_set_log_function(empty_log);
832
/* Initialize the psuedo-RNG */
939
/* Initialize the pseudo-RNG for Avahi */
833
940
srand((unsigned int) time(NULL));
835
/* Allocate main loop object */
836
if (!(mc.simple_poll = avahi_simple_poll_new())) {
837
fprintf(stderr, "Failed to create simple poll object.\n");
838
returncode = EXIT_FAILURE;
842
/* Do not publish any local records */
843
avahi_server_config_init(&config);
844
config.publish_hinfo = 0;
845
config.publish_addresses = 0;
846
config.publish_workstation = 0;
847
config.publish_domain = 0;
849
/* Allocate a new server */
850
mc.server = avahi_server_new(avahi_simple_poll_get(simple_poll),
851
&config, NULL, NULL, &error);
853
/* Free the configuration data */
854
avahi_server_config_free(&config);
856
/* Check if creating the server object succeeded */
858
fprintf(stderr, "Failed to create server: %s\n",
942
/* Allocate main Avahi loop object */
943
mc.simple_poll = avahi_simple_poll_new();
944
if (mc.simple_poll == NULL) {
945
fprintf(stderr, "Avahi: Failed to create simple poll"
947
exitcode = EXIT_FAILURE;
952
AvahiServerConfig config;
953
/* Do not publish any local Zeroconf records */
954
avahi_server_config_init(&config);
955
config.publish_hinfo = 0;
956
config.publish_addresses = 0;
957
config.publish_workstation = 0;
958
config.publish_domain = 0;
960
/* Allocate a new server */
961
mc.server = avahi_server_new(avahi_simple_poll_get
962
(mc.simple_poll), &config, NULL,
965
/* Free the Avahi configuration data */
966
avahi_server_config_free(&config);
969
/* Check if creating the Avahi server object succeeded */
970
if (mc.server == NULL) {
971
fprintf(stderr, "Failed to create Avahi server: %s\n",
859
972
avahi_strerror(error));
860
returncode = EXIT_FAILURE;
973
exitcode = EXIT_FAILURE;
864
/* Create the service browser */
977
/* Create the Avahi service browser */
865
978
sb = avahi_s_service_browser_new(mc.server, if_index,
866
979
AVAHI_PROTO_INET6,
867
980
"_mandos._tcp", NULL, 0,
868
981
browse_callback, &mc);
870
983
fprintf(stderr, "Failed to create service browser: %s\n",
871
984
avahi_strerror(avahi_server_errno(mc.server)));
872
returncode = EXIT_FAILURE;
985
exitcode = EXIT_FAILURE;
876
989
/* Run the main loop */
879
fprintf(stderr, "Starting avahi loop search\n");
992
fprintf(stderr, "Starting Avahi loop search\n");
882
avahi_simple_poll_loop(simple_poll);
995
avahi_simple_poll_loop(mc.simple_poll);
887
1000
fprintf(stderr, "%s exiting\n", argv[0]);
890
1003
/* Cleanup things */
892
1005
avahi_s_service_browser_free(sb);
1007
if (mc.server != NULL)
895
1008
avahi_server_free(mc.server);
898
avahi_simple_poll_free(simple_poll);
1010
if (mc.simple_poll != NULL)
1011
avahi_simple_poll_free(mc.simple_poll);
1015
if (gnutls_initalized){
1016
gnutls_certificate_free_credentials (mc.cred);
1017
gnutls_global_deinit ();