开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 网络编程 > 查看源码
popauth.c
资源名称：qpopper2.53.tar.Z　[点击查看]
上传用户：dayuan858
上传日期：2007-01-04
资源大小：194k
文件大小：13k
源码类别：

网络编程

开发平台：

Unix_Linux

popauth.c：源码内容
  1. /*
  2.  * Copyright (c) 1997 by Qualcomm Incorporated.
  3.  */
  5. /*  */
  6. /* popauth.c - manipulate POP authorization DB */
  7. #include <config.h>
  8. #ifdef GDBM
  9. # include <gdbm.h>
  10. #else
  11. # if HAVE_NDBM_H
  12. #  include <ndbm.h>
  13. # else
  14. #  if HAVE_DBM_H
  15. #   include <dbm.h>
  16. #  endif
  17. # endif
  18. #endif
  19. #include <pwd.h>
  20. #include <stdio.h>
  21. #ifdef __STDC__
  22. #include <stdlib.h>
  23. #include <stdarg.h>
  24. #else
  25. #include <varargs.h>
  26. #endif
  27. #include <sys/types.h>
  28. #include <sys/stat.h>
  29. #include <fcntl.h>
  30. #include <errno.h>
  31. #include <string.h>
  33. #ifndef HAVE_BCOPY
  34. #define bcopy(src,dest,len) (void) (memcpy(dest,src,len))
  35. #define bzero(dest,len)   (void) (memset(dest, (char)NULL, len))
  36. #define bcmp(b1,b2,n) memcmp(b1,b2,n)
  37. #endif
  38. #ifndef HAVE_INDEX
  39. # define index(s,c) strchr(s,c)
  40. # define rindex(s,c) strrchr(s,c)
  41. #endif
  42. #include <flock.h>
  43. #if HAVE_STRINGS_H
  44. #include <strings.h>
  45. #endif
  46. #if HAVE_SYS_FILE_H
  47. #include <sys/file.h>
  48. #endif
  50. #ifdef BSDI
  51. #define BSD44_DBM
  52. #endif
  54. #ifndef HAVE_STRERROR
  55. char *strerror();
  56. #endif
  58. #define UID_T uid_t
  60. static struct swit {
  61. char *name;
  62. } switches[] = {
  63. #define INITSW 0
  64.     "init", 
  65. #define LISTSW 1
  66.     "list", 
  67. #define USERSW 2
  68.     "user", 
  69. #define DELESW 3
  70.     "delete", 
  72.     NULL,
  73. };
  75. static char   *program;
  77. #ifdef __STDC__
  78. static void
  79. adios(const char *fmt, ...)
  80. #else
  81. static void
  82. adios(va_alist)
  83. va_dcl
  84. #endif
  85. {
  86. va_list ap;
  87. #ifndef __STDC__
  88. char *fmt;
  89. #endif
  91. (void) fprintf(stderr, "%s: ", program);
  92. #ifdef __STDC__
  93. va_start(ap, fmt);
  94. #else
  95. va_start(ap);
  96. fmt = va_arg(ap, char *);
  97. #endif
  98. (void) vfprintf(stderr, fmt, ap);
  99. (void) fprintf(stderr, "n");
  100. va_end(fmt);
  101. exit(1);
  102. /*NOTREACHED*/
  103. }
  105. #ifndef HAVE_STRDUP
  106. #include <stddef.h>
  108. char *
  109. strdup(str)
  110.         char *str;
  111. {
  112.     int len;
  113.     char *copy;
  115.     len = strlen(str) + 1;
  116.     if (!(copy = malloc((u_int)len)))
  117. return((char *)NULL);
  118.     bcopy(str, copy, len);
  119.     return(copy);
  120. }
  121. #endif
  123. /*
  124.  * Obscure password so a cleartext search doesn't come up with
  125.  * something interesting.
  126.  *
  127.  */
  129. char *
  130. obscure(string)
  131. char *string;
  132. {
  133. unsigned char *cp, *newstr;
  135. cp = newstr = (unsigned char *)strdup(string);
  137. while (*cp) {
  138.     *cp++ ^= 0xff;
  139. }
  141. return((char *)newstr);
  142. }
  144. /* Use GNU_PASS for longer passwords on systems that support termios */
  146. #ifndef GNU_PASS
  147. char *getpass();
  148. #else
  150. /* Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc.
  151. This file is part of the GNU C Library.
  153. The GNU C Library is free software; you can redistribute it and/or
  154. modify it under the terms of the GNU Library General Public License as
  155. published by the Free Software Foundation; either version 2 of the
  156. License, or (at your option) any later version.
  158. The GNU C Library is distributed in the hope that it will be useful,
  159. but WITHOUT ANY WARRANTY; without even the implied warranty of
  160. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  161. Library General Public License for more details.
  163. You should have received a copy of the GNU Library General Public
  164. License along with the GNU C Library; see the file COPYING.LIB.  If
  165. not, write to the Free Software Foundation, Inc., 675 Mass Ave,
  166. Cambridge, MA 02139, USA.  */
  168. /* It is desireable to use this bit on systems that have it.
  169.    The only bit of terminal state we want to twiddle is echoing, which is
  170.    done in software; there is no need to change the state of the terminal
  171.    hardware.  */
  173. #include <stdio.h>
  174. #include <termios.h>
  175. #include <unistd.h>
  177. #ifndef TCSASOFT
  178. #define TCSASOFT 0
  179. #endif
  181. #ifdef SSIZET
  182. typedef SSIZET ssize_t;
  183. #endif
  185. char *
  186. getpass (prompt)
  187. #if defined(HPUX)
  188. char *prompt;
  189. #else
  190. const char *prompt;
  191. #endif
  192. {
  193.   FILE *in, *out;
  194.   struct termios t;
  195.   int echo_off;
  196.   static char *buf = NULL;
  197.   static size_t bufsize = 0;
  198.   ssize_t nread;
  200.   /* Try to write to and read from the terminal if we can.
  201.      If we can't open the terminal, use stderr and stdin.  */
  203.   in = fopen ("/dev/tty", "w+");
  204.   if (in == NULL)
  205.     {
  206.       in = stdin;
  207.       out = stderr;
  208.     }
  209.   else
  210.     out = in;
  212.   /* Turn echoing off if it is on now.  */
  214.   if (tcgetattr (fileno (in), &t) == 0)
  215.     {
  216.       if (t.c_lflag & ECHO)
  217. {
  218.   t.c_lflag &= ~ECHO;
  219.   echo_off = tcsetattr (fileno (in), TCSAFLUSH|TCSASOFT, &t) == 0;
  220.   t.c_lflag |= ECHO;
  221. }
  222.       else
  223. echo_off = 0;
  224.     }
  225.   else
  226.     echo_off = 0;
  228.   /* Write the prompt.  */
  229.   fputs (prompt, out);
  230.   fflush (out);
  232.   /* Read the password.  */
  233. #ifdef NO_GETLINE
  234.   bufsize = 256;
  235.   buf = (char *)malloc(256);
  236.   nread = (fgets(buf, (size_t)bufsize, in) == NULL) ? 1 : strlen(buf);
  237.   rewind(in);
  238.   fputc('n', out);
  239. #else
  240.   nread = __getline (&buf, &bufsize, in);
  241. #endif
  242.   if (nread < 0 && buf != NULL)
  243.     buf[0] = '';
  244.   else if (buf[nread - 1] == 'n')
  245.     /* Remove the newline.  */
  246.     buf[nread - 1] = '';
  248.   /* Restore echoing.  */
  249.   if (echo_off)
  250.     (void) tcsetattr (fileno (in), TCSAFLUSH|TCSASOFT, &t);
  252.   if (in != stdin)
  253.     /* We opened the terminal; now close it.  */
  254.     fclose (in);
  256.   return buf;
  257. }
  258. #endif
  260. /* ARGSUSED */
  262. main (argc, argv)
  263. int argc;
  264. char   *argv[];
  265. {
  266.     UID_T   myuid;
  267.     int     flags,
  268.     i,
  269.     delesw = 0,
  270.     initsw = 0,
  271.     insist,
  272.     listsw = 0,
  273.     popuser = 0;
  274.     long    clock;
  275.     char   *bp,
  276.    *cp,
  277.    *usersw = NULL,
  278.     buf[100],
  279.     obuf[100];
  280.     struct  passwd *pw;
  281.     datum   key,
  282.     value;
  283. #ifdef GDBM
  284. GDBM_FILE db;
  285. char  apop_file[BUFSIZ];
  286. #else 
  287.     DBM    *db;
  288.     char    apop_dir[BUFSIZ];
  289. #ifndef BSD44_DBM
  290.     char    apop_pag[BUFSIZ];
  291. #endif
  292. #endif
  293.     int     f;
  295.     program = argv[0];
  296.     argv++;
  297.     argc--;
  299.     while (argc > 0) {
  300. cp = argv[0];
  301. if (*cp == '-') {
  302.     int i, v;
  304.     i = 0;
  305.     v = -1;
  306.     for(i = 0; switches[i].name; i++) {
  307. if(strcmp(&cp[1], switches[i].name) == 0) {
  308. v = i;
  309. break;
  310. }
  311.     }
  312.     cp++;
  313.     switch (v) {
  314. default:
  315.     adios ("-%s unknown option", cp);
  316. case INITSW:
  317.     initsw = 1, listsw = 0; delesw = 0;
  318.     break;
  319. case LISTSW:
  320.     listsw = 1, initsw = 0; delesw = 0;
  321.     break;
  322. case DELESW:
  323.     delesw = 1, initsw = 0; listsw = 0;
  324.     if (argc < 2 || argv[1][0] == '-')
  325. adios ("missing argument to %s", argv[0]);
  326.     usersw = argv[1];
  327.     argc--;
  328.     argv++;
  329.     break;
  330. case USERSW:
  331.     if (argc < 2 || argv[1][0] == '-')
  332. adios ("missing argument to %s", argv[0]);
  333.     usersw = argv[1];
  334.     argc--;
  335.     argv++;
  336.     if (delesw)
  337. fprintf(stderr, "Warning: user '%s' will now be deletedn", usersw);
  338.     break;
  339.     }
  340. }
  341. else
  342.     adios ("usage: %s [[-init]|[-list]|[-user name]|[-delete name]]", program);
  343. argc--;
  344. argv++;
  345.     }
  348. #ifndef APOP
  349.     adios ("not compiled with APOP option");
  350. #else
  352.     myuid = getuid();
  354.     if ((pw = getpwnam (POPUID)) == NULL)
  355. adios (""%s": user-id unknown", POPUID);
  357.     if (pw->pw_uid == myuid)
  358. popuser = 1;
  360.     if (myuid && !popuser && (delesw || initsw || listsw || (usersw != NULL)))
  361. adios("Only superuser or user '%s' can perform the requested function",
  362.     POPUID);
  364.     if (myuid && initsw)
  365. adios("Only superuser can init the database");
  366. #ifdef GDBM
  367. (void) strncpy(apop_file, APOP, sizeof(apop_file) - 1);
  368. apop_file[sizeof(apop_file)-1] = '';
  369. #else
  370.     (void) strncpy(apop_dir, APOP, sizeof(apop_dir) - 5);
  371. #ifdef BSD44_DBM
  372.     (void) strcat(apop_dir, ".db");
  373. #else
  374.     (void) strncpy(apop_pag, APOP, sizeof(apop_pag) - 5);
  375.     (void) strcat(apop_pag, ".pag");
  376.     (void) strcat(apop_dir, ".dir");
  377. #endif
  378. #endif
  380.     if (delesw) {
  381. if (myuid && !popuser)
  382.     adios ("Only root or %s may delete entries", POPUID);
  384. #ifdef GDBM
  385. if ((db = gdbm_open(apop_file,512,GDBM_WRITER,0,0)) == NULL)
  386. #else
  387. if ((db = dbm_open (APOP, O_RDWR, 0)) == NULL)
  388. #endif
  389.     adios ("%s: unable to open POP authorization DB", APOP);
  391. key.dsize = strlen (key.dptr = usersw) + 1;
  393. #ifdef GDBM
  394. value = gdbm_fetch(db, key);
  395. #else
  396. value = dbm_fetch(db, key);
  397. #endif
  398. if (value.dptr == NULL)
  399.     adios("User '%s' not found in apop database", usersw);
  401. #ifdef GDBM
  402. if (gdbm_delete(db,key) < 0)
  403. #else
  404. if (dbm_delete(db, key) < 0)
  405. #endif
  406.     adios("Unable to delete user '%s' from apop database", usersw);
  408. #ifdef GDBM
  409. gdbm_close (db);
  410. #else
  411. dbm_close (db);
  412. #endif
  414. exit (0);
  415.     }
  417.     if (initsw) {
  418. struct stat st;
  420. setuid(myuid);
  422. #ifdef GDBM
  423. if (stat (apop_file, &st) != -1) 
  424. #else
  425. if (stat (apop_dir, &st) != -1) 
  426. #endif
  427. {
  428.     char ibuf[30];
  430.     printf("Really initialize POP authorization DB? ");
  431.     if(fgets(ibuf, sizeof(ibuf), stdin) == NULL || ibuf[0] != 'y')
  432. exit (1);
  433. #ifdef GDBM
  434. (void) unlink (apop_file);
  435. #else
  436.     (void) unlink (apop_dir);
  437. # ifndef BSD44_DBM
  438.     (void) unlink (apop_pag);
  439. # endif
  440. #endif
  441. }
  442. #ifdef GDBM
  443. if ((db = gdbm_open (apop_file, 512, GDBM_WRCREAT, 0600, 0)) == NULL)
  444.     adios ("unable to create POP authorization DB: %s", 
  445.      strerror(errno));
  446. gdbm_close (db);
  447. if (chown (apop_file, pw->pw_uid, pw->pw_gid) == -1)
  448.     adios ("error setting ownership of POP authorization for %s : %s", 
  449. apop_file, strerror(errno));
  450. #else
  451. if ((db = dbm_open (APOP, O_RDWR | O_CREAT, 0600)) == NULL)
  452.     adios ("unable to create POP authorization DB: %s", 
  453.      strerror(errno));
  454. dbm_close (db);
  455. if (chown (apop_dir, pw->pw_uid, pw->pw_gid) == -1 
  456. #ifndef BSD44_DBM
  457.  || chown (apop_pag, pw->pw_uid, pw->pw_gid) == -1
  458. #endif
  459.     )
  460.     adios ("error setting ownership of POP authorization DB: %s", 
  461. strerror(errno));
  462. #endif
  464. exit (0);
  465.     }
  467. #ifdef GDBM
  468.     if ((db = gdbm_open (apop_file, 512, GDBM_READER, 0, 0)) == NULL)
  469. #else
  470.     if ((db = dbm_open (APOP, O_RDONLY, 0)) == NULL)
  471. #endif
  472. adios ("unable to open POP authorization DB: %s", strerror(errno));
  474. #ifdef GDBM
  475.     if ((f = open (apop_file, listsw ? O_RDONLY : O_RDWR)) == -1)
  476. adios ("%s: unable to open POP authorization DB", apop_file);
  477.     if (flock (f, LOCK_SH) == -1)
  478. adios ("%s: unable to lock POP authorization DB", apop_file);
  479. #else
  480.     if ((f = open (apop_dir, listsw ? O_RDONLY : O_RDWR)) == -1)
  481. adios ("%s: unable to open POP authorization DB", apop_dir);
  482.     if (flock (f, LOCK_SH) == -1)
  483. adios ("%s: unable to lock POP authorization DB", apop_dir);
  484. #endif
  487.     if (listsw) {
  488. if (usersw) {
  489.     key.dsize = strlen (key.dptr = usersw) + 1;
  490. #ifdef GDBM
  491.     value = gdbm_fetch (db, key);
  492. #else
  493.     value = dbm_fetch (db, key);
  494. #endif
  495.     if (value.dptr == NULL)
  496. adios ("no such entry in POP authorization DB");
  497.     printf ("%sn", key.dptr);
  498. }
  499. else
  500. #ifdef GDBM
  501.     for (key = gdbm_firstkey (db); key.dptr; key = gdbm_nextkey (db,key)) 
  502. #else
  503.     for (key = dbm_firstkey (db); key.dptr; key = dbm_nextkey (db)) 
  504. #endif
  505. {
  506. printf ("%s", key.dptr);
  507. #ifdef GDBM
  508. value = gdbm_fetch (db, key);
  509. #else
  510. value = dbm_fetch (db, key);
  511. #endif
  512. if (value.dptr == NULL)
  513.     printf (" - no information?!?n");
  514. else {
  515.     printf ("n");
  516. }
  517.     }
  519. #ifdef GDBM
  520. gdbm_close (db);
  521. #else
  522. dbm_close (db);
  523. #endif
  525. exit (0);
  526.     }
  528.     if (usersw == NULL) {
  529. if ((pw = getpwuid(myuid)) == NULL)
  530.     adios("Sorry, don't know who uid %d is.", myuid);
  531. usersw = pw->pw_name;
  532.     } else {
  533. if ((pw = getpwnam(usersw)) == NULL)
  534.     adios("Sorry, don't know who uid %s is.", usersw);
  535. usersw = pw->pw_name;
  536.     }
  538.     fprintf (stderr, "Changing POP password for %s.n", usersw);
  540.     key.dsize = strlen (key.dptr = usersw) + 1;
  541. #ifdef GDBM
  542.     value = gdbm_fetch (db, key);
  543. #else
  544.     value = dbm_fetch (db, key);
  545. #endif
  546.     if (myuid && !popuser && value.dptr != NULL) {
  547. if (((i = strlen(strncpy(obuf, getpass("Old password:"), sizeof(obuf)))) == 0) ||
  548. ((value.dsize - 1) != i) ||
  549. (strncmp(obuf, value.dptr, i) &&
  550.      strncmp(obuf, obscure(value.dptr), i))) {
  551.     adios("Sorry, password entered incorrectlyn");
  552. }
  553.     }
  554. #ifdef GDBM
  555.     gdbm_close (db);
  556. #else
  557. dbm_close (db);
  558. #endif
  560. #ifdef lint
  561.     flags = 0;
  562. #endif /* lint */
  563.     for (insist = 0; insist < 2; insist++) {
  564. int i;
  565. char    c;
  567. if (insist)
  568.     printf ("Please use %s.n",
  569.     flags == 1 ? "at least one non-numeric character"
  570.     : "a longer password");
  572. if (((i = strlen(strncpy(buf, getpass("New password:"), sizeof(buf)))) == 0) ||
  573.       !strncmp(buf, obuf, i)) {
  574.     fprintf (stderr, "Password unchanged.n");
  575.     exit (1);
  576. }
  578. flags = 0;
  579. for (cp = buf; c = *cp++;)
  580.     if (c >= 'a' && c <= 'z')
  581. flags |= 2;
  582.     else
  583. if (c >= 'A' && c <= 'Z')
  584.     flags |= 4;
  585. else
  586.     if (c >= '0' && c <= '9')
  587. flags |= 1;
  588.     else
  589. flags |= 8;
  591. if ((flags >= 7 && i >= 4)
  592. || ((flags == 2 || flags == 4) && i >= 6)
  593. || ((flags == 3 || flags == 5 || flags == 6) && i >= 5))
  594.     break;
  595.     }
  597.     if (strcmp(buf, getpass("Retype new password:"))) {
  598. fprintf (stderr, "Mismatch - password unchanged.n");
  599. exit (1);
  600.     }
  602. #ifdef GDBM
  603. if ((db = gdbm_open(apop_file, 512, GDBM_WRITER, 0, 0)) == NULL)
  604. #else
  605.     if ((db = dbm_open(APOP, O_RDWR, 0)) == NULL)
  606. #endif
  607. adios("%s: unable to open POP authorization DB", APOP);
  609.     if (flock(f, LOCK_EX) == -1)
  610. adios("%s: unable to lock POP authorization DB", 
  611. #ifdef GDBM
  612. apop_file
  613. #else
  614. apop_dir
  615. #endif
  616. );
  618.     key.dsize = strlen (key.dptr = usersw) + 1;
  620.     value.dptr = obscure(buf);
  621.     value.dsize = strlen(value.dptr) + 1;
  623. #ifdef GDBM
  624.     if (gdbm_store (db, key, value, GDBM_REPLACE))
  625. adios ("POP authorization DB may be corrupt?!?");
  626.     gdbm_close (db);
  627. #else
  628.     if (dbm_store (db, key, value, DBM_REPLACE))
  629. adios ("POP authorization DB may be corrupt?!?");
  630.     dbm_close (db);
  631. #endif
  632. #endif
  634.     exit (0);
  635.     /* NOTREACHED */
  636. }
  638. #ifndef HAVE_STRERROR
  639. char *
  640. strerror(e)
  641. int e;
  642. {
  643. extern char *sys_errlist[];
  644. extern int sys_nerr;
  646. if(e < sys_nerr)
  647. return(sys_errlist[e]);
  648. else
  649. return("unknown error");
  650. }
  651. #endif