Return to Authentication1.cr CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / xns / examples / gap

Annotation of 43BSD/contrib/xns/examples/gap/Authentication1.cr, revision 1.1.1.1

1.1       root        1: -- $Header: Authentication1.cr,v 2.0 85/11/21 07:24:26 jqj Exp $ --
                      2: 
                      3: Authentication: PROGRAM 14 VERSION 1 =
                      4: 
                      5: -- $Log:       Authentication1.cr,v $
                      6: -- Revision 2.0  85/11/21  07:24:26  jqj
                      7: -- 4.3BSD standard release
                      8: -- 
                      9: -- Revision 1.3  85/03/11  16:43:49  jqj
                     10: -- *** empty log message ***
                     11: -- 
                     12: -- Revision 1.3  85/03/11  16:43:49  jqj
                     13: -- Public alpha-test version, released 11 March 1985
                     14: -- 
                     15: -- Revision 1.2  85/03/01  06:12:50  jqj
                     16: -- modifications for use with Unix Courier compiler:  eliminated dependency
                     17: --   on Clearinghouse.  Added HashedPassword declaration which had been
                     18: --   mysteriously forgotten.
                     19: -- 
                     20: -- Revision 1.1  85/03/01  06:06:51  jqj
                     21: -- Initial revision - from Rochester
                     22: -- 
                     23: 
                     24: BEGIN
                     25: 
                     26: -- faked dependency for Clearinghouse (2) VERSION 2 --
                     27: 
                     28:        -- DEPENDS UPON
                     29:        --      Clearinghouse (2) VERSION 2;
                     30: 
                     31: ClearinghouseOrganization: TYPE = STRING;
                     32: ClearinghouseDomain: TYPE = STRING;
                     33: ClearinghouseObject: TYPE = STRING;
                     34: 
                     35: ClearinghouseThreePartName: TYPE = RECORD [
                     36:     organization: ClearinghouseOrganization,
                     37:     domain: ClearinghouseDomain,
                     38:     object: ClearinghouseObject
                     39:     ];
                     40: 
                     41: ClearinghouseName:  TYPE = ClearinghouseThreePartName;
                     42: 
                     43: -- Types --
                     44: 
                     45: CredentialsType: TYPE = CARDINAL;
                     46: 
                     47: Credentials: TYPE = RECORD[
                     48:        type: CredentialsType, 
                     49:        value: SEQUENCE OF UNSPECIFIED];
                     50: 
                     51: simpleCredentials: CredentialsType = 0;
                     52: 
                     53: SimpleCredentials: TYPE = ClearinghouseName;
                     54: 
                     55: Verifier: TYPE = SEQUENCE 12 OF UNSPECIFIED;
                     56: 
                     57: HashedPassword: TYPE = CARDINAL;
                     58: 
                     59: SimpleVerifier: TYPE = HashedPassword;
                     60: 
                     61: Problem: TYPE = {credentialsInvalid(0), verifierInvalid(1)};
                     62: AuthenticationError: ERROR [problem: Problem] = 2;
                     63: 
                     64: END.
                     65: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.