Thank you so much, that does exactly what I want! I'm much farther along now, and sending messages works fine. However, on the receiving end when I try to decrypt the message I get: protocol error: expected DECRYPTION_OKAY got PLAINTEXT

I can't find where I've messed up, I tried to follow the example CPAN code as much as I could - but clearly I've done something wrong. I've marked the line near the very bottom where it appears to be erroring.

#!/usr/bin/env perl
use warnings;
use strict;
use Term::ReadKey; # For the noecho
use GnuPG::Tie::Encrypt;
use GnuPG::Tie::Decrypt;

# Global vars here
my $message_separator = "!"; # Separate messages on !, because gpg wil
+l put newlines into the message, but never uses '!' in ascii-armor
# End of global vars

client( $ARGV[0], $ARGV[1] ) if( @ARGV == 2 );
daemon( $ARGV[0] ) if( @ARGV == 1 );
usage() if( @ARGV != 1 && @ARGV != 2 );

sub usage
{
    print "Usage:\n";
    print "$0 <port_number> # For listening as a daemon\n";
    print "$0 <ip_address> <port_number> # For connecting to other ser
+vers\n";
}

sub client
{
    my $target = shift;
    my $port = shift;
    my $status = `nc -z $target $port` or die "Can't open data connect
+ion (port closed or host unreachable)";
    print "Who do I encrypt to: ";
    my $keyname = <STDIN>;
    chomp( $keyname );
    ReadMode('noecho');
    print "PGP Key passphrase (not echoed): ";
    my $passphrase = <STDIN>;
    chomp $passphrase;
    print "\n"; # The user's return key won't be echoed
    ReadMode(0); # Reset term status
    open (NET, "|-", "nc $target $port") or die "Can't open netcat: $!
+";
    while( 0 == 0 )
    {
        my $message = encrypt( $keyname, $passphrase );
        last if $message eq "exit";
        select(NET); # We select NET so $| will effect it
        $| = 1; # We can't buffer because of interactions with netcat.
        print $message . $message_separator; # Send it through the tub
+es!
    }
    close NET;
    select(STDOUT);
    print "Connection Terminated.\n";
}

sub encrypt
{
    select(STDOUT);
    my $keyname = shift;
    my $passphrase = shift;
    print "Message: ";
    my $message = <STDIN>;
    chomp( $message );
    return "exit" if( length($message) == 0 ); # Quit if blank message
    tie *ENCRYPT, 'GnuPG::Tie::Encrypt', recipient => $keyname, sign =
+> 1, passphrase => $passphrase, armor => 1;
    print ENCRYPT $message;
    local $/ = undef; # Don't stop reading from ENCRYPT at a newline l
+ike normal
    my $encrypted_message = <ENCRYPT>;
    close ENCRYPT;
    untie *ENCRYPT;
    return $encrypted_message;
}

sub daemon # Listen for incomming connections
{
    my $port = shift or die "Usage: $0 <port_number>";
    ReadMode('noecho');
    print "PGP Key passphrase (not echoed): ";
    my $passphrase = <STDIN>;
    chomp $passphrase;
    print "\n"; # The user's return key won't be echoed
    ReadMode(0); # Reset term status
    print( msg_time(), " Server started.\n");
    open (NET, "-|", "nc -k -l $port" ) or die "Can't open netcat!";
    local $/ = $message_separator; # Seperate off chosen symbol instea
+d of newline
    while( <NET> )
    {
        my $plaintext = decrypt($passphrase, $_);
        print( msg_time(), " ", $plaintext);
    }
    close NET; 
}

sub msg_time
{
    my( $hours, $minutes, $seconds ) = (localtime)[2,1,0];
    return "$hours:$minutes:$seconds";
}

sub decrypt
{
    my $passphrase = shift;
    my $message = shift;
    tie *DECRYPT, 'GnuPG::Tie::Decrypt', passphrase => $passphrase;
    print DECRYPT $message; # Here's where I error out
    my $plaintext_message = <DECRYPT>;
    close DECRYPT;
    untie *DECRYPT;
    return $plaintext_message;
}
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.