Last change
on this file since 1074 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
969 bytes
|
Rev | Line | |
---|
[628] | 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.