INCRYPT.m

INCRYPT ; cmi/flag/maw - DGH 3 May 99 11:09 Interface encryption calls ;

 ;;3.01;BHL IHS Interfaces with GIS;**1**;JUN 01, 2002

 ;COPYRIGHT 1991-2000 SAIC

 ;CHCS TOOLS_450; GEN 18; 26-SEP-1996

 ;COPYRIGHT 1991, 1992 SAIC

 ;

 ;This routine contains the M tags which call out to the

 ;encryption functions written in C. The syntax is tested

 ;for DSM running on VMS. If platform specific routines are

 ;required, a copy of this routine should be placed in

 ;INCRYPVX = V

 ;INCRYPMS = MSM version

 ;etc.

 ;

ENCRYPT(XIN,XOUT,LEN,START,END) ;Call to C encryption function

 ;INPUT:

 ; XIN = String to be encrypted

 ; XOUT = PBR variable which the encryption function will return

 ;        as the encrypted string

 ; LEN = $Length of the original string

 ; START = 1 if this is the first string of a message to be encrypted.

 ; END = 1 if this is the last string of a message to be encrypted.

 ;S OLEN=$&DES.OUTCBC(.XIN,.XOUT,LEN,START,END)

 Q

 ;

DECRYPT(XCRYPT,XDE,LEN,START,END) ;Call to C decryption functions

 ;INPUT:

 ; XCRYPT = Incoming encrypted string to be decrypted

 ; XDE = PBR variable which the decryption function will return as

 ;       the decrypted string.

 ; LEN = $Length of the incoming encrypted string

 ; START = 1 if this is the first string of a message to be dencrypted.

 ; END = 1 if this is the last string of a message to be dencrypted.

 ;S OLEN=$&DES.INCBC(.XCRYPT,.XDE,LEN,START,END)

 Q

 ;

CRYPON(DESKEY) ;Starts the C encryption/decryption background job

 ;Quits with a 1. No current logic for failure

 ;S RC=$&DES.SKEY(.DESKEY)

 Q 1

 ;

CRYPOFF() ;Stops the C encryption/decryption background job

 ;Quits with a 1. No current logic for failure

 ;S RC=$&DES.DONE()

 Q 1

 ;

INCRYPT   ; cmi/flag/maw - DGH 3 May 99 11:09 Interface encryption calls ;

 +1       ;;3.01;BHL IHS Interfaces with GIS;**1**;JUN 01, 2002

 +2       ;COPYRIGHT 1991-2000 SAIC

 +3       ;CHCS TOOLS_450; GEN 18; 26-SEP-1996

 +4       ;COPYRIGHT 1991, 1992 SAIC

 +5       ;

 +6       ;This routine contains the M tags which call out to the

 +7       ;encryption functions written in C. The syntax is tested

 +8       ;for DSM running on VMS. If platform specific routines are

 +9       ;required, a copy of this routine should be placed in

 +10      ;INCRYPVX = V

 +11      ;INCRYPMS = MSM version

 +12      ;etc.

 +13      ;

ENCRYPT(XIN,XOUT,LEN,START,END) ;Call to C encryption function

 +1       ;INPUT:

 +2       ; XIN = String to be encrypted

 +3       ; XOUT = PBR variable which the encryption function will return

 +4       ;        as the encrypted string

 +5       ; LEN = $Length of the original string

 +6       ; START = 1 if this is the first string of a message to be encrypted.

 +7       ; END = 1 if this is the last string of a message to be encrypted.

 +8       ;S OLEN=$&DES.OUTCBC(.XIN,.XOUT,LEN,START,END)

 +9        QUIT 

 +10      ;

DECRYPT(XCRYPT,XDE,LEN,START,END) ;Call to C decryption functions

 +1       ;INPUT:

 +2       ; XCRYPT = Incoming encrypted string to be decrypted

 +3       ; XDE = PBR variable which the decryption function will return as

 +4       ;       the decrypted string.

 +5       ; LEN = $Length of the incoming encrypted string

 +6       ; START = 1 if this is the first string of a message to be dencrypted.

 +7       ; END = 1 if this is the last string of a message to be dencrypted.

 +8       ;S OLEN=$&DES.INCBC(.XCRYPT,.XDE,LEN,START,END)

 +9        QUIT 

 +10      ;

CRYPON(DESKEY) ;Starts the C encryption/decryption background job

 +1       ;Quits with a 1. No current logic for failure

 +2       ;S RC=$&DES.SKEY(.DESKEY)

 +3        QUIT 1

 +4       ;

CRYPOFF() ;Stops the C encryption/decryption background job

 +1       ;Quits with a 1. No current logic for failure

 +2       ;S RC=$&DES.DONE()

 +3        QUIT 1

 +4       ;