VistA-FOIAVistA/r/KERNEL-XU-A4A7-USC-XG-XLF-X.../XUSHSH.m

9 lines
246 B
Mathematica

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