DataMuseum.dk

top - metrics - download

    Length: 5927 (0x1727)
    Types: TextFile
    Names: »af-dec.py«

└─⟦3d0c2be1b⟧ Bits:30001254 ISODE-5.0 Tape
    └─⟦eba4602b1⟧ »./isode-5.0.tar.Z« 
        └─⟦d3ac74d73⟧ 
            └─⟦this⟧ »isode-5.0/dsap/x500as/af-dec.py« 

TextFile

-- af-dec.py - manually-augmented AuthenticationFramework module

-- $Header: /f/osi/dsap/x500as/RCS/af-dec.py,v 6.1 89/03/23 22:27:07 mrose Exp $
--
--
-- $Log:	af-dec.py,v $
-- Revision 6.1  89/03/23  22:27:07  mrose
-- out-the-door
-- 
-- Revision 6.0  89/03/18  23:29:12  mrose
-- Release 5.0
-- 

--
--				  NOTICE
--
--    Acquisition, use, and distribution of this module and related
--    materials are subject to the restrictions of a license agreement.
--    Consult the Preface in the User's Manual for the full terms of
--    this agreement.
--
--


AF
	{
	joint-iso-ccitt
	ds(5)
	modules(1)
	authenticationFramework(7)
	}

DEFINITIONS ::=

%{
#include <stdio.h>
#include "quipu/util.h"
#include "quipu/name.h"

extern  LLog    * log_dsap;
%}

PREFIXES encode decode print

BEGIN

-- EXPORTS
-- 	AlgorithmIdentifier ,
-- 	Certificate ,
-- 	Certificates ,
-- 	CertificationPath;

IMPORTS
	Name
		FROM IF
			{
			joint-iso-ccitt
			ds(5)
			modules(1)
			informationFramework(1)
			};

DECODER decode

Version
	::=
        %{
        DLOG(log_dsap, LLOG_TRACE, ("At decode Version (AF)"));
        %}
	INTEGER
	{
	v1988(0)
	}
        %{
        DLOG(log_dsap, LLOG_TRACE, ("Done decode Version (AF)"));
        %}

CertificateSerialNumber
	::=
        %{
        DLOG(log_dsap, LLOG_TRACE, ("At decode CertificateSerialNumber (AF)"));
        %}
	INTEGER
        %{
        DLOG(log_dsap, LLOG_TRACE, ("At decode CertificateSerialNumber (AF)"));
        %}

Validity
	::=
        %{
        DLOG(log_dsap, LLOG_TRACE, ("At decode Validity (AF)"));
        %}
	SEQUENCE
	{
	notBefore
		UTCTime ,
	notAfter
		UTCTime
	}
        %{
        DLOG(log_dsap, LLOG_TRACE, ("Done decode Validity (AF)"));
        %}

AlgorithmIdentifier
	::=
        %{
        DLOG(log_dsap, LLOG_TRACE, ("At decode AlgorithmIdentifier (AF)"));
        %}
	SEQUENCE
	{
	algorithm
		OBJECT IDENTIFIER ,
	parameters
		ANY DEFINED BY
			algorithm
		    OPTIONAL
	}
        %{
        DLOG(log_dsap, LLOG_TRACE, ("Done decode AlgorithmIdentifier (AF)"));
        %}

SubjectPublicKeyInfo
	::=
        %{
        DLOG(log_dsap, LLOG_TRACE, ("At decode SubjectPublicKeyInfo (AF)"));
        %}
	SEQUENCE
	{
	algorithm
		AlgorithmIdentifier ,
	subjectPublicKey
		BIT STRING
	}
        %{
        DLOG(log_dsap, LLOG_TRACE, ("Done decode SubjectPublicKeyInfo (AF)"));
        %}

CertificateToSign
%{
DN	  dn_tmp = NULLDN;
%}
	::=
        %{
        DLOG(log_dsap, LLOG_TRACE, ("At decode CertificateToSign (AF)"));
        %}
	SEQUENCE
	{
	version
		[0] Version
		    -- DEFAULT v1988 ,
		    OPTIONAL ,
	serialNumber
		CertificateSerialNumber ,
	signature
		AlgorithmIdentifier ,
	issuer
		Name [[p &(dn_tmp)]]
		%{
		    if(dn_tmp != NULLDN)
			dn_free(dn_tmp);
		    dn_tmp = NULLDN;
		%} ,
	validity
		Validity ,
	subject
		Name [[p &(dn_tmp)]]
		%{
		    if(dn_tmp != NULLDN)
			dn_free(dn_tmp);
		    dn_tmp = NULLDN;
		%} ,
	subjectPublicKeyInfo
		SubjectPublicKeyInfo
	}
        %{
        DLOG(log_dsap, LLOG_TRACE, ("Done decode CertificateToSign (AF)"));
        %}

Certificate
	::=
        %{
        DLOG(log_dsap, LLOG_TRACE, ("At decode Certificate (AF)"));
        %}
	SEQUENCE
	{
		CertificateToSign ,
		AlgorithmIdentifier ,
		BIT STRING
	}
        %{
        DLOG(log_dsap, LLOG_TRACE, ("Done decode Certificate (AF)"));
        %}

CrossCertificates
	::=
        %{
        DLOG(log_dsap, LLOG_TRACE, ("At decode CrossCertificates (AF)"));
        %}
	SET OF
		Certificate
        %{
        DLOG(log_dsap, LLOG_TRACE, ("Done decode CrossCertificates (AF)"));
        %}

ForwardCertificationPath
	::=
        %{
        DLOG(log_dsap, LLOG_TRACE, ("At decode ForwardCertificationPath (AF)"));
        %}
	SEQUENCE OF
		CrossCertificates
        %{
        DLOG(log_dsap, LLOG_TRACE, ("Done decode ForwardCertificationPath (AF)"));
        %}

Certificates
	::=
        %{
        DLOG(log_dsap, LLOG_TRACE, ("At decode Certificates (AF)"));
        %}
	SEQUENCE
	{
	certificate
		Certificate ,
	certificationPath
		ForwardCertificationPath
		    OPTIONAL
	}
        %{
        DLOG(log_dsap, LLOG_TRACE, ("Done decode Certificates (AF)"));
        %}

CertificatePair
	::=
        %{
        DLOG(log_dsap, LLOG_TRACE, ("At decode CertificatePair (AF)"));
        %}
	SEQUENCE
	{
	forward
		[0] Certificate
		    OPTIONAL ,
	reverse
		[1] Certificate
		    OPTIONAL
	}
        %{
        DLOG(log_dsap, LLOG_TRACE, ("Done decode CertificatePair (AF)"));
        %}

CertificationPath
	::=
        %{
        DLOG(log_dsap, LLOG_TRACE, ("At decode CertificationPath (AF)"));
        %}
	SEQUENCE
	{
	userCertificate
		Certificate ,
	theCACertificates
		SEQUENCE OF
			CertificatePair
		    OPTIONAL
	}
        %{
        DLOG(log_dsap, LLOG_TRACE, ("Done decode CertificationPath (AF)"));
        %}

CertificateListToSign
%{
DN	  dn_tmp = NULLDN;
%}
	::=
        %{
        DLOG(log_dsap, LLOG_TRACE, ("At decode CertificateListToSign (AF)"));
        %}
	SEQUENCE
	{
	signature
		AlgorithmIdentifier ,
	issuer
		Name [[p &(dn_tmp)]]
		%{
		    if(dn_tmp != NULLDN)
			dn_free(dn_tmp);
		    dn_tmp = NULLDN;
		%} ,
	lastUpdate
		UTCTime ,
	revokedCertificates
		SEQUENCE
		{
			SEQUENCE OF
				SEQUENCE
				{
				signature
					AlgorithmIdentifier ,
				issuer
					Name [[p &(dn_tmp)]]
					%{
					    if(dn_tmp != NULLDN)
						dn_free(dn_tmp);
					    dn_tmp = NULLDN;
					%} ,
				subject
					CertificateSerialNumber ,
				revokationDate
					UTCTime
				} ,
			AlgorithmIdentifier ,
			BIT STRING
		}
		    OPTIONAL
	}
        %{
        DLOG(log_dsap, LLOG_TRACE, ("Done decode CertificateListToSign (AF)"));
        %}

CertificateList
	::=
        %{
        DLOG(log_dsap, LLOG_TRACE, ("At decode CertificateList (AF)"));
        %}
	SEQUENCE
	{
		CertificateListToSign ,
		AlgorithmIdentifier ,
		BIT STRING
	}
        %{
        DLOG(log_dsap, LLOG_TRACE, ("Done decode CertificateList (AF)"));
        %}

END