RPC HELP Hash Encrypt
From VistApedia
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 DelphiInclude 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.