#include <stdio.h>
#include <stdlib.h>
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
#include <string.h>
extern int optind;
extern char *optarg;
static char *prog;
static void xusage()
{
#ifdef KRB5_KRB4_COMPAT
fprintf(stderr,
"usage: %s [-4 | [-c ccache] [-e etype]] service1 service2 ...\n",
prog);
#else
fprintf(stderr, "usage: %s [-c ccache] [-e etype] service1 service2 ...\n",
prog);
#endif
exit(1);
}
int quiet = 0;
static void do_v4_kvno (int argc, char *argv[]);
static void do_v5_kvno (int argc, char *argv[],
char *ccachestr, char *etypestr);
int main(int argc, char *argv[])
{
int option;
char *etypestr = 0, *ccachestr = 0;
int v4 = 0;
prog = strrchr(argv[0], '/');
prog = prog ? (prog + 1) : argv[0];
while ((option = getopt(argc, argv, "c:e:hq4")) != -1) {
switch (option) {
case 'c':
ccachestr = optarg;
break;
case 'e':
etypestr = optarg;
break;
case 'h':
xusage();
break;
case 'q':
quiet = 1;
break;
case '4':
v4 = 1;
break;
default:
xusage();
break;
}
}
if ((argc - optind) < 1)
xusage();
if ((ccachestr != 0 || etypestr != 0) && v4)
xusage();
if (v4)
do_v4_kvno(argc - optind, argv + optind);
else
do_v5_kvno(argc - optind, argv + optind, ccachestr, etypestr);
return 0;
}
#ifdef KRB5_KRB4_COMPAT
#include <kerberosIV/krb.h>
#endif
static void do_v4_kvno (int count, char *names[])
{
#ifdef KRB5_KRB4_COMPAT
int i;
for (i = 0; i < count; i++) {
int err;
char name[ANAME_SZ], inst[INST_SZ], realm[REALM_SZ];
KTEXT_ST req;
CREDENTIALS creds;
*name = *inst = *realm = '\0';
err = kname_parse (name, inst, realm, names[i]);
if (err) {
fprintf(stderr, "%s: error parsing name '%s': %s\n",
prog, names[i], krb_get_err_text(err));
exit(1);
}
if (realm[0] == 0) {
err = krb_get_lrealm(realm, 1);
if (err) {
fprintf(stderr, "%s: error looking up local realm: %s\n",
prog, krb_get_err_text(err));
exit(1);
}
}
err = krb_mk_req(&req, name, inst, realm, 0);
if (err) {
fprintf(stderr, "%s: krb_mk_req error: %s\n", prog,
krb_get_err_text(err));
exit(1);
}
err = krb_get_cred(name, inst, realm, &creds);
if (err) {
fprintf(stderr, "%s: krb_get_cred error: %s\n", prog,
krb_get_err_text(err));
exit(1);
}
if (!quiet)
printf("%s: kvno = %d\n", names[i], creds.kvno);
}
#else
xusage();
#endif
}
#include <krb5.h>
static void do_v5_kvno (int count, char *names[],
char * ccachestr, char *etypestr)
{
krb5_context context;
krb5_error_code ret;
int i, errors;
krb5_enctype etype;
krb5_ccache ccache;
krb5_principal me;
krb5_creds in_creds, *out_creds;
krb5_ticket *ticket;
char *princ;
ret = krb5_init_context(&context);
if (ret) {
com_err(prog, ret, "while initializing krb5 library");
exit(1);
}
if (etypestr) {
ret = krb5_string_to_enctype(etypestr, &etype);
if (ret) {
com_err(prog, ret, "while converting etype");
exit(1);
}
} else {
etype = 0;
}
if (ccachestr)
ret = krb5_cc_resolve(context, ccachestr, &ccache);
else
ret = krb5_cc_default(context, &ccache);
if (ret) {
com_err(prog, ret, "while opening ccache");
exit(1);
}
ret = krb5_cc_get_principal(context, ccache, &me);
if (ret) {
com_err(prog, ret, "while getting client principal name");
exit(1);
}
errors = 0;
for (i = 0; i < count; i++) {
memset(&in_creds, 0, sizeof(in_creds));
in_creds.client = me;
ret = krb5_parse_name(context, names[i], &in_creds.server);
if (ret) {
if (!quiet)
fprintf(stderr, "%s: %s while parsing principal name\n",
names[i], error_message(ret));
errors++;
continue;
}
ret = krb5_unparse_name(context, in_creds.server, &princ);
if (ret) {
fprintf(stderr, "%s: %s while printing principal name\n",
names[i], error_message(ret));
errors++;
continue;
}
in_creds.keyblock.enctype = etype;
ret = krb5_get_credentials(context, 0, ccache, &in_creds, &out_creds);
krb5_free_principal(context, in_creds.server);
if (ret) {
fprintf(stderr, "%s: %s while getting credentials\n",
princ, error_message(ret));
krb5_free_unparsed_name(context, princ);
errors++;
continue;
}
ret = krb5_decode_ticket(&out_creds->ticket, &ticket);
if (ret) {
fprintf(stderr, "%s: %s while decoding ticket\n",
princ, error_message(ret));
krb5_free_creds(context, out_creds);
krb5_free_unparsed_name(context, princ);
errors++;
continue;
}
if (!quiet)
printf("%s: kvno = %d\n", princ, ticket->enc_part.kvno);
krb5_free_ticket(context, ticket);
krb5_free_creds(context, out_creds);
krb5_free_unparsed_name(context, princ);
}
krb5_free_principal(context, me);
krb5_cc_close(context, ccache);
krb5_free_context(context);
if (errors)
exit(1);
exit(0);
}