tests/gssapi.c

   1 /* gssapi.c --- Test the GSSAPI mechanism.
   2  * Copyright (C) 2002, 2003, 2004, 2005, 2007  Simon Josefsson
   3  *
   4  * This file is part of GNU SASL.
   5  *
   6  * This program is free software: you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License as published by
   8  * the Free Software Foundation, either version 3 of the License, or
   9  * (at your option) any later version.
  10  *
  11  * This program is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU General Public License
  17  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  18  *
  19  */
  20
  21 #ifdef HAVE_CONFIG_H
  22 # include "config.h"
  23 #endif
  24
  25 #include <stdio.h>
  26 #include <stdarg.h>
  27 #include <stdlib.h>
  28 #include <string.h>
  29
  30 #include "utils.h"
  31
  32 #define SERVICE "host"
  33 #define HOST "latte.josefsson.org"
  34 #define GSSAPI_USER "jas"
  35
  36 static const char *USERNAME[] = {
  37   "foo", "BABABA", "jas", "hepp", "@"
  38 };
  39 size_t i;
  40
  41 static int
  42 callback (Gsasl * ctx, Gsasl_session * sctx, Gsasl_property prop)
  43 {
  44   int rc = GSASL_NO_CALLBACK;
  45
  46   printf ("Callback for property %d\n", prop);
  47
  48   switch (prop)
  49     {
  50     case GSASL_AUTHID:
  51       gsasl_property_set (sctx, GSASL_AUTHID, USERNAME[i]);
  52       rc = GSASL_OK;
  53       break;
  54
  55     case GSASL_SERVICE:
  56       gsasl_property_set (sctx, prop, SERVICE);
  57       rc = GSASL_OK;
  58       break;
  59
  60     case GSASL_HOSTNAME:
  61       gsasl_property_set (sctx, prop, HOST);
  62       rc = GSASL_OK;
  63       break;
  64
  65     case GSASL_VALIDATE_GSSAPI:
  66       {
  67         const char *client_name =
  68           gsasl_property_fast (sctx, GSASL_GSSAPI_DISPLAY_NAME);
  69         const char *authzid = gsasl_property_fast (sctx, GSASL_AUTHZID);
  70
  71         printf ("GSSAPI user: %s\n", client_name);
  72         printf ("Authorization ID: %s\n", authzid);
  73
  74         if (strcmp (client_name, GSSAPI_USER) == 0 &&
  75             strcmp (authzid, USERNAME[i]) == 0)
  76           rc = GSASL_OK;
  77         else
  78           rc = GSASL_AUTHENTICATION_ERROR;
  79       }
  80       break;
  81
  82     default:
  83       fail ("Unknown callback property %d\n", prop);
  84       break;
  85     }
  86
  87   return rc;
  88 }
  89
  90 void
  91 doit (void)
  92 {
  93   Gsasl *ctx = NULL;
  94   Gsasl_session *server = NULL, *client = NULL;
  95   char *s1 = NULL, *s2 = NULL;
  96   int rc, res1, res2;
  97
  98   rc = gsasl_init (&ctx);
  99   if (rc != GSASL_OK)
 100     {
 101       fail ("gsasl_init() failed (%d):\n%s\n", rc, gsasl_strerror (rc));
 102       return;
 103     }
 104
 105   gsasl_callback_set (ctx, callback);
 106
 107   for (i = 0; i < 5; i++)
 108     {
 109       rc = gsasl_server_start (ctx, "GSSAPI", &server);
 110       if (rc != GSASL_OK)
 111         {
 112           fail ("gsasl_init() failed (%d):\n%s\n", rc, gsasl_strerror (rc));
 113           return;
 114         }
 115       rc = gsasl_client_start (ctx, "GSSAPI", &client);
 116       if (rc != GSASL_OK)
 117         {
 118           fail ("gsasl_init() failed (%d):\n%s\n", rc, gsasl_strerror (rc));
 119           return;
 120         }
 121
 122       do
 123         {
 124           res1 = gsasl_step64 (server, s1, &s2);
 125           if (s1)
 126             {
 127               free (s1);
 128               s1 = NULL;
 129             }
 130           if (res1 != GSASL_OK && res1 != GSASL_NEEDS_MORE)
 131             {
 132               fail ("gsasl_step64 (1) failed (%d):\n%s\n", res1,
 133                     gsasl_strerror (res1));
 134               return;
 135             }
 136
 137           if (debug)
 138             printf ("S: %s\n", s2);
 139
 140           if (res1 == GSASL_OK && strcmp (s2, "") == 0)
 141             break;
 142
 143           res2 = gsasl_step64 (client, s2, &s1);
 144           free (s2);
 145           if (res2 != GSASL_OK && res2 != GSASL_NEEDS_MORE)
 146             {
 147               fail ("gsasl_step64 (2) failed (%d):\n%s\n", res2,
 148                     gsasl_strerror (res2));
 149               return;
 150             }
 151
 152           if (debug)
 153             printf ("C: %s\n", s1);
 154         }
 155       while (res1 != GSASL_OK || res2 != GSASL_OK);
 156
 157       if (s1)
 158         {
 159           free (s1);
 160           s1 = NULL;
 161         }
 162
 163       if (debug)
 164         printf ("\n");
 165
 166       gsasl_finish (client);
 167       gsasl_finish (server);
 168     }
 169
 170   gsasl_done (ctx);
 171 }