Help for this page

Select Code to Download


  1. or download this
    my $gpg=Crypt::GPG->new();
$gpg->gpgbin($CONFIG{gpgbin});
...
close ENCRYPT;

my $encryption=$gpg->encrypt(join('',@encr),$CONFIG{icskeyuserid},'-si
+gn') or die "error encrypting\n";
  2. or download this
    F:\scripts>GnuPGInterface.bat
Prototype mismatch: sub Socket::IPPROTO_TCP () vs none at f:/perl/lib/
+Socket.pm
...
IPC::Run 0003 [#3(6068)]: read( 13 ) = 0 but true chars ''
IPC::Run 0003 [#3(6068)]: kid 1 (916) exited
error encrypting