Mail::DKIM::PrivateKey (3pm)

 my $key1 = Mail::DKIM::PrivateKey->load(
               File => "/path/to/private.key");

 my $key2 = Mail::DKIM::PrivateKey->load(
               Data => $base64);

 # use the loaded key in a DKIM signing object
 my $dkim = Mail::DKIM::Signer->new(
               Key => $key2,
             );

\fIload()\fP - loads a private key into memory

my $key1 = Mail::DKIM::PrivateKey->load( File => "/path/to/private.key");

Loads the Base64-encoded key from the specified file.

my $key2 = Mail::DKIM::PrivateKey->load(Data => $base64);

Loads the Base64-encoded key from a string already in memory.

my $key3 = Mail::DKIM::PrivateKey->load(Cork => $openssl_object);

Creates a Mail::DKIM::PrivateKey wrapper object for the given OpenSSL key object. The key object should be of type Crypt::OpenSSL::RSA.

\fIcork()\fP - access the underlying OpenSSL key object

$openssl_object = $key->cork;

The returned object is of type Crypt::OpenSSL::RSA.

\fIsign_digest()\fP

Cryptographically sign the given message digest.

$key->sign_digest("SHA-1", sha1("my message text"));

The first parameter is the name of the digest: one of \*(L"\s-1SHA-1\s0\*(R", \*(L"\s-1SHA-256\s0\*(R".

The second parameter is the message digest as a binary string.

The result should be the signed digest as a binary string.

Jason Long, <[email protected]>

Copyright (C) 2006-2008 by Messiah College

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.6 or, at your option, any later version of Perl 5 you may have available.