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.