summaryrefslogtreecommitdiffstats
path: root/ipa-server
diff options
context:
space:
mode:
Diffstat (limited to 'ipa-server')
-rw-r--r--ipa-server/ipa-kpasswd/Makefile5
-rw-r--r--ipa-server/ipa-kpasswd/README2
-rw-r--r--ipa-server/ipa-kpasswd/ipa_kpasswd.c629
3 files changed, 636 insertions, 0 deletions
diff --git a/ipa-server/ipa-kpasswd/Makefile b/ipa-server/ipa-kpasswd/Makefile
new file mode 100644
index 00000000..efdaa16b
--- /dev/null
+++ b/ipa-server/ipa-kpasswd/Makefile
@@ -0,0 +1,5 @@
+all:
+ gcc ipa_kpasswd.c -I/usr/include -lkrb5 -llber -lldap -g -o ipa_kpasswd
+
+install:
+ cp -f ipa_kpasswd /usr/local/sbin/
diff --git a/ipa-server/ipa-kpasswd/README b/ipa-server/ipa-kpasswd/README
new file mode 100644
index 00000000..c0a2767a
--- /dev/null
+++ b/ipa-server/ipa-kpasswd/README
@@ -0,0 +1,2 @@
+This is an implementation of the RFC3244 kpasswd protocol.
+It is used to proxy password change operations to Directory Server.
diff --git a/ipa-server/ipa-kpasswd/ipa_kpasswd.c b/ipa-server/ipa-kpasswd/ipa_kpasswd.c
new file mode 100644
index 00000000..35503ae9
--- /dev/null
+++ b/ipa-server/ipa-kpasswd/ipa_kpasswd.c
@@ -0,0 +1,629 @@
+
+/* Kpasswd-LDAP proxy */
+
+/* (C) Simo Sorce */
+
+#include <sys/types.h>
+#include <sys/socket.h>
+#include <sys/time.h>
+#include <sys/wait.h>
+#include <unistd.h>
+#include <stdio.h>
+#include <stdarg.h>
+#include <stdlib.h>
+#include <string.h>
+#include <errno.h>
+#include <netinet/in.h>
+#include <krb5.h>
+#include <ldap.h>
+#include <sasl/sasl.h>
+
+#define KPASSWD_PORT 464
+#define KPASSWD_TCP 1
+#define KPASSWD_UDP 2
+
+int debug = 1;
+char *srv_pri_name = "kadmin/changepw";
+char *keytab_name = "FILE:/var/kerberos/krb5kdc/kpasswd.keytab";
+char *realm_name = "BLUEBOX.REDHAT.COM";
+char *ldap_uri = "ldap://rc1.bluebox.redhat.com:389";
+
+int ldap_sasl_interact(LDAP *ld, unsigned flags, void *priv_data, void *sit)
+{
+ sasl_interact_t **in = sit;
+ int i, ret = LDAP_OTHER;
+
+ if (!ld) return LDAP_PARAM_ERROR;
+
+ for (i = 0; in[i] && in[i]->id != SASL_CB_LIST_END; i++) {
+ switch(in[i]->id) {
+ case SASL_CB_USER:
+ in[i]->result = srv_pri_name;
+ in[i]->len = strlen(srv_pri_name);
+ ret = LDAP_SUCCESS;
+ break;
+ case SASL_CB_GETREALM:
+ in[i]->result = realm_name;
+ in[i]->len = strlen(realm_name);
+ ret = LDAP_SUCCESS;
+ break;
+ default:
+ if (debug > 0) {
+ fprintf(stderr,
+ "Unhandled SASL int. option %d\n",
+ in[i]->id);
+ }
+ in[i]->result = NULL;
+ in[i]->len = 0;
+ ret = LDAP_OTHER;
+ }
+ }
+ return ret;
+}
+
+int ldap_pwd_change(char *client_name, krb5_data pwd)
+{
+ int id, version;
+ LDAP *ld = NULL;
+ BerElement *ctrl = NULL;
+ struct berval control;
+ struct berval newpw;
+ char *userdn = NULL;
+ int ret;
+
+ newpw.bv_len = pwd.length;
+ newpw.bv_val = pwd.data;
+
+ /* connect to ldap server */
+ /* TODO: support referrals ? */
+ ret = ldap_initialize(&ld, ldap_uri);
+ if(ret != LDAP_SUCCESS) {
+ fprintf(stderr, "Unable to connect to ldap server");
+ ret = -1;
+ goto done;
+ }
+
+ version = LDAP_VERSION3;
+ ret = ldap_set_option(ld, LDAP_OPT_PROTOCOL_VERSION, &version);
+ if (ret != LDAP_OPT_SUCCESS) {
+ fprintf(stderr, "Unable to set ldap protocol version");
+ ret = -1;
+ goto done;
+ }
+
+ ret = ldap_sasl_interactive_bind_s(ld,
+ NULL, "GSSAPI",
+ NULL, NULL,
+ LDAP_SASL_AUTOMATIC,
+ ldap_sasl_interact, NULL);
+ if (ret != LDAP_SUCCESS) {
+ fprintf(stderr, "Unable to bind to ldap server");
+ ret = -1;
+ goto done;
+ }
+
+ /* find user dn */
+
+ /* build password change control */
+ ctrl = ber_alloc_t(LBER_USE_DER);
+ if (!ctrl) {
+ fprintf(stderr, "Out of memory!\n");
+ ret = -1;
+ goto done;
+ }
+ ber_printf(ctrl, "{tstON}",
+ LDAP_TAG_EXOP_MODIFY_PASSWD_ID, userdn,
+ LDAP_TAG_EXOP_MODIFY_PASSWD_NEW, &newpw);
+
+ ret = ber_flatten2(ctrl, &control, 0);
+ if (ret < 0) {
+ fprintf(stderr, "ber flattening failed!\n");
+ ret = -1;
+ goto done;
+ }
+
+ /* perform poassword change */
+ ret = ldap_extended_operation(ld, LDAP_EXOP_MODIFY_PASSWD,
+ &control, NULL, NULL, &id);
+done:
+ if (ctrl) ber_free(ctrl, 1);
+ if (ld)
+ return ret;
+}
+
+void handle_krb_packets(uint8_t *buf, ssize_t buflen,
+ struct sockaddr_in *from,
+ uint8_t **repbuf, ssize_t *replen)
+{
+ krb5_auth_context auth_context;
+ krb5_context context;
+ krb5_keytab keytab;
+ krb5_principal kprincpw;
+ krb5_ticket *ticket;
+ krb5_address **lkaddr, rkaddr;
+ krb5_data kreq, krep, kenc, kdec;
+ krb5_replay_data replay;
+ krb5_error krb5err;
+ int krberr, err;
+ struct sockaddr_in laddr, raddr;
+ socklen_t addrlen;
+ size_t reqlen;
+ size_t verno;
+ char *client_name;
+ char *result_string;
+ int result_err;
+ uint8_t *reply;
+ ssize_t replylen;
+
+ *replen = 0;
+
+ auth_context = NULL;
+ krep.length = 0;
+ krep.data = NULL;
+ kprincpw = NULL;
+ ticket = NULL;
+ lkaddr = NULL;
+
+ rkaddr.addrtype = ADDRTYPE_INET;
+ rkaddr.length = sizeof(from->sin_addr);
+ rkaddr.contents = (krb5_octet *) &from->sin_addr;
+
+ if (buflen < 4) {
+ result_string = "Request truncated";
+ result_err = KRB5_KPASSWD_MALFORMED;
+ fprintf(stderr, "%s\n", result_string);
+ goto done;
+ }
+
+ reqlen = (buf[0] << 8) + buf[1];
+
+ if (reqlen != buflen) {
+ result_string = "Unmatching request length";
+ result_err = KRB5_KPASSWD_MALFORMED;
+ fprintf(stderr, "%s\n", result_string);
+ goto done;
+ }
+
+ verno = (buf[2] << 8) + buf[3];
+
+ if (verno != 1) {
+ result_string = "Unsupported version";
+ result_err = KRB5_KPASSWD_BAD_VERSION;
+ fprintf(stderr, "%s\n", result_string);
+ goto done;
+ }
+
+ kreq.length = (buf[4] << 8) + buf[5];
+ if (kreq.length > (buflen - 6)) {
+ result_string = "Request truncated";
+ result_err = KRB5_KPASSWD_MALFORMED;
+ fprintf(stderr, "%s\n", result_string);
+ goto done;
+ }
+ kreq.data = &buf[6];
+
+ krberr = krb5_init_context(&context);
+ if (krberr) {
+ result_string = "Failed to init kerberos context";
+ result_err = KRB5_KPASSWD_HARDERROR;
+ fprintf(stderr, "%s\n", result_string);
+ goto done;
+ }
+
+ krberr = krb5_auth_con_init(context, &auth_context);
+ if (krberr) {
+ result_string = "Unable to init auth context";
+ result_err = KRB5_KPASSWD_HARDERROR;
+ fprintf(stderr, "%s: %s\n", result_string,
+ krb5_get_error_message(context, krberr));
+ goto done;
+ }
+
+ krberr = krb5_auth_con_setflags(context, auth_context,
+ KRB5_AUTH_CONTEXT_DO_SEQUENCE);
+ if (krberr) {
+ result_string = "Unable to init auth context";
+ result_err = KRB5_KPASSWD_HARDERROR;
+ fprintf(stderr, "%s: %s\n", result_string,
+ krb5_get_error_message(context, krberr));
+ goto done;
+ }
+
+ krberr = krb5_build_principal(context, &kprincpw,
+ strlen(realm_name), realm_name,
+ "kadmin", "changepw", NULL);
+ if (krberr) {
+ result_string = "Unable to build principal";
+ result_err = KRB5_KPASSWD_HARDERROR;
+ fprintf(stderr, "%s: %s\n", result_string,
+ krb5_get_error_message(context, krberr));
+ goto done;
+ }
+
+ krberr = krb5_kt_resolve(context, keytab_name, &keytab);
+ if (krberr) {
+ result_string = "Unable to retrieve keytab";
+ result_err = KRB5_KPASSWD_HARDERROR;
+ fprintf(stderr, "%s: %s\n", result_string,
+ krb5_get_error_message(context, krberr));
+ goto done;
+ }
+
+ krberr = krb5_rd_req(context, &auth_context, &kreq,
+ kprincpw, keytab, NULL, &ticket);
+ if (krberr) {
+ result_string = "Unable to read request";
+ result_err = KRB5_KPASSWD_AUTHERROR;
+ fprintf(stderr, "%s: %s\n", result_string,
+ krb5_get_error_message(context, krberr));
+ goto done;
+ }
+
+ /* build the AP Reply before actually changing the password
+ * this minimize the risk of a fatal error occurring _after_
+ * the password have been successfully changed */
+ krberr = krb5_mk_rep(context, auth_context, &krep);
+ if (krberr) {
+ result_string = "Failed to to build reply";
+ result_err = KRB5_KPASSWD_HARDERROR;
+ fprintf(stderr, "%s: %s\n", result_string,
+ krb5_get_error_message(context, krberr));
+ goto done;
+ }
+
+ /* verify that this is an AS_REQ ticket */
+ if (!(ticket->enc_part2->flags & TKT_FLG_INITIAL)) {
+ result_string = "Ticket must be derived from a password";
+ result_err = KRB5_KPASSWD_AUTHERROR;
+ fprintf(stderr, "%s\n", result_string);
+ goto kpreply;
+ }
+
+ krberr = krb5_unparse_name(context, ticket->enc_part2->client,
+ &client_name);
+ if (krberr) {
+ result_string = "Unable to parse client name";
+ result_err = KRB5_KPASSWD_HARDERROR;
+ fprintf(stderr, "%s\n", result_string);
+ goto kpreply;
+ }
+
+ krberr = krb5_auth_con_setaddrs(context, auth_context, NULL, &rkaddr);
+ if (krberr) {
+ result_string = "Failed to set client address";
+ result_err = KRB5_KPASSWD_HARDERROR;
+ fprintf(stderr, "%s: %s\n", result_string,
+ krb5_get_error_message(context, krberr));
+ goto kpreply;
+ }
+
+ /* decrypt the new password */
+ kenc.length = reqlen - kreq.length - 6;
+ kenc.data = kreq.data + kreq.length;
+
+ /* rd_priv needs the remote address while mk_priv (used later)
+ * requires the local address (from kadmin code) */
+ krberr = krb5_rd_priv(context, auth_context, &kenc, &kdec, &replay);
+ if (krberr) {
+ result_string = "Failed to decrypt password";
+ result_err = KRB5_KPASSWD_HARDERROR;
+ fprintf(stderr, "%s: %s\n", result_string,
+ krb5_get_error_message(context, krberr));
+ goto kpreply;
+ }
+
+ if (debug > 0) {
+ fprintf(stderr, "Client %s trying to set password [%*s]\n",
+ client_name, kdec.length, kdec.data);
+ }
+
+ err = ldap_pwd_change(client_name, kdec);
+
+ /* ok we are done, and the password change was successful! */
+ result_err = KRB5_KPASSWD_SUCCESS;
+ result_string = "";
+
+ /* make sure password is cleared off before we free the memory */
+ memset(kdec.data, 0, kdec.length);
+ free(kdec.data);
+
+kpreply:
+
+ /* set-up the the clear text reply */
+ kdec.length = 2 + strlen(result_string);
+ kdec.data = malloc(kdec.length);
+ if (!kdec.data) {
+ fprintf(stderr, "Out of memory!\n");
+ goto done;
+ }
+
+ kdec.data[0] = (result_err >> 8) & 0xff;
+ kdec.data[1] = result_err & 0xff;
+ memcpy(&kdec.data[2], result_string, strlen(result_string));
+
+ /* we listen on ANYADDR, use this retrieve the right address */
+ krberr = krb5_os_localaddr(context, &lkaddr);
+ if (krberr) {
+ result_string = "Failed to retrieve local address";
+ fprintf(stderr, "%s: %s\n", result_string,
+ krb5_get_error_message(context, krberr));
+ goto done;
+ }
+
+ krberr = krb5_auth_con_setaddrs(context, auth_context, lkaddr[0], NULL);
+ if (krberr) {
+ result_string = "Failed to set local address";
+ fprintf(stderr, "%s: %s\n", result_string,
+ krb5_get_error_message(context, krberr));
+ goto done;
+ }
+
+ krberr = krb5_mk_priv(context, auth_context, &kdec, &kenc, &replay);
+ if (krberr) {
+ result_string = "Failed to encrypt reply message";
+ fprintf(stderr, "%s: %s\n", result_string,
+ krb5_get_error_message(context, krberr));
+ /* encryption was unsuccessful, let's return a krb error */
+
+ /* the ap data is no more useful */
+ free(krep.data);
+ krep.length = 0;
+
+ /* build a krberror encrypted paylod */
+ krb5err.error = KRB5_CHPW_FAIL;
+ krb5err.server = kprincpw;
+ krb5err.client = NULL;
+ krb5err.ctime = 0;
+ krb5err.cusec = 0;
+ krb5err.susec = 0;
+ krberr = krb5_timeofday(context, &krb5err.stime);
+ if (krberr) {
+ result_string = "Failed to set time of day";
+ fprintf(stderr, "%s: %s\n", result_string,
+ krb5_get_error_message(context, krberr));
+ goto done;
+ }
+
+ krb5err.text.length = 0;
+ krb5err.e_data = kdec;
+ krberr = krb5_mk_error(context, &krb5err, &kenc);
+ if (krberr) {
+ result_string = "Failed to build error message";
+ fprintf(stderr, "%s: %s\n", result_string,
+ krb5_get_error_message(context, krberr));
+ goto done;
+ }
+ }
+
+ replylen = 6 + krep.length + kenc.length;
+ reply = malloc(replylen);
+ if (!reply) {
+ fprintf(stderr, "Out of memory!\n");
+ goto done;
+ }
+ *repbuf = reply;
+
+ reply[0] = (replylen >> 8) & 0xff;
+ reply[1] = replylen & 0xff;
+ reply[2] = 0x00;
+ reply[3] = 0x01;
+ reply[4] = (krep.length >> 8) & 0xff;
+ reply[5] = krep.length & 0xff;
+
+ if (krep.length) {
+ memcpy(&reply[6], krep.data, krep.length);
+ }
+ memcpy(&reply[6 + krep.length], kenc.data, kenc.length);
+
+ *replen = replylen;
+
+done:
+ if (auth_context) krb5_auth_con_free(context, auth_context);
+ if (kprincpw) krb5_free_principal(context, kprincpw);
+ if (krep.length) free(krep.data);
+ if (ticket) krb5_free_ticket(context, ticket);
+ if (kdec.length) free(kdec.data);
+ if (lkaddr) krb5_free_addresses(context, lkaddr);
+ krb5_free_context(context);
+}
+
+pid_t handle_conn(int fd, int type)
+{
+ int mfd;
+ pid_t pid;
+ uint8_t request[1500];
+ ssize_t reqlen;
+ uint8_t *reply;
+ ssize_t replen;
+ struct sockaddr_in from;
+ socklen_t fromlen;
+
+ fromlen = sizeof(from);
+
+ /* receive request */
+ if (type == KPASSWD_TCP) {
+
+ mfd = accept(fd, (struct sockaddr *)&from, &fromlen);
+ if (mfd == -1) {
+ fprintf(stderr, "Accept failed with error (%d) %s\n",
+ errno, strerror(errno));
+ return -1;
+ }
+ } else {
+ mfd = fd;
+ }
+
+ reqlen = recvfrom(mfd, request, sizeof(request), 0,
+ (struct sockaddr *)&from, &fromlen);
+ if (reqlen <= 0) {
+ fprintf(stderr, "Error receiving request (%d) %s\n",
+ errno, strerror(errno));
+ if (type == KPASSWD_TCP) close(mfd);
+ return -1;
+ }
+
+ if (debug > 0) {
+ uint32_t host = ntohl(from.sin_addr.s_addr);
+ uint16_t port = ntohs(from.sin_port);
+ fprintf(stderr,
+ "Connection from %d.%d.%d.%d:%d\n",
+ (host & 0xff000000) >> 24,
+ (host & 0x00ff0000) >> 16,
+ (host & 0x0000ff00) >> 8,
+ host & 0x000000ff,
+ port);
+ }
+
+#if 1
+ /* handle kerberos and ldap operations in childrens */
+ pid = fork();
+ if (pid == -1) {
+ fprintf(stderr, "Fork failed with error (%d) %s\n",
+ errno, strerror(errno));
+ if (type == KPASSWD_TCP) close(mfd);
+ return 0;
+ }
+ if (pid != 0) { /* parent */
+ if (type == KPASSWD_TCP) close(mfd);
+ return pid;
+ }
+#endif
+ /* children */
+ handle_krb_packets(request, reqlen, &from, &reply, &replen);
+
+ if (replen) { /* we have something to reply */
+ if (type == KPASSWD_TCP) {
+ sendto(mfd, reply, replen, 0, NULL, 0);
+ } else {
+ sendto(mfd, reply, replen, 0, (struct sockaddr *)&from, fromlen);
+ }
+ }
+ close(mfd);
+ exit(0);
+}
+
+int main(int argc, char *argv[])
+{
+ struct sockaddr_in addr;
+ int tcp_s, udp_s;
+ int tru = 1;
+ int ret;
+
+ tcp_s = socket(AF_INET, SOCK_STREAM, 0);
+ if (tcp_s == -1) {
+ fprintf(stderr, "Unable to create TCP socket\n");
+ exit(1);
+ }
+
+ udp_s = socket(AF_INET, SOCK_DGRAM, 0);
+ if (udp_s == -1) {
+ fprintf(stderr, "Unable to create UDP socket\n");
+ close(tcp_s);
+ exit(1);
+ }
+
+ /* make sockets immediately reusable */
+ ret = setsockopt(tcp_s, SOL_SOCKET, SO_REUSEADDR,
+ (void *)&tru, sizeof(tru));
+ if (ret == -1) {
+ fprintf(stderr,
+ "Unable to set SO_REUSEADDR for the TCP socket (%d) %s\n",
+ errno, strerror(errno));
+ close(tcp_s);
+ close(udp_s);
+ exit(2);
+ }
+
+ ret = setsockopt(udp_s, SOL_SOCKET, SO_REUSEADDR,
+ (void *)&tru, sizeof(tru));
+ if (ret == -1) {
+ fprintf(stderr,
+ "Unable to set SO_REUSEADDR for the UDP socket (%d) %s\n",
+ errno, strerror(errno));
+ close(tcp_s);
+ close(udp_s);
+ exit(2);
+ }
+
+ /* bind sockets */
+ memset(&addr, 0, sizeof(addr));
+ addr.sin_family = AF_INET;
+ addr.sin_addr.s_addr = INADDR_ANY;
+ addr.sin_port = htons(KPASSWD_PORT);
+
+ ret = bind(tcp_s, (struct sockaddr *)&addr, sizeof(addr));
+ if (ret == -1) {
+ fprintf(stderr,
+ "Unable to bind the TCP kpasswd port (%d) %s\n",
+ errno, strerror(errno));
+ close(tcp_s);
+ close(udp_s);
+ exit(3);
+ }
+
+ memset(&addr, 0, sizeof(addr));
+ addr.sin_family = AF_INET;
+ addr.sin_addr.s_addr = INADDR_ANY;
+ addr.sin_port = htons(KPASSWD_PORT);
+
+ ret = bind(udp_s, (struct sockaddr *)&addr, sizeof(addr));
+ if (ret == -1) {
+ fprintf(stderr,
+ "Unable to bind the UDP kpasswd port (%d) %s\n",
+ errno, strerror(errno));
+ close(tcp_s);
+ close(udp_s);
+ exit(3);
+ }
+
+ ret = listen(tcp_s, 5);
+ if (ret == -1) {
+ fprintf(stderr,
+ "Unable to listen oin the TCP socket (%d) %s\n",
+ errno, strerror(errno));
+ close(tcp_s);
+ close(udp_s);
+ exit(4);
+ }
+
+ /* now that sockets are set up, enter the select loop */
+
+ while (1) {
+ int cstatus;
+ fd_set rfd;
+
+ FD_ZERO(&rfd);
+ FD_SET(udp_s, &rfd);
+ FD_SET(tcp_s, &rfd);
+
+ ret = select(udp_s+1, &rfd, NULL, NULL, NULL);
+
+ switch(ret) {
+ case 0:
+ break;
+ case -1:
+ if (errno != EINTR) {
+ fprintf(stderr,
+ "Unexpected error in select (%d) %s\n",
+ errno, strerror(errno));
+ exit(5);
+ }
+ break;
+ default:
+ if (FD_ISSET(tcp_s, &rfd)) {
+ handle_conn(tcp_s, KPASSWD_TCP);
+ break;
+ }
+ if (FD_ISSET(udp_s, &rfd)) {
+ handle_conn(udp_s, KPASSWD_UDP);
+ break;
+ }
+ /* what else?? */
+ fprintf(stderr, "Select returned but no fd ready\n");
+ exit(6);
+ }
+
+ /* check for children exiting */
+ waitpid(-1, &cstatus, WNOHANG);
+ }
+}
generated by cgit (git 2.34.1) at 2025-09-07 22:12:43 +0000