Difference between revisions of "RPC HELP Hash Encrypt"
From VistApedia
| Line 2: | Line 2: | ||
Kernel and the RPC Broker provide encryption functions that can be used to encrypt messages sent between the client and the server. | Kernel and the RPC Broker provide encryption functions that can be used to encrypt messages sent between the client and the server. | ||
| − | < | + | <h3>In Delphi</h3> |
Include HASH in the "uses" clause of the unit in which you'll be encrypting or decrypting. | Include HASH in the "uses" clause of the unit in which you'll be encrypting or decrypting. | ||
| Line 10: | Line 10: | ||
function Encrypt(NormalText: string): string; | function Encrypt(NormalText: string): string; | ||
| − | < | + | <h3>On the VistA M Server</h3> |
To encrypt: | To encrypt: | ||
Revision as of 22:39, 5 July 2015
Encryption Functions
Kernel and the RPC Broker provide encryption functions that can be used to encrypt messages sent between the client and the server.
In Delphi
Include HASH in the "uses" clause of the unit in which you'll be encrypting or decrypting.
Function prototypes are as follows:
function Decrypt(EncryptedText: string): string; function Encrypt(NormalText: string): string;
On the VistA M Server
To encrypt:
>SET CIPHER=$$ENCRYP^XUSRB1("Hello world!") W CIPHER
/U'llTG~TVl&f-
To decrypt:
>SET PLAIN=$$DECRYP^XUSRB1(CIPHER) W PLAIN Hello world!
These encryption functions can be used for any communication between the client and the server where encryption is desired.
