Software components for data protection, secure storage and transfer
m.cInputFile = 'C:\temp\TestFile.txt'
m.cOutputFile = 'C:\temp\TestFile.txt.pgp'
m.cRecipientKey = 'firstname.lastname@example.org'
&& Load keyring
oKeyRing = CREATEOBJECT('pgpbbox.ElPGPKeyRingX')
oKeyRing.LoadFromFiles('c:\gnupg\pubring.pkr', 'c:\gnupg\secring.skr', 0)
&& Lookup Recipient
m.nRecipientKey = oKeyRing.FindPublicKeyByEmailAddress(m.cRecipientKey, 1)
&& Initialize PGP Writer
oPGP = CREATEOBJECT('pgpbbox.ElPGPWriterX')
oPGP.EncryptionType = 0
oPGP.FileName = JUSTFNAME(m.cInputFile)
oPGP.Timestamp = DATETIME()
oPGP.Armor = .F.
&& Assign Recipient Key
oPGP.EncryptingKeys = CREATEOBJECT('pgpbbox.ElPGPKeyRingX')
&& Execute Encryption
Number of guests: 1, registered members: 0,
in total hidden: 0
Copyright (c) 2017, /n software, Inc.
As of July 15, 2016 EldoS Corporation will operate as a division of /n software inc. For more information, please read the announcement.