/mandos/trunk : revision 291

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

36

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

37

38

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

39

stdout, ferror() */

39

stdout, ferror(), sscanf(),

40

remove() */

40

41

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

41

42

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

42

43

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

48

49

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

49

50

sockaddr_in6, PF_INET6,

50

51

SOCK_STREAM, INET6_ADDRSTRLEN,

51

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

52

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

53

DIR */

52

54

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

53

55

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

54

56

struct in6_addr, inet_pton(),

55

57

connect() */

56

58

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

57

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

58

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

59

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

60

*/

61

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

59

62

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

60

63

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

61

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

64

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

62

65

#include <net/if.h> /* ioctl, ifreq, SIOCGIFFLAGS, IFF_UP,

63

66

SIOCSIFFLAGS, if_indextoname(),

64

67

if_nametoindex(), IF_NAMESIZE */

67

70

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

68

71

setgid() */

69

72

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

70

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

73

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

71

74

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

72

75

argp_state, struct argp,

73

76

argp_parse(), ARGP_KEY_ARG,

74

77

ARGP_KEY_END, ARGP_ERR_UNKNOWN */

78

#include <sys/klog.h> /* klogctl() */

75

79

76

80

/* Avahi */

77

81

/* All Avahi types, constants and functions

90

94

gnutls_*

91

95

init_gnutls_session(),

92

96

GNUTLS_* */

93

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

97

#include <gnutls/openpgp.h>

98

/* gnutls_certificate_set_openpgp_key_file(),

94

99

GNUTLS_OPENPGP_FMT_BASE64 */

95

100

96

101

/* GPGME */

129

134

*/

130

135

size_t adjustbuffer(char **buffer, size_t buffer_length,

131

136

size_t buffer_capacity){

132

if (buffer_length + BUFFER_SIZE > buffer_capacity){

137

if(buffer_length + BUFFER_SIZE > buffer_capacity){

133

138

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

134

if (buffer == NULL){

139

if(buffer == NULL){

135

140

return 0;

136

141

}

137

142

buffer_capacity += BUFFER_SIZE;

150

155

151

156

152

157

/*

153

* Helper function to insert pub and seckey to the enigne keyring.

158

* Helper function to insert pub and seckey to the engine keyring.

154

159

*/

155

160

bool import_key(const char *filename){

156

161

int fd;

157

162

gpgme_data_t pgp_data;

158

163

159

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

164

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

160

165

if(fd == -1){

161

166

perror("open");

162

167

return false;

163

168

}

164

169

165

170

rc = gpgme_data_new_from_fd(&pgp_data, fd);

166

if (rc != GPG_ERR_NO_ERROR){

171

if(rc != GPG_ERR_NO_ERROR){

167

172

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

168

173

gpgme_strsource(rc), gpgme_strerror(rc));

169

174

return false;

170

175

}

171

176

172

177

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

173

if (rc != GPG_ERR_NO_ERROR){

178

if(rc != GPG_ERR_NO_ERROR){

174

179

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

175

180

gpgme_strsource(rc), gpgme_strerror(rc));

176

181

return false;

177

182

}

178

183

179

ret = TEMP_FAILURE_RETRY(close(fd));

184

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

180

185

if(ret == -1){

181

186

perror("close");

182

187

}

184

189

return true;

185

190

}

186

191

187

if (debug){

192

if(debug){

188

193

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

189

194

}

190

195

191

196

/* Init GPGME */

192

197

gpgme_check_version(NULL);

193

198

rc = gpgme_engine_check_version(GPGME_PROTOCOL_OpenPGP);

194

if (rc != GPG_ERR_NO_ERROR){

199

if(rc != GPG_ERR_NO_ERROR){

195

200

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

196

201

gpgme_strsource(rc), gpgme_strerror(rc));

197

202

return false;

198

203

}

199

204

200

205

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

201

rc = gpgme_get_engine_info (&engine_info);

202

if (rc != GPG_ERR_NO_ERROR){

206

rc = gpgme_get_engine_info(&engine_info);

207

if(rc != GPG_ERR_NO_ERROR){

203

208

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

204

209

gpgme_strsource(rc), gpgme_strerror(rc));

205

210

return false;

219

224

220

225

/* Create new GPGME "context" */

221

226

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

222

if (rc != GPG_ERR_NO_ERROR){

227

if(rc != GPG_ERR_NO_ERROR){

223

228

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

224

229

gpgme_strsource(rc), gpgme_strerror(rc));

225

230

return false;

226

231

}

227

232

228

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

233

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

229

234

return false;

230

235

}

231

236

241

* Decrypt OpenPGP data.

237

242

* Returns -1 on error

238

243

*/

239

static ssize_t pgp_packet_decrypt (const mandos_context *mc,

240

const char *cryptotext,

241

size_t crypto_size,

242

char **plaintext){

244

static ssize_t pgp_packet_decrypt(const mandos_context *mc,

245

const char *cryptotext,

246

size_t crypto_size,

247

char **plaintext){

243

248

gpgme_data_t dh_crypto, dh_plain;

244

249

gpgme_error_t rc;

245

250

ssize_t ret;

246

251

size_t plaintext_capacity = 0;

247

252

ssize_t plaintext_length = 0;

248

253

249

if (debug){

254

if(debug){

250

255

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

251

256

}

252

257

253

258

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

254

259

rc = gpgme_data_new_from_mem(&dh_crypto, cryptotext, crypto_size,

255

260

0);

256

if (rc != GPG_ERR_NO_ERROR){

261

if(rc != GPG_ERR_NO_ERROR){

257

262

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

258

263

gpgme_strsource(rc), gpgme_strerror(rc));

259

264

return -1;

261

266

262

267

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

263

268

rc = gpgme_data_new(&dh_plain);

264

if (rc != GPG_ERR_NO_ERROR){

269

if(rc != GPG_ERR_NO_ERROR){

265

270

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

266

271

gpgme_strsource(rc), gpgme_strerror(rc));

267

272

gpgme_data_release(dh_crypto);

271

276

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

272

277

data buffer */

273

278

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

274

if (rc != GPG_ERR_NO_ERROR){

279

if(rc != GPG_ERR_NO_ERROR){

275

280

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

276

281

gpgme_strsource(rc), gpgme_strerror(rc));

277

282

plaintext_length = -1;

278

if (debug){

283

if(debug){

279

284

gpgme_decrypt_result_t result;

280

285

result = gpgme_op_decrypt_result(mc->ctx);

281

if (result == NULL){

286

if(result == NULL){

282

287

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

283

288

} else {

284

289

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

311

316

}

312

317

313

318

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

314

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

319

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

315

320

perror("gpgme_data_seek");

316

321

plaintext_length = -1;

317

322

goto decrypt_end;

322

327

plaintext_capacity = adjustbuffer(plaintext,

323

328

(size_t)plaintext_length,

324

329

plaintext_capacity);

325

if (plaintext_capacity == 0){

330

if(plaintext_capacity == 0){

326

331

perror("adjustbuffer");

327

332

plaintext_length = -1;

328

333

goto decrypt_end;

331

336

ret = gpgme_data_read(dh_plain, *plaintext + plaintext_length,

332

337

BUFFER_SIZE);

333

338

/* Print the data, if any */

334

if (ret == 0){

339

if(ret == 0){

335

340

/* EOF */

336

341

break;

337

342

}

361

366

return plaintext_length;

362

367

}

363

368

364

static const char * safer_gnutls_strerror (int value) {

365

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

366

if (ret == NULL)

369

static const char * safer_gnutls_strerror(int value) {

370

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

371

-Wunreachable-code */

372

if(ret == NULL)

367

373

ret = "(unknown)";

368

374

return ret;

369

375

}

384

390

}

385

391

386

392

ret = gnutls_global_init();

387

if (ret != GNUTLS_E_SUCCESS) {

388

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

389

safer_gnutls_strerror(ret));

393

if(ret != GNUTLS_E_SUCCESS) {

394

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

395

safer_gnutls_strerror(ret));

390

396

return -1;

391

397

}

392

398

393

if (debug){

399

if(debug){

394

400

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

395

401

* - GnuTLS manual

396

402

*/

400

406

401

407

/* OpenPGP credentials */

402

408

gnutls_certificate_allocate_credentials(&mc->cred);

403

if (ret != GNUTLS_E_SUCCESS){

404

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

405

warning */

406

safer_gnutls_strerror(ret));

407

gnutls_global_deinit ();

409

if(ret != GNUTLS_E_SUCCESS){

410

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

411

* from

412

* -Wunreachable-code

413

*/

414

safer_gnutls_strerror(ret));

415

gnutls_global_deinit();

408

416

return -1;

409

417

}

410

418

417

425

ret = gnutls_certificate_set_openpgp_key_file

418

426

(mc->cred, pubkeyfilename, seckeyfilename,

419

427

GNUTLS_OPENPGP_FMT_BASE64);

420

if (ret != GNUTLS_E_SUCCESS) {

428

if(ret != GNUTLS_E_SUCCESS) {

421

429

fprintf(stderr,

422

430

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

423

431

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

428

436

429

437

/* GnuTLS server initialization */

430

438

ret = gnutls_dh_params_init(&mc->dh_params);

431

if (ret != GNUTLS_E_SUCCESS) {

432

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

433

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

439

if(ret != GNUTLS_E_SUCCESS) {

440

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

441

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

434

442

goto globalfail;

435

443

}

436

444

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

437

if (ret != GNUTLS_E_SUCCESS) {

438

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

439

safer_gnutls_strerror(ret));

445

if(ret != GNUTLS_E_SUCCESS) {

446

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

447

safer_gnutls_strerror(ret));

440

448

goto globalfail;

441

449

}

442

450

457

465

int ret;

458

466

/* GnuTLS session creation */

459

467

ret = gnutls_init(session, GNUTLS_SERVER);

460

if (ret != GNUTLS_E_SUCCESS){

468

if(ret != GNUTLS_E_SUCCESS){

461

469

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

462

470

safer_gnutls_strerror(ret));

463

471

}

465

473

{

466

474

const char *err;

467

475

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

468

if (ret != GNUTLS_E_SUCCESS) {

476

if(ret != GNUTLS_E_SUCCESS) {

469

477

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

470

478

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

471

479

safer_gnutls_strerror(ret));

472

gnutls_deinit (*session);

480

gnutls_deinit(*session);

473

481

return -1;

474

482

}

475

483

}

476

484

477

485

ret = gnutls_credentials_set(*session, GNUTLS_CRD_CERTIFICATE,

478

486

mc->cred);

479

if (ret != GNUTLS_E_SUCCESS) {

487

if(ret != GNUTLS_E_SUCCESS) {

480

488

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

481

489

safer_gnutls_strerror(ret));

482

gnutls_deinit (*session);

490

gnutls_deinit(*session);

483

491

return -1;

484

492

}

485

493

486

494

/* ignore client certificate if any. */

487

gnutls_certificate_server_set_request (*session,

488

GNUTLS_CERT_IGNORE);

495

gnutls_certificate_server_set_request(*session,

496

GNUTLS_CERT_IGNORE);

489

497

490

gnutls_dh_set_prime_bits (*session, mc->dh_bits);

498

gnutls_dh_set_prime_bits(*session, mc->dh_bits);

491

499

492

500

return 0;

493

501

}

501

509

AvahiIfIndex if_index,

502

510

mandos_context *mc){

503

511

int ret, tcp_sd;

512

ssize_t sret;

504

513

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

505

514

char *buffer = NULL;

506

515

char *decrypted_buffer;

512

521

char interface[IF_NAMESIZE];

513

522

gnutls_session_t session;

514

523

515

ret = init_gnutls_session (mc, &session);

516

if (ret != 0){

524

ret = init_gnutls_session(mc, &session);

525

if(ret != 0){

517

526

return -1;

518

527

}

519

528

541

550

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

542

551

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

543

552

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

544

if (ret < 0 ){

553

if(ret < 0 ){

545

554

perror("inet_pton");

546

555

return -1;

547

556

}

549

558

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

550

559

return -1;

551

560

}

552

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

561

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

562

-Wconversion and

563

-Wunreachable-code */

553

564

554

565

to.in6.sin6_scope_id = (uint32_t)if_index;

555

566

568

579

}

569

580

570

581

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

571

if (ret < 0){

582

if(ret < 0){

572

583

perror("connect");

573

584

return -1;

574

585

}

575

586

576

587

const char *out = mandos_protocol_version;

577

588

written = 0;

578

while (true){

589

while(true){

579

590

size_t out_size = strlen(out);

580

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

591

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

581

592

out_size - written));

582

if (ret == -1){

593

if(ret == -1){

583

594

perror("write");

584

595

retval = -1;

585

596

goto mandos_end;

588

599

if(written < out_size){

589

600

continue;

590

601

} else {

591

if (out == mandos_protocol_version){

602

if(out == mandos_protocol_version){

592

603

written = 0;

593

604

out = "\r\n";

594

605

} else {

601

612

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

602

613

}

603

614

604

gnutls_transport_set_ptr (session, (gnutls_transport_ptr_t) tcp_sd);

615

gnutls_transport_set_ptr(session, (gnutls_transport_ptr_t) tcp_sd);

605

616

606

617

do{

607

ret = gnutls_handshake (session);

618

ret = gnutls_handshake(session);

608

619

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

609

620

610

if (ret != GNUTLS_E_SUCCESS){

621

if(ret != GNUTLS_E_SUCCESS){

611

622

if(debug){

612

623

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

613

gnutls_perror (ret);

624

gnutls_perror(ret);

614

625

}

615

626

retval = -1;

616

627

goto mandos_end;

626

637

while(true){

627

638

buffer_capacity = adjustbuffer(&buffer, buffer_length,

628

639

buffer_capacity);

629

if (buffer_capacity == 0){

640

if(buffer_capacity == 0){

630

641

perror("adjustbuffer");

631

642

retval = -1;

632

643

goto mandos_end;

633

644

}

634

645

635

ret = gnutls_record_recv(session, buffer+buffer_length,

636

BUFFER_SIZE);

637

if (ret == 0){

646

sret = gnutls_record_recv(session, buffer+buffer_length,

647

BUFFER_SIZE);

648

if(sret == 0){

638

649

break;

639

650

}

640

if (ret < 0){

641

switch(ret){

651

if(sret < 0){

652

switch(sret){

642

653

case GNUTLS_E_INTERRUPTED:

643

654

case GNUTLS_E_AGAIN:

644

655

break;

645

656

case GNUTLS_E_REHANDSHAKE:

646

657

do{

647

ret = gnutls_handshake (session);

658

ret = gnutls_handshake(session);

648

659

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

649

if (ret < 0){

660

if(ret < 0){

650

661

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

651

gnutls_perror (ret);

662

gnutls_perror(ret);

652

663

retval = -1;

653

664

goto mandos_end;

654

665

}

657

668

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

658

669

" encrypted session with Mandos server\n");

659

670

retval = -1;

660

gnutls_bye (session, GNUTLS_SHUT_RDWR);

671

gnutls_bye(session, GNUTLS_SHUT_RDWR);

661

672

goto mandos_end;

662

673

}

663

674

} else {

664

buffer_length += (size_t) ret;

675

buffer_length += (size_t) sret;

665

676

}

666

677

}

667

678

669

680

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

670

681

}

671

682

672

gnutls_bye (session, GNUTLS_SHUT_RDWR);

683

gnutls_bye(session, GNUTLS_SHUT_RDWR);

673

684

674

if (buffer_length > 0){

685

if(buffer_length > 0){

675

686

decrypted_buffer_size = pgp_packet_decrypt(mc, buffer,

676

687

buffer_length,

677

688

&decrypted_buffer);

678

if (decrypted_buffer_size >= 0){

689

if(decrypted_buffer_size >= 0){

679

690

written = 0;

680

691

while(written < (size_t) decrypted_buffer_size){

681

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

682

(size_t)decrypted_buffer_size - written,

683

stdout);

692

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

693

(size_t)decrypted_buffer_size - written,

694

stdout);

684

695

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

685

696

if(debug){

686

697

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

703

714

704

715

mandos_end:

705

716

free(buffer);

706

ret = TEMP_FAILURE_RETRY(close(tcp_sd));

717

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

707

718

if(ret == -1){

708

719

perror("close");

709

720

}

710

gnutls_deinit (session);

721

gnutls_deinit(session);

711

722

return retval;

712

723

}

713

724

731

742

/* Called whenever a service has been resolved successfully or

732

743

timed out */

733

744

734

switch (event) {

745

switch(event) {

735

746

default:

736

747

case AVAHI_RESOLVER_FAILURE:

737

748

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

745

756

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

746

757

if(debug){

747

758

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

748

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

749

interface, port);

759

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

760

ip, (intmax_t)interface, port);

750

761

}

751

762

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

752

if (ret == 0){

763

if(ret == 0){

753

764

avahi_simple_poll_quit(mc->simple_poll);

754

765

}

755

766

}

773

784

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

774

785

is removed from the LAN */

775

786

776

switch (event) {

787

switch(event) {

777

788

default:

778

789

case AVAHI_BROWSER_FAILURE:

779

790

788

799

the callback function is called the Avahi server will free the

789

800

resolver for us. */

790

801

791

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

802

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

792

803

protocol, name, type, domain,

793

804

AVAHI_PROTO_INET6, 0,

794

805

resolve_callback, mc)))

812

823

AvahiSServiceBrowser *sb = NULL;

813

824

int error;

814

825

int ret;

826

intmax_t tmpmax;

827

int numchars;

815

828

int exitcode = EXIT_SUCCESS;

816

829

const char *interface = "eth0";

817

830

struct ifreq network;

820

833

gid_t gid;

821

834

char *connect_to = NULL;

822

835

char tempdir[] = "/tmp/mandosXXXXXX";

836

bool tempdir_created = false;

823

837

AvahiIfIndex if_index = AVAHI_IF_UNSPEC;

824

838

const char *seckey = PATHDIR "/" SECKEY;

825

839

const char *pubkey = PATHDIR "/" PUBKEY;

827

841

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

828

842

.dh_bits = 1024, .priority = "SECURE256"

829

843

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

830

bool gnutls_initalized = false;

831

bool gpgme_initalized = false;

844

bool gnutls_initialized = false;

845

bool gpgme_initialized = false;

846

double delay = 2.5;

832

847

833

848

{

834

849

struct argp_option options[] = {

860

875

.arg = "STRING",

861

876

.doc = "GnuTLS priority string for the TLS handshake",

862

877

.group = 1 },

878

{ .name = "delay", .key = 131,

879

.arg = "SECONDS",

880

.doc = "Maximum delay to wait for interface startup",

881

.group = 2 },

863

882

{ .name = NULL }

864

883

};

865

884

866

error_t parse_opt (int key, char *arg,

867

struct argp_state *state) {

868

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

869

a pointer to our plugin list pointer. */

870

switch (key) {

885

error_t parse_opt(int key, char *arg,

886

struct argp_state *state) {

887

switch(key) {

871

888

case 128: /* --debug */

872

889

debug = true;

873

890

break;

884

901

pubkey = arg;

885

902

break;

886

903

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

887

errno = 0;

888

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

889

if (errno){

890

perror("strtol");

904

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

905

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

906

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

907

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

891

908

exit(EXIT_FAILURE);

892

909

}

910

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

893

911

break;

894

912

case 130: /* --priority */

895

913

mc.priority = arg;

896

914

break;

915

case 131: /* --delay */

916

ret = sscanf(arg, "%lf%n", &delay, &numchars);

917

if(ret < 1 or arg[numchars] != '\0'){

918

fprintf(stderr, "Bad delay\n");

919

exit(EXIT_FAILURE);

920

}

921

break;

897

922

case ARGP_KEY_ARG:

898

argp_usage (state);

923

argp_usage(state);

899

924

case ARGP_KEY_END:

900

925

break;

901

926

default:

908

933

.args_doc = "",

909

934

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

910

935

" passwords from a Mandos server" };

911

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

912

if (ret == ARGP_ERR_UNKNOWN){

936

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

937

if(ret == ARGP_ERR_UNKNOWN){

913

938

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

914

939

exitcode = EXIT_FAILURE;

915

940

goto end;

918

943

919

944

/* If the interface is down, bring it up */

920

945

{

946

/* Lower kernel loglevel to KERN_NOTICE to avoid KERN_INFO

947

messages to mess up the prompt */

948

ret = klogctl(8, NULL, 5);

949

if(ret == -1){

950

perror("klogctl");

951

}

952

921

953

sd = socket(PF_INET6, SOCK_DGRAM, IPPROTO_IP);

922

954

if(sd < 0) {

923

955

perror("socket");

924

956

exitcode = EXIT_FAILURE;

957

ret = klogctl(7, NULL, 0);

958

if(ret == -1){

959

perror("klogctl");

960

}

925

961

goto end;

926

962

}

927

963

strcpy(network.ifr_name, interface);

928

964

ret = ioctl(sd, SIOCGIFFLAGS, &network);

929

965

if(ret == -1){

930

966

perror("ioctl SIOCGIFFLAGS");

967

ret = klogctl(7, NULL, 0);

968

if(ret == -1){

969

perror("klogctl");

970

}

931

971

exitcode = EXIT_FAILURE;

932

972

goto end;

933

973

}

937

977

if(ret == -1){

938

978

perror("ioctl SIOCSIFFLAGS");

939

979

exitcode = EXIT_FAILURE;

980

ret = klogctl(7, NULL, 0);

981

if(ret == -1){

982

perror("klogctl");

983

}

940

984

goto end;

941

985

}

942

986

}

943

ret = TEMP_FAILURE_RETRY(close(sd));

987

/* sleep checking until interface is running */

988

for(int i=0; i < delay * 4; i++){

989

ret = ioctl(sd, SIOCGIFFLAGS, &network);

990

if(ret == -1){

991

perror("ioctl SIOCGIFFLAGS");

992

} else if(network.ifr_flags & IFF_RUNNING){

993

break;

994

}

995

struct timespec sleeptime = { .tv_nsec = 250000000 };

996

nanosleep(&sleeptime, NULL);

997

}

998

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

944

999

if(ret == -1){

945

1000

perror("close");

946

1001

}

1002

/* Restores kernel loglevel to default */

1003

ret = klogctl(7, NULL, 0);

1004

if(ret == -1){

1005

perror("klogctl");

1006

}

947

1007

}

948

1008

949

1009

uid = getuid();

950

1010

gid = getgid();

951

1011

1012

setgid(gid);

1013

if(ret == -1){

1014

perror("setgid");

1015

}

1016

952

1017

ret = setuid(uid);

953

if (ret == -1){

1018

if(ret == -1){

954

1019

perror("setuid");

955

1020

}

956

1021

957

setgid(gid);

958

if (ret == -1){

959

perror("setgid");

960

}

961

962

1022

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

963

if (ret == -1){

1023

if(ret == -1){

964

1024

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

965

1025

exitcode = EXIT_FAILURE;

966

1026

goto end;

967

1027

} else {

968

gnutls_initalized = true;

1028

gnutls_initialized = true;

969

1029

}

970

1030

971

1031

if(mkdtemp(tempdir) == NULL){

972

1032

perror("mkdtemp");

973

tempdir[0] = '\0';

974

1033

goto end;

975

1034

}

1035

tempdir_created = true;

976

1036

977

1037

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

978

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

1038

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

979

1039

exitcode = EXIT_FAILURE;

980

1040

goto end;

981

1041

} else {

982

gpgme_initalized = true;

1042

gpgme_initialized = true;

983

1043

}

984

1044

985

1045

if_index = (AvahiIfIndex) if_nametoindex(interface);

986

1046

if(if_index == 0){

987

1047

fprintf(stderr, "No such interface: \"%s\"\n", interface);

988

exit(EXIT_FAILURE);

1048

exitcode = EXIT_FAILURE;

1049

goto end;

989

1050

}

990

1051

991

1052

if(connect_to != NULL){

997

1058

exitcode = EXIT_FAILURE;

998

1059

goto end;

999

1060

}

1000

errno = 0;

1001

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

1002

if(errno){

1003

perror("Bad port number");

1061

uint16_t port;

1062

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

1063

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

1064

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

1065

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

1004

1066

exitcode = EXIT_FAILURE;

1005

1067

goto end;

1006

1068

}

1069

port = (uint16_t)tmpmax;

1007

1070

*address = '\0';

1008

1071

address = connect_to;

1009

1072

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

1015

1078

goto end;

1016

1079

}

1017

1080

1018

if (not debug){

1081

if(not debug){

1019

1082

avahi_set_log_function(empty_log);

1020

1083

}

1021

1084

1024

1087

1025

1088

/* Allocate main Avahi loop object */

1026

1089

mc.simple_poll = avahi_simple_poll_new();

1027

if (mc.simple_poll == NULL) {

1090

if(mc.simple_poll == NULL) {

1028

1091

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

1029

1092

" object.\n");

1030

1093

exitcode = EXIT_FAILURE;

1050

1113

}

1051

1114

1052

1115

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

1053

if (mc.server == NULL) {

1116

if(mc.server == NULL) {

1054

1117

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

1055

1118

avahi_strerror(error));

1056

1119

exitcode = EXIT_FAILURE;

1062

1125

AVAHI_PROTO_INET6,

1063

1126

"_mandos._tcp", NULL, 0,

1064

1127

browse_callback, &mc);

1065

if (sb == NULL) {

1128

if(sb == NULL) {

1066

1129

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

1067

1130

avahi_strerror(avahi_server_errno(mc.server)));

1068

1131

exitcode = EXIT_FAILURE;

1071

1134

1072

1135

/* Run the main loop */

1073

1136

1074

if (debug){

1137

if(debug){

1075

1138

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

1076

1139

}

1077

1140

1078

1141

avahi_simple_poll_loop(mc.simple_poll);

1079

1142

1080

1143

end:

1081

1144

1082

if (debug){

1145

if(debug){

1083

1146

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

1084

1147

}

1085

1148

1086

1149

/* Cleanup things */

1087

if (sb != NULL)

1150

if(sb != NULL)

1088

1151

avahi_s_service_browser_free(sb);

1089

1152

1090

if (mc.server != NULL)

1153

if(mc.server != NULL)

1091

1154

avahi_server_free(mc.server);

1092

1155

1093

if (mc.simple_poll != NULL)

1156

if(mc.simple_poll != NULL)

1094

1157

avahi_simple_poll_free(mc.simple_poll);

1095

1158

1096

if (gnutls_initalized){

1159

if(gnutls_initialized){

1097

1160

gnutls_certificate_free_credentials(mc.cred);

1098

gnutls_global_deinit ();

1161

gnutls_global_deinit();

1099

1162

gnutls_dh_params_deinit(mc.dh_params);

1100

1163

}

1101

1164

1102

if(gpgme_initalized){

1165

if(gpgme_initialized){

1103

1166

gpgme_release(mc.ctx);

1104

1167

}

1105

1168

1106

1169

/* Removes the temp directory used by GPGME */

1107

if(tempdir[0] != '\0'){

1170

if(tempdir_created){

1108

1171

DIR *d;

1109

1172

struct dirent *direntry;

1110

1173

d = opendir(tempdir);

1111

1174

if(d == NULL){

1112

perror("opendir");

1175

if(errno != ENOENT){

1176

perror("opendir");

1177

}

1113

1178

} else {

1114

1179

while(true){

1115

1180

direntry = readdir(d);

1116

1181

if(direntry == NULL){

1117

1182

break;

1118

1183

}

1119

if (direntry->d_type == DT_REG){

1120

char *fullname = NULL;

1121

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

1122

direntry->d_name);

1123

if(ret < 0){

1124

perror("asprintf");

1125

continue;

1126

}

1127

ret = unlink(fullname);

1128

if(ret == -1){

1129

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

1130

fullname, strerror(errno));

1131

}

1132

free(fullname);

1133

}

1184

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

1185

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

1186

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

1187

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

1188

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

1189

continue;

1190

}

1191

char *fullname = NULL;

1192

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

1193

direntry->d_name);

1194

if(ret < 0){

1195

perror("asprintf");

1196

continue;

1197

}

1198

ret = remove(fullname);

1199

if(ret == -1){

1200

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

1201

strerror(errno));

1202

}

1203

free(fullname);

1134

1204

}

1135

1205

closedir(d);

1136

1206

}

1137

1207

ret = rmdir(tempdir);

1138

if(ret == -1){

1208

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

1139

1209

perror("rmdir");

1140

1210

}

1141

1211

}

1142

1212

1143

1213

return exitcode;

1144

1214

}