!
 !*************************************************************************
 !*                                                                       *
 !* © 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:26:01 by OpenVMS SDL EV3-3      
 ! Source:  19-APR-1996 08:27:10 $1$DGA7274:[ENCRYPT.SRC]ENCRYPT_DEF.SDL;1 
 !********************************************************************************************************************************
      ! *** PREDECLARED TYPES
     
      %IF %DECLARED(%BASIC$QUADWORD_DECLARED) = 0 %THEN
         RECORD BASIC$QUADWORD
            LONG FILL(2)
         END RECORD
         %LET %BASIC$QUADWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED(%BASIC$OCTAWORD_DECLARED) = 0 %THEN
         RECORD BASIC$OCTAWORD
            LONG FILL(4)
         END RECORD
         %LET %BASIC$OCTAWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED(%BASIC$HFLOAT_AXP_DECLARED) = 0 %THEN
         RECORD BASIC$HFLOAT_AXP
            LONG FILL(4)
         END RECORD
         %LET %BASIC$HFLOAT_AXP_DECLARED = 1
      %END %IF
     
      %IF %DECLARED(%BASIC$F_FLOATING_COMPLEX_DECL) = 0 %THEN
         RECORD BASIC$F_FLOATING_COMPLEX
            SINGLE REAL_PART
            SINGLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED(%BASIC$D_FLOATING_COMPLEX_DECL) = 0 %THEN
         RECORD BASIC$D_FLOATING_COMPLEX
            DOUBLE REAL_PART
            DOUBLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED(%BASIC$G_FLOATING_COMPLEX_DECL) = 0 %THEN
         RECORD BASIC$G_FLOATING_COMPLEX
            GFLOAT REAL_PART
            GFLOAT IMAGINARY_PART
         END RECORD
         %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED(%BASIC$H_FLOAT_AXP_CMPLX_DCL) = 0 %THEN
         RECORD BASIC$H_FLOATING_COMPLEX_AXP
            BASIC$HFLOAT_AXP REAL_PART
            BASIC$HFLOAT_AXP IMAGINARY_PART
         END RECORD
         %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1
      %END %IF
     
    
    !*** MODULE encrypt_def IDENT V01.00 ***
    
    
      EXTERNAL LONG FUNCTION  encrypt$init &
               ( &
                   LONG  BY REF, &
                   STRING  BY DESC, &
                   LONG  BY REF, &
                   STRING  BY DESC, &
                  OPTIONAL LONG  BY REF &
               )
      EXTERNAL LONG FUNCTION  encrypt$encrypt &
               ( &
                   LONG  BY REF, &
                   STRING  BY DESC, &
                   STRING  BY DESC, &
                  OPTIONAL LONG  BY REF, &
                   LONG  BY REF &
               )
      EXTERNAL LONG FUNCTION  encrypt$decrypt &
               ( &
                   LONG  BY REF, &
                   STRING  BY DESC, &
                   STRING  BY DESC, &
                  OPTIONAL LONG  BY REF, &
                   LONG  BY REF &
               )
      EXTERNAL LONG FUNCTION  encrypt$fini &
               ( &
                   LONG  BY REF, &
                  OPTIONAL LONG  BY REF &
               )
      EXTERNAL LONG FUNCTION  encrypt$init_asyn &
               ( &
                   LONG  BY REF, &
                   LONG  BY REF, &
                   LONG  BY REF, &
                   LONG  BY REF, &
                   BASIC$QUADWORD  BY REF, &
                   LONG  BY REF &
               )
      EXTERNAL LONG FUNCTION  encrypt$encrypt_asyn &
               ( &
                   LONG  BY REF, &
                   LONG  BY REF, &
                   STRING  BY DESC, &
                   STRING  BY DESC, &
                   LONG  BY REF, &
                   LONG  BY REF, &
                   BASIC$QUADWORD  BY REF, &
                   LONG  BY REF &
               )
      EXTERNAL LONG FUNCTION  encrypt$decrypt_asyn &
               ( &
                   LONG  BY REF, &
                   LONG  BY REF, &
                   STRING  BY DESC, &
                   STRING  BY DESC, &
                   LONG  BY REF, &
                   LONG  BY REF, &
                   BASIC$QUADWORD  BY REF, &
                   LONG  BY REF &
               )
      EXTERNAL LONG FUNCTION  encrypt$fini_asyn &
               ( &
                   LONG  BY REF, &
                   LONG  BY REF, &
                   LONG  BY REF, &
                   LONG  BY REF, &
                   BASIC$QUADWORD  BY REF, &
                   LONG  BY REF &
               )
      EXTERNAL LONG FUNCTION  encrypt$sync_asyn &
               ( &
                   LONG  BY REF, &
                   LONG  BY REF, &
                   BASIC$QUADWORD  BY REF &
               )
      EXTERNAL LONG FUNCTION  encrypt$statistics &
               ( &
                   LONG  BY REF, &
                   LONG  BY REF, &
                   STRING  BY DESC, &
                   LONG  BY REF &
               )
      EXTERNAL LONG FUNCTION  encrypt$define_key &
               ( &
                   STRING  BY DESC, &
                   STRING  BY DESC, &
                   LONG  BY REF, &
                  OPTIONAL LONG  BY REF &
               )
      EXTERNAL LONG FUNCTION  encrypt$delete_key &
               ( &
                   STRING  BY DESC, &
                   LONG  BY REF &
               )
      EXTERNAL LONG FUNCTION  encrypt$encrypt_file &
               ( &
                   STRING  BY DESC, &
                   STRING  BY DESC, &
                   STRING  BY DESC, &
                   STRING  BY DESC, &
                   LONG  BY REF, &
                  OPTIONAL LONG  BY REF &
               )
      EXTERNAL LONG FUNCTION  encrypt$encrypt_one_record &
               ( &
                   STRING  BY DESC, &
                   STRING  BY DESC, &
                   STRING  BY DESC, &
                   STRING  BY DESC &
               )
      EXTERNAL LONG FUNCTION  encrypt$decrypt_one_record &
               ( &
                   STRING  BY DESC, &
                   STRING  BY DESC, &
                   STRING  BY DESC, &
                   STRING  BY DESC &
               )
      EXTERNAL LONG FUNCTION  encrypt$generate_key &
               ( &
                   STRING  BY DESC, &
                   LONG  BY REF, &
                   STRING  BY DESC, &
                   STRING  BY DESC, &
                   STRING  BY DESC, &
                   STRING  BY DESC &
               )