XUSHSH.m

XUSHSH ;SF-ISC/STAFF - PASSWORD ENCRYPTION ;3/23/89  15:09 ; 

 ;;8.0;KERNEL;;Jul 10, 1995

 ;; This is the public domain version of the VA Kernel.

 ;; Use this routine for your own encryption algorithm

 ;; Input in X

 ;; Output in X

A Q

EN(X) Q X

XUSHSH    ;SF-ISC/STAFF - PASSWORD ENCRYPTION ;3/23/89  15:09 ; 

 +1       ;;8.0;KERNEL;;Jul 10, 1995

 +2       ;; This is the public domain version of the VA Kernel.

 +3       ;; Use this routine for your own encryption algorithm

 +4       ;; Input in X

 +5       ;; Output in X

A          QUIT 

EN(X)      QUIT X