extensions/m_mkpasswd.c

   1 /*
   2  *  m_mkpasswd.c: Encrypts a password online, DES or MD5.
   3  *
   4  *  Copyright 2002 W. Campbell and the ircd-ratbox development team
   5  *  Based on mkpasswd.c, originally by Nelson Minar (minar@reed.edu)
   6  *
   7  *  You can use this code in any way as long as these names remain.
   8  *
   9  *  $Id: m_mkpasswd.c 3161 2007-01-25 07:23:01Z nenolod $
  10  */
  11
  12 /* List of ircd includes from ../include/ */
  13 #include "stdinc.h"
  14 #include "client.h"
  15 #include "common.h"             /* FALSE bleah */
  16 #include "ircd.h"
  17 #include "match.h"
  18 #include "numeric.h"
  19 #include "s_newconf.h"
  20 #include "s_conf.h"
  21 #include "logger.h"
  22 #include "s_serv.h"
  23 #include "send.h"
  24 #include "msg.h"
  25 #include "parse.h"
  26 #include "modules.h"
  27
  28 #include <string.h>
  29
  30 static int m_mkpasswd(struct Client *client_p, struct Client *source_p,
  31                       int parc, const char *parv[]);
  32 static int mo_mkpasswd(struct Client *client_p, struct Client *source_p,
  33                        int parc, const char *parv[]);
  34 static char *make_salt(void);
  35 static char *make_md5_salt(void);
  36
  37 static char saltChars[] = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789./";
  38
  39
  40 struct Message mkpasswd_msgtab = {
  41         "MKPASSWD", 0, 0, 0, MFLG_SLOW,
  42         {mg_unreg, {m_mkpasswd, 2}, mg_ignore, mg_ignore, mg_ignore, {mo_mkpasswd, 2}}
  43 };
  44
  45 mapi_clist_av1 mkpasswd_clist[] = { &mkpasswd_msgtab, NULL };
  46
  47 DECLARE_MODULE_AV1(mkpasswd, NULL, NULL, mkpasswd_clist, NULL, NULL, "$Revision: 3161 $");
  48
  49
  50 static int
  51 m_mkpasswd(struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
  52 {
  53         static time_t last_used = 0;
  54         int is_md5 = 0;
  55
  56         if((last_used + ConfigFileEntry.pace_wait) > rb_current_time())
  57         {
  58                 /* safe enough to give this on a local connect only */
  59                 sendto_one(source_p, form_str(RPL_LOAD2HI), me.name, parv[0], "MKPASSWD");
  60                 return 0;
  61         }
  62         else
  63         {
  64                 last_used = rb_current_time();
  65         }
  66
  67         if(parc == 3)
  68         {
  69                 if(!irccmp(parv[2], "MD5"))
  70                 {
  71                         is_md5 = 1;
  72                 }
  73                 else if(!irccmp(parv[2], "DES"))
  74                 {
  75                         /* Not really needed, but we may want to have a default encryption
  76                          * setting somewhere down the road
  77                          */
  78                         is_md5 = 0;
  79                 }
  80                 else
  81                 {
  82                         sendto_one_notice(source_p, ":MKPASSWD syntax error:  MKPASSWD pass [DES|MD5]");
  83                         return 0;
  84                 }
  85         }
  86
  87         if(parc == 1)
  88                 sendto_one(source_p, form_str(ERR_NEEDMOREPARAMS), me.name, parv[0], "MKPASSWD");
  89         else
  90                 sendto_one_notice(source_p, ":Encryption for [%s]:  %s",
  91                            parv[1], rb_crypt(parv[1],
  92                                                             is_md5 ? make_md5_salt() :
  93                                                             make_salt()));
  94
  95         return 0;
  96 }
  97
  98 /*
  99 ** mo_test
 100 **      parv[0] = sender prefix
 101 **      parv[1] = parameter
 102 */
 103 static int
 104 mo_mkpasswd(struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
 105 {
 106         int is_md5 = 0;
 107
 108         if(parc == 3)
 109         {
 110                 if(!irccmp(parv[2], "MD5"))
 111                 {
 112                         is_md5 = 1;
 113                 }
 114                 else if(!irccmp(parv[2], "DES"))
 115                 {
 116                         /* Not really needed, but we may want to have a default encryption
 117                          * setting somewhere down the road
 118                          */
 119                         is_md5 = 0;
 120                 }
 121                 else
 122                 {
 123                         sendto_one_notice(source_p,
 124                                    ":MKPASSWD syntax error:  MKPASSWD pass [DES|MD5]");
 125                         return 0;
 126                 }
 127         }
 128
 129         if(parc == 1)
 130                 sendto_one(source_p, form_str(ERR_NEEDMOREPARAMS), me.name, parv[0], "MKPASSWD");
 131         else
 132                 sendto_one_notice(source_p, ":Encryption for [%s]:  %s",
 133                            parv[1], rb_crypt(parv[1], is_md5 ? make_md5_salt() : make_salt()));
 134
 135         return 0;
 136 }
 137
 138 static char *
 139 make_salt(void)
 140 {
 141         static char salt[3];
 142         salt[0] = saltChars[random() % 64];
 143         salt[1] = saltChars[random() % 64];
 144         salt[2] = '\0';
 145         return salt;
 146 }
 147
 148 static char *
 149 make_md5_salt(void)
 150 {
 151         static char salt[13];
 152         int i;
 153         salt[0] = '$';
 154         salt[1] = '1';
 155         salt[2] = '$';
 156         for(i = 3; i < 11; i++)
 157                 salt[i] = saltChars[random() % 64];
 158         salt[11] = '$';
 159         salt[12] = '\0';
 160         return salt;
 161 }