214
/* Delete the GPGME FILE pointer cryptotext data buffer */
215
gpgme_data_release(dh_crypto);
217
226
/* Seek back to the beginning of the GPGME plaintext data buffer */
218
227
if (gpgme_data_seek(dh_plain, (off_t) 0, SEEK_SET) == -1){
219
228
perror("pgpme_data_seek");
229
plaintext_length = -1;
224
new_packet_capacity = adjustbuffer(*new_packet, new_packet_length,
225
new_packet_capacity);
226
if (new_packet_capacity == 0){
235
plaintext_capacity = adjustbuffer(plaintext, (size_t)plaintext_length,
237
if (plaintext_capacity == 0){
227
238
perror("adjustbuffer");
230
new_packet_capacity += BUFFER_SIZE;
239
plaintext_length = -1;
233
ret = gpgme_data_read(dh_plain, *new_packet + new_packet_length,
243
ret = gpgme_data_read(dh_plain, *plaintext + plaintext_length,
235
245
/* Print the data, if any */
240
251
perror("gpgme_data_read");
252
plaintext_length = -1;
243
new_packet_length += ret;
255
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"); */
259
fprintf(stderr, "Decrypted password is: ");
260
for(ssize_t i = 0; i < plaintext_length; i++){
261
fprintf(stderr, "%02hhX ", (*plaintext)[i]);
263
fprintf(stderr, "\n");
268
/* Delete the GPGME cryptotext data buffer */
269
gpgme_data_release(dh_crypto);
254
271
/* Delete the GPGME plaintext data buffer */
255
272
gpgme_data_release(dh_plain);
256
return new_packet_length;
273
return plaintext_length;
259
276
static const char * safer_gnutls_strerror (int value) {
279
297
if ((ret = gnutls_global_init ())
280
298
!= GNUTLS_E_SUCCESS) {
281
fprintf (stderr, "global_init: %s\n", safer_gnutls_strerror(ret));
299
fprintf (stderr, "GnuTLS global_init: %s\n",
300
safer_gnutls_strerror(ret));
305
/* "Use a log level over 10 to enable all debugging options."
286
308
gnutls_global_set_log_level(11);
287
309
gnutls_global_set_log_function(debuggnutls);
290
/* openpgp credentials */
291
if ((ret = gnutls_certificate_allocate_credentials (&es->cred))
312
/* OpenPGP credentials */
313
if ((ret = gnutls_certificate_allocate_credentials (&mc->cred))
292
314
!= GNUTLS_E_SUCCESS) {
293
fprintf (stderr, "memory error: %s\n",
315
fprintf (stderr, "GnuTLS memory error: %s\n",
294
316
safer_gnutls_strerror(ret));
299
321
fprintf(stderr, "Attempting to use OpenPGP certificate %s"
300
" and keyfile %s as GnuTLS credentials\n", certfile,
322
" and keyfile %s as GnuTLS credentials\n", pubkeyfile,
304
326
ret = gnutls_certificate_set_openpgp_key_file
305
(es->cred, certfile, certkey, GNUTLS_OPENPGP_FMT_BASE64);
327
(mc->cred, pubkeyfile, seckeyfile, GNUTLS_OPENPGP_FMT_BASE64);
306
328
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",
330
"Error[%d] while reading the OpenPGP key pair ('%s',"
331
" '%s')\n", ret, pubkeyfile, seckeyfile);
332
fprintf(stdout, "The GnuTLS error is: %s\n",
312
333
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){
337
/* GnuTLS server initialization */
338
ret = gnutls_dh_params_init(dh_params);
339
if (ret != GNUTLS_E_SUCCESS) {
340
fprintf (stderr, "Error in GnuTLS DH parameter initialization:"
341
" %s\n", safer_gnutls_strerror(ret));
344
ret = gnutls_dh_params_generate2(*dh_params, mc->dh_bits);
345
if (ret != GNUTLS_E_SUCCESS) {
346
fprintf (stderr, "Error in GnuTLS prime generation: %s\n",
347
safer_gnutls_strerror(ret));
351
gnutls_certificate_set_dh_params(mc->cred, *dh_params);
353
/* GnuTLS session creation */
354
ret = gnutls_init(session, GNUTLS_SERVER);
355
if (ret != GNUTLS_E_SUCCESS){
336
356
fprintf(stderr, "Error in GnuTLS session initialization: %s\n",
337
357
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));
362
ret = gnutls_priority_set_direct(*session, mc->priority, &err);
363
if (ret != GNUTLS_E_SUCCESS) {
364
fprintf(stderr, "Syntax error at: %s\n", err);
365
fprintf(stderr, "GnuTLS error: %s\n",
366
safer_gnutls_strerror(ret));
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",
371
ret = gnutls_credentials_set(*session, GNUTLS_CRD_CERTIFICATE,
373
if (ret != GNUTLS_E_SUCCESS) {
374
fprintf(stderr, "Error setting GnuTLS credentials: %s\n",
352
375
safer_gnutls_strerror(ret));
356
379
/* ignore client certificate if any. */
357
gnutls_certificate_server_set_request (es->session,
380
gnutls_certificate_server_set_request (*session,
358
381
GNUTLS_CERT_IGNORE);
360
gnutls_dh_set_prime_bits (es->session, DH_BITS);
383
gnutls_dh_set_prime_bits (*session, mc->dh_bits);
388
/* Avahi log function callback */
365
389
static void empty_log(__attribute__((unused)) AvahiLogLevel level,
366
390
__attribute__((unused)) const char *txt){}
392
/* Called when a Mandos server is found */
368
393
static int start_mandos_communication(const char *ip, uint16_t port,
369
394
AvahiIfIndex if_index,
370
395
mandos_context *mc){
372
397
struct sockaddr_in6 to;
373
encrypted_session es;
374
398
char *buffer = NULL;
375
399
char *decrypted_buffer;
376
400
size_t buffer_length = 0;
421
451
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)); */
452
char addrstr[INET6_ADDRSTRLEN] = "";
453
if(inet_ntop(to.sin6_family, &(to.sin6_addr), addrstr,
454
sizeof(addrstr)) == NULL){
457
if(strcmp(addrstr, ip) != 0){
458
fprintf(stderr, "Canonical address form: %s\n", addrstr);
432
463
ret = connect(tcp_sd, (struct sockaddr *) &to, sizeof(to));
509
533
case GNUTLS_E_AGAIN:
511
535
case GNUTLS_E_REHANDSHAKE:
512
ret = gnutls_handshake (es.session);
536
ret = gnutls_handshake (session);
514
fprintf(stderr, "\n*** Handshake failed ***\n");
538
fprintf(stderr, "*** GnuTLS Re-handshake failed ***\n");
515
539
gnutls_perror (ret);
521
545
fprintf(stderr, "Unknown error while reading data from"
522
" encrypted session with mandos server\n");
546
" encrypted session with Mandos server\n");
524
gnutls_bye (es.session, GNUTLS_SHUT_RDWR);
548
gnutls_bye (session, GNUTLS_SHUT_RDWR);
528
552
buffer_length += (size_t) ret;
557
fprintf(stderr, "Closing TLS session\n");
560
gnutls_bye (session, GNUTLS_SHUT_RDWR);
532
562
if (buffer_length > 0){
533
563
decrypted_buffer_size = pgp_packet_decrypt(buffer,
535
565
&decrypted_buffer,
537
567
if (decrypted_buffer_size >= 0){
539
569
while(written < (size_t) decrypted_buffer_size){
562
fprintf(stderr, "Closing TLS session\n");
589
/* Shutdown procedure */
566
gnutls_bye (es.session, GNUTLS_SHUT_RDWR);
569
gnutls_deinit (es.session);
570
gnutls_certificate_free_credentials (es.cred);
594
gnutls_deinit (session);
595
gnutls_certificate_free_credentials (mc->cred);
571
596
gnutls_global_deinit ();
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) {
600
static void resolve_callback(AvahiSServiceResolver *r,
601
AvahiIfIndex interface,
602
AVAHI_GCC_UNUSED AvahiProtocol protocol,
603
AvahiResolverEvent event,
607
const char *host_name,
608
const AvahiAddress *address,
610
AVAHI_GCC_UNUSED AvahiStringList *txt,
611
AVAHI_GCC_UNUSED AvahiLookupResultFlags
588
614
mandos_context *mc = userdata;
589
615
assert(r); /* Spurious warning */
636
663
case AVAHI_BROWSER_FAILURE:
638
fprintf(stderr, "(Browser) %s\n",
665
fprintf(stderr, "(Avahi browser) %s\n",
639
666
avahi_strerror(avahi_server_errno(mc->server)));
640
667
avahi_simple_poll_quit(mc->simple_poll);
643
670
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,
671
/* We ignore the returned Avahi resolver object. In the callback
672
function we free it. If the Avahi server is terminated before
673
the callback function is called the Avahi server will free the
676
if (!(avahi_s_service_resolver_new(mc->server, interface,
677
protocol, name, type, domain,
651
678
AVAHI_PROTO_INET6, 0,
652
679
resolve_callback, mc)))
653
fprintf(stderr, "Failed to resolve service '%s': %s\n", name,
654
avahi_strerror(avahi_server_errno(s)));
680
fprintf(stderr, "Avahi: Failed to resolve service '%s': %s\n",
681
name, avahi_strerror(avahi_server_errno(mc->server)));
657
684
case AVAHI_BROWSER_REMOVE:
660
687
case AVAHI_BROWSER_ALL_FOR_NOW:
661
688
case AVAHI_BROWSER_CACHE_EXHAUSTED:
690
fprintf(stderr, "No Mandos server found, still searching...\n");
676
memcpy(tmp, first, f_len);
706
memcpy(tmp, first, f_len); /* Spurious warning */
678
708
tmp[f_len] = '/';
680
memcpy(tmp + f_len + 1, second, s_len);
710
memcpy(tmp + f_len + 1, second, s_len); /* Spurious warning */
682
712
tmp[f_len + 1 + s_len] = '\0';
687
int main(AVAHI_GCC_UNUSED int argc, AVAHI_GCC_UNUSED char*argv[]) {
688
AvahiServerConfig config;
717
int main(int argc, char *argv[]){
689
718
AvahiSServiceBrowser *sb = NULL;
692
int returncode = EXIT_SUCCESS;
721
int exitcode = EXIT_SUCCESS;
693
722
const char *interface = "eth0";
694
723
struct ifreq network;
696
725
char *connect_to = NULL;
697
726
AvahiIfIndex if_index = AVAHI_IF_UNSPEC;
698
727
mandos_context mc = { .simple_poll = NULL, .server = NULL,
699
.dh_bits = 2048, .priority = "SECURE256"};
728
.dh_bits = 1024, .priority = "SECURE256"};
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,
731
/* Temporary int to get the address of for getopt_long */
732
int debug_int = debug ? 1 : 0;
734
struct option long_options[] = {
735
{"debug", no_argument, &debug_int, 1},
736
{"connect", required_argument, NULL, 'c'},
737
{"interface", required_argument, NULL, 'i'},
738
{"keydir", required_argument, NULL, 'd'},
739
{"seckey", required_argument, NULL, 's'},
740
{"pubkey", required_argument, NULL, 'p'},
741
{"dh-bits", required_argument, NULL, 'D'},
742
{"priority", required_argument, NULL, 'P'},
745
int option_index = 0;
746
ret = getopt_long (argc, argv, "i:", long_options,
743
tmp = strtol(optarg, NULL, 10);
744
if (errno == ERANGE){
773
mc.dh_bits = (unsigned int) strtol(optarg, NULL, 10);
745
775
perror("strtol");
746
776
exit(EXIT_FAILURE);
780
mc.priority = optarg;
784
/* getopt_long() has already printed a message about the
785
unrcognized option, so just exit. */
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;
789
/* Set the global debug flag from the temporary int */
790
debug = debug_int ? true : false;
793
pubkeyfile = combinepath(keydir, pubkeyfile);
794
if (pubkeyfile == NULL){
795
perror("combinepath");
796
exitcode = EXIT_FAILURE;
800
seckeyfile = combinepath(keydir, seckeyfile);
801
if (seckeyfile == NULL){
802
perror("combinepath");
773
806
if_index = (AvahiIfIndex) if_nametoindex(interface);
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);
836
/* If the interface is down, bring it up */
838
sd = socket(PF_INET6, SOCK_DGRAM, IPPROTO_IP);
841
exitcode = EXIT_FAILURE;
844
strcpy(network.ifr_name, interface); /* Spurious warning */
845
ret = ioctl(sd, SIOCGIFFLAGS, &network);
821
perror("ioctl SIOCSIFFLAGS");
822
returncode = EXIT_FAILURE;
847
perror("ioctl SIOCGIFFLAGS");
848
exitcode = EXIT_FAILURE;
851
if((network.ifr_flags & IFF_UP) == 0){
852
network.ifr_flags |= IFF_UP;
853
ret = ioctl(sd, SIOCSIFFLAGS, &network);
855
perror("ioctl SIOCSIFFLAGS");
856
exitcode = EXIT_FAILURE;
829
864
avahi_set_log_function(empty_log);
832
/* Initialize the psuedo-RNG */
867
/* Initialize the pseudo-RNG for Avahi */
833
868
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",
870
/* Allocate main Avahi loop object */
871
mc.simple_poll = avahi_simple_poll_new();
872
if (mc.simple_poll == NULL) {
873
fprintf(stderr, "Avahi: Failed to create simple poll"
875
exitcode = EXIT_FAILURE;
880
AvahiServerConfig config;
881
/* Do not publish any local Zeroconf records */
882
avahi_server_config_init(&config);
883
config.publish_hinfo = 0;
884
config.publish_addresses = 0;
885
config.publish_workstation = 0;
886
config.publish_domain = 0;
888
/* Allocate a new server */
889
mc.server = avahi_server_new(avahi_simple_poll_get
890
(mc.simple_poll), &config, NULL,
893
/* Free the Avahi configuration data */
894
avahi_server_config_free(&config);
897
/* Check if creating the Avahi server object succeeded */
898
if (mc.server == NULL) {
899
fprintf(stderr, "Failed to create Avahi server: %s\n",
859
900
avahi_strerror(error));
860
returncode = EXIT_FAILURE;
901
exitcode = EXIT_FAILURE;
864
/* Create the service browser */
905
/* Create the Avahi service browser */
865
906
sb = avahi_s_service_browser_new(mc.server, if_index,
866
907
AVAHI_PROTO_INET6,
867
908
"_mandos._tcp", NULL, 0,
868
909
browse_callback, &mc);
870
911
fprintf(stderr, "Failed to create service browser: %s\n",
871
912
avahi_strerror(avahi_server_errno(mc.server)));
872
returncode = EXIT_FAILURE;
913
exitcode = EXIT_FAILURE;
876
917
/* Run the main loop */
879
fprintf(stderr, "Starting avahi loop search\n");
920
fprintf(stderr, "Starting Avahi loop search\n");
882
avahi_simple_poll_loop(simple_poll);
923
avahi_simple_poll_loop(mc.simple_poll);
887
928
fprintf(stderr, "%s exiting\n", argv[0]);
890
931
/* Cleanup things */
892
933
avahi_s_service_browser_free(sb);
935
if (mc.server != NULL)
895
936
avahi_server_free(mc.server);
898
avahi_simple_poll_free(simple_poll);
938
if (mc.simple_poll != NULL)
939
avahi_simple_poll_free(mc.simple_poll);