39 lines
547 B
Mathematica
39 lines
547 B
Mathematica
|
XUSHSH ;JL.Z; ROBUST PASSWORD HASH TEST xushsh; 11 SEPTEMBER 2009
|
||
|
|
V ;;8.0;KERNEL;**60**;Jul 10, 1995
|
||
|
|
;;
|
||
|
|
;; This is intended as a replacement XUSHSH for testing purposes only.
|
||
|
|
;; This version returns a NULL (unhashed) result, like openvista's XUSHSH.
|
||
|
|
;; Probably not to be part of a final KIDS release.
|
||
|
|
;;
|
||
|
|
;;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
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|