|
Last change
on this file since 1000 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
969 bytes
|
| Line | |
|---|
| 1 | VAQHSH1 ;ALB/JRP - ENCRYPT/DECRYPT ROUTINES;29-MAR-93
|
|---|
| 2 | ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
|
|---|
| 3 | KRNLHASH(STRING,KEY1,KEY2,DCRYPT) ;ENCRYPT/DECRYPT USING KERNEL HASHING
|
|---|
| 4 | ;INPUT : STRING - String to encrypt/decrypt
|
|---|
| 5 | ; KEY1 - Primary key for encryption/decryption (numeric)
|
|---|
| 6 | ; (defaults to the current value in DUZ)
|
|---|
| 7 | ; KEY2 - Secondary key for encryption/decryption (numeric)
|
|---|
| 8 | ; (defaults to 0)
|
|---|
| 9 | ; DCRYPT - Flag indicating whether to encrypt or decrypt
|
|---|
| 10 | ; If 0, encrypt STRING (default)
|
|---|
| 11 | ; If 1, decrypt STRING
|
|---|
| 12 | ;OUTPUT : S - STRING encrypted/decrypted using KERNEL hashing
|
|---|
| 13 | ; Null - Encryption/decryption not possible
|
|---|
| 14 | ;
|
|---|
| 15 | ;CHECK INPUT
|
|---|
| 16 | Q:('$D(STRING)) ""
|
|---|
| 17 | S:('$D(KEY1)) KEY1=+$G(DUZ)
|
|---|
| 18 | S:(KEY1'?1.N) KEY1=+$G(DUZ)
|
|---|
| 19 | S KEY2=+$G(KEY2)
|
|---|
| 20 | S DCRYPT=+$G(DCRYPT)
|
|---|
| 21 | ;DECLARE VARIABLES
|
|---|
| 22 | N X,X1,X2
|
|---|
| 23 | S X=STRING
|
|---|
| 24 | S X1=KEY1
|
|---|
| 25 | S X2=KEY2
|
|---|
| 26 | ;ENCRYPT
|
|---|
| 27 | I ('DCRYPT) D EN^XUSHSHP Q X
|
|---|
| 28 | ;DECRYPT
|
|---|
| 29 | D DE^XUSHSHP
|
|---|
| 30 | Q X
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
