Hi,

I need to send PGP signed E-Mail from an application using ASINet.

Has anybody a hint how to do that ? I am aware that I need external software
for that.

Thanks

Stephan

>I need to send PGP signed E-Mail from an application using ASINet.
>
>Has anybody a hint how to do that ? I am aware that I need external software
>for that.

I think all you need to do is write the body of the message to a text
(or whatever) file, create the certificate and add the certificate as
an attachment.  It all depends on whether the attachment is considered
part of the email by the certificate reader.

As an alternative, you could embed the certificate into the header
using an "X-" header:

e.g.
X-Certificate: blah-di-blah-di-certificate

As a last resort, you might want to check out the RFC repository and
see what the standard is 

http://www.rfc-editor.org/

Regards,

Phil Ide

Xbase++ FAQ
current release: 8,  Monday 4th February 2002, 14:54
***
* Xbase++ FAQ:
*  online  : http://www.idep.org.uk/xbase/xbfaq/xbfaq.htm
*          : www.software-braun.de/xbfaq/xbfaq.htm 
*  download: http://www.idep.org.uk/xbase/xbfaq.zip
*          : www.software-braun.de/xbfaq/xbfaq.zip 
***

In article <3e790861@asgcom.alaska-software.com>, S.Koenig@LaserPlus.de 
says...
> Hi,
> 
> I need to send PGP signed E-Mail from an application using ASINet.
> 
> Has anybody a hint how to do that ? I am aware that I need external software
> for that.
> 
> Thanks
> 
> Stephan
> 
Hi Stephan,

Maybe this solve your problem. It is not the most elegant solution but 
it works for me.

IF EADDR->Pgp
/* Format command line : PGP switches filename
   Switches voor PGP.EXE
   -e     Encrypt using public key encryption
   -s     Sign
   -a     Converts a file to ASCII-armored format
   +force Eliminating conformation questions
   -o     Specifies the path and output filename
   -z     Indentifies the passphrase on the command line
   or use SET PGPPASS=<PgpPassword>
*/
   cCmdLine  := '-esa +force -o' + cOutBox + cFileName + ' ' + ;
                cPgpFile + ' "' + cToAddr + '"'
   IF (nResult := RunShell(cCmdLine, "Pgp.exe", FALSE, TRUE)) > 0
      cErrTxt := "ERROR: Pgp encrypt error " + PADR(nResult, 2)
   ENDIF
ENDIF