1 files changed, 79 insertions, 0 deletions
diff --git a/src/lib/krb425/mk_req.c b/src/lib/krb425/mk_req.c
new file mode 100644
index 000000000..755bfd85f
--- /dev/null
+++ b/src/lib/krb425/mk_req.c
@@ -0,0 +1,79 @@
+/*
+ * $Source$
+ * $Author$
+ *
+ * Copyright 1990 by the Massachusetts Institute of Technology.
+ *
+ * For copying and distribution information, please see the file
+ * <krb5/copyright.h>.
+ *
+ * krb_mk_req for krb425
+ */
+
+#if !defined(lint) && !defined(SABER)
+static char rcsid_mk_req_c[] =
+"$Id$";
+#endif	/* !lint & !SABER */
+
+#include <krb5/copyright.h>
+#include "krb425.h"
+
+int
+krb_mk_req(authent, service, instance, realm, checksum)
+KTEXT authent;
+char *service;
+char *instance;
+char *realm;
+u_long checksum;
+{
+	krb5_data *server[4];
+	krb5_data srvdata[3];
+	krb5_error_code r;
+	krb5_data outbuf;
+	krb5_checksum ck;
+
+	set_data5(srvdata[0], realm);
+	set_data5(srvdata[1], service);
+	set_data5(srvdata[2], instance);
+
+	server[0] = &srvdata[0];
+	server[1] = &srvdata[1];
+	server[2] = &srvdata[2];
+	server[3] = 0;
+
+	if (!_krb425_ccache)
+		krb5_cc_default(&_krb425_ccache);
+
+#ifdef	EBUG
+	EPRINT "Calling krb5_mk_req with:\n");
+	EPRINT "	Realm   : "); show5(srvdata[0]); ENEWLINE
+	EPRINT "	Service : "); show5(srvdata[1]); ENEWLINE
+	EPRINT "	Instance: "); show5(srvdata[2]); ENEWLINE
+	EPRINT "	CheckSum: %08x\n", checksum);
+#endif
+	set_cksum(ck, checksum)
+	
+	r = krb5_mk_req((krb5_principal)server,
+			(krb5_flags)0,
+			&ck,
+			_krb425_ccache,
+			&outbuf);
+#ifdef	EBUG
+	if (r)
+		ERROR(r)
+#endif
+	if (!r) {
+		if (outbuf.length > MAX_KTXT_LEN) {
+#ifdef	EBUG
+			EPRINT "Return to long (%d > %d)\n",
+				outbuf.length, MAX_KTXT_LEN);
+#endif
+			free((char *)outbuf.data);
+			return(KFAILURE);
+		}
+		authent->length = outbuf.length;
+		bcopy((char *)outbuf.data, (char *)authent->dat, outbuf.length);
+		free((char *)outbuf.data);
+	}
+	return(krb425error(r));
+}