WEB邮件程序

开发平台：
C/C++

authldap.c：源码内容
							/*
** Copyright 1998 - 1999 Double Precision, Inc.  See COPYING for
** distribution information.
*/
#if HAVE_CONFIG_H
#include "config.h"
#endif
#include	<stdio.h>
#include	<stdlib.h>
#include	<ctype.h>
#include	<string.h>
#include	<errno.h>
#include	"auth.h"
#include	"authmod.h"
#include	"authldap.h"
static const char rcsid[]="$Id: authldap.c,v 1.10 2000/05/30 02:00:23 mrsam Exp $";
struct callback_info {
	char *userret;
	int issession;
	void (*callback_func)(struct authinfo *, void *);
	void *callback_arg;
	};
static int callback_ldap(struct authinfo *a, void *p)
{
struct callback_info *i=(struct callback_info *)p;
char	*pp;
	/* No need to check passwords, authldaplib did it already */
	if (i->callback_func == 0)
	{
	static char *env_buf=0;
	char *p;
	const char *d=a->maildir;
		if (!d)	d="";
		p=malloc(sizeof("MAILDIR=")+strlen(d)+1);
		if (!p)
		{
			perror("malloc");
			authexit(1);
		}
		sprintf(p,"MAILDIR=%s", d);
		putenv(p);
		if (env_buf)	free(env_buf);
		env_buf=p;
	}
	if (i->callback_func == 0)
	{
	static char *env_buf=0;
	char *p;
	const char *d=a->quota;
		if (!d)	d="";
		p=malloc(sizeof("MAILDIRQUOTA=")+strlen(d)+1);
		if (!p)
		{
			perror("malloc");
			authexit(1);
		}
		sprintf(p,"MAILDIRQUOTA=%s", d);
		putenv(p);
		if (env_buf)	free(env_buf);
		env_buf=p;
	}
        if ((i->userret=pp=strdup(a->address)) == 0)
        {
                perror("malloc");
                return (1);
        }
	if (i->callback_func)
	{
		a->address=i->userret;
		(*i->callback_func)(a, i->callback_arg);
	}
	else
		authsuccess(a->homedir, 0, a->sysuserid, &a->sysgroupid,
			a->address, a->fullname);
        return (0);
}
static char *auth_ldap_login(const char *service, char *authdata, int issession,
	void (*callback_func)(struct authinfo *, void *), void *callback_arg)
{
const char *user, *pass;
struct	callback_info ci;
int	rc;
	if ((user=strtok(authdata, "n")) == 0 ||
		(pass=strtok(0, "n")) == 0)
	{
		errno=EPERM;
		return (0);
	}
	ci.issession=issession;
	ci.callback_func=callback_func;
	ci.callback_arg=callback_arg;
	rc=authldapcommon(user, pass, &callback_ldap, &ci);
	if (callback_func == 0)
		authldapclose();
	if (rc)
	{
		errno=EPERM;
		return (0);
	}
	return (ci.userret);
}
#if HAVE_HMACLIB
#include	"../libhmac/hmac.h"
#include	"cramlib.h"
struct cram_callback_info {
	struct hmac_hashinfo *h;
	char *user;
	char *challenge;
	char *response;
	char *userret;
	int issession;
	void (*callback_func)(struct authinfo *, void *);
	void *callback_arg;
	};
static int callback_cram(struct authinfo *a, void *vp)
{
struct cram_callback_info *cci=(struct cram_callback_info *)vp;
unsigned char *hashbuf;
unsigned char *p;
unsigned i;
static const char hex[]="0123456789abcdef";
int	rc;
struct	callback_info ci;
	if (!a->clearpasswd)
		return (-1);
	/*
		hmac->hh_L*2 will be the size of the binary hash.
		hmac->hh_L*4+1 will therefore be size of the binary hash,
		as a hexadecimal string.
	*/
	if ((hashbuf=malloc(cci->h->hh_L*6+1)) == 0)
		return (1);
	hmac_hashkey(cci->h, a->clearpasswd, strlen(a->clearpasswd),
		hashbuf, hashbuf+cci->h->hh_L);
	p=hashbuf+cci->h->hh_L*2;
	for (i=0; i<cci->h->hh_L*2; i++)
	{
	char	c;
		c = hex[ (hashbuf[i] >> 4) & 0x0F];
		*p++=c;
		c = hex[ hashbuf[i] & 0x0F];
		*p++=c;
		*p=0;
	}
	rc=auth_verify_cram(cci->h, cci->challenge, cci->response,
		(const char *)hashbuf+cci->h->hh_L*2);
	free(hashbuf);
	if (rc)	return (rc);
	ci.issession=cci->issession;
	ci.callback_func=cci->callback_func;
	ci.callback_arg=cci->callback_arg;
	if ((cci->userret=strdup(a->address)) == 0)
	{
		perror("malloc");
		return (-1);
	}
	rc=callback_ldap(a, &ci);
	if (rc == 0)
		free(ci.userret);
	return (rc);
}
static char *auth_ldap_cram(const char *service,
	const char *authtype, char *authdata, int issession,
	void (*callback_func)(struct authinfo *, void *), void *callback_arg)
{
struct	cram_callback_info	cci;
int	rc;
	if (auth_get_cram(authtype, authdata,
		&cci.h, &cci.user, &cci.challenge, &cci.response))
		return (0);
	cci.issession=issession;
	cci.callback_func=callback_func;
	cci.callback_arg=callback_arg;
	rc=authldapcommon(cci.user, 0, &callback_cram, &cci);
	if (callback_func == 0)
		authldapclose();
	if (rc < 0)
	{
		errno=EPERM;
		return (0);
	}
	if (rc > 0)
	{
		errno=EACCES;
		return (0);
	}
	return (cci.userret);
}
#endif
char *auth_ldap(const char *service, const char *authtype, char *authdata,
		int issession,
	void (*callback_func)(struct authinfo *, void *), void *callback_arg)
{
	if (strcmp(authtype, AUTHTYPE_LOGIN) == 0)
		return (auth_ldap_login(service, authdata, issession,
			callback_func, callback_arg));
#if HAVE_HMACLIB
	return (auth_ldap_cram(service, authtype, authdata, issession,
			callback_func, callback_arg));
#else
	errno=EPERM;
	return (0);
#endif
}

						