Encrypts a file using PGP compatible encryption.

x = object.PGPFileEncrypt

The syntax of the PGPFileEncrypt method has these parts:

 

Part	Description
object	A Cryptocx v7 control.
x	A string that becomes either "TRUE" or "Error: xxx" where xxx is the error message.

This method requires the use of a public key ring, you have to specify the directory in which the public key ring resides though the KeyFolder property.

You need to specify the file to encrypt, the SourceFile.

You need to specify where the result of encrypting the source file will go, the DestinationFile.

You also need to specify what key to use, this is done through the KeyID property of the control.

You can optionally specify the property AsciiArmour this allows you to control the type of encrypted file to produce, binary or Ascii (more suitable for emailing for example). If not specified PGPFileEncrypt will default to 'yes'.

String

Where Cryptocx1 is an instance of a Cryptocx Control.

Dim theResult As String

Cryptocx1.SourceFile = "C:\filetoencrypt.txt"
Cryptocx1.DestinationFile = "C:\output.txt"
Cryptocx1.KeyFolder = "C:\mykeys"
Cryptocx1.KeyID = "mykey"
Cryptocx1.AsciiArmour = "yes"

theResult = Cryptocx1.PGPFileEncrypt


'' Check to see what has happened (if the decryption went ok without errors)
''
If theResult = "TRUE" Then
  '' Ok, the encryption went well with no errors
Else
  MsgBox theResult
End If