9 lines
246 B
Mathematica
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
|