ISEncryptObject.LineDecrypt

Description

This function decrypts the encrypted text using the crypt key.

Syntax

object.LineDecrypt(Line)

Part	Attribute	Type	Description
`object`	Required	ISEncryptObject	The `object` always implements the ISEncryptObject interface
`Line`	In, Required	string	The text for decrypting

Return Value

string

Returns the result of decrypting of the encrypted text.

Example

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

Dim aEncryptObject
Dim aSourceText
Dim aEncryptedText, 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