36 lines
345 B
Mathematica
36 lines
345 B
Mathematica
|
XUSHSH ;JL.Z; ROBUST PASSWORD HASH TEST xushsh; 11 SEPTEMBER 2009
|
||
|
|
;;8.0;KERNEL;**60**;Jul 10, 1995
|
||
|
|
;;
|
||
|
|
;;
|
||
|
|
;;SF-ISC/STAFF - PASSWORD ENCRYPTION ;3/23/89 15:09 ; 4/14/05 1:22pm
|
||
|
|
;;8.0;KERNEL;;Jul 10, 1995
|
||
|
|
;; Input in X
|
||
|
|
;; Output in X
|
||
|
|
;; Algorithm for VistA Office EHR encryption (BSL)
|
||
|
|
A ;
|
||
|
|
S X=$$EN(X)
|
||
|
|
Q
|
||
|
|
;
|
||
|
|
EN(X)
|
||
|
|
Q X
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|