! ! ************************************************************************* ! * * ! * © Copyright 2013, 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: 12-Mar-2013 10:27:09 by OpenVMS SDL EV3-3 ! Source: 13-JAN-2012 16:21:42 $1$DGA106:[ENCRYPT.SRC]ENCRYPT_DEF.SDL;1 ! ******************************************************************************************************************************** !*** MODULE encrypt_def IDENT V01.10 *** !DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ! Initialize context for encrypt/decrypt operations ! Accepts following arguments ! context : type - longword integer signed; access - write only; mechanism - by reference ! algorithm : type - char_string; access - read/write; mechanism - by descriptor ! key-type : type - longword logical unsigned; access - read only; mechanism - by reference ! key-name : type - char_string; access - read only; mechanism - by descriptor ! [ p1 ] : type - quadword[1] (DES), quadword[2] (AES); access - read only; mechanism - by refer ! [ p1 ] : type - quadword[1] (DES), quadword[2] (AES); acc ! INTEGER*4 encrypt$init EXTERNAL encrypt$init ! ! Perform encryption of next record of plaintext ! Accepts following arguments ! context : type - longword integer signed; access - write only; mechanism - by reference ! input : type - char_string; access - read only; mechanism - by descriptor ! output : type - char_string; access - write only; mechanism - by descriptor ! [output-length] : type - word integer; access - write only; mechanism - by reference ! [p1] : type - quadword[1] (DES), quadword[2] (AES); access - read only; mechanism - by reference ! INTEGER*4 encrypt$encrypt EXTERNAL encrypt$encrypt ! ! Perform decryption of next record of plaintext ! Accepts following arguments ! context : type - longword integer signed; access - write only; mechanism - by reference ! input : type - char_string; access - read only; mechanism - by descriptor ! output : type - char_string; access - write only; mechanism - by descriptor ! [output-length] : type - word integer; access - write only; mechanism - by reference ! [p1] : type - quadword[1] (DES), quadword[2] (AES); access - read only; mechanism - by reference ! INTEGER*4 encrypt$decrypt EXTERNAL encrypt$decrypt ! ! Disassociates the encryption context and releases it ! Accepts following arguments ! context : type - longword integer signed; access - read/write; mechanism - by reference ! INTEGER*4 encrypt$fini EXTERNAL encrypt$fini ! ! Gains access to the statistics maintained by the Encryption software ! Accepts following arguments ! context : type - longword; access - read only; mechanism - by reference ! code : type - longword; access - read only; mechanism - by reference ! destination : type - char_string; access - write only; mechanism - by descriptor ! return-length : type - longword; access - write only; mechanism - by reference ! INTEGER*4 encrypt$statistics EXTERNAL encrypt$statistics ! ! Places a key definition into the process, group, job, or system key storage table ! Accepts following arguments ! key-name : type - char_string; access - read only; mechanism - by descriptor ! key-value : type - char_string; access - read only; mechanism - by descriptor ! key-flags : type - longword; access - read only; mechanism - by reference ! INTEGER*4 encrypt$define_key EXTERNAL encrypt$define_key ! ! Deletes a key definition from a key storage table ! Accepts following arguments ! key-name : type - char_string; access - read only; mechanism - by descriptor ! key-flags : type - longword; access - read only; mechanism - by reference ! INTEGER*4 encrypt$delete_key EXTERNAL encrypt$delete_key ! ! Encrypts or decrypts data files ! Accepts following arguments ! input-file : type - char_string; access - read only; mechanism - by descriptor ! output-file : type - char_string; access - read only; mechanism - by descriptor ! key-name : type - char_string; access - read only; mechanism - by descriptor ! algorithm : type - char_string; access - read only; mechanism - by descriptor ! file-flags : type - longword; access - read only; mechanism - by reference ! [item-list] : type - item_list_3; access - read only; mechanism - by descriptor ! INTEGER*4 encrypt$encrypt_file EXTERNAL encrypt$encrypt_file ! ! Encrypts a small amount of data in an encrypt stream ! Accepts following arguments ! input : type - char_string; access - read only; mechanism - by descriptor ! output : type - char_string; access - write only; mechanism - by descriptor ! key-name : type - char_string; access - read only; mechanism - by descriptor ! algorithm : type - char_string; access - read only; mechanism - by descriptor ! INTEGER*4 encrypt$encrypt_one_record EXTERNAL encrypt$encrypt_one_record ! ! Decrypts a small amount of data on a decrypt stream ! Accepts following arguments ! input : type - char_string; access - read only; mechanism - by descriptor ! output : type - char_string; access - write only; mechanism - by descriptor ! key-name : type - char_string; access - read only; mechanism - by descriptor ! algorithm : type - char_string; access - read only; mechanism - by descriptor ! INTEGER*4 encrypt$decrypt_one_record EXTERNAL encrypt$decrypt_one_record ! ! Generates a random key value ! Accepts following arguments ! algorithm-name : type - char_string; access - read only; mechanism - by descriptor ! key-length : type - word unsigned; access - read only; mechanism - by reference ! [factor-a] : type - char_string; access - read only; mechanism - by descriptor ! [factor-b] : type - char_string; access - read only; mechanism - by descriptor ! [factor-c] : type - char_string; access - read only; mechanism - by descriptor ! [key-buffer] : type - char_string; access - write; mechanism - by descriptor ! INTEGER*4 encrypt$generate_key EXTERNAL encrypt$generate_key ! ! Unsupported calls ! INTEGER*4 encrypt$init_asyn EXTERNAL encrypt$init_asyn INTEGER*4 encrypt$encrypt_asyn EXTERNAL encrypt$encrypt_asyn INTEGER*4 encrypt$decrypt_asyn EXTERNAL encrypt$decrypt_asyn INTEGER*4 encrypt$fini_asyn EXTERNAL encrypt$fini_asyn INTEGER*4 encrypt$sync_asyn EXTERNAL encrypt$sync_asyn !DEC$ END OPTIONS