crypto/heimdal-0.6.3/appl/test/uu_client.c

   1 /*
   2  * Copyright (c) 1997 - 2000 Kungliga Tekniska Högskolan
   3  * (Royal Institute of Technology, Stockholm, Sweden).
   4  * All rights reserved.
   5  *
   6  * Redistribution and use in source and binary forms, with or without
   7  * modification, are permitted provided that the following conditions
   8  * are met:
   9  *
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  *
  13  * 2. Redistributions in binary form must reproduce the above copyright
  14  *    notice, this list of conditions and the following disclaimer in the
  15  *    documentation and/or other materials provided with the distribution.
  16  *
  17  * 3. Neither the name of the Institute nor the names of its contributors
  18  *    may be used to endorse or promote products derived from this software
  19  *    without specific prior written permission.
  20  *
  21  * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
  22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
  25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  31  * SUCH DAMAGE.
  32  */
  33
  34 #include "test_locl.h"
  35 RCSID("$Id: uu_client.c,v 1.7 2000/12/31 07:41:39 assar Exp $");
  36
  37 krb5_context context;
  38
  39 static int
  40 proto (int sock, const char *hostname, const char *service)
  41 {
  42     struct sockaddr_in remote, local;
  43     socklen_t addrlen;
  44     krb5_address remote_addr, local_addr;
  45     krb5_context context;
  46     krb5_ccache ccache;
  47     krb5_auth_context auth_context;
  48     krb5_error_code status;
  49     krb5_principal client;
  50     krb5_data data;
  51     krb5_data packet;
  52     krb5_creds mcred, cred;
  53
  54     addrlen = sizeof(local);
  55     if (getsockname (sock, (struct sockaddr *)&local, &addrlen) < 0
  56         || addrlen != sizeof(local))
  57         err (1, "getsockname(%s)", hostname);
  58
  59     addrlen = sizeof(remote);
  60     if (getpeername (sock, (struct sockaddr *)&remote, &addrlen) < 0
  61         || addrlen != sizeof(remote))
  62         err (1, "getpeername(%s)", hostname);
  63
  64     status = krb5_init_context(&context);
  65     if (status)
  66         errx(1, "krb5_init_context failed: %d", status);
  67
  68     status = krb5_cc_default (context, &ccache);
  69     if (status)
  70         krb5_err(context, 1, status, "krb5_cc_default");
  71
  72     status = krb5_auth_con_init (context, &auth_context);
  73     if (status)
  74         krb5_err(context, 1, status, "krb5_auth_con_init");
  75
  76     local_addr.addr_type = AF_INET;
  77     local_addr.address.length = sizeof(local.sin_addr);
  78     local_addr.address.data   = &local.sin_addr;
  79
  80     remote_addr.addr_type = AF_INET;
  81     remote_addr.address.length = sizeof(remote.sin_addr);
  82     remote_addr.address.data   = &remote.sin_addr;
  83
  84     status = krb5_auth_con_setaddrs (context,
  85                                      auth_context,
  86                                      &local_addr,
  87                                      &remote_addr);
  88     if (status)
  89         krb5_err(context, 1, status, "krb5_auth_con_setaddr");
  90
  91     status = krb5_cc_get_principal(context, ccache, &client);
  92     if(status)
  93         krb5_err(context, 1, status, "krb5_cc_get_principal");
  94     status = krb5_make_principal(context, &mcred.server,
  95                                  *krb5_princ_realm(context, client),
  96                                  "krbtgt",
  97                                  *krb5_princ_realm(context, client),
  98                                  NULL);
  99     if(status)
 100         krb5_err(context, 1, status, "krb5_make_principal");
 101
 102     status = krb5_cc_retrieve_cred(context, ccache, 0, &mcred, &cred);
 103     if(status)
 104         krb5_err(context, 1, status, "krb5_cc_retrieve_cred");
 105
 106     {
 107         char *client_name;
 108         krb5_data data;
 109         status = krb5_unparse_name(context, cred.client, &client_name);
 110         if(status)
 111             krb5_err(context, 1, status, "krb5_unparse_name");
 112         data.data = client_name;
 113         data.length = strlen(client_name) + 1;
 114         status = krb5_write_message(context, &sock, &data);
 115         if(status)
 116             krb5_err(context, 1, status, "krb5_write_message");
 117         free(client_name);
 118     }
 119
 120     status = krb5_write_message(context, &sock, &cred.ticket);
 121     if(status)
 122         krb5_err(context, 1, status, "krb5_write_message");
 123
 124     status = krb5_auth_con_setuserkey(context, auth_context, &cred.session);
 125     if(status)
 126         krb5_err(context, 1, status, "krb5_auth_con_setuserkey");
 127
 128     status = krb5_recvauth(context, &auth_context, &sock,
 129                            VERSION, client, 0, NULL, NULL);
 130
 131     if (status)
 132         krb5_err(context, 1, status, "krb5_recvauth");
 133
 134     data.data   = "hej";
 135     data.length = 3;
 136
 137     krb5_data_zero (&packet);
 138
 139     status = krb5_mk_safe (context,
 140                            auth_context,
 141                            &data,
 142                            &packet,
 143                            NULL);
 144     if (status)
 145         krb5_err(context, 1, status, "krb5_mk_safe");
 146
 147     status = krb5_write_message(context, &sock, &packet);
 148     if(status)
 149         krb5_err(context, 1, status, "krb5_write_message");
 150
 151     data.data   = "hemligt";
 152     data.length = 7;
 153
 154     krb5_data_free (&packet);
 155
 156     status = krb5_mk_priv (context,
 157                            auth_context,
 158                            &data,
 159                            &packet,
 160                            NULL);
 161     if (status)
 162         krb5_err(context, 1, status, "krb5_mk_priv");
 163
 164     status = krb5_write_message(context, &sock, &packet);
 165     if(status)
 166         krb5_err(context, 1, status, "krb5_write_message");
 167     return 0;
 168 }
 169
 170 int
 171 main(int argc, char **argv)
 172 {
 173     int port = client_setup(&context, &argc, argv);
 174     return client_doit (argv[argc], port, service, proto);
 175 }