DataMuseum.dk

top - metrics - download

    Length: 5526 (0x1596)
    Types: TextFile
    Names: »af-enc.py«

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

TextFile

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

-- $Header: /f/osi/dsap/x500as/RCS/af-enc.py,v 6.1 89/03/23 22:27:11 mrose Exp $
--
--
-- $Log:	af-enc.py,v $
-- Revision 6.1  89/03/23  22:27:11  mrose
-- out-the-door
-- 
-- Revision 6.0  89/03/18  23:29:13  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)
			};

ENCODER encode

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

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

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

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

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

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

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

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

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

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

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

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

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

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

END