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     ! 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.