Changeset 636 for FOIAVistA/tag/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUSHSH.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUSHSH.m
r628 r636 1 XUSHSH ;SF-ISC/STAFF - PASSWORD ENCRYPTION ;3/23/89 15:09 ; 1 XUSHSH ;SF-ISC/STAFF - PASSWORD ENCRYPTION ;3/23/89 15:09 ; 4/14/05 1:22pm 2 2 ;;8.0;KERNEL;;Jul 10, 1995 3 3 ;; This is the public domain version of the VA Kernel. … … 5 5 ;; Input in X 6 6 ;; Output in X 7 A Q 8 EN(X) Q X 7 ;; Algorithm for VistA Office EHR encryption (BSL) 8 A ; 9 S X=$$EN(X) 10 Q 11 EN(X) ; GENERIC HASHING ENCRYPTION -- USES ASCII ENCODING 12 N %HASH S %HASH="" 13 N %CHAR 14 F %CHAR=1:1:$L(X) D 15 . I %CHAR#2 S %HASH=$A(X,%CHAR)_%HASH 16 . E S %HASH=%HASH_$A(X,%CHAR) 17 Q %HASH
Note:
See TracChangeset
for help on using the changeset viewer.