Devel-Scooby
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
Message => $message,
Key => $public_key,
Armour => $TRUE
) or die $rsa->errstr, "\n";
# Use the PK- of this Mobile::Executive invocation to
# sign the encrypted mobile agent.
my $cypher_signature = $rsa->sign(
Message => $cyphertext,
Key => $Mobile::Executive::private_key,
Armour => $TRUE
) or die $rsa->errstr, "\n";
# Networking code to send agent to the server starts here.
my $trans_serv = getprotobyname( 'tcp' );
my $remote_host = gethostbyname( $remote ) or inet_aton( $remote );
my $destination = sockaddr_in( $remote_port, $remote_host );
socket( TCP_SOCK, PF_INET, SOCK_STREAM, $trans_serv )
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.770 second using v1.00-cache-2.02-grep-82fe00e-cpan-2cc899e4a130 )