home *** CD-ROM | disk | FTP | other *** search
/ ftp.qualcomm.com / 2014.06.ftp.qualcomm.com.tar / ftp.qualcomm.com / eudora / servers / unix / password / pwserve-2 < prev    next >
Text File  |  1997-03-26  |  7KB  |  212 lines
  1. To: sdorner@qualcomm.com
  2. Subject: Password daemon for MH/Eudora
  3. Organisation: BNR Europe, HARLOW, Essex CM17 9NA, GB
  4. Phone: +44 279 402423
  5. From: Andrew Macpherson (Postmaster) <A.Macpherson@bnr.co.uk>
  6.  
  7.  
  8. Steve,
  9.  
  10. Thanks for helping John Bingham out so much.  Since you've added a password
  11. changer, here is a daemon for those sites which use MH bpop (ie pop support
  12. for non unix users from a unix host).  If it doesn't work the way you want
  13. I'll happily make changes.
  14.  
  15. #!/usr/bin/perl
  16. #
  17. # Author Andrew Macpherson
  18. #       <A.Macpherson@bnr.co.uk>
  19. #       /DD.ID=1248566/G=Andrew/S=Macpherson/PRMD=BNR/ADMD= /C=GB/
  20. #        to support the eudora password change protocol
  21. #
  22. # Entry for /etc/services:
  23. #       epass      106/tcp 
  24. # And for /etc/inetd.conf:
  25. #       epass      stream  tcp     nowait  pop  /path/to/in.poppass
  26. #
  27. # $Header: /tmp_mnt/u/andrew/andrew/src/poppass/RCS/in.poppass,v 1.4 14/11/92 16:29:12 andrew Exp $
  28. #
  29. # $Log: in.poppass,v $
  30. # Revision 1.4  14/11/92  16:29:12  andrew
  31. # Inetd looping with wait, admin features not so usefull
  32. # 
  33. # Revision 1.3  14/11/92  15:32:42  andrew
  34. # Add admin password reset capability
  35. # 
  36. # Revision 1.2  14/11/92  15:05:21  andrew
  37. # Off by 1 report of existing accounts.
  38. # 
  39. # Make use of the locking given by only allowing 1 daemon to
  40. # add users without losing password changes.
  41. # 
  42. # Revision 1.1  14/11/92  14:10:23  andrew
  43. # Initial revision
  44. # 
  45.  
  46. $| = 1;
  47. $Id = '$Id: in.poppass,v 1.4 14/11/92 16:29:12 andrew Exp $';
  48. $perl = '/usr/bin/perl' ;       # Used in system() later
  49.  
  50. $MyName="POPpass" ;
  51. require "syslog.pl";
  52. &openlog($MyName,"pid,cons,nowait", "auth");
  53.  
  54. $\ = "\r\n" ; # Set output seperator for chitchat over tcp
  55. chop( $host=`hostname` );
  56.  
  57. ( $me, $pop_pass, $b, $c, $d, $e, $f, $dir, $g ) = getpwnam("pop") ;
  58.  
  59. if ( ! $dir || ! -w $dir . '/POP' || ! chdir($dir) ) {
  60.     print "420 Configuration error, please tell postmaster@$host" ;
  61.     &syslog("notice", "Cannot access ${dir}/POP");
  62.     &closelog();
  63.     die;
  64. }
  65.  
  66. print "200 hello $host POP password service" ;
  67.  
  68. $user = '';
  69. $curcrypt = '' ;
  70. $newcrypt = '' ;
  71.  
  72. while(<>) {
  73.     chop;
  74.   ( $action, $arg, $extra ) = split(/\s+/, $_);
  75.     if ( $action =~ m/^user$/i ) {
  76.         $user = $arg ;
  77.         $curcrypt = '' ;
  78.         print "300 Hello $arg, please prove it with your password" ;
  79.     } elsif ( $action =~ m/^pass$/i ) {
  80.         $curcrypt = '' ;
  81.         if ( $user eq '' ) {
  82.             print "400 I need to know who you claim to be first" ;
  83.             next ;
  84.         }
  85.         &ValidUser($user, $arg) ; # Sets $curcrypt if true
  86.         if ($curcrypt eq '') {
  87.             &syslog('notice', "invalid POP password offered for $user");
  88.             sleep(20);  # Slow him down
  89.             print "500 Imposter! I have issued a security alert" ;
  90.             last;
  91.         }
  92.         if ( $user eq 'pop' ) {
  93.             print "200 Hail Oh great and glorious leader" ;
  94.         } else {
  95.             print "200 Ok, Now I believe you are $user" ;
  96.         }
  97.         &syslog('info', "POP user $user validated");
  98.     } elsif ( $action =~ m/^newpass$/i ) {
  99.         if ( $user eq '' ) {
  100.             print "400 Who are you? Logon with USER and PASS first" ;
  101.             next ;
  102.         }
  103.         if ( $curcrypt eq '' ) {
  104.             print "401 Until you give me your old password," .
  105.                      " I have to believe you are an Imposter";
  106.             next ;
  107.         }
  108.         if (crypt($arg, $curcrypt) eq $curcrypt) {
  109.             print "402 No it isn't, it's the same" ;
  110.             next;
  111.         }
  112.         $newcrypt = crypt($arg, substr($curcrypt,1,2));
  113.         $ok = system("$perl -pi.bak " .
  114.                "-e 's:$curcrypt:$newcrypt: if m/^$user:/ ;' POP" ) ;
  115.         if ( $ok / 256 ) {
  116.             print "500 Sorry, update failed" ;
  117.         } else {
  118.             print "200 OK";
  119.             $curcrypt = $newcrypt ;
  120.         }
  121.     } elsif ( $action =~ m/^quit$/i ) {
  122.         print "200 $host, Glad to help" ;
  123.         last ;
  124.     } elsif ( $action =~ m/^status$/i ) {
  125.         print "200 " . ($user eq '' ? "no user" : "user $user") .
  126.                  ($curcrypt eq '' ? ' not' : '') . ' authenticated' ;
  127.     } elsif ( $action =~ m/^version$/i ) {
  128.         print "200 $MyName $Id" ;
  129.     } elsif ( $action =~ m/^help$/i ) {
  130.         print "200 Supported actions:" .
  131.                  " USER PASS NEWPASS HELP QUIT STATUS VERSION" .
  132.                  (( $user eq 'pop' && $curcrypt ne '')
  133.                  ? " NEWUSER SETPASS" : "");
  134.     } elsif ( $user eq 'pop' && $curcrypt ne '' && $action =~ m/^newuser$/i ) {
  135.         if ( $arg ne '' && $extra ne '' ) {
  136.             &NewUser($arg, $extra) ;
  137.         } else {
  138.             print "400 Newuser user pass" ;
  139.         }
  140.     } elsif ( $user eq 'pop' && $curcrypt ne ''
  141.                     && $action =~ m/^setpass$/i
  142.                     && $arg ne '' && $extra ne '' ) {
  143.         $newcrypt = crypt($extra, substr($curcrypt,1,2));
  144.         $ok = system("$perl -pi.bak " .
  145.                "-e 's|$arg::$arg.*|$arg::$arg:$newcrypt::::::0| ;' POP" ) ;
  146.         if ( $ok / 256 ) {
  147.             print "500 Sorry, update failed" ;
  148.         } else {
  149.             print "200 OK";
  150.             $curcrypt = $newcrypt ;
  151.         }
  152.     } else {
  153.         print "400 I don't understand '$action' try help" ;
  154.     }
  155. }
  156. &closelog();
  157. exit 0;
  158.  
  159. sub ValidUser {
  160.     local($user, $pass) = @_ ;
  161.  
  162.     if ( $user eq 'pop' ) {
  163.         $curcrypt = $pop_pass if (crypt($pass, $pop_pass) eq $pop_pass);
  164.         return ;
  165.     }
  166.     $curcrypt = '';             # Just in case
  167.     open(POP, '<' . "POP") ;
  168.     @entry = grep(/^$user:/, <POP>);
  169.     close POP;
  170.     if ($#entry == -1) {
  171.         &syslog('notice', "POP user $user does not exist");
  172.         return;
  173.     }
  174.     if ($#entry != 0) {
  175.         $accts = $#entry + 1;
  176.         print "520 there are $accts POP accounts for $user" ;
  177.         &syslog('notice', "POP user $user has $accts accounts");
  178.         &closelog();
  179.         exit 1;
  180.     }
  181.     $entry = shift(@entry);
  182.   ( $a, $b, $c, $ppass, @rest) = split(/:/, $entry) ;
  183.     $curcrypt = $ppass if (crypt($pass, $ppass) eq $ppass);
  184. }
  185.  
  186. sub NewUser {
  187.     local($user, $pass) = @_ ;
  188.  
  189.     open(POP, '<' . "POP") ;
  190.     @entry = grep(/^$user:/, <POP>);
  191.     close POP;
  192.     if ($#entry != -1) {
  193.         &syslog('notice', "POP user $user already exists");
  194.         print "500 $user exists" ;
  195.         return ;
  196.     }
  197.     open(POP, '>>' . 'POP') ;
  198.     printf POP "$user::$user:" . crypt($pass, '//') . "::::::0\n" ;
  199.     close POP ;
  200.     print "200 $user added" ;
  201. }
  202. __END__
  203. This program was written to support Steve Dorner's Eudora program password
  204. changing routine for systems using the MH/pop.
  205.  
  206. It is released for general use.
  207.  
  208. Andrew Macpherson reserves and asserts the right to be known as the
  209. author of this work.
  210.  
  211.  
  212.