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