2005-06-29 17:55:09 +04:00
/*
Unix SMB / CIFS implementation .
PAC Glue between Samba and the KDC
Copyright ( C ) Andrew Bartlett < abartlet @ samba . org > 2005
This program is free software ; you can redistribute it and / or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation ; either version 2 of the License , or
( at your option ) any later version .
This program is distributed in the hope that it will be useful ,
but WITHOUT ANY WARRANTY ; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE . See the
GNU General Public License for more details .
You should have received a copy of the GNU General Public License
along with this program ; if not , write to the Free Software
Foundation , Inc . , 675 Mass Ave , Cambridge , MA 0213 9 , USA .
*/
# include "includes.h"
# include "kdc/kdc.h"
2005-06-30 12:26:58 +04:00
# include "kdc/pac-glue.h" /* Ensure we don't get this prototype wrong, as that could be painful */
2005-06-29 17:55:09 +04:00
krb5_error_code samba_get_pac ( krb5_context context ,
2005-08-26 15:52:35 +04:00
struct krb5_kdc_configuration * config ,
krb5_principal client ,
krb5_keyblock * krbtgt_keyblock ,
krb5_keyblock * server_keyblock ,
time_t tgs_authtime ,
krb5_data * pac )
2005-06-29 17:55:09 +04:00
{
krb5_error_code ret ;
NTSTATUS nt_status ;
struct auth_serversupplied_info * server_info ;
2005-07-04 06:36:16 +04:00
DATA_BLOB tmp_blob ;
2005-10-24 02:20:42 +04:00
char * principal_string ;
2005-06-29 17:55:09 +04:00
TALLOC_CTX * mem_ctx = talloc_named ( config , 0 , " samba_get_pac context " ) ;
if ( ! mem_ctx ) {
return ENOMEM ;
}
2005-10-24 02:20:42 +04:00
ret = krb5_unparse_name ( context , client , & principal_string ) ;
2005-06-29 17:55:09 +04:00
if ( ret ! = 0 ) {
2005-10-27 14:44:41 +04:00
krb5_set_error_string ( context , " get pac: could not unparse principal " ) ;
krb5_warnx ( context , " get pac: could not unparse principal " ) ;
2005-06-29 17:55:09 +04:00
talloc_free ( mem_ctx ) ;
return ret ;
}
2005-10-24 02:20:42 +04:00
nt_status = sam_get_server_info_principal ( mem_ctx , principal_string ,
& server_info ) ;
free ( principal_string ) ;
2005-06-29 17:55:09 +04:00
if ( ! NT_STATUS_IS_OK ( nt_status ) ) {
DEBUG ( 0 , ( " Getting user info for PAC failed: %s \n " ,
nt_errstr ( nt_status ) ) ) ;
return EINVAL ;
}
2005-08-05 04:41:53 +04:00
ret = kerberos_create_pac ( mem_ctx , server_info ,
2005-06-29 17:55:09 +04:00
context ,
2005-06-30 05:04:51 +04:00
krbtgt_keyblock ,
server_keyblock ,
r10066: This is the second in my patches to work on Samba4's kerberos support,
with an aim to make the code simpiler and more correct.
Gone is the old (since the very early Samba 3.0 krb5 days) 'iterate over
all keytypes)' code in gensec_krb5, we now follow the approach used in
gensec_gssapi, and use a keytab.
I have also done a lot of work in the GSSAPI code, to try and reduce
the diff between us and upstream heimdal. It was becoming hard to
track patches in this code, and I also want this patch (the DCE_STYLE
support) to be in a 'manageable' state for when lha considers it for
merging. (metze assures me it still has memory leak problems, but
I've started to address some of that).
This patch also includes a simple update of other code to current
heimdal, as well as changes we need for better PAC verification.
On the PAC side of things we now match windows member servers by
checking the name and authtime on an incoming PAC. Not generating these
right was the cause of the PAC pain, and so now both the main code and
torture test validate this behaviour.
One thing doesn't work with this patch:
- the sealing of RPC pipes with kerberos, Samba -> Samba seems
broken. I'm pretty sure this is related to AES, and the need to break
apart the gss_wrap interface.
Andrew Bartlett
(This used to be commit a3aba57c00a9c5318f4706db55d03f64e8bea60c)
2005-09-08 01:52:50 +04:00
client ,
2005-08-26 15:52:35 +04:00
tgs_authtime ,
2005-07-04 06:36:16 +04:00
& tmp_blob ) ;
2005-06-29 17:55:09 +04:00
2005-07-04 06:36:16 +04:00
if ( ret ) {
DEBUG ( 1 , ( " PAC encoding failed: %s \n " ,
smb_get_krb5_error_message ( context , ret , mem_ctx ) ) ) ;
talloc_free ( mem_ctx ) ;
return ret ;
}
ret = krb5_data_copy ( pac , tmp_blob . data , tmp_blob . length ) ;
2005-06-29 17:55:09 +04:00
talloc_free ( mem_ctx ) ;
return ret ;
}