|
Last change
on this file since 1800 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
507 bytes
|
| Line | |
|---|
| 1 | XUSHSH ;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)
|
|---|
| 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
TracBrowser
for help on using the repository browser.
