NAME

OpenSSL::RSAkey::SMS - Secure Message System

SYNOPSIS

#!/usr/bin/perl

use OpenSSL::RSAkey::SMS; use OpenSSL::RSAkey::XMLKeys;

my $ring = new OpenSSL::RSAkey::XMLKeys;

$ring->addkeys('minirsa.xml');

my $sms = new OpenSSL::RSAkey::SMS('hallo du sepp');

$sms->add_dests($ring->pubkey_by_email('pcg@goof.com'), $ring->pubkey_by_subject('Stefan Traby')); $sms->add_signers($ring->privkey_by_subject('Stefan Traby'));

my $secret = $sms->final;

my ($decrypted, $chksumok, $sigs) = OpenSSL::RSAkey::SMS::extractmsg($secret, ($ring->all_pubkeys, $ring->all_privkeys));

print "msg was: $decrypted\nchecksumok=$chksumok\n"; print "signed by ".$_->{subject}."\n" for ($sigs);

DESCRIPTION

Complete RSA system with blowfish encoding and sha1 digest and XML Keysupport?? :)

EXPORTS

None by default.

BUGS

None by default. People want private keys in XML encrypted. I don't want that. Store XML-File on a loop-mounted crypto filesystem :)

AUTHORS

Stefan Traby <oesi@plan9.de>

SEE ALSO

perl.