server/admin.c: Publish `corked' and `mobile' flags in `peerinfo'.

[tripe] / server / chal.c

/* -*-c-*-
 *
 * Cryptographic challenges
 *
 * (c) 2005 Straylight/Edgeware
 */

/*----- Licensing notice --------------------------------------------------*
 *
 * This file is part of Trivial IP Encryption (TrIPE).
 *
 * TrIPE is free software: you can redistribute it and/or modify it under
 * the terms of the GNU General Public License as published by the Free
 * Software Foundation; either version 3 of the License, or (at your
 * option) any later version.
 *
 * TrIPE is distributed in the hope that it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
 * for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with TrIPE.  If not, see <https://www.gnu.org/licenses/>.
 */

/*----- Header files ------------------------------------------------------*/

#include "tripe.h"

/*----- Static variables --------------------------------------------------*/

static bulkchal *bulk;
static uint32 oseq;
static seqwin iseq;

/*----- Main code ---------------------------------------------------------*/

/* --- @c_genkey@ --- *
 *
 * Arguments:	---
 *
 * Returns:	---
 *
 * Use:		Generates a new challenge key.
 */

static void c_genkey(void)
{
  if (bulk && bulk->ops == master->algs.bulk->ops && oseq < 0x07ffffff)
    return;
  if (bulk) bulk->ops->freechal(bulk);
  bulk = master->algs.bulk->ops->genchal(master->algs.bulk);
  bulk->ops = master->algs.bulk->ops;
  oseq = 0;
  seq_reset(&iseq);
}

/* --- @c_new@ --- *
 *
 * Arguments:	@buf *b@ = where to put the challenge
 *
 * Returns:	Zero if OK, nonzero on error.
 *
 * Use:		Issues a new challenge.
 */

int c_new(buf *b)
{
  octet *p;

  c_genkey();
  p = BCUR(b);
  if (buf_putu32(b, oseq++) || !buf_get(b, bulk->tagsz)) return (-1);
  if (bulk->ops->chaltag(bulk, p, 4, p + 4)) return (-1);
  IF_TRACING(T_CHAL, {
    trace(T_CHAL, "chal: issuing challenge %lu", (unsigned long)(oseq - 1));
    trace_block(T_CRYPTO, "chal: challenge block", p, BCUR(b) - p);
  })
  return (0);
}

/* --- @c_check@ --- *
 *
 * Arguments:	@buf *b@ = where to find the challenge
 *
 * Returns:	Zero if OK, nonzero if it didn't work.
 *
 * Use:		Checks a challenge.  On failure, the buffer is broken.
 */

int c_check(buf *b)
{
  const octet *p;
  size_t sz;
  uint32 seq;

  if (!bulk) {
    a_warn("CHAL", "impossible-challenge", A_END);
    goto fail;
  }
  sz = 4 + bulk->tagsz;
  if ((p = buf_get(b, sz)) == 0) {
    a_warn("CHAL", "invalid-challenge", A_END);
    goto fail;
  }
  IF_TRACING(T_CHAL, trace_block(T_CRYPTO, "chal: check challenge", p, sz); )
  if (bulk->ops->chalvrf(bulk, p, 4, p + 4)) {
    a_warn("CHAL", "incorrect-tag", A_END);
    goto fail;
  }
  seq = LOAD32(p);
  if (seq_check(&iseq, seq, "CHAL"))
    goto fail;
  T( trace(T_CHAL, "chal: checked challenge %lu", (unsigned long)seq); )
  return (0);

fail:
  buf_break(b);
  return (-1);
}

/*----- That's all, folks -------------------------------------------------*/