--
--*************************************************************************
--*                                                                       *
--* © Copyright 2010, Hewlett-Packard Development Company, L.P.           *
--*                                                                       *
--* Confidential computer software.  Valid license from HP and/or         *
--* its subsidiaries required for possession, use, or copying.            *
--*                                                                       *
--* Consistent with FAR 12.211 and 12.212, Commercial Computer Software,  *
--* Computer Software Documentation, and Technical Data for Commercial    *
--* Items are licensed to the U.S. Government under vendor's standard     *
--* commercial license.                                                   *
--*                                                                       *
--* Neither HP nor any of its subsidiaries shall be liable for technical  *
--* or editorial errors or omissions contained herein.  The information   *
--* in this document is provided "as is" without warranty of any kind and *
--* is subject to change without notice.  The warranties for HP products  *
--* are set forth in the express limited warranty statements accompanying *
--* such products.  Nothing herein should be construed as constituting an *
--* additional warranty.                                                  *
--*                                                                       *
--*************************************************************************
--********************************************************************************************************************
-- Created: 30-Mar-2010 17:25:55 by OpenVMS SDL EV3-3      
-- Source:  19-APR-1996 08:27:10 $1$DGA7274:[ENCRYPT.SRC]ENCRYPT_DEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package ENCRYPT_DEF is
 
--  module encrypt_def IDENT V01.00
 
    procedure ENCRYPT_INIT (
	STATUS		: out INTEGER_32;				-- return value
	CONTEXT		: in out UNSIGNED_LONGWORD;
	ALGORITHM	: in  STRING;
	KEY_TYPE	: in  UNSIGNED_LONGWORD;
	KEY_DESCRIPTOR	: in  STRING;
	EXTRA_PARAMETER	: in  UNSIGNED_LONGWORD		:= UNSIGNED_LONGWORD'NULL_PARAMETER);
 
    pragma INTERFACE (EXTERNAL, ENCRYPT_INIT);
 
    pragma IMPORT_VALUED_PROCEDURE (ENCRYPT_INIT, "encrypt$init",
	(INTEGER_32, UNSIGNED_LONGWORD, STRING, UNSIGNED_LONGWORD, STRING, UNSIGNED_LONGWORD),
	(VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), REFERENCE),
	 EXTRA_PARAMETER);
 
    procedure ENCRYPT_ENCRYPT (
	STATUS		: out INTEGER_32;				-- return value
	CONTEXT		: in  UNSIGNED_LONGWORD;
	INPUT		: in  STRING;
	OUTPUT		: out STRING;
	OUTPUT_COUNT	: out UNSIGNED_LONGWORD;
	EXTRA_PARAMETER	: in  UNSIGNED_LONGWORD		:= UNSIGNED_LONGWORD'NULL_PARAMETER);
 
    procedure ENCRYPT_ENCRYPT (
	STATUS		: out INTEGER_32;				-- return value
	CONTEXT		: in  UNSIGNED_LONGWORD;
	INPUT		: in  STRING;
	OUTPUT		: out STRING;
	OUTPUT_COUNT	: in  ADDRESS			:= ADDRESS_ZERO;	-- To omit optional OUTPUT_COUNT argument
	EXTRA_PARAMETER	: in  UNSIGNED_LONGWORD		:= UNSIGNED_LONGWORD'NULL_PARAMETER);
 
    pragma INTERFACE (EXTERNAL, ENCRYPT_ENCRYPT);
 
    pragma IMPORT_VALUED_PROCEDURE (ENCRYPT_ENCRYPT, "encrypt$encrypt",
	(INTEGER_32, UNSIGNED_LONGWORD, STRING, STRING, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD),
	(VALUE, REFERENCE, DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE, REFERENCE),
	 EXTRA_PARAMETER);
 
    pragma IMPORT_VALUED_PROCEDURE (ENCRYPT_ENCRYPT, "encrypt$encrypt",
	(INTEGER_32, UNSIGNED_LONGWORD, STRING, STRING, ADDRESS, UNSIGNED_LONGWORD),
	(VALUE, REFERENCE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, REFERENCE),
	 OUTPUT_COUNT);
 
    procedure ENCRYPT_DECRYPT (
	STATUS		: out INTEGER_32;				-- return value
	CONTEXT		: in  UNSIGNED_LONGWORD;
	INPUT		: in  STRING;
	OUTPUT		: out STRING;
	OUTPUT_COUNT	: out UNSIGNED_LONGWORD;
	EXTRA_PARAMETER	: in  UNSIGNED_LONGWORD		:= UNSIGNED_LONGWORD'NULL_PARAMETER);
 
    procedure ENCRYPT_DECRYPT (
	STATUS		: out INTEGER_32;				-- return value
	CONTEXT		: in  UNSIGNED_LONGWORD;
	INPUT		: in  STRING;
	OUTPUT		: out STRING;
	OUTPUT_COUNT	: in  ADDRESS			:= ADDRESS_ZERO;	-- To omit optional OUTPUT_COUNT argument
	EXTRA_PARAMETER	: in  UNSIGNED_LONGWORD		:= UNSIGNED_LONGWORD'NULL_PARAMETER);
 
    pragma INTERFACE (EXTERNAL, ENCRYPT_DECRYPT);
 
    pragma IMPORT_VALUED_PROCEDURE (ENCRYPT_DECRYPT, "encrypt$decrypt",
	(INTEGER_32, UNSIGNED_LONGWORD, STRING, STRING, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD),
	(VALUE, REFERENCE, DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE, REFERENCE),
	 EXTRA_PARAMETER);
 
    pragma IMPORT_VALUED_PROCEDURE (ENCRYPT_DECRYPT, "encrypt$decrypt",
	(INTEGER_32, UNSIGNED_LONGWORD, STRING, STRING, ADDRESS, UNSIGNED_LONGWORD),
	(VALUE, REFERENCE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, REFERENCE),
	 OUTPUT_COUNT);
 
    procedure ENCRYPT_FINI (
	STATUS		: out INTEGER_32;				-- return value
	CONTEXT		: in out UNSIGNED_LONGWORD;
	EXTRA_PARAMETER	: in  UNSIGNED_LONGWORD		:= UNSIGNED_LONGWORD'NULL_PARAMETER);
 
    pragma INTERFACE (EXTERNAL, ENCRYPT_FINI);
 
    pragma IMPORT_VALUED_PROCEDURE (ENCRYPT_FINI, "encrypt$fini",
	(INTEGER_32, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD),
	(VALUE, REFERENCE, REFERENCE),
	 EXTRA_PARAMETER);
 
    procedure ENCRYPT_INIT_ASYN (
	STATUS		: out INTEGER_32;				-- return value
	EFN		: in  UNSIGNED_LONGWORD;
	CONTEXT		: in out UNSIGNED_LONGWORD;
	AST_ADDRESS	: in  ADDRESS;
	AST_PARAMETER	: in  UNSIGNED_LONGWORD;
	STATUS_BLOCK	: in  INTEGER_64;
	ITEM_LIST	: in  UNSIGNED_LONGWORD);
 
    pragma INTERFACE (EXTERNAL, ENCRYPT_INIT_ASYN);
 
    pragma IMPORT_VALUED_PROCEDURE (ENCRYPT_INIT_ASYN, "encrypt$init_asyn",
	(INTEGER_32, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD, INTEGER_64, UNSIGNED_LONGWORD),
	(VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, REFERENCE, REFERENCE));
 
    procedure ENCRYPT_ENCRYPT_ASYN (
	STATUS		: out INTEGER_32;				-- return value
	EFN		: in  UNSIGNED_LONGWORD;
	CONTEXT		: in  UNSIGNED_LONGWORD;
	INPUT		: in  STRING;
	OUTPUT		: out STRING;
	AST_ADDRESS	: in  ADDRESS;
	AST_PARAMETER	: in  UNSIGNED_LONGWORD;
	STATUS_BLOCK	: in  INTEGER_64;
	ITEM_LIST	: in  UNSIGNED_LONGWORD);
 
    pragma INTERFACE (EXTERNAL, ENCRYPT_ENCRYPT_ASYN);
 
    pragma IMPORT_VALUED_PROCEDURE (ENCRYPT_ENCRYPT_ASYN, "encrypt$encrypt_asyn",
	(INTEGER_32, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, STRING, STRING, ADDRESS, UNSIGNED_LONGWORD, INTEGER_64,
	UNSIGNED_LONGWORD),
	(VALUE, REFERENCE, REFERENCE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, REFERENCE, REFERENCE, REFERENCE));
 
    procedure ENCRYPT_DECRYPT_ASYN (
	STATUS		: out INTEGER_32;				-- return value
	EFN		: in  UNSIGNED_LONGWORD;
	CONTEXT		: in  UNSIGNED_LONGWORD;
	INPUT		: in  STRING;
	OUTPUT		: out STRING;
	AST_ADDRESS	: in  ADDRESS;
	AST_PARAMETER	: in  UNSIGNED_LONGWORD;
	STATUS_BLOCK	: in  INTEGER_64;
	ITEM_LIST	: in  UNSIGNED_LONGWORD);
 
    pragma INTERFACE (EXTERNAL, ENCRYPT_DECRYPT_ASYN);
 
    pragma IMPORT_VALUED_PROCEDURE (ENCRYPT_DECRYPT_ASYN, "encrypt$decrypt_asyn",
	(INTEGER_32, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, STRING, STRING, ADDRESS, UNSIGNED_LONGWORD, INTEGER_64,
	UNSIGNED_LONGWORD),
	(VALUE, REFERENCE, REFERENCE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, REFERENCE, REFERENCE, REFERENCE));
 
    procedure ENCRYPT_FINI_ASYN (
	STATUS		: out INTEGER_32;				-- return value
	EFN		: in  UNSIGNED_LONGWORD;
	CONTEXT		: in out UNSIGNED_LONGWORD;
	AST_ADDRESS	: in  ADDRESS;
	AST_PARAMETER	: in  UNSIGNED_LONGWORD;
	STATUS_BLOCK	: in  INTEGER_64;
	ITEM_LIST	: in  UNSIGNED_LONGWORD);
 
    pragma INTERFACE (EXTERNAL, ENCRYPT_FINI_ASYN);
 
    pragma IMPORT_VALUED_PROCEDURE (ENCRYPT_FINI_ASYN, "encrypt$fini_asyn",
	(INTEGER_32, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD, INTEGER_64, UNSIGNED_LONGWORD),
	(VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, REFERENCE, REFERENCE));
 
    procedure ENCRYPT_SYNC_ASYN (
	STATUS		: out INTEGER_32;				-- return value
	EFN		: in  UNSIGNED_LONGWORD;
	CONTEXT		: in  UNSIGNED_LONGWORD;
	STATUS_BLOCK	: in  INTEGER_64);
 
    pragma INTERFACE (EXTERNAL, ENCRYPT_SYNC_ASYN);
 
    pragma IMPORT_VALUED_PROCEDURE (ENCRYPT_SYNC_ASYN, "encrypt$sync_asyn",
	(INTEGER_32, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, INTEGER_64),
	(VALUE, REFERENCE, REFERENCE, REFERENCE));
 
    procedure ENCRYPT_STATISTICS (
	STATUS		: out INTEGER_32;				-- return value
	CONTEXT		: in  UNSIGNED_LONGWORD;
	CODE		: in  UNSIGNED_LONGWORD;
	DESTINATION	: out STRING;
	RETURN_LENGTH	: out UNSIGNED_LONGWORD);
 
    pragma INTERFACE (EXTERNAL, ENCRYPT_STATISTICS);
 
    pragma IMPORT_VALUED_PROCEDURE (ENCRYPT_STATISTICS, "encrypt$statistics",
	(INTEGER_32, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, STRING, UNSIGNED_LONGWORD),
	(VALUE, REFERENCE, REFERENCE, DESCRIPTOR(S), REFERENCE));
 
    procedure ENCRYPT_DEFINE_KEY (
	STATUS		: out INTEGER_32;				-- return value
	KEY_NAME	: in  STRING;
	KEY_VALUE	: in  STRING;
	KEY_FLAGS	: in  UNSIGNED_LONGWORD;
	KEY_PROTECTION	: in  UNSIGNED_LONGWORD		:= UNSIGNED_LONGWORD'NULL_PARAMETER);
 
    pragma INTERFACE (EXTERNAL, ENCRYPT_DEFINE_KEY);
 
    pragma IMPORT_VALUED_PROCEDURE (ENCRYPT_DEFINE_KEY, "encrypt$define_key",
	(INTEGER_32, STRING, STRING, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD),
	(VALUE, DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE, REFERENCE),
	 KEY_PROTECTION);
 
    procedure ENCRYPT_DELETE_KEY (
	STATUS		: out INTEGER_32;				-- return value
	KEY_NAME	: in  STRING;
	KEY_FLAGS	: in  UNSIGNED_LONGWORD);
 
    pragma INTERFACE (EXTERNAL, ENCRYPT_DELETE_KEY);
 
    pragma IMPORT_VALUED_PROCEDURE (ENCRYPT_DELETE_KEY, "encrypt$delete_key",
	(INTEGER_32, STRING, UNSIGNED_LONGWORD),
	(VALUE, DESCRIPTOR(S), REFERENCE));
 
    procedure ENCRYPT_ENCRYPT_FILE (
	STATUS		: out INTEGER_32;				-- return value
	INPUT_FILE	: in  STRING;
	OUTPUT_FILE	: in  STRING;
	KEY_NAME	: in  STRING;
	ALGORITHM	: in  STRING;
	FILE_FLAGS	: in  UNSIGNED_LONGWORD;
	ITEM_LIST	: in  UNSIGNED_LONGWORD		:= UNSIGNED_LONGWORD'NULL_PARAMETER);
 
    pragma INTERFACE (EXTERNAL, ENCRYPT_ENCRYPT_FILE);
 
    pragma IMPORT_VALUED_PROCEDURE (ENCRYPT_ENCRYPT_FILE, "encrypt$encrypt_file",
	(INTEGER_32, STRING, STRING, STRING, STRING, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD),
	(VALUE, DESCRIPTOR(S), DESCRIPTOR(S), DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE, REFERENCE),
	 ITEM_LIST);
 
    procedure ENCRYPT_ENCRYPT_ONE_RECORD (
	STATUS		: out INTEGER_32;				-- return value
	INPUT		: in  STRING;
	OUTPUT		: out STRING;
	KEY_NAME	: in  STRING;
	ALGORITHM	: in  STRING);
 
    pragma INTERFACE (EXTERNAL, ENCRYPT_ENCRYPT_ONE_RECORD);
 
    pragma IMPORT_VALUED_PROCEDURE (ENCRYPT_ENCRYPT_ONE_RECORD, "encrypt$encrypt_one_record",
	(INTEGER_32, STRING, STRING, STRING, STRING),
	(VALUE, DESCRIPTOR(S), DESCRIPTOR(S), DESCRIPTOR(S), DESCRIPTOR(S)));
 
    procedure ENCRYPT_DECRYPT_ONE_RECORD (
	STATUS		: out INTEGER_32;				-- return value
	INPUT		: in  STRING;
	OUTPUT		: out STRING;
	KEY_NAME	: in  STRING;
	ALGORITHM	: in  STRING);
 
    pragma INTERFACE (EXTERNAL, ENCRYPT_DECRYPT_ONE_RECORD);
 
    pragma IMPORT_VALUED_PROCEDURE (ENCRYPT_DECRYPT_ONE_RECORD, "encrypt$decrypt_one_record",
	(INTEGER_32, STRING, STRING, STRING, STRING),
	(VALUE, DESCRIPTOR(S), DESCRIPTOR(S), DESCRIPTOR(S), DESCRIPTOR(S)));
 
    procedure ENCRYPT_GENERATE_KEY (
	STATUS		: out INTEGER_32;				-- return value
	ALGORITHM	: in  STRING;
	KEY_LENGTH	: in  UNSIGNED_LONGWORD;
	FACTOR_A	: in  STRING;
	FACTOR_B	: in  STRING;
	FACTOR_C	: in  STRING;
	KEY_BUFFER	: out STRING);
 
    pragma INTERFACE (EXTERNAL, ENCRYPT_GENERATE_KEY);
 
    pragma IMPORT_VALUED_PROCEDURE (ENCRYPT_GENERATE_KEY, "encrypt$generate_key",
	(INTEGER_32, STRING, UNSIGNED_LONGWORD, STRING, STRING, STRING, STRING),
	(VALUE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), DESCRIPTOR(S), DESCRIPTOR(S), DESCRIPTOR(S)));
 
end ENCRYPT_DEF;