155682Smarkm/*
2178825Sdfr * Copyright (c) 1997-2000, 2005-2006 Kungliga Tekniska H�gskolan
355682Smarkm * (Royal Institute of Technology, Stockholm, Sweden).
455682Smarkm * All rights reserved.
555682Smarkm *
655682Smarkm * Redistribution and use in source and binary forms, with or without
755682Smarkm * modification, are permitted provided that the following conditions
855682Smarkm * are met:
955682Smarkm *
1055682Smarkm * 1. Redistributions of source code must retain the above copyright
1155682Smarkm *    notice, this list of conditions and the following disclaimer.
1255682Smarkm *
1355682Smarkm * 2. Redistributions in binary form must reproduce the above copyright
1455682Smarkm *    notice, this list of conditions and the following disclaimer in the
1555682Smarkm *    documentation and/or other materials provided with the distribution.
1655682Smarkm *
1755682Smarkm * 3. Neither the name of the Institute nor the names of its contributors
1855682Smarkm *    may be used to endorse or promote products derived from this software
1955682Smarkm *    without specific prior written permission.
2055682Smarkm *
2155682Smarkm * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
2255682Smarkm * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
2355682Smarkm * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
2455682Smarkm * ARE DISCLAIMED.  IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
2555682Smarkm * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
2655682Smarkm * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
2755682Smarkm * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
2855682Smarkm * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
2955682Smarkm * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
3055682Smarkm * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
3155682Smarkm * SUCH DAMAGE.
3255682Smarkm */
3355682Smarkm
3455682Smarkm#include "kadm5_locl.h"
3555682Smarkm
36178825SdfrRCSID("$Id: chpass_c.c 16661 2006-01-25 12:50:10Z lha $");
3755682Smarkm
3855682Smarkmkadm5_ret_t
3955682Smarkmkadm5_c_chpass_principal(void *server_handle,
4055682Smarkm			 krb5_principal princ,
41178825Sdfr			 const char *password)
4255682Smarkm{
4355682Smarkm    kadm5_client_context *context = server_handle;
4455682Smarkm    kadm5_ret_t ret;
4555682Smarkm    krb5_storage *sp;
4655682Smarkm    unsigned char buf[1024];
4755682Smarkm    int32_t tmp;
4855682Smarkm    krb5_data reply;
4955682Smarkm
5072445Sassar    ret = _kadm5_connect(server_handle);
5172445Sassar    if(ret)
5272445Sassar	return ret;
5372445Sassar
5455682Smarkm    sp = krb5_storage_from_mem(buf, sizeof(buf));
55178825Sdfr    if (sp == NULL) {
56178825Sdfr	krb5_clear_error_string(context->context);
5755682Smarkm	return ENOMEM;
58178825Sdfr    }
5955682Smarkm    krb5_store_int32(sp, kadm_chpass);
6055682Smarkm    krb5_store_principal(sp, princ);
6155682Smarkm    krb5_store_string(sp, password);
6255682Smarkm    ret = _kadm5_client_send(context, sp);
6355682Smarkm    krb5_storage_free(sp);
6455682Smarkm    ret = _kadm5_client_recv(context, &reply);
6555682Smarkm    if(ret)
6655682Smarkm	return ret;
6755682Smarkm    sp = krb5_storage_from_data (&reply);
6855682Smarkm    if (sp == NULL) {
69178825Sdfr	krb5_clear_error_string(context->context);
7055682Smarkm	krb5_data_free (&reply);
7155682Smarkm	return ENOMEM;
7255682Smarkm    }
7355682Smarkm    krb5_ret_int32(sp, &tmp);
74178825Sdfr    krb5_clear_error_string(context->context);
7555682Smarkm    krb5_storage_free(sp);
7655682Smarkm    krb5_data_free (&reply);
7755682Smarkm    return tmp;
7855682Smarkm}
7972445Sassar
8072445Sassarkadm5_ret_t
8172445Sassarkadm5_c_chpass_principal_with_key(void *server_handle,
8272445Sassar				  krb5_principal princ,
8372445Sassar				  int n_key_data,
8472445Sassar				  krb5_key_data *key_data)
8572445Sassar{
8672445Sassar    kadm5_client_context *context = server_handle;
8772445Sassar    kadm5_ret_t ret;
8872445Sassar    krb5_storage *sp;
8972445Sassar    unsigned char buf[1024];
9072445Sassar    int32_t tmp;
9172445Sassar    krb5_data reply;
9272445Sassar    int i;
9372445Sassar
9472445Sassar    ret = _kadm5_connect(server_handle);
9572445Sassar    if(ret)
9672445Sassar	return ret;
9772445Sassar
9872445Sassar    sp = krb5_storage_from_mem(buf, sizeof(buf));
99178825Sdfr    if (sp == NULL) {
100178825Sdfr	krb5_clear_error_string(context->context);
10172445Sassar	return ENOMEM;
102178825Sdfr    }
10372445Sassar    krb5_store_int32(sp, kadm_chpass_with_key);
10472445Sassar    krb5_store_principal(sp, princ);
10572445Sassar    krb5_store_int32(sp, n_key_data);
10672445Sassar    for (i = 0; i < n_key_data; ++i)
10772445Sassar	kadm5_store_key_data (sp, &key_data[i]);
10872445Sassar    ret = _kadm5_client_send(context, sp);
10972445Sassar    krb5_storage_free(sp);
11072445Sassar    ret = _kadm5_client_recv(context, &reply);
11172445Sassar    if(ret)
11272445Sassar	return ret;
11372445Sassar    sp = krb5_storage_from_data (&reply);
11472445Sassar    if (sp == NULL) {
115178825Sdfr	krb5_clear_error_string(context->context);
11672445Sassar	krb5_data_free (&reply);
11772445Sassar	return ENOMEM;
11872445Sassar    }
11972445Sassar    krb5_ret_int32(sp, &tmp);
120178825Sdfr    krb5_clear_error_string(context->context);
12172445Sassar    krb5_storage_free(sp);
12272445Sassar    krb5_data_free (&reply);
12372445Sassar    return tmp;
12472445Sassar}
125