Linux Certif

Toute la documentation sur la certification Linux LPI

SMIME::JA.3pm

NAME

Crypt::SMIME::JA - S/MIMEXXXXXXXXXXXXXX

XX

   use Crypt::SMIME;
   
   my $plain = <<'EOF';
   From: alice@example.org
   To: bob@example.com
   Subject: Crypt::SMIME test
   
   This is a test mail. Please ignore...
   EOF
   
   my $smime = Crypt::SMIME->new();
   $smime->setPrivateKey($privkey, $crt);
   # $smime->setPublicKey([$icacert]); # if need be.
   
   my $signed = $smime->sign($plain);
   print $signed;
 
 

XX

S/MIMEXXXXXXXXXXXXXXXXXXXXX libcrypto (<http://www.openssl.org>) XXXX

XXXX

new()

   my $smime = Crypt::SMIME->new();
 
 

XXXX

setPrivateKey()

   $smime->setPrivateKey($key, $crt);
   $smime->setPrivateKey($key, $crt, $password);
 
 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXX

XXXXXXXXXXXXX PEM XXXXXXXXXXXXXXXXXdieXXX

setPublicKey()

   $smime->setPublicKey($crt);
   $smime->setPublicKey([$crt1, $crt2, ...]);
 
 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXX

XXXXXXXXXXXXX PEM XXXXXXXXXXXXXXXXXdieXXX

sign()

   $signed_mime = $smime->sign($raw_mime);
 
 

XXXXXXMIMEXXXXXXXXXXXXXXXXXXXXXXX

"Content-*", "MIME-*" XX "Subject" XXXXXXXX multipartXXXXXXXXXXXXX "Subject" XS/MIMEXXXXXXXXXXXXXX, multipartX XXXXXXXXXXXXXXXXXXXXXXXXXXX

signonly()

   $sign = $smime->signonly($prepared_mime);
 
 

XXXXXXXXX $sign XBASE64XXXXXXXXXXXX $prepared_mime XX, ``prepareSmimeMessage'' XXXXXXXXXX

prepareSmimeMessage()

   ($prepared_mime, $outer_header)
       = $smime->prepareSmimeMessage($source_mime);
 
 

XXXXXXXXXXXXXXX $prepared_mime XXXXXXXXXXXMIMEXXXXXXXXX $outer_header XXS/MIMEXXXXXXXXXXXXXXX

$prepared_mime XXXX$source_mimeXXXXXXXXX XXXXXXXX"Content-*", "MIME-*", "Subject" XXXXXX XXXXXXXXXXXXXXXXX $outer_header XXXXXX S/MIMEXXXXXXXXXXXXXXXXS/MIMEXXXXXXXXXXXXXXX "Subject" XXXXXX $prepared_mime X $outer_header XXXX XXXXXXXX

check()

   $source_mime = $smime->check($signed_mime);
 
 

XXXXXXXXXXXXXXXXXXXXXXXdieXXX

encrypt()

   $encrypted_mime = $smime->encrypt($raw_mime);
 
 

XXXXXXX

"Content-*", "MIME-*" XX "Subject" XXXXXXXX multipartXXXXXXXXXXXXXXX "Subject" XS/MIMEXXXXXXXXXXXXXX, multipartX XXXXXXXXXXXXXXXXXXXXXXXXXXX

decrypt()

   $decrypted_mime = $smime->decrypt($encrypted_mime);
 
 

XXXXXXXXXXXXXXXXXXXXXXXXXdieXXX

isSigned()

   $is_signed = $smime->isSigned($mime);
 
 

XXXXMIMEXXXXXXS/MIMEXXXXXXXXXXXXXXX XXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXX

isEncrypted()

   $is_encrypted = $smime->isEncrypted($mime);
 
 

XXXXMIMEXXXXXXS/MIMEXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXX

XX

Copyright 2006-2007 YMIRLINK Inc. All Rights Reserved.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself

Bug reports and comments to: tl@tripletail.jp