ISProfile.CreateEncryptObject

Description

This function creates the encrypted object.

Syntax

object.CreateEncryptObject()

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface

Return Value

ISEncryptObject

Returns the result of encrypting and decrypting of the source text.

Example

Display the source text and the result of its encrypting and decrypting.

Dim aEncryptObject
Dim aSourceText
Dim aEncryptedText
Dim aDecryptedText   

Set aEncryptObject = Profile.CreateEncryptObject

aSourceText = "Patient has a disease" 

aEncryptObject.CryptKey = "12345"
aEncryptedText = aEncryptObject.LineEncrypt(aSourceText) 
aDecryptedText = aEncryptObject.LineDecrypt(aEncryptedText)

Profile.MsgBox("Source Text: " & aSourceText & vbNewLine &_ 
  "Encrypted Text: " & aEncryptedText & vbNewLine &_ 
  "Decrypted Text: " & aDecryptedText)

Note:

Version information

Added in v7.8.0