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</h3>

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.