RPC HELP Hash Encrypt

RPC Broker Help Home 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.