Creating PGP-Encrypted E-Mails Using ASP - Article (Page 2 of 2 )
The Concept of PGP
For PGP-based communication both the sender and receiver should have public and private key pairs. The sender's public key should be distributed to the receiver. Similarly, the receiver's public key should be distributed to the sender. When sending a message or a file, the sender can sign using his private key. Also, the sender's private key is never distributed.
Signing an e-mail message means the sender attaches a digital ID to it so that the recipient knows the sender. Signing authenticates a message, but it does not provide protection.
Encrypting a message means converting the information into a "scramble" format; only the true recipient can "unscramble" it. Encrypting a message requires that you have the recipient's digital ID.
Installation and Configuration of PGP Command Line
Installation of PGP Command Line Run the setup and install in your preferred location.
Configuration of PGP Command Line Before sending an encrypted mail, PGP needs to be configured. The steps for configuration are given below:
Generation of key pair
Extracting public key
Adding recipient's public key
Generation of Key Pair
Key-pair generation can be invoked by command 'pgp -kv'. You will be prompted for the following steps during the key-pair generation process.
Public ID for user key
Validity period of signing key
Digital Signature Standard -- Diffie-Hellman (DSS/DH) is a recommended key algorithm. RSA (Rivest-Shamir-Adleman), a cryptology method by RSA Data Security, Inc., that uses a two-part key, can also be used, and this is the only algorithm supported by the older versions (2.x or earlier) of PGP. During the process, select the key size and type that suits you.
Follow the screenshots that show the key-generation process.
Extracting the Public Key
A public key should be exchanged between the sender and recipient before starting communication. A public key can be extracted in a text file and distributed to the recipient. Keys can be extracted using the command 'pgp -kx userid keyfile'. A screenshot of extracting the key appears below:
Adding Recipient's Public Key
As a part of the key-exchange process, the recipient's public key should be added to the sender's key ring. The public key can be using the command 'pgp -ka keyfilename'. A screenshot of adding the key appears below:
After confirming the authenticity of the public key, you can sign them. While encrypting a file using a recipient's ID, you will be prompted with a warning about the trustworthiness of the public key. Signing will eliminate the prompting of warning during the encryption process of a message. A key can be signed using the command 'pgp -ks userid'.
Generation of PGP-Encrypted E-mails from ASP
Earlier sections of this article have detailed the installation and configuration of PGP Command Line. How this process helps in sending encrypted mails from ASP will be discussed in this section. Generally the information that needs to be encrypted is first written as a text file. Then the file is signed, encrypted, and mailed. The following is the command used to encrypt a text file (refer to the PGP Command Line users guide, available at http://www.pgpi.org/doc/guide/6.5/en/cmdline/ for other option. The guide in pdf format is also packaged with the product.)
The description of command-line options used: s - sign e - encrypt a - creates an ASCII-armored output file with extension .asc when you sign or encrypt t - input is a text file
An ActiveX control is created with the functionality to encrypt and sign a text file. This ActiveX can be invoked in an ASP page. After encrypting, the file can be sent as an e-mail using any mail component. The ASP and the control code are shown below.
<% Set xObj = Server.CreateObject("XCrypt.Crypt") xObj.boolLogStatus="True" xObj.strLogFilename="c:\pgpcmd\log.log" x=xObj.encrypt("c:\PGPCmd\PGP.exe","c:\PGPCmd\message.txt", "email@example.com", "firstname.lastname@example.org", "sel123") Set xObj=nothing %>
Public Function encrypt(strPGPLocation As String, strFileLocation As String, strSender As String, strRecipient As String, strPassphrase As String) As String '****************************************************** 'Author: Selva Kumar 'Purpose: PGP Encryption '****************************************************** 'Variables: 'strPGPLocation - Location of command line PGP. Ex:C:\PGP\pgp.exe 'strFileLocation - Location of file to be encrypted 'strSender - Sender's e-mail address 'strRecipient - Recipient's e-mail address 'strPassPhrase - Passphrase of signing key 'strCryptFileName - Encrypted file name 'strOptions - By default, -seat. Refer PGPCommandLine manual for further options 'Variable declarations Dim strCryptFilename As String Dim strCommand As String Dim boolExeStatus As Boolean Dim strOptions As String Dim ws 'Variables assignment strOptions = "-seat" strCryptFilename = strFileLocation & ".asc" boolExeStatus = True If boolLogStatus Then writeLog ("***** Entering encrypt function - initialization succeeded *****") End If 'Check for the existence of pgp executable If Dir$(strPGPLocation) = "" Then encrypt = "PGP executable not found" boolExeStatus = False If boolLogStatus Then writeLog ("----- Error: PGP executable not found -----") End If Exit Function Else If boolLogStatus Then writeLog ("+++++ PGP executable found +++++") End If End If 'Check for the existence of input file If Dir$(strFileLocation) = "" Then encrypt = "Input file not found" boolExeStatus = False If boolLogStatus Then writeLog ("----- Error: Input file not found -----") End If Exit Function Else If boolLogStatus Then writeLog ("+++++ Input file found +++++") End If End If 'Check for the existence of encrypted output file. 'If the output file exists ' the file will be deleted and the encryption command is executed 'else ' The encryption command is executed If boolExeStatus Then strCommand = strPGPLocation & " " & strOptions & " " & strFileLocation & " " & strRecipient & " -u " & strSender & " -z " & """" & strPassphrase & """" If Dir$(strCryptFilename) = "" Then Shell (strCommand) encrypt = strCommand Else If boolLogStatus Then writeLog ("+++++ The output file already exists +++++") End If Kill (strCryptFilename) If Dir$(strCryptFilename) = "" Then If boolLogStatus Then writeLog ("+++++ The output file was deleted +++++") End If Else If boolLogStatus Then writeLog ("----- Error: Deleting output file -----") End If End If Shell (strCommand) If boolLogStatus Then writeLog ("***** PGP encryption command executed *****") End If encrypt = strCommand End If End If End Function
DISCLAIMER: The content provided in this article is not warranted or guaranteed by Developer Shed, Inc. The content provided is intended for entertainment and/or educational purposes in order to introduce to the reader key ideas, concepts, and/or product reviews. As such it is incumbent upon the reader to employ real-world tactics for security and implementation of best practices. We are not liable for any negative consequences that may result from implementing any information covered in our articles or tutorials. If this is a hardware review, it is not recommended to open and/or modify your hardware.