Last change
on this file since 1078 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.