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