X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=libraries%2Fliblutil%2Fpasswd.c;h=f3a727d150bcf18e5acde5b34372cbb90fd98c8b;hb=5ee926446579ba94fe5a2c125966b738b46ffc3b;hp=50f526f04e0563933cd4d8d36a08c35e9857d5e2;hpb=11761fa6ca31d5bfd4195f5de559ee6644ff207b;p=openldap diff --git a/libraries/liblutil/passwd.c b/libraries/liblutil/passwd.c index 50f526f04e..f3a727d150 100644 --- a/libraries/liblutil/passwd.c +++ b/libraries/liblutil/passwd.c @@ -1,6 +1,6 @@ /* $OpenLDAP$ */ /* - * Copyright 1998-2002 The OpenLDAP Foundation, All Rights Reserved. + * Copyright 1998-2003 The OpenLDAP Foundation, All Rights Reserved. * COPYING RESTRICTIONS APPLY, see COPYRIGHT file */ /* @@ -78,127 +78,67 @@ static const unsigned char crypt64[] = static char *salt_format = NULL; #endif -struct pw_scheme; - -typedef int (*PASSWD_CHK_FUNC)( - const struct pw_scheme *scheme, - const struct berval *passwd, - const struct berval *cred ); - -typedef struct berval * (*PASSWD_HASH_FUNC) ( - const struct pw_scheme *scheme, - const struct berval *passwd ); - struct pw_scheme { struct berval name; - PASSWD_CHK_FUNC chk_fn; - PASSWD_HASH_FUNC hash_fn; + LUTIL_PASSWD_CHK_FUNC *chk_fn; + LUTIL_PASSWD_HASH_FUNC *hash_fn; +}; + +struct pw_slist { + struct pw_slist *next; + struct pw_scheme s; }; /* password check routines */ -static int chk_md5( - const struct pw_scheme *scheme, - const struct berval *passwd, - const struct berval *cred ); -static int chk_smd5( - const struct pw_scheme *scheme, - const struct berval *passwd, - const struct berval *cred ); +static LUTIL_PASSWD_CHK_FUNC chk_md5; +static LUTIL_PASSWD_CHK_FUNC chk_smd5; +static LUTIL_PASSWD_HASH_FUNC hash_smd5; +static LUTIL_PASSWD_HASH_FUNC hash_md5; -#ifdef LUTIL_SHA1_BYTES -static int chk_ssha1( - const struct pw_scheme *scheme, - const struct berval *passwd, - const struct berval *cred ); -static int chk_sha1( - const struct pw_scheme *scheme, - const struct berval *passwd, - const struct berval *cred ); +#ifdef LUTIL_SHA1_BYTES +static LUTIL_PASSWD_CHK_FUNC chk_ssha1; +static LUTIL_PASSWD_CHK_FUNC chk_sha1; +static LUTIL_PASSWD_HASH_FUNC hash_sha1; +static LUTIL_PASSWD_HASH_FUNC hash_ssha1; #endif #ifdef SLAPD_LMHASH -static int chk_lanman( - const struct pw_scheme *scheme, - const struct berval *passwd, - const struct berval *cred ); +static LUTIL_PASSWD_CHK_FUNC chk_lanman; +static LUTIL_PASSWD_HASH_FUNC hash_lanman; #endif -#ifdef SLAPD_NT_MTA_MD5 -static int chk_nt_mta_md5( - const struct pw_scheme *scheme, - const struct berval *passwd, - const struct berval *cred ); +#ifdef SLAPD_NS_MTA_MD5 +static LUTIL_PASSWD_CHK_FUNC chk_ns_mta_md5; #endif #ifdef SLAPD_SPASSWD -static int chk_sasl( - const struct pw_scheme *scheme, - const struct berval *passwd, - const struct berval *cred ); +static LUTIL_PASSWD_CHK_FUNC chk_sasl; #endif #ifdef SLAPD_KPASSWD -static int chk_kerberos( - const struct pw_scheme *scheme, - const struct berval *passwd, - const struct berval *cred ); +static LUTIL_PASSWD_CHK_FUNC chk_kerberos; #endif #ifdef SLAPD_CRYPT -static int chk_crypt( - const struct pw_scheme *scheme, - const struct berval *passwd, - const struct berval *cred ); +static LUTIL_PASSWD_CHK_FUNC chk_crypt; +static LUTIL_PASSWD_HASH_FUNC hash_crypt; #if defined( HAVE_GETPWNAM ) && defined( HAVE_PW_PASSWD ) -static int chk_unix( - const struct pw_scheme *scheme, - const struct berval *passwd, - const struct berval *cred ); +static LUTIL_PASSWD_CHK_FUNC chk_unix; #endif #endif - -#ifdef LUTIL_SHA1_BYTES /* password hash routines */ -static struct berval *hash_sha1( - const struct pw_scheme *scheme, - const struct berval *passwd ); - -static struct berval *hash_ssha1( - const struct pw_scheme *scheme, - const struct berval *passwd ); -#endif - -static struct berval *hash_smd5( - const struct pw_scheme *scheme, - const struct berval *passwd ); - -static struct berval *hash_md5( - const struct pw_scheme *scheme, - const struct berval *passwd ); - -#ifdef SLAPD_LMHASH -static struct berval *hash_lanman( - const struct pw_scheme *scheme, - const struct berval *passwd ); -#endif - -#ifdef SLAPD_CRYPT -static struct berval *hash_crypt( - const struct pw_scheme *scheme, - const struct berval *passwd ); -#endif #ifdef SLAPD_CLEARTEXT -static struct berval *hash_clear( - const struct pw_scheme *scheme, - const struct berval *passwd ); +static LUTIL_PASSWD_HASH_FUNC hash_clear; #endif -static const struct pw_scheme pw_schemes[] = +static struct pw_slist *pw_schemes; + +static const struct pw_scheme pw_schemes_default[] = { #ifdef LUTIL_SHA1_BYTES { BER_BVC("{SSHA}"), chk_ssha1, hash_ssha1 }, @@ -212,9 +152,9 @@ static const struct pw_scheme pw_schemes[] = { BER_BVC("{LANMAN}"), chk_lanman, hash_lanman }, #endif /* SLAPD_LMHASH */ -#ifdef SLAPD_NT_MTA_MD5 - { BER_BVC("{NT-MTA-MD5}"), chk_nt_mta_md5, NULL }, -#endif /* SLAPD_NT_MTA_MD5 */ +#ifdef SLAPD_NS_MTA_MD5 + { BER_BVC("{NS-MTA-MD5}"), chk_ns_mta_md5, NULL }, +#endif /* SLAPD_NS_MTA_MD5 */ #ifdef SLAPD_SPASSWD { BER_BVC("{SASL}"), chk_sasl, NULL }, @@ -232,23 +172,60 @@ static const struct pw_scheme pw_schemes[] = #endif #ifdef SLAPD_CLEARTEXT - /* psuedo scheme */ + /* pseudo scheme */ { {0, "{CLEARTEXT}"}, NULL, hash_clear }, #endif { BER_BVNULL, NULL, NULL } }; +int lutil_passwd_add( + struct berval *scheme, + LUTIL_PASSWD_CHK_FUNC *chk, + LUTIL_PASSWD_HASH_FUNC *hash ) +{ + struct pw_slist *ptr; + + ptr = ber_memalloc( sizeof( struct pw_slist )); + if (!ptr) return -1; + ptr->next = pw_schemes; + ptr->s.name = *scheme; + ptr->s.chk_fn = chk; + ptr->s.hash_fn = hash; + pw_schemes = ptr; + return 0; +} + +void lutil_passwd_init() +{ + struct pw_slist *ptr; + struct pw_scheme *s; + + for( s=(struct pw_scheme *)pw_schemes_default; s->name.bv_val; s++) { + if ( lutil_passwd_add( &s->name, s->chk_fn, s->hash_fn )) break; + } +} + +void lutil_passwd_destroy() +{ + struct pw_slist *ptr, *next; + + for( ptr=pw_schemes; ptr; ptr=next ) { + next = ptr->next; + ber_memfree( ptr ); + } +} + static const struct pw_scheme *get_scheme( const char* scheme ) { - int i; + struct pw_slist *pws; - for( i=0; pw_schemes[i].name.bv_val; i++) { - if( pw_schemes[i].name.bv_val == NULL ) continue; + if (!pw_schemes) lutil_passwd_init(); - if( strcasecmp(scheme, pw_schemes[i].name.bv_val ) == 0 ) { - return &pw_schemes[i]; + for( pws=pw_schemes; pws; pws=pws->next ) { + if( strcasecmp(scheme, pws->s.name.bv_val ) == 0 ) { + return &(pws->s); } } @@ -311,9 +288,12 @@ int lutil_passwd( const struct berval *passwd, /* stored passwd */ const struct berval *cred, /* user cred */ - const char **schemes ) + const char **schemes, + const char **text ) { - int i; + struct pw_slist *pws; + + if ( text ) *text = NULL; if (cred == NULL || cred->bv_len == 0 || passwd == NULL || passwd->bv_len == 0 ) @@ -321,14 +301,16 @@ lutil_passwd( return -1; } - for( i=0; pw_schemes[i].name.bv_val != NULL; i++ ) { - if( pw_schemes[i].chk_fn ) { + if (!pw_schemes) lutil_passwd_init(); + + for( pws=pw_schemes; pws; pws=pws->next ) { + if( pws->s.chk_fn ) { struct berval x; - struct berval *p = passwd_scheme( &pw_schemes[i], + struct berval *p = passwd_scheme( &(pws->s), passwd, &x, schemes ); if( p != NULL ) { - return (pw_schemes[i].chk_fn)( &pw_schemes[i], p, cred ); + return (pws->s.chk_fn)( &(pws->s.name), p, cred, text ); } } } @@ -361,7 +343,7 @@ struct berval * lutil_passwd_generate( ber_len_t len ) return NULL; } - if( lutil_entropy( pw->bv_val, pw->bv_len) < 0 ) { + if( lutil_entropy( (unsigned char *) pw->bv_val, pw->bv_len) < 0 ) { ber_bvfree( pw ); return NULL; } @@ -378,26 +360,28 @@ struct berval * lutil_passwd_generate( ber_len_t len ) struct berval * lutil_passwd_hash( const struct berval * passwd, - const char * method ) + const char * method, + const char **text ) { const struct pw_scheme *sc = get_scheme( method ); + if( text ) *text = NULL; if( sc == NULL ) return NULL; if( ! sc->hash_fn ) return NULL; - return (sc->hash_fn)( sc, passwd ); + return (sc->hash_fn)( &sc->name, passwd, text ); } /* pw_string is only called when SLAPD_LMHASH or SLAPD_CRYPT is defined */ #if defined(SLAPD_LMHASH) || defined(SLAPD_CRYPT) static struct berval * pw_string( - const struct pw_scheme *sc, + const struct berval *sc, const struct berval *passwd ) { struct berval *pw = ber_memalloc( sizeof( struct berval ) ); if( pw == NULL ) return NULL; - pw->bv_len = sc->name.bv_len + passwd->bv_len; + pw->bv_len = sc->bv_len + passwd->bv_len; pw->bv_val = ber_memalloc( pw->bv_len + 1 ); if( pw->bv_val == NULL ) { @@ -405,8 +389,8 @@ static struct berval * pw_string( return NULL; } - AC_MEMCPY( pw->bv_val, sc->name.bv_val, sc->name.bv_len ); - AC_MEMCPY( &pw->bv_val[sc->name.bv_len], passwd->bv_val, passwd->bv_len ); + AC_MEMCPY( pw->bv_val, sc->bv_val, sc->bv_len ); + AC_MEMCPY( &pw->bv_val[sc->bv_len], passwd->bv_val, passwd->bv_len ); pw->bv_val[pw->bv_len] = '\0'; return pw; @@ -414,7 +398,7 @@ static struct berval * pw_string( #endif /* SLAPD_LMHASH || SLAPD_CRYPT */ static struct berval * pw_string64( - const struct pw_scheme *sc, + const struct berval *sc, const struct berval *hash, const struct berval *salt ) { @@ -446,7 +430,7 @@ static struct berval * pw_string64( } b64len = LUTIL_BASE64_ENCODE_LEN( string.bv_len ) + 1; - b64->bv_len = b64len + sc->name.bv_len; + b64->bv_len = b64len + sc->bv_len; b64->bv_val = ber_memalloc( b64->bv_len + 1 ); if( b64->bv_val == NULL ) { @@ -455,11 +439,11 @@ static struct berval * pw_string64( return NULL; } - AC_MEMCPY(b64->bv_val, sc->name.bv_val, sc->name.bv_len); + AC_MEMCPY(b64->bv_val, sc->bv_val, sc->bv_len); rc = lutil_b64_ntop( - string.bv_val, string.bv_len, - &b64->bv_val[sc->name.bv_len], b64len ); + (unsigned char *) string.bv_val, string.bv_len, + &b64->bv_val[sc->bv_len], b64len ); if( salt ) ber_memfree( string.bv_val ); @@ -469,7 +453,7 @@ static struct berval * pw_string64( } /* recompute length */ - b64->bv_len = sc->name.bv_len + rc; + b64->bv_len = sc->bv_len + rc; assert( strlen(b64->bv_val) == b64->bv_len ); return b64; } @@ -478,15 +462,21 @@ static struct berval * pw_string64( #ifdef LUTIL_SHA1_BYTES static int chk_ssha1( - const struct pw_scheme *sc, + const struct berval *sc, const struct berval * passwd, - const struct berval * cred ) + const struct berval * cred, + const char **text ) { lutil_SHA1_CTX SHA1context; unsigned char SHA1digest[LUTIL_SHA1_BYTES]; int rc; unsigned char *orig_pass = NULL; - + + /* safety check */ + if (LUTIL_BASE64_DECODE_LEN(passwd->bv_len) <= sizeof(SHA1digest)) { + return -1; + } + /* decode base64 password */ orig_pass = (unsigned char *) ber_memalloc( (size_t) ( LUTIL_BASE64_DECODE_LEN(passwd->bv_len) + 1) ); @@ -495,7 +485,7 @@ static int chk_ssha1( rc = lutil_b64_pton(passwd->bv_val, orig_pass, passwd->bv_len); - if(rc < 0) { + if (rc <= sizeof(SHA1digest)) { ber_memfree(orig_pass); return -1; } @@ -516,9 +506,10 @@ static int chk_ssha1( } static int chk_sha1( - const struct pw_scheme *sc, + const struct berval *sc, const struct berval * passwd, - const struct berval * cred ) + const struct berval * cred, + const char **text ) { lutil_SHA1_CTX SHA1context; unsigned char SHA1digest[LUTIL_SHA1_BYTES]; @@ -552,15 +543,21 @@ static int chk_sha1( #endif static int chk_smd5( - const struct pw_scheme *sc, + const struct berval *sc, const struct berval * passwd, - const struct berval * cred ) + const struct berval * cred, + const char **text ) { lutil_MD5_CTX MD5context; unsigned char MD5digest[LUTIL_MD5_BYTES]; int rc; unsigned char *orig_pass = NULL; + /* safety check */ + if (LUTIL_BASE64_DECODE_LEN(passwd->bv_len) <= sizeof(MD5digest)) { + return -1; + } + /* base64 un-encode password */ orig_pass = (unsigned char *) ber_memalloc( (size_t) ( LUTIL_BASE64_DECODE_LEN(passwd->bv_len) + 1) ); @@ -568,7 +565,8 @@ static int chk_smd5( if( orig_pass == NULL ) return -1; rc = lutil_b64_pton(passwd->bv_val, orig_pass, passwd->bv_len); - if ( rc < 0 ) { + + if (rc <= sizeof(MD5digest)) { ber_memfree(orig_pass); return -1; } @@ -590,9 +588,10 @@ static int chk_smd5( } static int chk_md5( - const struct pw_scheme *sc, + const struct berval *sc, const struct berval * passwd, - const struct berval * cred ) + const struct berval * cred, + const char **text ) { lutil_MD5_CTX MD5context; unsigned char MD5digest[LUTIL_MD5_BYTES]; @@ -626,22 +625,24 @@ static int chk_md5( #ifdef SLAPD_LMHASH static int chk_lanman( - const struct pw_scheme *scheme, + const struct berval *scheme, const struct berval *passwd, - const struct berval *cred ) + const struct berval *cred, + const char **text ) { struct berval *hash; hash = hash_lanman( scheme, cred ); - return memcmp( &hash->bv_val[scheme->name.bv_len], passwd->bv_val, 32); + return memcmp( &hash->bv_val[scheme->bv_len], passwd->bv_val, 32); } #endif /* SLAPD_LMHASH */ -#ifdef SLAPD_NT_MTA_MD5 -static int chk_nt_mta_md5( - const struct pw_scheme *scheme, +#ifdef SLAPD_NS_MTA_MD5 +static int chk_ns_mta_md5( + const struct berval *scheme, const struct berval *passwd, - const struct berval *cred ) + const struct berval *cred, + const char **text ) { lutil_MD5_CTX MD5context; unsigned char MD5digest[LUTIL_MD5_BYTES], c; @@ -691,9 +692,10 @@ sasl_conn_t *lutil_passwd_sasl_conn = NULL; #endif static int chk_sasl( - const struct pw_scheme *sc, + const struct berval *sc, const struct berval * passwd, - const struct berval * cred ) + const struct berval * cred, + const char **text ) { unsigned int i; int rtn; @@ -724,11 +726,10 @@ static int chk_sasl( if( lutil_passwd_sasl_conn != NULL ) { int sc; # if SASL_VERSION_MAJOR < 2 - const char *errstr = NULL; sc = sasl_checkpass( lutil_passwd_sasl_conn, passwd->bv_val, passwd->bv_len, cred->bv_val, cred->bv_len, - &errstr ); + text ); # else sc = sasl_checkpass( lutil_passwd_sasl_conn, passwd->bv_val, passwd->bv_len, @@ -744,9 +745,10 @@ static int chk_sasl( #ifdef SLAPD_KPASSWD static int chk_kerberos( - const struct pw_scheme *sc, + const struct berval *sc, const struct berval * passwd, - const struct berval * cred ) + const struct berval * cred, + const char **text ) { unsigned int i; int rtn; @@ -917,9 +919,10 @@ static int chk_kerberos( #ifdef SLAPD_CRYPT static int chk_crypt( - const struct pw_scheme *sc, + const struct berval *sc, const struct berval * passwd, - const struct berval * cred ) + const struct berval * cred, + const char **text ) { char *cr; unsigned int i; @@ -960,9 +963,10 @@ static int chk_crypt( # if defined( HAVE_GETPWNAM ) && defined( HAVE_PW_PASSWD ) static int chk_unix( - const struct pw_scheme *sc, + const struct berval *sc, const struct berval * passwd, - const struct berval * cred ) + const struct berval * cred, + const char **text ) { unsigned int i; char *pw,*cr; @@ -1036,21 +1040,22 @@ static int chk_unix( #ifdef LUTIL_SHA1_BYTES static struct berval *hash_ssha1( - const struct pw_scheme *scheme, - const struct berval *passwd ) + const struct berval *scheme, + const struct berval *passwd, + const char **text ) { lutil_SHA1_CTX SHA1context; unsigned char SHA1digest[LUTIL_SHA1_BYTES]; - unsigned char saltdata[4]; + char saltdata[4]; struct berval digest; struct berval salt; - digest.bv_val = SHA1digest; + digest.bv_val = (char *) SHA1digest; digest.bv_len = sizeof(SHA1digest); salt.bv_val = saltdata; salt.bv_len = sizeof(saltdata); - if( lutil_entropy( salt.bv_val, salt.bv_len) < 0 ) { + if( lutil_entropy( (unsigned char *) salt.bv_val, salt.bv_len) < 0 ) { return NULL; } @@ -1065,13 +1070,14 @@ static struct berval *hash_ssha1( } static struct berval *hash_sha1( - const struct pw_scheme *scheme, - const struct berval *passwd ) + const struct berval *scheme, + const struct berval *passwd, + const char **text ) { lutil_SHA1_CTX SHA1context; unsigned char SHA1digest[LUTIL_SHA1_BYTES]; struct berval digest; - digest.bv_val = SHA1digest; + digest.bv_val = (char *) SHA1digest; digest.bv_len = sizeof(SHA1digest); lutil_SHA1Init( &SHA1context ); @@ -1084,21 +1090,22 @@ static struct berval *hash_sha1( #endif static struct berval *hash_smd5( - const struct pw_scheme *scheme, - const struct berval *passwd ) + const struct berval *scheme, + const struct berval *passwd, + const char **text ) { lutil_MD5_CTX MD5context; unsigned char MD5digest[LUTIL_MD5_BYTES]; - unsigned char saltdata[4]; + char saltdata[4]; struct berval digest; struct berval salt; - digest.bv_val = MD5digest; + digest.bv_val = (char *) MD5digest; digest.bv_len = sizeof(MD5digest); salt.bv_val = saltdata; salt.bv_len = sizeof(saltdata); - if( lutil_entropy( salt.bv_val, salt.bv_len) < 0 ) { + if( lutil_entropy( (unsigned char *) salt.bv_val, salt.bv_len) < 0 ) { return NULL; } @@ -1113,15 +1120,16 @@ static struct berval *hash_smd5( } static struct berval *hash_md5( - const struct pw_scheme *scheme, - const struct berval *passwd ) + const struct berval *scheme, + const struct berval *passwd, + const char **text ) { lutil_MD5_CTX MD5context; unsigned char MD5digest[LUTIL_MD5_BYTES]; struct berval digest; - digest.bv_val = MD5digest; + digest.bv_val = (char *) MD5digest; digest.bv_len = sizeof(MD5digest); lutil_MD5Init( &MD5context ); @@ -1210,8 +1218,9 @@ static void lmPasswd_to_key( } static struct berval *hash_lanman( - const struct pw_scheme *scheme, - const struct berval *passwd ) + const struct berval *scheme, + const struct berval *passwd, + const char **text ) { int i; @@ -1258,8 +1267,9 @@ static struct berval *hash_lanman( #ifdef SLAPD_CRYPT static struct berval *hash_crypt( - const struct pw_scheme *scheme, - const struct berval *passwd ) + const struct berval *scheme, + const struct berval *passwd, + const char **text ) { struct berval hash; unsigned char salt[32]; /* salt suitable for most anything */ @@ -1288,11 +1298,11 @@ static struct berval *hash_crypt( /* copy the salt we made into entropy before snprintfing it back into the salt */ char entropy[sizeof(salt)]; - strcpy( entropy, salt ); - snprintf( salt, sizeof(entropy), salt_format, entropy ); + strcpy( entropy, (char *) salt ); + snprintf( (char *) salt, sizeof(entropy), salt_format, entropy ); } - hash.bv_val = crypt( passwd->bv_val, salt ); + hash.bv_val = crypt( passwd->bv_val, (char *) salt ); if( hash.bv_val == NULL ) return NULL; @@ -1319,8 +1329,9 @@ int lutil_salt_format(const char *format) #ifdef SLAPD_CLEARTEXT static struct berval *hash_clear( - const struct pw_scheme *scheme, - const struct berval *passwd ) + const struct berval *scheme, + const struct berval *passwd, + const char **text ) { return ber_bvdup( (struct berval *) passwd ); }