new files

git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@885 ec53bebd-3082-4978-b11e-865c3cabbd6b

appl/otp/Makefile.in

@@ -0,0 +1,73 @@
+# $Id$
+
+SHELL = /bin/sh
+
+srcdir = @srcdir@
+VPATH = @srcdir@
+
+topdir = ../..
+
+CC = @CC@
+AR = ar
+RANLIB = @RANLIB@
+DEFS = @DEFS@
+CFLAGS = @CFLAGS@
+LD_FLAGS = @LD_FLAGS@
+INSTALL = @INSTALL@
+LIBS = @LIBS@
+MKINSTALLDIRS = @top_srcdir@/mkinstalldirs
+
+prefix = @prefix@
+exec_prefix = $(prefix)
+libdir = $(exec_prefix)/lib
+libexecdir = $(exec_prefix)/libexec
+bindir = $(exec_prefix)/bin
+
+PROG_BIN	= otp
+PROG_LIBEXEC	= 
+PROGS = $(PROG_BIN) $(PROG_LIBEXEC)
+
+SOURCES_OTP    = otp.c
+
+OBJECTS_OTP    = otp.o
+
+OBJECTS = $(OBJECTS_OTP)
+SOURCES = $(SOURCES_OTP)
+
+all: $(PROGS)
+
+Wall:
+	make CFLAGS="-g -Wall -Wmissing-prototypes -Wmissing-declarations -D__USE_FIXED_PROTOTYPES__"
+
+.c.o:
+	$(CC) -c $(CPPFLAGS) $(DEFS) -I../.. -I../../include -I$(srcdir) -I$(srcdir)/../../include $(CFLAGS) $<
+
+install: all
+	$(MKINSTALLDIRS) $(bindir)
+	for x in $(PROG_BIN); do $(INSTALL) $$x $(bindir); done
+
+uninstall:
+
+TAGS: $(SOURCES)
+	etags $(SOURCES)
+
+check:
+
+clean:
+	rm -f *.a *.o $(PROGS)
+
+mostlyclean: clean
+
+distclean: clean
+	rm -f Makefile *~
+	rm -rf CVS
+
+realclean: distclean
+	rm -f TAGS
+
+OLIB=-L../../lib/otp -lotp -L../../lib/des -ldes -L../../lib/roken -lroken
+
+otp: $(OBJECTS_OTP)
+	$(CC) $(LD_FLAGS) $(LDFLAGS) -o $@ $(OBJECTS_OTP) $(OLIB) $(LIBS)
+
+$(OBJECTS): ../../config.h

appl/otp/otp.c

@@ -0,0 +1,205 @@
+#include "otp_locl.h"
+
+RCSID("$Id$");
+
+char *prog;
+
+static void
+usage ()
+{
+  fprintf(stderr,
+	  "Usage: %s [-h] [-r] [-s] [-n count] [-f alg] num seed\n",
+	  prog);
+  exit (1);
+}
+
+static void
+strlwr (char *s)
+{
+  while(*s) {
+    *s = tolower(*s);
+    s++;
+  }
+}
+
+static int
+renew (int argc, char **argv, int count, OtpAlgorithm *alg, int hexp)
+{
+  struct passwd *pwd;
+  OtpContext oldctx, newctx, *ctx;
+  char *user;
+  char prompt[128];
+  char pw[64];
+  void *dbm;
+  int ret;
+
+  if (argc != 2)
+    usage();
+
+  pwd = getpwuid (getuid ());
+  if (pwd == NULL) {
+    fprintf(stderr, "%s: You don't exist\n", prog);
+    return 1;
+  }
+  user = pwd->pw_name;
+  ctx = &oldctx;
+  if(otp_challenge (ctx, user, prompt, sizeof(prompt)))
+    return 1;
+  des_read_pw_string (pw, sizeof(pw), prompt, 0);
+  ret = otp_verify_user_1 (ctx, pw);
+  if (ret == 0) {
+    newctx.alg = alg;
+    newctx.user = user;
+    newctx.n = atoi (argv[0]);
+    strncpy (newctx.seed, argv[1], sizeof(newctx.seed));
+    newctx.seed[sizeof(newctx.seed) - 1] = '\0';
+    strlwr(newctx.seed);
+    sprintf (prompt, "[ otp-%s %u %s ]",
+	     newctx.alg->name,
+	     newctx.n, 
+	     newctx.seed);
+    des_read_pw_string (pw, sizeof(pw), prompt, 0);
+    if (otp_parse (newctx.key, pw, alg) == 0) {
+      ctx = &newctx;
+    }
+  }
+  dbm = otp_db_open ();
+  if (dbm == NULL) {
+    fprintf (stderr, "%s: otp_db_open failed\n", prog);
+    free (user);
+    return 1;
+  }
+  otp_put (dbm, ctx);
+  otp_db_close (dbm);
+  free (user);
+  return ret;
+}
+
+static int
+set (int argc, char **argv, int count, OtpAlgorithm *alg, int hexp)
+{
+  void *db;
+  OtpContext ctx;
+  struct passwd *pwd;
+  char pw[OTP_MAX_PASSPHRASE + 1];
+  int ret;
+  int i;
+
+  if (argc != 2)
+    usage();
+
+  pwd = getpwuid (getuid ());
+  if (pwd == NULL) {
+    fprintf(stderr, "%s: You don't exist\n", prog);
+    return 1;
+  }
+
+  ctx.alg = alg;
+  ctx.user = strdup (pwd->pw_name);
+  ctx.n = atoi (argv[0]);
+  strncpy (ctx.seed, argv[1], sizeof(ctx.seed));
+  ctx.seed[sizeof(ctx.seed) - 1] = '\0';
+  strlwr(ctx.seed);
+  do {
+    des_read_pw_string (pw, sizeof(pw), "Pass-phrase", 1);
+    if (strlen (pw) < OTP_MIN_PASSPHRASE)
+      printf ("Too short pass-phrase.  Use at least %d characters\n",
+	      OTP_MIN_PASSPHRASE);
+  } while(strlen(pw) < OTP_MIN_PASSPHRASE);
+  ctx.alg->init (ctx.key, pw, ctx.seed);
+  for (i = 0; i < ctx.n; ++i)
+    ctx.alg->next (ctx.key);
+  db = otp_db_open ();
+  if(db == NULL) {
+    fprintf (stderr, "%s: otp_db_open failed\n", prog);
+    free (ctx.user);
+    return 1;
+  }
+  ret = otp_put (db, &ctx);
+  otp_db_close (db);
+  free (ctx.user);
+  return ret;
+}
+
+int
+print (int argc, char **argv, int count, OtpAlgorithm *alg, int hexp)
+{
+  char pw[64];
+  OtpKey key;
+  int n;
+  int i;
+  char *seed;
+
+  if (argc != 2)
+    usage ();
+  n = atoi(argv[0]);
+  seed = argv[1];
+  des_read_pw_string (pw, sizeof(pw), "Password: ", 0);
+  alg->init (key, pw, seed);
+  for (i = 0; i < n; ++i) {
+    char s[30];
+
+    alg->next (key);
+    if (i >= n - count) {
+      if (hexp)
+	otp_print_hex (key, s);
+      else
+	otp_print_stddict (key, s);
+      printf ("%d: %s\n", i + 1, s);
+    }
+  }
+  return 0;
+}
+
+int
+main (int argc, char **argv)
+{
+  int c;
+  int count = 10;
+  int setp = 0;
+  int hexp = 0;
+  int renewp = 0;
+  OtpAlgorithm *alg = otp_find_alg ("md4");
+
+  prog = argv[0];
+
+  while ((c = getopt (argc, argv, "rshn:f:")) != EOF)
+    switch (c) {
+    case 'r' :
+      renewp = 1;
+      break;
+    case 'n' :
+      count = atoi (optarg);
+      break;
+    case 'h' :
+      hexp = 1;
+      break;
+    case 's' :
+      setp = 1;
+      break;
+    case 'f' :
+      alg = otp_find_alg (optarg);
+      if (alg == NULL) {
+	fprintf (stderr, "%s: Unknown algorithm: %s\n", prog, optarg);
+	return 1;
+      }
+      break;
+    default :
+      usage ();
+      break;
+    }
+  if (setp && renewp) {
+    fprintf (stderr, "%s: `-r' and `-s' incompatible\n", prog);
+    return 1;
+  }
+  
+  argc -= optind;
+  argv += optind;
+
+  if (setp)
+    return set (argc, argv, count, alg, hexp);
+  else if (renewp)
+    return renew (argc, argv, count, alg, hexp);
+  else
+    return print (argc, argv, count, alg, hexp);
+}

appl/otp/otp_locl.h

@@ -0,0 +1,18 @@
+/* $Id$ */
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <ctype.h>
+#ifdef HAVE_SYS_TYPES_H
+#include <sys/types.h>
+#endif
+#ifdef HAVE_PWD_H
+#include <pwd.h>
+#endif
+#include <roken.h>
+#include <otp.h>