The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

SORTIZ / Crypt-OpenSSL-Common-0.1 / lib / Crypt / OpenSSL / Common.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
—
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141

              
package Crypt::OpenSSL::Common;
use 5.008008;
use strict;
use warnings;
our $VERSION = '0.1';
require Exporter;
our @EXPORT = qw();
our @EXPORT_OK = qw(get_error error_string version version_atbuild);
our %EXPORT_TAGS = (
    all => [@EXPORT_OK]
);
*export = \&Exporter::export;
sub import {
    load_crypto_strings();
    Exporter::export_to_level(__PACKAGE__, 1, @_);
}
# A missing C::O::RSA method
sub Crypt::OpenSSL::RSA::new_from_file {
    my($proto, $file) = @_;
    open(my $pkfh, '<', $file) or die "Can't open key file: $!\n";
    local $/ = undef;
    return $proto->new_private_key(<$pkfh>);
}
require XSLoader;
XSLoader::load('Crypt::OpenSSL::Common', $VERSION);
1;
__END__
=head1 NAME
Crypt::OpenSSL::Common - Common services from the OpenSSL libraries.
=head1 SYNOPSIS
    use Crypt::OpenSSL::Foo;
    use Crypt::OpenSSL::Common;
    # Now use the functionality of Crypt::OpenSSL::Foo as usual.
=head1 INTRODUCTION
There are in CPAN a lot of modules that provides bindings to many parts of the
OpenSSL libraries. Among them:
    Crypt::OpenSSL::RSA     OpenSSL's RSA API
    Crypt::OpenSSL::X509    OpenSSL's X509 API
    Crypt::OpenSSL::PKCS10  PKCS#10 creation and handling
    Crypt::OpenSSL::Bignum  Multiprecision integer arithmetic (OpenSSL "bn" library)
But the OpenSSL libraries provides a few common functions that are global in nature,
for example, all the C<ERR_*> handling functions or the C<SSL_library_init> function.
The main purpose of this module is to provides perl bindings to all those functions.
=head1 DESCRIPTION
    use Crypt::OpenSSL::Common;
    # now 'use' other OpenSSL modules
The first time that your program uses this module, the OpenSSL is properly initialized.
This initialization loads from the library all the available cryptographic algorithms.
The main visible effect is that some other APIs can now automatically recognize them.
For example, the Crypt::OpenSSL::RSA's new_private_key class method now can handle
I<encrypted> private keys in the same way the C API does, ie. prompting the user for
the I<pass phrase> used to protect the private key.
This initialization can't be properly done in any one of the individual modules.
=head1 INTERFACE
=head2 Functions
None of the following are exported by default.
=over 4
=item version()
Returns the loaded OpenSSL library version number.
=item version_atbuild()
Returns the OpenSSL library version used to build the module. It can be different
to L<version> above.
=item get_error()
Returns the numeric code of the last error generated by an OpenSSL's API call.
=item error_string(B<code>)
Returns a human readable string from the error code B<code>.
=back
=head2 Extentions
This module provides some methods that I consider missing from other modules of the
family.
=over 4
=item Crypt::OpenSSL::RSA->new_from_file(B<$filename>)
Returns a new L<Crypt::OpenSSL::RSA> object from the PEM encoded file B<$filename>.
=back
If you maintains any of the modules mentioned, fell free to adopt de missing
functionality and when doing so, please drop me a note.
=head1 AUTHOR
Salvador Ortiz <sortiz@cpan.org>
=head1 SEE ALSO
L<perl(1)>, L<ssl(3)>, L<err(3ssl)>
=begin PRIVATE
=head1 PRIVATE INTERFACE
=over 4
=item load_crypto_string()
Calls the L<ERR_load_crypto_string(3)> function.
=back
=end PRIVATE