RPC HELP Hash Encrypt

Encryption Functions

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

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; <H3>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.