! ************************************************************************* ! * * ! * HP CONFIDENTIAL. This software is confidential proprietary software * ! * licensed by Hewlett-Packard Development Company, L.P., and is not * ! * authorized to be used, duplicated OR disclosed to anyone without the * ! * prior written permission of HP. * ! * © 2021 Copyright Hewlett-Packard Development Company, L.P. * ! * * ! * VMS SOFTWARE, INC. CONFIDENTIAL. This software is confidential * ! * proprietary software licensed by VMS Software, Inc., and is not * ! * authorized to be used, duplicated or disclosed to anyone without * ! * the prior written permission of VMS Software, Inc. * ! * © 2021 Copyright VMS Software, Inc. * ! * * ! ************************************************************************* ! ******************************************************************************************************************************** ! Created: 9-Mar-2021 22:27:20 by OpenVMS SDL EV3-3 ! Source: 13-JAN-2012 16:21:42 $1$DGA8085:[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