Initial import of OPIE v2.3 fromvendor/opie/2.3

	ftp://ftp.nrl.navy.mil/pub/security/opie/

1 files changed, 304 insertions, 0 deletions

diff --git a/contrib/opie/libopie/readpass.c b/contrib/opie/libopie/readpass.c
new file mode 100644
index 000000000000..4dc22e2f1f65
--- /dev/null
+++ b/contrib/opie/libopie/readpass.c
@@ -0,0 +1,304 @@
+/* readpass.c: The opiereadpass() library function.
+
+%%% portions-copyright-cmetz
+Portions of this software are Copyright 1996 by Craig Metz, All Rights
+Reserved. The Inner Net License Version 2 applies to these portions of
+the software.
+You should have received a copy of the license with this software. If
+you didn't get a copy, you may request one from <license@inner.net>.
+
+Portions of this software are Copyright 1995 by Randall Atkinson and Dan
+McDonald, All Rights Reserved. All Rights under this copyright are assigned
+to the U.S. Naval Research Laboratory (NRL). The NRL Copyright Notice and
+License Agreement applies to this software.
+
+        History:
+
+	Modified by cmetz for OPIE 2.3. Use TCSAFLUSH always.
+	Modified by cmetz for OPIE 2.22. Replaced echo w/ flags.
+               Really use FUNCTION.
+	Modified by cmetz for OPIE 2.2. Use FUNCTION declaration et al.
+               Flush extraneous characters up to eol. Handle gobs of possible
+               erase and kill keys if on a terminal. To do so, use RAW
+               terminal I/O and handle echo ourselves. (should also help
+               DOS et al portability). Fixed include order. Re-did MSDOS
+	       and OS/2 includes. Set up VMIN and VTIME. Added some non-UNIX
+	       portability cruft. Limit backspacing and killing. In terminal
+               mode, eat random other control characters. Added eof handling.
+        Created at NRL for OPIE 2.2 from opiesubr.c. Change opiestrip_crlf to
+               opiestripcrlf. Don't strip to seven bits. 
+*/
+#include "opie_cfg.h"
+
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>	/* ANSI C standard library */
+
+#ifdef unix
+#include <fcntl.h>      /* POSIX file control function headers */
+#include <termios.h>    /* POSIX Terminal I/O functions */ 
+#if HAVE_UNISTD_H
+#include <unistd.h>     /* POSIX standard definitions */
+#endif /* HAVE_UNISTD_H */
+#include <signal.h>
+#include <setjmp.h>
+#endif /* unix */
+
+#ifdef __MSDOS__
+#include <dos.h>
+#endif /* __MSDOS__ */
+
+#ifdef __OS2__
+#define INCL_KBD
+#include <os2.h>
+#include <io.h>
+#endif /* __OS2__ */
+
+#include "opie.h"
+
+#define CONTROL(x) (x - 64)
+
+char *bsseq = "\b \b";
+
+#ifdef unix
+static jmp_buf jmpbuf;
+
+static VOIDRET catch FUNCTION((i), int i)
+{
+  longjmp(jmpbuf, 1);
+}
+#endif /* unix */
+
+char *opiereadpass FUNCTION((buf, len, flags), char *buf AND int len AND int flags)
+{
+#ifdef unix
+  struct termios attr, orig_attr;
+#endif /* unix */
+  char erase[5];
+  char kill[4];
+  char eof[4];
+
+  memset(erase, 0, sizeof(erase));
+  memset(kill, 0, sizeof(kill));
+  memset(eof, 0, sizeof(eof));
+
+  /* This section was heavily rewritten by rja following the model of code
+     samples circa page 151 of the POSIX Programmer's Guide by Donald Lewine,
+     ISBN 0-937175-73-0. That book is Copyright 1991 by O'Reilly &
+     Associates, Inc. All Rights Reserved. I recommend the book to anyone
+     trying to write portable software. rja */
+
+#ifdef unix
+  if (setjmp(jmpbuf))
+    goto error;
+
+  signal(SIGINT, catch);
+#endif /* unix */
+
+  /* Flush any pending output */
+  fflush(stderr);
+  fflush(stdout);
+
+#ifdef unix
+  /* Get original terminal attributes */
+  if (isatty(0)) {
+    if (tcgetattr(0, &orig_attr))
+      return NULL;
+
+    /* copy terminal settings into attr */
+    memcpy(&attr, &orig_attr, sizeof(struct termios));
+
+    attr.c_lflag &= ~(ECHO | ICANON);
+    attr.c_lflag |= ISIG;
+
+    attr.c_cc[VMIN] = 1;
+    attr.c_cc[VTIME] = 0;
+
+    erase[0] = CONTROL('H');
+    erase[1] = 127;
+
+#ifdef CERASE
+    {
+    char *e = erase;
+
+    while(*e)
+      if (*(e++) == CERASE)
+        break;
+
+    if (!*e)
+      *e = CERASE;
+    }
+#endif /* CERASE */
+#ifdef VERASE
+    {
+    char *e = erase;
+
+    while(*e)
+      if (*(e++) == attr.c_cc[VERASE])
+        break;
+
+    if (!*e)
+      *e = attr.c_cc[VERASE];
+    }
+#endif /* VERASE */
+
+    kill[0] = CONTROL('U');
+#ifdef CKILL
+    {
+    char *e = kill;
+
+    while(*e)
+      if (*(e++) == CKILL)
+        break;
+
+    if (!*e)
+      *e = CKILL;
+    }
+#endif /* CKILL */
+#ifdef VKILL
+    {
+    char *e = kill;
+
+    while(*e)
+      if (*(e++) == attr.c_cc[VKILL])
+        break;
+
+    if (!*e)
+      *e = attr.c_cc[VKILL];
+    }
+#endif /* VKILL */
+
+    eof[0] = CONTROL('D');
+#ifdef CEOF
+    {
+    char *e = eof;
+
+    while(*e)
+      if (*(e++) == CEOF)
+        break;
+
+    if (!*e)
+      *e = CEOF;
+    }
+#endif /* CEOF */
+#ifdef VEOF
+    {
+    char *e = eof;
+
+    while(*e)
+      if (*(e++) == attr.c_cc[VEOF])
+        break;
+
+    if (!*e)
+      *e = VEOF;
+    }
+#endif /* VEOF */
+
+    if (tcsetattr(0, TCSAFLUSH, &attr))
+      goto error;
+  }
+#else /* unix */
+  erase[0] = CONTROL('H');
+  erase[1] = 127;
+  kill[0] = CONTROL('U');
+  eof[0] = CONTROL('D');
+  eof[1] = CONTROL('Z');
+#endif /* unix */
+
+  {
+  char *c = buf, *end = buf + len, *e;
+#ifdef __OS2__
+  KBDKEYINFO keyInfo;
+#endif /* __OS2__ */
+
+loop:
+#ifdef unix
+  if (read(0, c, 1) != 1)
+    goto error;
+#endif /* unix */
+#ifdef MSDOS
+  *c = bdos(7, 0, 0);
+#endif /* MSDOS */
+#ifdef __OS2__
+  KbdCharIn(&keyInfo, 0, 0);
+  *c = keyInfo.chChar;
+#endif /* __OS2__ */
+
+  if ((*c == '\r') || (*c == '\n')) {
+    *c = 0;
+    goto restore;
+  }
+
+  e = eof;
+  while(*e)
+    if (*(e++) == *c)
+      goto error;
+
+  e = erase;
+  while(*e)
+    if (*(e++) == *c) {
+      if (c <= buf)
+	goto beep;
+
+      if (flags & 1)
+        write(1, bsseq, sizeof(bsseq) - 1);
+      c--;
+      goto loop;
+    }
+
+  e = kill;
+  while(*e)
+    if (*(e++) == *c) {
+      if (c <= buf)
+	goto beep;
+
+      if (flags & 1)
+        while(c-- > buf)
+          write(1, bsseq, sizeof(bsseq) - 1);
+
+      c = buf;
+      goto loop;
+    }
+
+  if (c < end) {
+    if (*c < 32)
+      goto beep;
+    if (flags & 1)
+      write(1, c, 1);
+    c++;
+  } else {
+  beep:
+    *c = CONTROL('G');
+    write(1, c, 1);
+  }
+
+  goto loop;
+  }
+
+restore:
+#ifdef unix
+  /* Restore previous tty modes */
+  if (isatty(0))
+    if (tcsetattr(0, TCSAFLUSH, &orig_attr))
+      return NULL;
+
+  signal(SIGINT, SIG_DFL);
+#endif /* unix */
+
+  /* After the secret key is taken from the keyboard, the line feed is
+     written to standard error instead of standard output.  That means that
+     anyone using the program from a terminal won't notice, but capturing
+     standard output will get the key words without a newline in front of
+     them. */
+  if (!(flags & 4)) {
+    fprintf(stderr, "\n");
+    fflush(stderr);
+  }
+
+  return buf;
+
+error:
+  *buf = 0;
+  buf = NULL;
+  goto restore;
+}