source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUSHSH.mBU@ 1141

Last change on this file since 1141 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 507 bytes
Line 
1XUSHSH ;SF-ISC/STAFF - PASSWORD ENCRYPTION ;3/23/89 15:09 ; 4/14/05 1:22pm
2 ;;8.0;KERNEL;;Jul 10, 1995
3 ;; This is the public domain version of the VA Kernel.
4 ;; Use this routine for your own encryption algorithm
5 ;; Input in X
6 ;; Output in X
7 ;; Algorithm for VistA Office EHR encryption (BSL)
8A ;
9 S X=$$EN(X)
10 Q
11EN(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 TracBrowser for help on using the repository browser.