1#!/bin/sh
2#
3# Copyright (c) 2006 - 2008 Kungliga Tekniska H��gskolan
4# (Royal Institute of Technology, Stockholm, Sweden). 
5# All rights reserved. 
6#
7# Redistribution and use in source and binary forms, with or without 
8# modification, are permitted provided that the following conditions 
9# are met: 
10#
11# 1. Redistributions of source code must retain the above copyright 
12#    notice, this list of conditions and the following disclaimer. 
13#
14# 2. Redistributions in binary form must reproduce the above copyright 
15#    notice, this list of conditions and the following disclaimer in the 
16#    documentation and/or other materials provided with the distribution. 
17#
18# 3. Neither the name of the Institute nor the names of its contributors 
19#    may be used to endorse or promote products derived from this software 
20#    without specific prior written permission. 
21#
22# THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND 
23# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
24# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
25# ARE DISCLAIMED.  IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE 
26# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
27# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 
28# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 
29# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 
30# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 
31# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 
32# SUCH DAMAGE. 
33
34top_builddir="@top_builddir@"
35env_setup="@env_setup@"
36objdir="@objdir@"
37
38testfailed="echo test failed; cat messages.log; exit 1"
39
40. ${env_setup}
41
42# If there is no useful db support compiled in, disable test
43${have_db} || exit 77
44
45R=TEST.H5L.SE
46
47port=@port@
48
49kadmin="${kadmin} -l -r $R"
50kdc="${kdc} --addresses=localhost -P $port"
51
52server=host/datan.test.h5l.se
53cache="FILE:${objdir}/cache.krb5"
54keyfile="${hx509_data}/key.der"
55keyfile2="${hx509_data}/key2.der"
56
57kinit="${kinit} -c $cache ${afs_no_afslog}"
58kgetcred="${kgetcred} -c $cache"
59kdestroy="${kdestroy} -c $cache ${afs_no_unlog}"
60
61KRB5_CONFIG="${objdir}/krb5-pkinit.conf"
62export KRB5_CONFIG
63
64rsa=yes
65pkinit=no
66if ${hxtool} info | grep 'rsa: hx509 null RSA' > /dev/null ; then
67    rsa=no
68fi
69if ${hxtool} info | grep 'rand: not available' > /dev/null ; then
70    rsa=no
71fi
72
73if ${kinit} --help 2>&1 | grep "CA certificates" > /dev/null; then
74    pkinit=yes
75fi
76
77# If we doesn't support pkinit and have RSA, give up
78if test "$pkinit" != yes -o "$rsa" != yes ; then
79    exit 77
80fi
81
82
83rm -f current-db*
84rm -f out-*
85rm -f mkey.file*
86
87> messages.log
88
89echo Creating database
90${kadmin} \
91    init \
92    --realm-max-ticket-life=1day \
93    --realm-max-renewable-life=1month \
94    ${R} || exit 1
95
96${kadmin} add -p foo --use-defaults foo@${R} || exit 1
97${kadmin} add -p bar --use-defaults bar@${R} || exit 1
98${kadmin} add -p baz --use-defaults baz@${R} || exit 1
99${kadmin} modify --alias=baz2@test.h5l.se baz@${R} || exit 1
100${kadmin} modify --pkinit-acl="CN=baz,DC=test,DC=h5l,DC=se" baz@${R} || exit 1
101
102${kadmin} add -p kaka --use-defaults ${server}@${R} || exit 1
103
104echo "Doing database check"
105${kadmin} check ${R} || exit 1
106
107echo "Setting up certificates"
108${hxtool} request-create \
109	 --subject="CN=kdc,DC=test,DC=h5l,DC=se" \
110	 --key=FILE:${keyfile2} \
111	 req-kdc.der || exit 1
112${hxtool} request-create \
113	 --subject="CN=bar,DC=test,DC=h5l,DC=se" \
114	 --key=FILE:${keyfile2} \
115	 req-pkinit.der || exit 1
116${hxtool} request-create \
117	 --subject="CN=baz,DC=test,DC=h5l,DC=se" \
118	 --key=FILE:${keyfile2} \
119	 req-pkinit2.der || exit 1
120
121echo "issue self-signed ca cert"
122${hxtool} issue-certificate \
123	  --self-signed \
124	  --issue-ca \
125	  --ca-private-key=FILE:${keyfile} \
126          --subject="CN=CA,DC=test,DC=h5l,DC=se" \
127	  --certificate="FILE:ca.crt" || exit 1
128
129echo "issue kdc certificate"
130${hxtool} issue-certificate \
131	  --ca-certificate=FILE:$objdir/ca.crt,${keyfile} \
132	  --type="pkinit-kdc" \
133          --pk-init-principal="krbtgt/TEST.H5L.SE@TEST.H5L.SE" \
134	  --req="PKCS10:req-kdc.der" \
135	  --certificate="FILE:kdc.crt" || exit 1
136
137echo "issue user certificate (pkinit san)"
138${hxtool} issue-certificate \
139	  --ca-certificate=FILE:$objdir/ca.crt,${keyfile} \
140	  --type="pkinit-client" \
141          --pk-init-principal="bar@TEST.H5L.SE" \
142	  --req="PKCS10:req-pkinit.der" \
143	  --certificate="FILE:pkinit.crt" || exit 1
144
145echo "issue user 2 certificate (no san)"
146${hxtool} issue-certificate \
147	  --ca-certificate=FILE:$objdir/ca.crt,${keyfile} \
148	  --type="pkinit-client" \
149	  --req="PKCS10:req-pkinit2.der" \
150	  --certificate="FILE:pkinit2.crt" || exit 1
151
152echo "issue user 3 certificate (ms san)"
153${hxtool} issue-certificate \
154	  --ca-certificate=FILE:$objdir/ca.crt,${keyfile} \
155	  --type="pkinit-client" \
156          --ms-upn="bar@test.h5l.se" \
157	  --req="PKCS10:req-pkinit2.der" \
158	  --certificate="FILE:pkinit3.crt" || exit 1
159
160echo "issue user 3 certificate (ms san, baz2)"
161${hxtool} issue-certificate \
162	  --ca-certificate=FILE:$objdir/ca.crt,${keyfile} \
163	  --type="pkinit-client" \
164          --ms-upn="baz2@test.h5l.se" \
165	  --req="PKCS10:req-pkinit2.der" \
166	  --certificate="FILE:pkinit4.crt" || exit 1
167
168
169echo foo > ${objdir}/foopassword
170
171echo Starting kdc ; > messages.log
172${kdc} --detach --testing || { echo "kdc failed to start"; exit 1; }
173kdcpid=`getpid kdc`
174
175trap "kill -9 ${kdcpid}; echo signal killing kdc; cat ca.crt kdc.crt pkinit.crt ;exit 1;" EXIT
176
177ec=0
178
179echo "Trying pk-init (principal in cert)"; > messages.log
180base="${objdir}"
181${kinit} -C FILE:${base}/pkinit.crt,${keyfile2} bar@${R} || \
182	{ ec=1 ; eval "${testfailed}"; }
183${kgetcred} ${server}@${R} || { ec=1 ; eval "${testfailed}"; }
184${kdestroy}
185
186echo "Trying pk-init (principal in pki-mapping file) "; > messages.log
187${kinit} -C FILE:${base}/pkinit.crt,${keyfile2} foo@${R} || \
188	{ ec=1 ; eval "${testfailed}"; }
189${kgetcred} ${server}@${R} || { ec=1 ; eval "${testfailed}"; }
190${kdestroy}
191
192echo "Trying pk-init (principal subject in DB)"; > messages.log
193${kinit} -C FILE:${base}/pkinit2.crt,${keyfile2} baz@${R} || \
194	{ ec=1 ; eval "${testfailed}"; }
195${kgetcred} ${server}@${R} || { ec=1 ; eval "${testfailed}"; }
196${kdestroy}
197
198echo "Trying pk-init (ms upn)"; > messages.log
199${kinit} -C FILE:${base}/pkinit3.crt,${keyfile2} bar@${R} || \
200	{ ec=1 ; eval "${testfailed}"; }
201${kgetcred} ${server}@${R} || { ec=1 ; eval "${testfailed}"; }
202${kdestroy}
203
204echo "Trying pk-init (ms upn, enterprise)"; > messages.log
205${kinit}  --canonicalize \
206	-C FILE:${base}/pkinit4.crt,${keyfile2} baz2@test.h5l.se@${R} || \
207	{ ec=1 ; eval "${testfailed}"; }
208${kgetcred} ${server}@${R} || { ec=1 ; eval "${testfailed}"; }
209${kdestroy}
210
211echo "Trying pk-init (ms upn, enterprise, pk-enterprise)"; > messages.log
212${kinit} --canonicalize \
213	--pk-enterprise \
214	-C FILE:${base}/pkinit4.crt,${keyfile2} ${R} || \
215	{ ec=1 ; eval "${testfailed}"; }
216${kgetcred} ${server}@${R} || { ec=1 ; eval "${testfailed}"; }
217${kdestroy}
218
219KRB5_CONFIG="${objdir}/krb5-pkinit-win.conf"
220export KRB5_CONFIG
221
222echo "Duplicated tests, now in windows 2000 mode"
223
224echo "Trying pk-init (principal in cert)"; > messages.log
225base="${objdir}"
226${kinit} -C FILE:${base}/pkinit.crt,${keyfile2} bar@${R} || \
227	{ ec=1 ; eval "${testfailed}"; }
228${kgetcred} ${server}@${R} || { ec=1 ; eval "${testfailed}"; }
229${kdestroy}
230
231echo "Trying pk-init (principal in pki-mapping file) "; > messages.log
232${kinit} -C FILE:${base}/pkinit.crt,${keyfile2} foo@${R} || \
233	{ ec=1 ; eval "${testfailed}"; }
234${kgetcred} ${server}@${R} || { ec=1 ; eval "${testfailed}"; }
235${kdestroy}
236
237echo "Trying pk-init (principal subject in DB)"; > messages.log
238${kinit} -C FILE:${base}/pkinit2.crt,${keyfile2} baz@${R} || \
239	{ ec=1 ; eval "${testfailed}"; }
240${kgetcred} ${server}@${R} || { ec=1 ; eval "${testfailed}"; }
241${kdestroy}
242
243echo "Trying pk-init (ms upn)"; > messages.log
244${kinit} -C FILE:${base}/pkinit3.crt,${keyfile2} bar@${R} || \
245	{ ec=1 ; eval "${testfailed}"; }
246${kgetcred} ${server}@${R} || { ec=1 ; eval "${testfailed}"; }
247${kdestroy}
248
249
250KRB5_CONFIG="${objdir}/krb5-pkinit.conf"
251export KRB5_CONFIG
252
253echo "Trying PKCS11 support"
254
255cat > test-rc-file.rc <<EOF
256certificate	cert	User certificate	FILE:${base}/pkinit.crt,${keyfile2}
257app-fatal	true
258EOF
259
260SOFTPKCS11RC="test-rc-file.rc"
261export SOFTPKCS11RC
262
263dir=${base}/../../lib/hx509
264file=
265
266for a in libhx509.so .libs/libhx509.so libhx509.dylib .libs/libhx509.dylib ; do
267    if [ -f $dir/$a ] ; then
268	file=$dir/$a
269	break
270    fi
271done
272
273if [ X"$file" != X -a @DLOPEN@ ] ; then
274
275    echo "Trying pk-init (principal in pki-mapping file) "; > messages.log
276    ${kinit} -C PKCS11:${file} foo@${R} || \
277	{ ec=1 ; eval "${testfailed}"; }
278    ${kgetcred} ${server}@${R} || { ec=1 ; eval "${testfailed}"; }
279    ${kdestroy}
280
281fi
282
283
284echo "killing kdc (${kdcpid})"
285sh ${leaks_kill} kdc $kdcpid || exit 1
286
287trap "" EXIT
288
289exit $ec
290