From 625dde3dc2ac7997ab6492241ce9f4a61554a4f6 Mon Sep 17 00:00:00 2001
From: Assar Westerlund <assar@sics.se>
Date: Sun, 8 Jun 1997 05:55:37 +0000
Subject: [PATCH] Fix PA-ENC-TS-ENC

git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@1865 ec53bebd-3082-4978-b11e-865c3cabbd6b
---
 kdc/kerberos5.c | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/kdc/kerberos5.c b/kdc/kerberos5.c
index 634dda3a0..fb9acd58f 100644
--- a/kdc/kerberos5.c
+++ b/kdc/kerberos5.c
@@ -72,10 +72,23 @@ as_rep(krb5_context context,
 	krb5_data ts_data;
 	PA_ENC_TS_ENC p;
 	int len;
+	EncryptedData enc_data;
+
+	len = decode_EncryptedData(req->padata->val->padata_value.data,
+				   req->padata->val->padata_value.length,
+				   &enc_data);
+	if (len < 0) {
+	    krb5_mk_error (client_princ,
+			   KRB5KRB_AP_ERR_BAD_INTEGRITY,
+			   "Couldn't decode",
+			   NULL,
+			   data);
+	    return 0;
+	}
 
 	krb5_decrypt (context,
-		      req->padata->val->padata_value.data,
-		      req->padata->val->padata_value.length,
+		      enc_data.cipher.data,
+		      enc_data.cipher.length,
 		      &client->keyblock,
 		      &ts_data);
 	len = decode_PA_ENC_TS_ENC(ts_data.data,