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

perl v5.18.1                                       2011-04-21                                     SMIME::JA(3pm)