(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "25-Jan-98 08:40:41" ("compiled on " {DSK}sources>AUTHENTICATION.;1) "30-Mar-95 20:33:04" bcompl'd in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "16-May-90 12:10:46" {DSK}local>lde>lispcore>sources>AUTHENTICATION.;2 26536 changes to%: (VARS AUTHENTICATIONCOMS) previous date%: " 6-Jun-89 11:14:40" {DSK}local>lde>lispcore>sources>AUTHENTICATION.;1) AS.CHANGE.OWN.PASSWORDSA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 6 CONVKEY P 5 CREDS P 4 ADDR P 3 A0391 P 2 STREAM P 1 A0390 P 0 CONVGOOK I 0 SI::*CLEANUP-FORMS* F 7 NEWPASSWORD F 8 USERINFO) `Wi aHYI[KKJdgHggMNL NW h g *JggMNL W g i(131 COURIER.CALL 120 HASH.PASSWORD 113 AS.NEXT.VERIFIER 92 COURIER.CALL 81 DES.BREAKOUT.BLOCKS 74 DES.ECB.ENCRYPT 69 DES.PASSWORD.TO.KEY 61 AS.NEXT.VERIFIER 12 AS.MAKE.CONVERSATION) (125 RETURNERRORS 105 CHANGE.SIMPLE.KEY 100 AUTHENTICATION 86 RETURNERRORS 53 CHANGE.STRONG.KEY 48 AUTHENTICATION 39 ERROR 4 AS.WELL.KNOWN.NAME) () AS.CHANGE.OWN.PASSWORDS :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 USERINFO I 0 NEWPASSWORD F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 AS.CHANGE.OWN.PASSWORDSA0001) (8 SI::RESETUNWIND) () AS.REPLACE.PASSWORDSA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 7 CONVKEY P 6 CREDS P 5 ADDR P 4 A0395 P 3 STREAM P 2 A0394 P 1 ERROR P 0 CONVGOOK I 0 SI::*CLEANUP-FORMS* F 8 NAME F 9 NEWPASSWORD) `hi qHZJ\LL_KdgHggNOM Wg YKggNOM Wg YfKggNOM WOW h g IKggNOM WW g igIgaI(215 COURIER.CALL 204 HASH.PASSWORD 195 AS.NEXT.VERIFIER 173 COURIER.CALL 162 DES.BREAKOUT.BLOCKS 155 DES.ECB.ENCRYPT 150 DES.PASSWORD.TO.KEY 139 AS.NEXT.VERIFIER 116 COURIER.CALL 103 AS.NEXT.VERIFIER 76 COURIER.CALL 63 AS.NEXT.VERIFIER 11 AS.MAKE.CONVERSATION) (240 StrongKeyDoesNotExist 227 SimpleKeyDoesNotExist 209 RETURNERRORS 186 CREATE.SIMPLE.KEY 181 AUTHENTICATION 167 RETURNERRORS 130 CREATE.STRONG.KEY 125 AUTHENTICATION 110 RETURNERRORS 94 DELETE.SIMPLE.KEY 89 AUTHENTICATION 70 RETURNERRORS 54 DELETE.STRONG.KEY 49 AUTHENTICATION 40 ERROR 4 AS.WELL.KNOWN.NAME) () AS.REPLACE.PASSWORDS :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 NEWPASSWORD I 0 NAME F 3 LISPXHIST) &@ bS!g $(31 SI::RESETUNWIND 26 \MVLIST 21 AS.REPLACE.PASSWORDSA0001 5 PARSE.NSNAME) (16 SI::RESETUNWIND) () AS.CREATE.PASSWORDSA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 6 CONVKEY P 5 CREDS P 4 ADDR P 3 A0399 P 2 STREAM P 1 A0398 P 0 CONVGOOK I 0 SI::*CLEANUP-FORMS* F 7 NAME F 8 PASSWORD) `hi aHYI[KKJdgHggMNL WNW h g ,JggMNL WW g i(134 COURIER.CALL 123 HASH.PASSWORD 114 AS.NEXT.VERIFIER 93 COURIER.CALL 82 DES.BREAKOUT.BLOCKS 75 DES.ECB.ENCRYPT 70 DES.PASSWORD.TO.KEY 60 AS.NEXT.VERIFIER 11 AS.MAKE.CONVERSATION) (128 RETURNERRORS 106 CREATE.SIMPLE.KEY 101 AUTHENTICATION 87 RETURNERRORS 52 CREATE.STRONG.KEY 47 AUTHENTICATION 38 ERROR 4 AS.WELL.KNOWN.NAME) () AS.CREATE.PASSWORDS :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 PASSWORD I 0 NAME F 3 LISPXHIST) &@ bS!g $(31 SI::RESETUNWIND 26 \MVLIST 21 AS.CREATE.PASSWORDSA0001 5 PARSE.NSNAME) (16 SI::RESETUNWIND) () AS.DELETE.PASSWORDSA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 6 CONVKEY P 5 CREDS P 4 ADDR P 3 A0403 P 2 STREAM P 1 A0402 P 0 CONVGOOK I 0 SI::*CLEANUP-FORMS* F 7 NAME) q`hi aHYI[KKJdgHggMNL Wg %JggMNL Wg i(107 COURIER.CALL 94 AS.NEXT.VERIFIER 73 COURIER.CALL 60 AS.NEXT.VERIFIER 11 AS.MAKE.CONVERSATION) (101 RETURNERRORS 86 DELETE.SIMPLE.KEY 81 AUTHENTICATION 67 RETURNERRORS 52 DELETE.STRONG.KEY 47 AUTHENTICATION 38 ERROR 4 AS.WELL.KNOWN.NAME) () AS.DELETE.PASSWORDS :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 NAME F 3 LISPXHIST) &@ bS!g $(31 SI::RESETUNWIND 26 \MVLIST 21 AS.DELETE.PASSWORDSA0001 5 PARSE.NSNAME) (16 SI::RESETUNWIND) () \AUTHENTICATION.FIND.SERVER :D8 (P 2 ADDR P 0 INFO) ``I:h5lgghd`o Xd` HZlggg ddgdghiJiIY(101 COURIER.EXPEDITED.CALL 68 \APPEND2 54 COURIER.BROADCAST.CALL) (119 REJECT 111 ERROR 95 RETURNERRORS 90 BROADCAST.FOR.SERVERS 85 AUTHENTICATION 73 \AUTHENTICATION.SERVER.CACHE 63 \AUTHENTICATION.SERVER.CACHE 43 AUTHENTICATION.NET.HINT 36 BROADCAST.FOR.SERVERS 31 AUTHENTICATION 13 \AUTHENTICATION.SERVER.CACHE 7 \AUTHENTICATION.SERVER.CACHE) ( 48 "Authentication servers") AS.MAKE.CONVERSATIONA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 CRED.PACK F 3 USERINFO F 4 SI::NLSETQ-VALUE) 8i@S R gg chcg(42 COURIER.READ.REP 27 DES.BREAKOUT.BLOCKS 22 DES.CBCC.DECRYPT 17 DES.MAKE.BLOCKS 11 DES.PASSWORD.TO.KEY) (53 :NORMAL 37 CREDENTIALS.PACKAGE 32 AUTHENTICATION) () AS.MAKE.CONVERSATION :D8 (P 7 *CONDITION-HANDLER-BINDINGS* P 6 SI::*NLSETQFLAG* P 5 *PROCEED-CASES* P 4 SI::NLSETQ-VALUE P 3 STREAM P 2 ADDR P 1 CRED.PACK P 0 NONCE I 2 KEEPSTREAM I 1 USERINFO I 0 RECIPIENT F 8 SI::*RESETFORMS* F 9 *PROCEED-CASES* F 10 *CONDITION-HANDLER-BINDINGS*) Ag b1ZB*Jhig [BgKhhdWcKJggA @ Hg YgI`WioWM gLIdHjoI YBKJIo(192 DES.MAKE.KEY 154 AS.MAKE.CONVERSATIONA0001 114 COURIER.CALL 102 PARSE.NSNAME 96 PARSE.NSNAME 48 COURIER.OPEN 27 \AUTHENTICATION.FIND.SERVER 19 RAND 11 \INTERNAL/GETPASSWORD) (160 :NORMAL 133 SI::NLSETQ-PROCEED-CASE 121 ERROR 108 RETURNERRORS 89 GET.STRONG.CREDENTIALS 84 AUTHENTICATION 61 \SPP.RESETCLOSE 43 AUTHENTICATION 6 |NS::|) ( 208 (ERROR CALL.ERROR Can'tGetAuthenticationService) 180 (ERROR AUTHENTICATION.ERROR CredentialsInvalid) 142 (CL:ERROR . SI::NLSETQHANDLER)) AS.NEXT.VERIFIER :D8 (P 2 E P 1 BL P 0 L I 1 ADDR I 0 CONVKEY) hgg Hd=dAHd*HAHdHAH 0Id@J LKh]K&M (143 DES.BREAKOUT.BLOCKS 119 DES.ECB.ENCRYPT 100 DES.MAKE.BLOCKS 27 COURIER.WRITE.REP 9 RAND 4 IDATE) (88 NSADDRESS 64 NSADDRESS 43 NSADDRESS 22 STRONG.VERIFIER 17 AUTHENTICATION) () NSLOGIN :D8 (I 1 MSG I 0 HOST) @ihAhg (15 \INTERNAL/GETPASSWORD) (9 NS) () NS.AUTHENTICATE :D8 (P 1 RESULT P 0 ADDR I 0 SIMPLE.CREDENTIALS) T@g@ bHggg@@g dddg(64 COURIER.CALL 27 \AUTHENTICATION.FIND.SERVER 19 NS.MAKE.SIMPLE.CREDENTIALS 14 \INTERNAL/GETPASSWORD) (81 CredentialsInvalid 58 RETURNERRORS 49 CHECK.SIMPLE.CREDENTIALS 44 AUTHENTICATION 38 AllDown 8 |NS::|) () NS.MAKE.SIMPLE.CREDENTIALS :D8 (I 0 NAME/PASS) 7g@ gg h@ gg (51 COURIER.WRITE.REP 36 HASH.PASSWORD 26 COURIER.WRITE.REP 11 PARSE.NSNAME) (46 SIMPLE.VERIFIER 41 AUTHENTICATION 21 SIMPLE.CREDENTIALS 16 AUTHENTICATION 4 SIMPLE) () HASH.PASSWORD :D8 (P 2 CHAR P 0 HASH I 0 PASSWORD) ~j@ RIdj kټIdj LIl ػIdj lDLk\K'NMLMLºHlJlI nM H(119 IMOD 110 L-CASECODE 69 %%ARRAY-TYPE-NUMBER 54 \GETBASEFIXP 41 %%ARRAY-BASE 22 %%ARRAY-OFFSET 6 MKSTRING) NIL () CH.RETRIEVE.DOMAIN.ACL :D8 (P 0 AUTH I 1 WHICH.LIST I 0 DOMAIN) ;i @l b gg@AoHHg (56 COURIER.CALL 23 CH.FINDSERVER 16 PARSE.NSNAME 5 CH.GETAUTHENTICATOR) (50 RETURNERRORS 33 RETRIEVE.DOMAIN.ACL 28 CHACCESSCONTROL) ( 40 (CHACCESSCONTROL . ELEMENT.NAME)) CH.ADD.MEMBER.TO.DOMAIN.ACL :D8 (P 0 AUTH I 3 DONTCHECK I 2 NEWMEMBER I 1 WHICH.LIST I 0 DOMAIN) DCB bi @l b lgg@ABHHg (65 COURIER.EXPEDITED.CALL 34 CH.FINDSERVER 27 PARSE.NSNAME 16 CH.GETAUTHENTICATOR 7 CH.CANONICAL.NAME) (59 RETURNERRORS 46 ADD.MEMBER.TO.DOMAIN.ACL 41 CHACCESSCONTROL) () CH.DELETE.MEMBER.FROM.DOMAIN.ACL :D8 (P 0 AUTH I 3 DONTCHECK I 2 OLDMEMBER I 1 WHICH.LIST I 0 DOMAIN) DCB bi @l b lgg@ABHHg (65 COURIER.EXPEDITED.CALL 34 CH.FINDSERVER 27 PARSE.NSNAME 16 CH.GETAUTHENTICATOR 7 CH.CANONICAL.NAME) (59 RETURNERRORS 46 DELETE.MEMBER.FROM.DOMAIN.ACL 41 CHACCESSCONTROL) () CH.IS.IN.DOMAIN.ACL :D8 (P 0 AUTH I 3 NAME I 2 PROPERTY I 1 WHICH I 0 DOMAIN) Fi @l bi gg@AB BC HHg (67 COURIER.CALL 51 PARSE.NSNAME 42 CH.PROPERTY 24 CH.FINDSERVER 16 PARSE.NSNAME 5 CH.GETAUTHENTICATOR) (61 RETURNERRORS 34 IS.IN.DOMAIN.ACL 29 CHACCESSCONTROL) () CH.RETRIEVE.PROPERTY.ACL :D8 (P 0 AUTH I 2 WHICH.LIST I 1 PROPERTY I 0 NAME) Ci @ bi gg@A ABoHHg (64 COURIER.CALL 39 CH.PROPERTY 22 CH.FINDSERVER 14 PARSE.NSNAME 5 CH.GETAUTHENTICATOR) (58 RETURNERRORS 32 RETRIEVE.PROPERTY.ACL 27 CHACCESSCONTROL) ( 48 (CHACCESSCONTROL . ELEMENT.NAME)) CH.ADD.MEMBER.TO.PROPERTY.ACL :D8 (P 0 AUTH I 4 DONTCHECK I 3 NEWMEMBER I 2 WHICH.LIST I 1 PROPERTY I 0 OBJECT) ODC b@ bi @ gg@A ABC HHg (76 COURIER.CALL 60 PARSE.NSNAME 50 CH.PROPERTY 33 CH.FINDSERVER 24 CH.GETAUTHENTICATOR 16 PARSE.NSNAME 7 CH.CANONICAL.NAME) (70 RETURNERRORS 43 ADD.MEMBER.TO.PROPERTY.ACL 38 CHACCESSCONTROL) () CH.DELETE.MEMBER.FROM.PROPERTY.ACL :D8 (P 0 AUTH I 4 DONTCHECK I 3 OLDMEMBER I 2 WHICH.LIST I 1 PROPERTY I 0 OBJECT) ODC b@ bi @ gg@A ABC HHg (76 COURIER.CALL 60 PARSE.NSNAME 50 CH.PROPERTY 33 CH.FINDSERVER 24 CH.GETAUTHENTICATOR 16 PARSE.NSNAME 7 CH.CANONICAL.NAME) (70 RETURNERRORS 43 DELETE.MEMBER.FROM.PROPERTY.ACL 38 CHACCESSCONTROL) () CH.NUMBER.TO.PROPERTY :D8 (L (0 PNUM)) $`Hh@IIiHXNIL (4 CH.PROPERTIES) () CH.LIST.PROPERTIES :D8 (I 0 OBJECTNAMEPATTERN) ,@ b lgg@g (41 COURIER.EXPEDITED.CALL 30 CH.GETAUTHENTICATOR 12 CH.FINDSERVER 5 PARSE.NSNAME) (35 RETURNERRORS 24 LIST.PROPERTIES 19 CLEARINGHOUSE) () CH.LIST.ORGANIZATIONS :D8 (I 0 ORGANIZATIONPATTERN) -gg@k og (42 COURIER.CALL 31 CH.GETAUTHENTICATOR 21 PARSE.NSNAME 4 GETCLEARINGHOUSE) (36 RETURNERRORS 14 LIST.ORGANIZATIONS 9 CLEARINGHOUSE) ( 26 (CLEARINGHOUSE . ORGANIZATION)) CH.LIST.OBJECTS :D8 (I 1 PROPERTY I 0 OBJECTPATTERN) =@ bi gg@Ag og (58 COURIER.CALL 47 CH.GETAUTHENTICATOR 37 CH.PROPERTY 13 CH.FINDSERVER 5 PARSE.NSNAME) (52 RETURNERRORS 32 ALL 23 LIST.OBJECTS 18 CLEARINGHOUSE) ( 42 (CLEARINGHOUSE . OBJECT)) CH.ADD.GROUP.PROPERTYA0001 :D8 (I 0 DATASTREAM F 0 MEMBERS) @Phg (12 COURIER.WRITE.BULKDATA) (7 NSNAME) () CH.ADD.GROUP.PROPERTY :D8 (P 3 X I 3 DONTCHECK I 2 MEMBERS I 1 PROPERTY I 0 OBJECTNAME) `C%@Bd[ IHhZH&Jb@ b gg@Ad3 gi g (93 COURIER.CALL 82 CH.GETAUTHENTICATOR 71 CH.PROPERTY 50 CH.FINDSERVER 43 PARSE.NSNAME 16 CH.CANONICAL.NAME) (87 RETURNERRORS 76 CH.ADD.GROUP.PROPERTYA0001 60 ADD.GROUP.PROPERTY 55 CLEARINGHOUSE) () CH.ADD.MEMBER :D8 (I 3 DONTCHECK I 2 NEWMEMBER I 1 PROPERTY I 0 GROUPNAME) ACB b@ b gg@Ad3 Bi g (62 COURIER.CALL 51 CH.GETAUTHENTICATOR 44 CH.PROPERTY 23 CH.FINDSERVER 16 PARSE.NSNAME 7 CH.CANONICAL.NAME) (56 RETURNERRORS 33 ADD.MEMBER 28 CLEARINGHOUSE) () CH.DELETE.MEMBER :D8 (I 3 DONTCHECK I 2 OLDMEMBER I 1 PROPERTY I 0 GROUPNAME) ACB b@ b gg@Ad3 Bi g (62 COURIER.CALL 51 CH.GETAUTHENTICATOR 44 CH.PROPERTY 23 CH.FINDSERVER 16 PARSE.NSNAME 7 CH.CANONICAL.NAME) (56 RETURNERRORS 33 DELETE.MEMBER 28 CLEARINGHOUSE) () (PRETTYCOMPRINT AUTHENTICATIONCOMS) (RPAQQ AUTHENTICATIONCOMS ((COMS (* ; "Authentication Protocol") (COURIERPROGRAMS AUTHENTICATION CHACCESSCONTROL)) (COMS (* ; "Strong authentication and changing passwords") (FNS AS.CHANGE.OWN.PASSWORDS AS.REPLACE.PASSWORDS AS.CREATE.PASSWORDS AS.DELETE.PASSWORDS \AUTHENTICATION.FIND.SERVER AS.MAKE.CONVERSATION AS.NEXT.VERIFIER) (ADDVARS (\SYSTEMCACHEVARS \AUTHENTICATION.SERVER.CACHE)) (VARS AS.WELL.KNOWN.NAME) (INITVARS (AUTHENTICATION.NET.HINT) ( \AUTHENTICATION.SERVER.CACHE)) (DECLARE%: DONTCOPY (CONSTANTS (\AUTHENTICATION.SIMPLE.CREDENTIALS 0) ( \AUTHENTICATION.SOCKET 21)) (GLOBALVARS AUTHENTICATION.NET.HINT \AUTHENTICATION.SERVER.CACHE AS.WELL.KNOWN.NAME))) (COMS (* ; "Weak authentication") (FNS NSLOGIN NS.AUTHENTICATE NS.MAKE.SIMPLE.CREDENTIALS HASH.PASSWORD)) (COMS (* ; "Clearinghouse access control") (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) CLEARINGHOUSE)) (FNS CH.RETRIEVE.DOMAIN.ACL CH.ADD.MEMBER.TO.DOMAIN.ACL CH.DELETE.MEMBER.FROM.DOMAIN.ACL CH.IS.IN.DOMAIN.ACL CH.RETRIEVE.PROPERTY.ACL CH.ADD.MEMBER.TO.PROPERTY.ACL CH.DELETE.MEMBER.FROM.PROPERTY.ACL CH.NUMBER.TO.PROPERTY)) (COMS (* ;; "These belong on CLEARINGHOUSE but are here temporarily for benefit of Lyric users wanting a functional NSMAINTAIN. Put these back when a %"Lyric%" version of this file has been stashed." ) (FNS CH.LIST.PROPERTIES CH.LIST.ORGANIZATIONS CH.LIST.OBJECTS) (FNS CH.ADD.GROUP.PROPERTY CH.ADD.MEMBER CH.DELETE.MEMBER)))) (COURIERPROGRAM AUTHENTICATION (14 2) TYPES ((KEY (ARRAY 4 UNSPECIFIED)) (BLOCK (ARRAY 4 UNSPECIFIED)) (CREDENTIALS.TYPE (ENUMERATION (SIMPLE 0) (STRONG 1))) (CREDENTIALS (RECORD (TYPE CREDENTIALS.TYPE) ( VALUE (SEQUENCE UNSPECIFIED)))) (CREDENTIALS.PACKAGE (RECORD (CREDENTIALS CREDENTIALS) (NONCE LONGCARDINAL) (RECIPIENT NSNAME) (CONVERSATION.KEY KEY))) (STRONG.CREDENTIALS (RECORD ( CONVERSATION.KEY KEY) (EXPIRATION.TIME TIME) (INITIATOR NSNAME))) (SIMPLE.CREDENTIALS NSNAME) ( VERIFIER (SEQUENCE UNSPECIFIED)) (STRONG.VERIFIER (RECORD (TIMESTAMP TIME) (TICKS LONGCARDINAL))) ( SIMPLE.VERIFIER HASHED.PASSWORD) (HASHED.PASSWORD CARDINAL) (PROBLEM (ENUMERATION (CredentialsInvalid 0) (VerifierInvalid 1) (VerifierExpired 2) (VerifierReused 3) (CredentialsExpired 4) ( InappropriateCredentials 5))) (CALL.PROBLEM (ENUMERATION (TooBusy 0) (AccessRightsInsufficient 1) ( KeysUnavailable 2) (StrongKeyDoesNotExist 3) (SimpleKeyDoesNotExist 4) (StrongKeyAlreadyRegistered 5) (SimpleKeyAlreadyRegistered 6) (DomainForNewKeyUnavailable 7) (DomainForNewKeyUnknown 8) (BadKey 9) ( BadName 10) (DatabaseFull 11) (Other 12))) (WHICH (ENUMERATION (notApplicable 0) (Initiator 1) ( Recipient 2) (Client 3)))) PROCEDURES ((BROADCAST.FOR.SERVERS 0 NIL RETURNS ((CLEARINGHOUSE . NETWORK.ADDRESS.LIST))) (GET.STRONG.CREDENTIALS 1 (NSNAME NSNAME LONGCARDINAL) RETURNS ((SEQUENCE UNSPECIFIED)) REPORTS (CALL.ERROR)) (CHECK.SIMPLE.CREDENTIALS 2 (CREDENTIALS VERIFIER) RETURNS ( BOOLEAN) REPORTS (AUTHENTICATION.ERROR CALL.ERROR)) (CREATE.STRONG.KEY 3 (CREDENTIALS VERIFIER NSNAME KEY) RETURNS NIL REPORTS (AUTHENTICATION.ERROR CALL.ERROR)) (CHANGE.STRONG.KEY 4 (CREDENTIALS VERIFIER KEY) RETURNS NIL REPORTS (AUTHENTICATION.ERROR CALL.ERROR)) (DELETE.STRONG.KEY 5 (CREDENTIALS VERIFIER NSNAME) RETURNS NIL REPORTS (AUTHENTICATION.ERROR CALL.ERROR)) (CREATE.SIMPLE.KEY 6 ( CREDENTIALS VERIFIER NSNAME HASHED.PASSWORD) RETURNS NIL REPORTS (AUTHENTICATION.ERROR CALL.ERROR)) ( CHANGE.SIMPLE.KEY 7 (CREDENTIALS VERIFIER HASHED.PASSWORD) RETURNS NIL REPORTS (AUTHENTICATION.ERROR CALL.ERROR)) (DELETE.SIMPLE.KEY 8 (CREDENTIALS VERIFIER NSNAME) RETURNS NIL REPORTS ( AUTHENTICATION.ERROR CALL.ERROR))) ERRORS ((CALL.ERROR 1 (CALL.PROBLEM WHICH)) (AUTHENTICATION.ERROR 2 (PROBLEM)))) (COURIERPROGRAM CHACCESSCONTROL (127 1) INHERITS (CLEARINGHOUSE) TYPES ((DOMAIN.NAME NSNAME2) ( ORGANIZATION.NAME STRING) (WHICH.LIST (ENUMERATION (Readers 0) (valueDONTUSE 1) (Administrators 2) ( selfControllers 3))) (ELEMENT.NAME NSNAME) (DISTING.NAME NSNAME) (IS.MEMBER BOOLEAN) (ACCESS.LIST ( SEQUENCE ELEMENT.NAME)) (CREDENTIALS (AUTHENTICATION . CREDENTIALS)) (VERIFIER (AUTHENTICATION . VERIFIER))) PROCEDURES ((RETRIEVE.PROPERTY.ACL 30 (ELEMENT.NAME PROPERTY WHICH.LIST BULK.DATA.SINK CREDENTIALS VERIFIER) RETURNS (DISTING.NAME) REPORTS (CALL.ERROR)) (ADD.MEMBER.TO.PROPERTY.ACL 31 ( ELEMENT.NAME PROPERTY WHICH.LIST ELEMENT.NAME CREDENTIALS VERIFIER) RETURNS (DISTING.NAME) REPORTS ( CALL.ERROR)) (DELETE.MEMBER.FROM.PROPERTY.ACL 32 (ELEMENT.NAME PROPERTY WHICH.LIST ELEMENT.NAME CREDENTIALS VERIFIER) RETURNS (DISTING.NAME) REPORTS (CALL.ERROR)) (IS.IN.PROPERTY.ACL 33 ( ELEMENT.NAME PROPERTY WHICH.LIST PROPERTY ELEMENT.NAME CREDENTIALS VERIFIER) RETURNS (IS.MEMBER DISTING.NAME) REPORTS (CALL.ERROR)) (RETRIEVE.DOMAIN.ACL 34 (DOMAIN.NAME WHICH.LIST BULK.DATA.SINK CREDENTIALS VERIFIER) RETURNS (DISTING.NAME) REPORTS (CALL.ERROR)) (ADD.MEMBER.TO.DOMAIN.ACL 35 ( DOMAIN.NAME WHICH.LIST ELEMENT.NAME CREDENTIALS VERIFIER) RETURNS NIL REPORTS (CALL.ERROR)) ( DELETE.MEMBER.FROM.DOMAIN.ACL 36 (DOMAIN.NAME WHICH.LIST ELEMENT.NAME CREDENTIALS VERIFIER) RETURNS ( DISTING.NAME) REPORTS (CALL.ERROR)) (IS.IN.DOMAIN.ACL 37 (DOMAIN.NAME WHICH.LIST PROPERTY ELEMENT.NAME CREDENTIALS VERIFIER) RETURNS (IS.MEMBER) REPORTS (CALL.ERROR)) (RETRIEVE.ORGANIZATION.ACL 38 ( ORGANIZATION.NAME WHICH.LIST BULK.DATA.SINK CREDENTIALS VERIFIER) RETURNS (DISTING.NAME) REPORTS ( CALL.ERROR)) (ADD.MEMBER.TO.ORGANIZATION.ACL 39 (ORGANIZATION.NAME WHICH.LIST ELEMENT.NAME CREDENTIALS VERIFIER) RETURNS (DISTING.NAME) REPORTS (CALL.ERROR)) (DELETE.MEMBER.FROM.ORGANIZATION.ACL 40 ( ORGANIZATION.NAME WHICH.LIST ELEMENT.NAME CREDENTIALS VERIFIER) RETURNS (DISTING.NAME) REPORTS ( CALL.ERROR)) (IS.IN.ORGANIZATION.ACL 41 (ORGANIZATION.NAME WHICH.LIST PROPERTY ELEMENT.NAME CREDENTIALS VERIFIER) RETURNS (IS.MEMBER DISTING.NAME) REPORTS (CALL.ERROR)))) (ADDTOVAR \SYSTEMCACHEVARS \AUTHENTICATION.SERVER.CACHE) (RPAQQ AS.WELL.KNOWN.NAME "Authentication Service:CHServers:CHServers") (RPAQ? AUTHENTICATION.NET.HINT) (RPAQ? \AUTHENTICATION.SERVER.CACHE) (PUTPROPS AUTHENTICATION COPYRIGHT ("Venue & Xerox Corporation" 1987 1989 1990)) NIL