534 lines
14 KiB
C
534 lines
14 KiB
C
|
/* crypto/des/read_pwd.c */
|
||
|
/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
|
||
|
* All rights reserved.
|
||
|
*
|
||
|
* This package is an SSL implementation written
|
||
|
* by Eric Young (eay@cryptsoft.com).
|
||
|
* The implementation was written so as to conform with Netscapes SSL.
|
||
|
*
|
||
|
* This library is free for commercial and non-commercial use as long as
|
||
|
* the following conditions are aheared to. The following conditions
|
||
|
* apply to all code found in this distribution, be it the RC4, RSA,
|
||
|
* lhash, DES, etc., code; not just the SSL code. The SSL documentation
|
||
|
* included with this distribution is covered by the same copyright terms
|
||
|
* except that the holder is Tim Hudson (tjh@cryptsoft.com).
|
||
|
*
|
||
|
* Copyright remains Eric Young's, and as such any Copyright notices in
|
||
|
* the code are not to be removed.
|
||
|
* If this package is used in a product, Eric Young should be given attribution
|
||
|
* as the author of the parts of the library used.
|
||
|
* This can be in the form of a textual message at program startup or
|
||
|
* in documentation (online or textual) provided with the package.
|
||
|
*
|
||
|
* Redistribution and use in source and binary forms, with or without
|
||
|
* modification, are permitted provided that the following conditions
|
||
|
* are met:
|
||
|
* 1. Redistributions of source code must retain the copyright
|
||
|
* notice, this list of conditions and the following disclaimer.
|
||
|
* 2. Redistributions in binary form must reproduce the above copyright
|
||
|
* notice, this list of conditions and the following disclaimer in the
|
||
|
* documentation and/or other materials provided with the distribution.
|
||
|
* 3. All advertising materials mentioning features or use of this software
|
||
|
* must display the following acknowledgement:
|
||
|
* "This product includes cryptographic software written by
|
||
|
* Eric Young (eay@cryptsoft.com)"
|
||
|
* The word 'cryptographic' can be left out if the rouines from the library
|
||
|
* being used are not cryptographic related :-).
|
||
|
* 4. If you include any Windows specific code (or a derivative thereof) from
|
||
|
* the apps directory (application code) you must include an acknowledgement:
|
||
|
* "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
|
||
|
*
|
||
|
* THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
|
||
|
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
||
|
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
||
|
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
|
||
|
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
||
|
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
||
|
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
||
|
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
||
|
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
||
|
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
||
|
* SUCH DAMAGE.
|
||
|
*
|
||
|
* The licence and distribution terms for any publically available version or
|
||
|
* derivative of this code cannot be changed. i.e. this code cannot simply be
|
||
|
* copied and put under another distribution licence
|
||
|
* [including the GNU Public Licence.]
|
||
|
*/
|
||
|
|
||
|
#include <openssl/e_os2.h>
|
||
|
#if !defined(OPENSSL_SYS_MSDOS) && !defined(OPENSSL_SYS_VMS) && !defined(OPENSSL_SYS_WIN32)
|
||
|
# ifdef OPENSSL_UNISTD
|
||
|
# include OPENSSL_UNISTD
|
||
|
# else
|
||
|
# include <unistd.h>
|
||
|
# endif
|
||
|
/*
|
||
|
* If unistd.h defines _POSIX_VERSION, we conclude that we are on a POSIX
|
||
|
* system and have sigaction and termios.
|
||
|
*/
|
||
|
# if defined(_POSIX_VERSION)
|
||
|
|
||
|
# define SIGACTION
|
||
|
# if !defined(TERMIOS) && !defined(TERMIO) && !defined(SGTTY)
|
||
|
# define TERMIOS
|
||
|
# endif
|
||
|
|
||
|
# endif
|
||
|
#endif
|
||
|
|
||
|
/* Define this if you have sigaction() */
|
||
|
/* #define SIGACTION */
|
||
|
|
||
|
#ifdef WIN16TTY
|
||
|
# undef OPENSSL_SYS_WIN16
|
||
|
# undef _WINDOWS
|
||
|
# include <graph.h>
|
||
|
#endif
|
||
|
|
||
|
/* 06-Apr-92 Luke Brennan Support for VMS */
|
||
|
#include "des_locl.h"
|
||
|
#include "cryptlib.h"
|
||
|
#include <signal.h>
|
||
|
#include <stdio.h>
|
||
|
#include <string.h>
|
||
|
#include <setjmp.h>
|
||
|
#include <errno.h>
|
||
|
|
||
|
#ifdef OPENSSL_SYS_VMS /* prototypes for sys$whatever */
|
||
|
# include <starlet.h>
|
||
|
# ifdef __DECC
|
||
|
# pragma message disable DOLLARID
|
||
|
# endif
|
||
|
#endif
|
||
|
|
||
|
#ifdef WIN_CONSOLE_BUG
|
||
|
# include <windows.h>
|
||
|
# ifndef OPENSSL_SYS_WINCE
|
||
|
# include <wincon.h>
|
||
|
# endif
|
||
|
#endif
|
||
|
|
||
|
/*
|
||
|
* There are 5 types of terminal interface supported, TERMIO, TERMIOS, VMS,
|
||
|
* MSDOS and SGTTY
|
||
|
*/
|
||
|
|
||
|
#if defined(__sgi) && !defined(TERMIOS)
|
||
|
# define TERMIOS
|
||
|
# undef TERMIO
|
||
|
# undef SGTTY
|
||
|
#endif
|
||
|
|
||
|
#if defined(linux) && !defined(TERMIO)
|
||
|
# undef TERMIOS
|
||
|
# define TERMIO
|
||
|
# undef SGTTY
|
||
|
#endif
|
||
|
|
||
|
#ifdef _LIBC
|
||
|
# undef TERMIOS
|
||
|
# define TERMIO
|
||
|
# undef SGTTY
|
||
|
#endif
|
||
|
|
||
|
#if !defined(TERMIO) && !defined(TERMIOS) && !defined(OPENSSL_SYS_VMS) && !defined(OPENSSL_SYS_MSDOS) && !defined(MAC_OS_pre_X) && !defined(MAC_OS_GUSI_SOURCE)
|
||
|
# undef TERMIOS
|
||
|
# undef TERMIO
|
||
|
# define SGTTY
|
||
|
#endif
|
||
|
|
||
|
#if defined(OPENSSL_SYS_VXWORKS)
|
||
|
# undef TERMIOS
|
||
|
# undef TERMIO
|
||
|
# undef SGTTY
|
||
|
#endif
|
||
|
|
||
|
#ifdef TERMIOS
|
||
|
# include <termios.h>
|
||
|
# define TTY_STRUCT struct termios
|
||
|
# define TTY_FLAGS c_lflag
|
||
|
# define TTY_get(tty,data) tcgetattr(tty,data)
|
||
|
# define TTY_set(tty,data) tcsetattr(tty,TCSANOW,data)
|
||
|
#endif
|
||
|
|
||
|
#ifdef TERMIO
|
||
|
# include <termio.h>
|
||
|
# define TTY_STRUCT struct termio
|
||
|
# define TTY_FLAGS c_lflag
|
||
|
# define TTY_get(tty,data) ioctl(tty,TCGETA,data)
|
||
|
# define TTY_set(tty,data) ioctl(tty,TCSETA,data)
|
||
|
#endif
|
||
|
|
||
|
#ifdef SGTTY
|
||
|
# include <sgtty.h>
|
||
|
# define TTY_STRUCT struct sgttyb
|
||
|
# define TTY_FLAGS sg_flags
|
||
|
# define TTY_get(tty,data) ioctl(tty,TIOCGETP,data)
|
||
|
# define TTY_set(tty,data) ioctl(tty,TIOCSETP,data)
|
||
|
#endif
|
||
|
|
||
|
#if !defined(_LIBC) && !defined(OPENSSL_SYS_MSDOS) && !defined(OPENSSL_SYS_VMS) && !defined(MAC_OS_pre_X)
|
||
|
# include <sys/ioctl.h>
|
||
|
#endif
|
||
|
|
||
|
#if defined(OPENSSL_SYS_MSDOS) && !defined(OPENSSL_SYS_WINCE)
|
||
|
# include <conio.h>
|
||
|
# define fgets(a,b,c) noecho_fgets(a,b,c)
|
||
|
#endif
|
||
|
|
||
|
#ifdef OPENSSL_SYS_VMS
|
||
|
# include <ssdef.h>
|
||
|
# include <iodef.h>
|
||
|
# include <ttdef.h>
|
||
|
# include <descrip.h>
|
||
|
struct IOSB {
|
||
|
short iosb$w_value;
|
||
|
short iosb$w_count;
|
||
|
long iosb$l_info;
|
||
|
};
|
||
|
#endif
|
||
|
|
||
|
#if defined(MAC_OS_pre_X) || defined(MAC_OS_GUSI_SOURCE)
|
||
|
/*
|
||
|
* This one needs work. As a matter of fact the code is unoperational
|
||
|
* and this is only a trick to get it compiled.
|
||
|
* <appro@fy.chalmers.se>
|
||
|
*/
|
||
|
# define TTY_STRUCT int
|
||
|
#endif
|
||
|
|
||
|
#ifndef NX509_SIG
|
||
|
# define NX509_SIG 32
|
||
|
#endif
|
||
|
|
||
|
static void read_till_nl(FILE *);
|
||
|
static void recsig(int);
|
||
|
static void pushsig(void);
|
||
|
static void popsig(void);
|
||
|
#if defined(OPENSSL_SYS_MSDOS) && !defined(OPENSSL_SYS_WIN16)
|
||
|
static int noecho_fgets(char *buf, int size, FILE *tty);
|
||
|
#endif
|
||
|
#ifdef SIGACTION
|
||
|
static struct sigaction savsig[NX509_SIG];
|
||
|
#else
|
||
|
static void (*savsig[NX509_SIG]) (int);
|
||
|
#endif
|
||
|
static jmp_buf save;
|
||
|
|
||
|
int des_read_pw_string(char *buf, int length, const char *prompt, int verify)
|
||
|
{
|
||
|
char buff[BUFSIZ];
|
||
|
int ret;
|
||
|
|
||
|
ret =
|
||
|
des_read_pw(buf, buff, (length > BUFSIZ) ? BUFSIZ : length, prompt,
|
||
|
verify);
|
||
|
OPENSSL_cleanse(buff, BUFSIZ);
|
||
|
return (ret);
|
||
|
}
|
||
|
|
||
|
#ifdef OPENSSL_SYS_WINCE
|
||
|
|
||
|
int des_read_pw(char *buf, char *buff, int size, const char *prompt,
|
||
|
int verify)
|
||
|
{
|
||
|
memset(buf, 0, size);
|
||
|
memset(buff, 0, size);
|
||
|
return (0);
|
||
|
}
|
||
|
|
||
|
#elif defined(OPENSSL_SYS_WIN16)
|
||
|
|
||
|
int des_read_pw(char *buf, char *buff, int size, char *prompt, int verify)
|
||
|
{
|
||
|
memset(buf, 0, size);
|
||
|
memset(buff, 0, size);
|
||
|
return (0);
|
||
|
}
|
||
|
|
||
|
#else /* !OPENSSL_SYS_WINCE && !OPENSSL_SYS_WIN16 */
|
||
|
|
||
|
static void read_till_nl(FILE *in)
|
||
|
{
|
||
|
# define SIZE 4
|
||
|
char buf[SIZE + 1];
|
||
|
|
||
|
do {
|
||
|
fgets(buf, SIZE, in);
|
||
|
} while (strchr(buf, '\n') == NULL);
|
||
|
}
|
||
|
|
||
|
/* return 0 if ok, 1 (or -1) otherwise */
|
||
|
int des_read_pw(char *buf, char *buff, int size, const char *prompt,
|
||
|
int verify)
|
||
|
{
|
||
|
# ifdef OPENSSL_SYS_VMS
|
||
|
struct IOSB iosb;
|
||
|
$DESCRIPTOR(terminal, "TT");
|
||
|
long tty_orig[3], tty_new[3];
|
||
|
long status;
|
||
|
unsigned short channel = 0;
|
||
|
# else
|
||
|
# if !defined(OPENSSL_SYS_MSDOS) || defined(__DJGPP__)
|
||
|
TTY_STRUCT tty_orig, tty_new;
|
||
|
# endif
|
||
|
# endif
|
||
|
int number;
|
||
|
int ok;
|
||
|
/*
|
||
|
* statics are simply to avoid warnings about longjmp clobbering things
|
||
|
*/
|
||
|
static int ps;
|
||
|
int is_a_tty;
|
||
|
static FILE *tty;
|
||
|
char *p;
|
||
|
|
||
|
if (setjmp(save)) {
|
||
|
ok = 0;
|
||
|
goto error;
|
||
|
}
|
||
|
|
||
|
number = 5;
|
||
|
ok = 0;
|
||
|
ps = 0;
|
||
|
is_a_tty = 1;
|
||
|
tty = NULL;
|
||
|
|
||
|
# ifdef OPENSSL_SYS_MSDOS
|
||
|
if ((tty = fopen("con", "r")) == NULL)
|
||
|
tty = stdin;
|
||
|
# elif defined(MAC_OS_pre_X) || defined(OPENSSL_SYS_VXWORKS)
|
||
|
tty = stdin;
|
||
|
# else
|
||
|
# ifndef OPENSSL_SYS_MPE
|
||
|
if ((tty = fopen("/dev/tty", "r")) == NULL)
|
||
|
# endif
|
||
|
tty = stdin;
|
||
|
# endif
|
||
|
|
||
|
# if defined(TTY_get) && !defined(OPENSSL_SYS_VMS)
|
||
|
if (TTY_get(fileno(tty), &tty_orig) == -1) {
|
||
|
# ifdef ENOTTY
|
||
|
if (errno == ENOTTY)
|
||
|
is_a_tty = 0;
|
||
|
else
|
||
|
# endif
|
||
|
# ifdef EINVAL
|
||
|
/*
|
||
|
* Ariel Glenn ariel@columbia.edu reports that solaris can return
|
||
|
* EINVAL instead. This should be ok
|
||
|
*/
|
||
|
if (errno == EINVAL)
|
||
|
is_a_tty = 0;
|
||
|
else
|
||
|
# endif
|
||
|
return (-1);
|
||
|
}
|
||
|
memcpy(&(tty_new), &(tty_orig), sizeof(tty_orig));
|
||
|
# endif
|
||
|
# ifdef OPENSSL_SYS_VMS
|
||
|
status = sys$assign(&terminal, &channel, 0, 0);
|
||
|
if (status != SS$_NORMAL)
|
||
|
return (-1);
|
||
|
status =
|
||
|
sys$qiow(0, channel, IO$_SENSEMODE, &iosb, 0, 0, tty_orig, 12, 0, 0,
|
||
|
0, 0);
|
||
|
if ((status != SS$_NORMAL) || (iosb.iosb$w_value != SS$_NORMAL))
|
||
|
return (-1);
|
||
|
# endif
|
||
|
|
||
|
pushsig();
|
||
|
ps = 1;
|
||
|
|
||
|
# ifdef TTY_FLAGS
|
||
|
tty_new.TTY_FLAGS &= ~ECHO;
|
||
|
# endif
|
||
|
|
||
|
# if defined(TTY_set) && !defined(OPENSSL_SYS_VMS)
|
||
|
if (is_a_tty && (TTY_set(fileno(tty), &tty_new) == -1))
|
||
|
# ifdef OPENSSL_SYS_MPE
|
||
|
; /* MPE lies -- echo really has been disabled */
|
||
|
# else
|
||
|
return (-1);
|
||
|
# endif
|
||
|
# endif
|
||
|
# ifdef OPENSSL_SYS_VMS
|
||
|
tty_new[0] = tty_orig[0];
|
||
|
tty_new[1] = tty_orig[1] | TT$M_NOECHO;
|
||
|
tty_new[2] = tty_orig[2];
|
||
|
status =
|
||
|
sys$qiow(0, channel, IO$_SETMODE, &iosb, 0, 0, tty_new, 12, 0, 0, 0,
|
||
|
0);
|
||
|
if ((status != SS$_NORMAL) || (iosb.iosb$w_value != SS$_NORMAL))
|
||
|
return (-1);
|
||
|
# endif
|
||
|
ps = 2;
|
||
|
|
||
|
while ((!ok) && (number--)) {
|
||
|
fputs(prompt, stderr);
|
||
|
fflush(stderr);
|
||
|
|
||
|
buf[0] = '\0';
|
||
|
fgets(buf, size, tty);
|
||
|
if (feof(tty))
|
||
|
goto error;
|
||
|
if (ferror(tty))
|
||
|
goto error;
|
||
|
if ((p = (char *)strchr(buf, '\n')) != NULL)
|
||
|
*p = '\0';
|
||
|
else
|
||
|
read_till_nl(tty);
|
||
|
if (verify) {
|
||
|
fprintf(stderr, "\nVerifying password - %s", prompt);
|
||
|
fflush(stderr);
|
||
|
buff[0] = '\0';
|
||
|
fgets(buff, size, tty);
|
||
|
if (feof(tty))
|
||
|
goto error;
|
||
|
if ((p = (char *)strchr(buff, '\n')) != NULL)
|
||
|
*p = '\0';
|
||
|
else
|
||
|
read_till_nl(tty);
|
||
|
|
||
|
if (strcmp(buf, buff) != 0) {
|
||
|
fprintf(stderr, "\nVerify failure");
|
||
|
fflush(stderr);
|
||
|
break;
|
||
|
/* continue; */
|
||
|
}
|
||
|
}
|
||
|
ok = 1;
|
||
|
}
|
||
|
|
||
|
error:
|
||
|
fprintf(stderr, "\n");
|
||
|
# if 0
|
||
|
perror("fgets(tty)");
|
||
|
# endif
|
||
|
/* What can we do if there is an error? */
|
||
|
# if defined(TTY_set) && !defined(OPENSSL_SYS_VMS)
|
||
|
if (ps >= 2)
|
||
|
TTY_set(fileno(tty), &tty_orig);
|
||
|
# endif
|
||
|
# ifdef OPENSSL_SYS_VMS
|
||
|
if (ps >= 2)
|
||
|
status =
|
||
|
sys$qiow(0, channel, IO$_SETMODE, &iosb, 0, 0, tty_orig, 12, 0, 0,
|
||
|
0, 0);
|
||
|
# endif
|
||
|
|
||
|
if (ps >= 1)
|
||
|
popsig();
|
||
|
if (stdin != tty)
|
||
|
fclose(tty);
|
||
|
# ifdef OPENSSL_SYS_VMS
|
||
|
status = sys$dassgn(channel);
|
||
|
# endif
|
||
|
return (!ok);
|
||
|
}
|
||
|
|
||
|
static void pushsig(void)
|
||
|
{
|
||
|
int i;
|
||
|
# ifdef SIGACTION
|
||
|
struct sigaction sa;
|
||
|
|
||
|
memset(&sa, 0, sizeof(sa));
|
||
|
sa.sa_handler = recsig;
|
||
|
# endif
|
||
|
|
||
|
for (i = 1; i < NX509_SIG; i++) {
|
||
|
# ifdef SIGUSR1
|
||
|
if (i == SIGUSR1)
|
||
|
continue;
|
||
|
# endif
|
||
|
# ifdef SIGUSR2
|
||
|
if (i == SIGUSR2)
|
||
|
continue;
|
||
|
# endif
|
||
|
# ifdef SIGACTION
|
||
|
sigaction(i, &sa, &savsig[i]);
|
||
|
# else
|
||
|
savsig[i] = signal(i, recsig);
|
||
|
# endif
|
||
|
}
|
||
|
|
||
|
# ifdef SIGWINCH
|
||
|
signal(SIGWINCH, SIG_DFL);
|
||
|
# endif
|
||
|
}
|
||
|
|
||
|
static void popsig(void)
|
||
|
{
|
||
|
int i;
|
||
|
|
||
|
for (i = 1; i < NX509_SIG; i++) {
|
||
|
# ifdef SIGUSR1
|
||
|
if (i == SIGUSR1)
|
||
|
continue;
|
||
|
# endif
|
||
|
# ifdef SIGUSR2
|
||
|
if (i == SIGUSR2)
|
||
|
continue;
|
||
|
# endif
|
||
|
# ifdef SIGACTION
|
||
|
sigaction(i, &savsig[i], NULL);
|
||
|
# else
|
||
|
signal(i, savsig[i]);
|
||
|
# endif
|
||
|
}
|
||
|
}
|
||
|
|
||
|
static void recsig(int i)
|
||
|
{
|
||
|
longjmp(save, 1);
|
||
|
# ifdef LINT
|
||
|
i = i;
|
||
|
# endif
|
||
|
}
|
||
|
|
||
|
# ifdef OPENSSL_SYS_MSDOS
|
||
|
static int noecho_fgets(char *buf, int size, FILE *tty)
|
||
|
{
|
||
|
int i;
|
||
|
char *p;
|
||
|
|
||
|
p = buf;
|
||
|
for (;;) {
|
||
|
if (size == 0) {
|
||
|
*p = '\0';
|
||
|
break;
|
||
|
}
|
||
|
size--;
|
||
|
# ifdef WIN16TTY
|
||
|
i = _inchar();
|
||
|
# else
|
||
|
i = getch();
|
||
|
# endif
|
||
|
if (i == '\r')
|
||
|
i = '\n';
|
||
|
*(p++) = i;
|
||
|
if (i == '\n') {
|
||
|
*p = '\0';
|
||
|
break;
|
||
|
}
|
||
|
}
|
||
|
# ifdef WIN_CONSOLE_BUG
|
||
|
/*
|
||
|
* Win95 has several evil console bugs: one of these is that the last
|
||
|
* character read using getch() is passed to the next read: this is
|
||
|
* usually a CR so this can be trouble. No STDIO fix seems to work but
|
||
|
* flushing the console appears to do the trick.
|
||
|
*/
|
||
|
{
|
||
|
HANDLE inh;
|
||
|
inh = GetStdHandle(STD_INPUT_HANDLE);
|
||
|
FlushConsoleInputBuffer(inh);
|
||
|
}
|
||
|
# endif
|
||
|
return (strlen(buf));
|
||
|
}
|
||
|
# endif
|
||
|
#endif /* !OPENSSL_SYS_WINCE && !WIN16 */
|