Crypt::PGPSimple ???

[Mark Goland]

I have installed pgp 6.5.8 , and am testing on winXP. I can encrypt and
decrypt from cmd just fine. Have  anyone used this pack, I am having a hard
time Can any make something of it ??

use Crypt::PGPSimple;
{
        open my $RD_FH,"< $ARGV[0]" || die "cant open $ARGV[0]: $!";
        local @TMP=<$RD_FH>;
        $_= join '',@TMP;
}

my ($objPGP)= new Crypt::PGPSimple;

$objPGP->PgpExePath("c:\\progra~1\\networ~1\\PGPcmdln\\PGP.exe -h ");
$objPGP->PgpTempDir("c:\\temp\\Fcrypt");
$objPGP->PublicKey("public.pgp");
$objPGP->PlainText("$_");
$objPGP->Encrypt;

$rint=$objPGP->EncryptedText;

print $rint || print $objPGP->ErrDescription . "\n" . $objPGP->Result;


Thanx in Advance,
Mark


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]