123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521 |
- /* 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 SIGACTION */ /* Define this if you have 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(__CYGWIN32__) && !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 */
|