/mandos/trunk : revision 286

1

/* -*- coding: utf-8 -*- */

2

/*

3

* Mandos client - get and decrypt data from a Mandos server

3

* Mandos-client - get and decrypt data from a Mandos server

4

*

5

* This program is partly derived from an example program for an Avahi

6

* service browser, downloaded from

9

* "browse_callback", and parts of "main".

10

*

11

* Everything else is

12

13

14

*

14

15

* This program is free software: you can redistribute it and/or

15

16

* modify it under the terms of the GNU General Public License as

35

36

#define _GNU_SOURCE /* TEMP_FAILURE_RETRY(), asprintf() */

36

37

38

#include <stdio.h> /* fprintf(), stderr, fwrite(),

38

stdout, ferror() */

39

stdout, ferror(), sscanf(),

40

remove() */

39

41

#include <stdint.h> /* uint16_t, uint32_t */

40

42

#include <stddef.h> /* NULL, size_t, ssize_t */

41

43

#include <stdlib.h> /* free(), EXIT_SUCCESS, EXIT_FAILURE,

47

49

#include <sys/types.h> /* socket(), inet_pton(), sockaddr,

48

50

sockaddr_in6, PF_INET6,

49

51

SOCK_STREAM, INET6_ADDRSTRLEN,

50

uid_t, gid_t, open(), opendir(), DIR */

52

uid_t, gid_t, open(), opendir(),

53

DIR */

51

54

#include <sys/stat.h> /* open() */

52

55

#include <sys/socket.h> /* socket(), struct sockaddr_in6,

53

56

struct in6_addr, inet_pton(),

54

57

connect() */

55

58

#include <fcntl.h> /* open() */

56

#include <dirent.h> /* opendir(), struct dirent, readdir() */

57

#include <inttypes.h> /* PRIu16 */

59

#include <dirent.h> /* opendir(), struct dirent, readdir()

60

*/

61

#include <inttypes.h> /* PRIu16, intmax_t, SCNdMAX */

58

62

#include <assert.h> /* assert() */

59

63

#include <errno.h> /* perror(), errno */

60

64

#include <time.h> /* time() */

66

70

getuid(), getgid(), setuid(),

67

71

setgid() */

68

72

#include <arpa/inet.h> /* inet_pton(), htons */

69

#include <iso646.h> /* not, and */

73

#include <iso646.h> /* not, and, or */

70

74

#include <argp.h> /* struct argp_option, error_t, struct

71

75

argp_state, struct argp,

72

76

argp_parse(), ARGP_KEY_ARG,

89

93

gnutls_*

90

94

init_gnutls_session(),

91

95

GNUTLS_* */

92

#include <gnutls/openpgp.h> /* gnutls_certificate_set_openpgp_key_file(),

96

#include <gnutls/openpgp.h>

97

/* gnutls_certificate_set_openpgp_key_file(),

93

98

GNUTLS_OPENPGP_FMT_BASE64 */

94

99

95

100

/* GPGME */

128

133

*/

129

134

size_t adjustbuffer(char **buffer, size_t buffer_length,

130

135

size_t buffer_capacity){

131

if (buffer_length + BUFFER_SIZE > buffer_capacity){

136

if(buffer_length + BUFFER_SIZE > buffer_capacity){

132

137

*buffer = realloc(*buffer, buffer_capacity + BUFFER_SIZE);

133

if (buffer == NULL){

138

if(buffer == NULL){

134

139

return 0;

135

140

}

136

141

buffer_capacity += BUFFER_SIZE;

155

160

int fd;

156

161

gpgme_data_t pgp_data;

157

162

158

fd = TEMP_FAILURE_RETRY(open(filename, O_RDONLY));

163

fd = (int)TEMP_FAILURE_RETRY(open(filename, O_RDONLY));

159

164

if(fd == -1){

160

165

perror("open");

161

166

return false;

162

167

}

163

168

164

169

rc = gpgme_data_new_from_fd(&pgp_data, fd);

165

if (rc != GPG_ERR_NO_ERROR){

170

if(rc != GPG_ERR_NO_ERROR){

166

171

fprintf(stderr, "bad gpgme_data_new_from_fd: %s: %s\n",

167

172

gpgme_strsource(rc), gpgme_strerror(rc));

168

173

return false;

169

174

}

170

175

171

176

rc = gpgme_op_import(mc->ctx, pgp_data);

172

if (rc != GPG_ERR_NO_ERROR){

177

if(rc != GPG_ERR_NO_ERROR){

173

178

fprintf(stderr, "bad gpgme_op_import: %s: %s\n",

174

179

gpgme_strsource(rc), gpgme_strerror(rc));

175

180

return false;

176

181

}

177

182

178

ret = TEMP_FAILURE_RETRY(close(fd));

183

ret = (int)TEMP_FAILURE_RETRY(close(fd));

179

184

if(ret == -1){

180

185

perror("close");

181

186

}

183

188

return true;

184

189

}

185

190

186

if (debug){

191

if(debug){

187

192

fprintf(stderr, "Initialize gpgme\n");

188

193

}

189

194

190

195

/* Init GPGME */

191

196

gpgme_check_version(NULL);

192

197

rc = gpgme_engine_check_version(GPGME_PROTOCOL_OpenPGP);

193

if (rc != GPG_ERR_NO_ERROR){

198

if(rc != GPG_ERR_NO_ERROR){

194

199

fprintf(stderr, "bad gpgme_engine_check_version: %s: %s\n",

195

200

gpgme_strsource(rc), gpgme_strerror(rc));

196

201

return false;

197

202

}

198

203

199

204

/* Set GPGME home directory for the OpenPGP engine only */

200

rc = gpgme_get_engine_info (&engine_info);

201

if (rc != GPG_ERR_NO_ERROR){

205

rc = gpgme_get_engine_info(&engine_info);

206

if(rc != GPG_ERR_NO_ERROR){

202

207

fprintf(stderr, "bad gpgme_get_engine_info: %s: %s\n",

203

208

gpgme_strsource(rc), gpgme_strerror(rc));

204

209

return false;

218

223

219

224

/* Create new GPGME "context" */

220

225

rc = gpgme_new(&(mc->ctx));

221

if (rc != GPG_ERR_NO_ERROR){

226

if(rc != GPG_ERR_NO_ERROR){

222

227

fprintf(stderr, "bad gpgme_new: %s: %s\n",

223

228

gpgme_strsource(rc), gpgme_strerror(rc));

224

229

return false;

225

230

}

226

231

227

if (not import_key(pubkey) or not import_key(seckey)){

232

if(not import_key(pubkey) or not import_key(seckey)){

228

233

return false;

229

234

}

230

235

240

* Decrypt OpenPGP data.

236

241

* Returns -1 on error

237

242

*/

238

static ssize_t pgp_packet_decrypt (const mandos_context *mc,

239

const char *cryptotext,

240

size_t crypto_size,

241

char **plaintext){

243

static ssize_t pgp_packet_decrypt(const mandos_context *mc,

244

const char *cryptotext,

245

size_t crypto_size,

246

char **plaintext){

242

247

gpgme_data_t dh_crypto, dh_plain;

243

248

gpgme_error_t rc;

244

249

ssize_t ret;

245

250

size_t plaintext_capacity = 0;

246

251

ssize_t plaintext_length = 0;

247

252

248

if (debug){

253

if(debug){

249

254

fprintf(stderr, "Trying to decrypt OpenPGP data\n");

250

255

}

251

256

252

257

/* Create new GPGME data buffer from memory cryptotext */

253

258

rc = gpgme_data_new_from_mem(&dh_crypto, cryptotext, crypto_size,

254

259

0);

255

if (rc != GPG_ERR_NO_ERROR){

260

if(rc != GPG_ERR_NO_ERROR){

256

261

fprintf(stderr, "bad gpgme_data_new_from_mem: %s: %s\n",

257

262

gpgme_strsource(rc), gpgme_strerror(rc));

258

263

return -1;

260

265

261

266

/* Create new empty GPGME data buffer for the plaintext */

262

267

rc = gpgme_data_new(&dh_plain);

263

if (rc != GPG_ERR_NO_ERROR){

268

if(rc != GPG_ERR_NO_ERROR){

264

269

fprintf(stderr, "bad gpgme_data_new: %s: %s\n",

265

270

gpgme_strsource(rc), gpgme_strerror(rc));

266

271

gpgme_data_release(dh_crypto);

270

275

/* Decrypt data from the cryptotext data buffer to the plaintext

271

276

data buffer */

272

277

rc = gpgme_op_decrypt(mc->ctx, dh_crypto, dh_plain);

273

if (rc != GPG_ERR_NO_ERROR){

278

if(rc != GPG_ERR_NO_ERROR){

274

279

fprintf(stderr, "bad gpgme_op_decrypt: %s: %s\n",

275

280

gpgme_strsource(rc), gpgme_strerror(rc));

276

281

plaintext_length = -1;

277

if (debug){

282

if(debug){

278

283

gpgme_decrypt_result_t result;

279

284

result = gpgme_op_decrypt_result(mc->ctx);

280

if (result == NULL){

285

if(result == NULL){

281

286

fprintf(stderr, "gpgme_op_decrypt_result failed\n");

282

287

} else {

283

288

fprintf(stderr, "Unsupported algorithm: %s\n",

310

315

}

311

316

312

317

/* Seek back to the beginning of the GPGME plaintext data buffer */

313

if (gpgme_data_seek(dh_plain, (off_t) 0, SEEK_SET) == -1){

318

if(gpgme_data_seek(dh_plain, (off_t)0, SEEK_SET) == -1){

314

319

perror("gpgme_data_seek");

315

320

plaintext_length = -1;

316

321

goto decrypt_end;

321

326

plaintext_capacity = adjustbuffer(plaintext,

322

327

(size_t)plaintext_length,

323

328

plaintext_capacity);

324

if (plaintext_capacity == 0){

329

if(plaintext_capacity == 0){

325

330

perror("adjustbuffer");

326

331

plaintext_length = -1;

327

332

goto decrypt_end;

330

335

ret = gpgme_data_read(dh_plain, *plaintext + plaintext_length,

331

336

BUFFER_SIZE);

332

337

/* Print the data, if any */

333

if (ret == 0){

338

if(ret == 0){

334

339

/* EOF */

335

340

break;

336

341

}

360

365

return plaintext_length;

361

366

}

362

367

363

static const char * safer_gnutls_strerror (int value) {

364

const char *ret = gnutls_strerror (value); /* Spurious warning */

365

if (ret == NULL)

368

static const char * safer_gnutls_strerror(int value) {

369

const char *ret = gnutls_strerror(value); /* Spurious warning from

370

-Wunreachable-code */

371

if(ret == NULL)

366

372

ret = "(unknown)";

367

373

return ret;

368

374

}

383

389

}

384

390

385

391

ret = gnutls_global_init();

386

if (ret != GNUTLS_E_SUCCESS) {

387

fprintf (stderr, "GnuTLS global_init: %s\n",

388

safer_gnutls_strerror(ret));

392

if(ret != GNUTLS_E_SUCCESS) {

393

fprintf(stderr, "GnuTLS global_init: %s\n",

394

safer_gnutls_strerror(ret));

389

395

return -1;

390

396

}

391

397

392

if (debug){

398

if(debug){

393

399

/* "Use a log level over 10 to enable all debugging options."

394

400

* - GnuTLS manual

395

401

*/

399

405

400

406

/* OpenPGP credentials */

401

407

gnutls_certificate_allocate_credentials(&mc->cred);

402

if (ret != GNUTLS_E_SUCCESS){

403

fprintf (stderr, "GnuTLS memory error: %s\n", /* Spurious

404

warning */

405

safer_gnutls_strerror(ret));

406

gnutls_global_deinit ();

408

if(ret != GNUTLS_E_SUCCESS){

409

fprintf(stderr, "GnuTLS memory error: %s\n", /* Spurious warning

410

* from

411

* -Wunreachable-code

412

*/

413

safer_gnutls_strerror(ret));

414

gnutls_global_deinit();

407

415

return -1;

408

416

}

409

417

416

424

ret = gnutls_certificate_set_openpgp_key_file

417

425

(mc->cred, pubkeyfilename, seckeyfilename,

418

426

GNUTLS_OPENPGP_FMT_BASE64);

419

if (ret != GNUTLS_E_SUCCESS) {

427

if(ret != GNUTLS_E_SUCCESS) {

420

428

fprintf(stderr,

421

429

"Error[%d] while reading the OpenPGP key pair ('%s',"

422

430

" '%s')\n", ret, pubkeyfilename, seckeyfilename);

427

435

428

436

/* GnuTLS server initialization */

429

437

ret = gnutls_dh_params_init(&mc->dh_params);

430

if (ret != GNUTLS_E_SUCCESS) {

431

fprintf (stderr, "Error in GnuTLS DH parameter initialization:"

432

" %s\n", safer_gnutls_strerror(ret));

438

if(ret != GNUTLS_E_SUCCESS) {

439

fprintf(stderr, "Error in GnuTLS DH parameter initialization:"

440

" %s\n", safer_gnutls_strerror(ret));

433

441

goto globalfail;

434

442

}

435

443

ret = gnutls_dh_params_generate2(mc->dh_params, mc->dh_bits);

436

if (ret != GNUTLS_E_SUCCESS) {

437

fprintf (stderr, "Error in GnuTLS prime generation: %s\n",

438

safer_gnutls_strerror(ret));

444

if(ret != GNUTLS_E_SUCCESS) {

445

fprintf(stderr, "Error in GnuTLS prime generation: %s\n",

446

safer_gnutls_strerror(ret));

439

447

goto globalfail;

440

448

}

441

449

456

464

int ret;

457

465

/* GnuTLS session creation */

458

466

ret = gnutls_init(session, GNUTLS_SERVER);

459

if (ret != GNUTLS_E_SUCCESS){

467

if(ret != GNUTLS_E_SUCCESS){

460

468

fprintf(stderr, "Error in GnuTLS session initialization: %s\n",

461

469

safer_gnutls_strerror(ret));

462

470

}

464

472

{

465

473

const char *err;

466

474

ret = gnutls_priority_set_direct(*session, mc->priority, &err);

467

if (ret != GNUTLS_E_SUCCESS) {

475

if(ret != GNUTLS_E_SUCCESS) {

468

476

fprintf(stderr, "Syntax error at: %s\n", err);

469

477

fprintf(stderr, "GnuTLS error: %s\n",

470

478

safer_gnutls_strerror(ret));

471

gnutls_deinit (*session);

479

gnutls_deinit(*session);

472

480

return -1;

473

481

}

474

482

}

475

483

476

484

ret = gnutls_credentials_set(*session, GNUTLS_CRD_CERTIFICATE,

477

485

mc->cred);

478

if (ret != GNUTLS_E_SUCCESS) {

486

if(ret != GNUTLS_E_SUCCESS) {

479

487

fprintf(stderr, "Error setting GnuTLS credentials: %s\n",

480

488

safer_gnutls_strerror(ret));

481

gnutls_deinit (*session);

489

gnutls_deinit(*session);

482

490

return -1;

483

491

}

484

492

485

493

/* ignore client certificate if any. */

486

gnutls_certificate_server_set_request (*session,

487

GNUTLS_CERT_IGNORE);

494

gnutls_certificate_server_set_request(*session,

495

GNUTLS_CERT_IGNORE);

488

496

489

gnutls_dh_set_prime_bits (*session, mc->dh_bits);

497

gnutls_dh_set_prime_bits(*session, mc->dh_bits);

490

498

491

499

return 0;

492

500

}

500

508

AvahiIfIndex if_index,

501

509

mandos_context *mc){

502

510

int ret, tcp_sd;

511

ssize_t sret;

503

512

union { struct sockaddr in; struct sockaddr_in6 in6; } to;

504

513

char *buffer = NULL;

505

514

char *decrypted_buffer;

511

520

char interface[IF_NAMESIZE];

512

521

gnutls_session_t session;

513

522

514

ret = init_gnutls_session (mc, &session);

515

if (ret != 0){

523

ret = init_gnutls_session(mc, &session);

524

if(ret != 0){

516

525

return -1;

517

526

}

518

527

540

549

/* It would be nice to have a way to detect if we were passed an

541

550

IPv4 address here. Now we assume an IPv6 address. */

542

551

ret = inet_pton(AF_INET6, ip, &to.in6.sin6_addr);

543

if (ret < 0 ){

552

if(ret < 0 ){

544

553

perror("inet_pton");

545

554

return -1;

546

555

}

548

557

fprintf(stderr, "Bad address: %s\n", ip);

549

558

return -1;

550

559

}

551

to.in6.sin6_port = htons(port); /* Spurious warning */

560

to.in6.sin6_port = htons(port); /* Spurious warnings from

561

-Wconversion and

562

-Wunreachable-code */

552

563

553

564

to.in6.sin6_scope_id = (uint32_t)if_index;

554

565

567

578

}

568

579

569

580

ret = connect(tcp_sd, &to.in, sizeof(to));

570

if (ret < 0){

581

if(ret < 0){

571

582

perror("connect");

572

583

return -1;

573

584

}

574

585

575

586

const char *out = mandos_protocol_version;

576

587

written = 0;

577

while (true){

588

while(true){

578

589

size_t out_size = strlen(out);

579

ret = TEMP_FAILURE_RETRY(write(tcp_sd, out + written,

590

ret = (int)TEMP_FAILURE_RETRY(write(tcp_sd, out + written,

580

591

out_size - written));

581

if (ret == -1){

592

if(ret == -1){

582

593

perror("write");

583

594

retval = -1;

584

595

goto mandos_end;

587

598

if(written < out_size){

588

599

continue;

589

600

} else {

590

if (out == mandos_protocol_version){

601

if(out == mandos_protocol_version){

591

602

written = 0;

592

603

out = "\r\n";

593

604

} else {

600

611

fprintf(stderr, "Establishing TLS session with %s\n", ip);

601

612

}

602

613

603

gnutls_transport_set_ptr (session, (gnutls_transport_ptr_t) tcp_sd);

614

gnutls_transport_set_ptr(session, (gnutls_transport_ptr_t) tcp_sd);

604

615

605

616

do{

606

ret = gnutls_handshake (session);

617

ret = gnutls_handshake(session);

607

618

} while(ret == GNUTLS_E_AGAIN or ret == GNUTLS_E_INTERRUPTED);

608

619

609

if (ret != GNUTLS_E_SUCCESS){

620

if(ret != GNUTLS_E_SUCCESS){

610

621

if(debug){

611

622

fprintf(stderr, "*** GnuTLS Handshake failed ***\n");

612

gnutls_perror (ret);

623

gnutls_perror(ret);

613

624

}

614

625

retval = -1;

615

626

goto mandos_end;

625

636

while(true){

626

637

buffer_capacity = adjustbuffer(&buffer, buffer_length,

627

638

buffer_capacity);

628

if (buffer_capacity == 0){

639

if(buffer_capacity == 0){

629

640

perror("adjustbuffer");

630

641

retval = -1;

631

642

goto mandos_end;

632

643

}

633

644

634

ret = gnutls_record_recv(session, buffer+buffer_length,

635

BUFFER_SIZE);

636

if (ret == 0){

645

sret = gnutls_record_recv(session, buffer+buffer_length,

646

BUFFER_SIZE);

647

if(sret == 0){

637

648

break;

638

649

}

639

if (ret < 0){

640

switch(ret){

650

if(sret < 0){

651

switch(sret){

641

652

case GNUTLS_E_INTERRUPTED:

642

653

case GNUTLS_E_AGAIN:

643

654

break;

644

655

case GNUTLS_E_REHANDSHAKE:

645

656

do{

646

ret = gnutls_handshake (session);

657

ret = gnutls_handshake(session);

647

658

} while(ret == GNUTLS_E_AGAIN or ret == GNUTLS_E_INTERRUPTED);

648

if (ret < 0){

659

if(ret < 0){

649

660

fprintf(stderr, "*** GnuTLS Re-handshake failed ***\n");

650

gnutls_perror (ret);

661

gnutls_perror(ret);

651

662

retval = -1;

652

663

goto mandos_end;

653

664

}

656

667

fprintf(stderr, "Unknown error while reading data from"

657

668

" encrypted session with Mandos server\n");

658

669

retval = -1;

659

gnutls_bye (session, GNUTLS_SHUT_RDWR);

670

gnutls_bye(session, GNUTLS_SHUT_RDWR);

660

671

goto mandos_end;

661

672

}

662

673

} else {

663

buffer_length += (size_t) ret;

674

buffer_length += (size_t) sret;

664

675

}

665

676

}

666

677

668

679

fprintf(stderr, "Closing TLS session\n");

669

680

}

670

681

671

gnutls_bye (session, GNUTLS_SHUT_RDWR);

682

gnutls_bye(session, GNUTLS_SHUT_RDWR);

672

683

673

if (buffer_length > 0){

684

if(buffer_length > 0){

674

685

decrypted_buffer_size = pgp_packet_decrypt(mc, buffer,

675

686

buffer_length,

676

687

&decrypted_buffer);

677

if (decrypted_buffer_size >= 0){

688

if(decrypted_buffer_size >= 0){

678

689

written = 0;

679

690

while(written < (size_t) decrypted_buffer_size){

680

ret = (int)fwrite (decrypted_buffer + written, 1,

681

(size_t)decrypted_buffer_size - written,

682

stdout);

691

ret = (int)fwrite(decrypted_buffer + written, 1,

692

(size_t)decrypted_buffer_size - written,

693

stdout);

683

694

if(ret == 0 and ferror(stdout)){

684

695

if(debug){

685

696

fprintf(stderr, "Error writing encrypted data: %s\n",

702

713

703

714

mandos_end:

704

715

free(buffer);

705

ret = TEMP_FAILURE_RETRY(close(tcp_sd));

716

ret = (int)TEMP_FAILURE_RETRY(close(tcp_sd));

706

717

if(ret == -1){

707

718

perror("close");

708

719

}

709

gnutls_deinit (session);

720

gnutls_deinit(session);

710

721

return retval;

711

722

}

712

723

730

741

/* Called whenever a service has been resolved successfully or

731

742

timed out */

732

743

733

switch (event) {

744

switch(event) {

734

745

default:

735

746

case AVAHI_RESOLVER_FAILURE:

736

747

fprintf(stderr, "(Avahi Resolver) Failed to resolve service '%s'"

744

755

avahi_address_snprint(ip, sizeof(ip), address);

745

756

if(debug){

746

757

fprintf(stderr, "Mandos server \"%s\" found on %s (%s, %"

747

PRIu16 ") on port %d\n", name, host_name, ip,

748

interface, port);

758

PRIdMAX ") on port %" PRIu16 "\n", name, host_name,

759

ip, (intmax_t)interface, port);

749

760

}

750

761

int ret = start_mandos_communication(ip, port, interface, mc);

751

if (ret == 0){

762

if(ret == 0){

752

763

avahi_simple_poll_quit(mc->simple_poll);

753

764

}

754

765

}

772

783

/* Called whenever a new services becomes available on the LAN or

773

784

is removed from the LAN */

774

785

775

switch (event) {

786

switch(event) {

776

787

default:

777

788

case AVAHI_BROWSER_FAILURE:

778

789

787

798

the callback function is called the Avahi server will free the

788

799

resolver for us. */

789

800

790

if (!(avahi_s_service_resolver_new(mc->server, interface,

801

if(!(avahi_s_service_resolver_new(mc->server, interface,

791

802

protocol, name, type, domain,

792

803

AVAHI_PROTO_INET6, 0,

793

804

resolve_callback, mc)))

811

822

AvahiSServiceBrowser *sb = NULL;

812

823

int error;

813

824

int ret;

825

intmax_t tmpmax;

826

int numchars;

814

827

int exitcode = EXIT_SUCCESS;

815

828

const char *interface = "eth0";

816

829

struct ifreq network;

826

839

mandos_context mc = { .simple_poll = NULL, .server = NULL,

827

840

.dh_bits = 1024, .priority = "SECURE256"

828

841

":!CTYPE-X.509:+CTYPE-OPENPGP" };

829

bool gnutls_initalized = false;

830

bool gpgme_initalized = false;

842

bool gnutls_initialized = false;

843

bool gpgme_initialized = false;

831

844

832

845

{

833

846

struct argp_option options[] = {

862

875

{ .name = NULL }

863

876

};

864

877

865

error_t parse_opt (int key, char *arg,

866

struct argp_state *state) {

867

/* Get the INPUT argument from `argp_parse', which we know is

868

a pointer to our plugin list pointer. */

869

switch (key) {

878

error_t parse_opt(int key, char *arg,

879

struct argp_state *state) {

880

switch(key) {

870

881

case 128: /* --debug */

871

882

debug = true;

872

883

break;

883

894

pubkey = arg;

884

895

break;

885

896

case 129: /* --dh-bits */

886

errno = 0;

887

mc.dh_bits = (unsigned int) strtol(arg, NULL, 10);

888

if (errno){

889

perror("strtol");

897

ret = sscanf(arg, "%" SCNdMAX "%n", &tmpmax, &numchars);

898

if(ret < 1 or tmpmax != (typeof(mc.dh_bits))tmpmax

899

or arg[numchars] != '\0'){

900

fprintf(stderr, "Bad number of DH bits\n");

890

901

exit(EXIT_FAILURE);

891

902

}

903

mc.dh_bits = (typeof(mc.dh_bits))tmpmax;

892

904

break;

893

905

case 130: /* --priority */

894

906

mc.priority = arg;

895

907

break;

896

908

case ARGP_KEY_ARG:

897

argp_usage (state);

909

argp_usage(state);

898

910

case ARGP_KEY_END:

899

911

break;

900

912

default:

907

919

.args_doc = "",

908

920

.doc = "Mandos client -- Get and decrypt"

909

921

" passwords from a Mandos server" };

910

ret = argp_parse (&argp, argc, argv, 0, 0, NULL);

911

if (ret == ARGP_ERR_UNKNOWN){

922

ret = argp_parse(&argp, argc, argv, 0, 0, NULL);

923

if(ret == ARGP_ERR_UNKNOWN){

912

924

fprintf(stderr, "Unknown error while parsing arguments\n");

913

925

exitcode = EXIT_FAILURE;

914

926

goto end;

939

951

goto end;

940

952

}

941

953

}

942

ret = TEMP_FAILURE_RETRY(close(sd));

954

ret = (int)TEMP_FAILURE_RETRY(close(sd));

943

955

if(ret == -1){

944

956

perror("close");

945

957

}

949

961

gid = getgid();

950

962

951

963

ret = setuid(uid);

952

if (ret == -1){

964

if(ret == -1){

953

965

perror("setuid");

954

966

}

955

967

956

968

setgid(gid);

957

if (ret == -1){

969

if(ret == -1){

958

970

perror("setgid");

959

971

}

960

972

961

973

ret = init_gnutls_global(&mc, pubkey, seckey);

962

if (ret == -1){

974

if(ret == -1){

963

975

fprintf(stderr, "init_gnutls_global failed\n");

964

976

exitcode = EXIT_FAILURE;

965

977

goto end;

966

978

} else {

967

gnutls_initalized = true;

979

gnutls_initialized = true;

968

980

}

969

981

970

982

if(mkdtemp(tempdir) == NULL){

974

986

}

975

987

976

988

if(not init_gpgme(&mc, pubkey, seckey, tempdir)){

977

fprintf(stderr, "gpgme_initalized failed\n");

989

fprintf(stderr, "init_gpgme failed\n");

978

990

exitcode = EXIT_FAILURE;

979

991

goto end;

980

992

} else {

981

gpgme_initalized = true;

993

gpgme_initialized = true;

982

994

}

983

995

984

996

if_index = (AvahiIfIndex) if_nametoindex(interface);

996

1008

exitcode = EXIT_FAILURE;

997

1009

goto end;

998

1010

}

999

errno = 0;

1000

uint16_t port = (uint16_t) strtol(address+1, NULL, 10);

1001

if(errno){

1002

perror("Bad port number");

1011

uint16_t port;

1012

ret = sscanf(address+1, "%" SCNdMAX "%n", &tmpmax, &numchars);

1013

if(ret < 1 or tmpmax != (uint16_t)tmpmax

1014

or address[numchars+1] != '\0'){

1015

fprintf(stderr, "Bad port number\n");

1003

1016

exitcode = EXIT_FAILURE;

1004

1017

goto end;

1005

1018

}

1019

port = (uint16_t)tmpmax;

1006

1020

*address = '\0';

1007

1021

address = connect_to;

1008

1022

ret = start_mandos_communication(address, port, if_index, &mc);

1014

1028

goto end;

1015

1029

}

1016

1030

1017

if (not debug){

1031

if(not debug){

1018

1032

avahi_set_log_function(empty_log);

1019

1033

}

1020

1034

1023

1037

1024

1038

/* Allocate main Avahi loop object */

1025

1039

mc.simple_poll = avahi_simple_poll_new();

1026

if (mc.simple_poll == NULL) {

1040

if(mc.simple_poll == NULL) {

1027

1041

fprintf(stderr, "Avahi: Failed to create simple poll"

1028

1042

" object.\n");

1029

1043

exitcode = EXIT_FAILURE;

1049

1063

}

1050

1064

1051

1065

/* Check if creating the Avahi server object succeeded */

1052

if (mc.server == NULL) {

1066

if(mc.server == NULL) {

1053

1067

fprintf(stderr, "Failed to create Avahi server: %s\n",

1054

1068

avahi_strerror(error));

1055

1069

exitcode = EXIT_FAILURE;

1061

1075

AVAHI_PROTO_INET6,

1062

1076

"_mandos._tcp", NULL, 0,

1063

1077

browse_callback, &mc);

1064

if (sb == NULL) {

1078

if(sb == NULL) {

1065

1079

fprintf(stderr, "Failed to create service browser: %s\n",

1066

1080

avahi_strerror(avahi_server_errno(mc.server)));

1067

1081

exitcode = EXIT_FAILURE;

1070

1084

1071

1085

/* Run the main loop */

1072

1086

1073

if (debug){

1087

if(debug){

1074

1088

fprintf(stderr, "Starting Avahi loop search\n");

1075

1089

}

1076

1090

1078

1092

1079

1093

end:

1080

1094

1081

if (debug){

1095

if(debug){

1082

1096

fprintf(stderr, "%s exiting\n", argv[0]);

1083

1097

}

1084

1098

1085

1099

/* Cleanup things */

1086

if (sb != NULL)

1100

if(sb != NULL)

1087

1101

avahi_s_service_browser_free(sb);

1088

1102

1089

if (mc.server != NULL)

1103

if(mc.server != NULL)

1090

1104

avahi_server_free(mc.server);

1091

1105

1092

if (mc.simple_poll != NULL)

1106

if(mc.simple_poll != NULL)

1093

1107

avahi_simple_poll_free(mc.simple_poll);

1094

1108

1095

if (gnutls_initalized){

1109

if(gnutls_initialized){

1096

1110

gnutls_certificate_free_credentials(mc.cred);

1097

gnutls_global_deinit ();

1111

gnutls_global_deinit();

1098

1112

gnutls_dh_params_deinit(mc.dh_params);

1099

1113

}

1100

1114

1101

if(gpgme_initalized){

1115

if(gpgme_initialized){

1102

1116

gpgme_release(mc.ctx);

1103

1117

}

1104

1118

1108

1122

struct dirent *direntry;

1109

1123

d = opendir(tempdir);

1110

1124

if(d == NULL){

1111

perror("opendir");

1125

if(errno != ENOENT){

1126

perror("opendir");

1127

}

1112

1128

} else {

1113

1129

while(true){

1114

1130

direntry = readdir(d);

1115

1131

if(direntry == NULL){

1116

1132

break;

1117

1133

}

1118

if (direntry->d_type == DT_REG){

1119

char *fullname = NULL;

1120

ret = asprintf(&fullname, "%s/%s", tempdir,

1121

direntry->d_name);

1122

if(ret < 0){

1123

perror("asprintf");

1124

continue;

1125

}

1126

ret = unlink(fullname);

1127

if(ret == -1){

1128

fprintf(stderr, "unlink(\"%s\"): %s",

1129

fullname, strerror(errno));

1130

}

1131

free(fullname);

1132

}

1134

/* Skip "." and ".." */

1135

if(direntry->d_name[0] == '.'

1136

and (direntry->d_name[1] == '\0'

1137

or (direntry->d_name[1] == '.'

1138

and direntry->d_name[2] == '\0'))){

1139

continue;

1140

}

1141

char *fullname = NULL;

1142

ret = asprintf(&fullname, "%s/%s", tempdir,

1143

direntry->d_name);

1144

if(ret < 0){

1145

perror("asprintf");

1146

continue;

1147

}

1148

ret = remove(fullname);

1149

if(ret == -1){

1150

fprintf(stderr, "remove(\"%s\"): %s\n", fullname,

1151

strerror(errno));

1152

}

1153

free(fullname);

1133

1154

}

1134

1155

closedir(d);

1135

1156

}

1136

1157

ret = rmdir(tempdir);

1137

if(ret == -1){

1158

if(ret == -1 and errno != ENOENT){

1138

1159

perror("rmdir");

1139

1160

}

1140

1161

}

1141

1162

1142

1163

return exitcode;

1143

1164

}