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