]>
git.ipfire.org Git - thirdparty/openssl.git/blob - perl/SSLeay.pm
6 @ISA = qw(Exporter DynaLoader);
13 @SSLeay::BN
::ISA
= qw(SSLeay::ERR);
14 @SSLeay::MD
::ISA
= qw(SSLeay::ERR);
15 @SSLeay::Cipher
::ISA
= qw(SSLeay::ERR);
16 @SSLeay::SSL
::CTX
::ISA
= qw(SSLeay::ERR);
17 @SSLeay::BIO
::ISA
= qw(SSLeay::ERR);
18 @SSLeay::SSL
::ISA
= qw(SSLeay::ERR);
20 @BN::ISA
= qw(SSLeay::BN);
21 @MD::ISA
= qw(SSLeay::MD);
22 @Cipher::ISA
= qw(SSLeay::Cipher);
23 @SSL::ISA
= qw(SSLeay::SSL);
24 @SSL::CTX
::ISA
= qw(SSLeay::SSL::CTX);
25 @BIO::ISA
= qw(SSLeay::BIO);
28 @SSLeay::MD
::names
=qw(md2 md5 sha sha1 ripemd160 mdc2);
30 @SSLeay::Cipher
::names
=qw(
31 des-ecb des-cfb des-ofb des-cbc
32 des-ede des-ede-cfb des-ede-ofb des-ede-cbc
33 des-ede3 des-ede3-cfb des-ede3-ofb des-ede3-cbc
35 idea-ecb idea-cfb idea-ofb idea-cbc
36 rc2-ecb rc2-cbc rc2-40-cbc rc2-cfb rc2-ofb
37 bf-ecb bf-cfb bf-ofb bf-cbc
38 cast5-ecb cast5-cfb cast5-ofb cast5-cbc
39 rc5-ecb rc5-cfb rc5-ofb rc5-cbc
42 sub SSLeay
::SSL
::CTX
::new_ssl
{ SSLeay
::SSL
::new
($_[0]); }
44 sub SSLeay
::ERR
::error
49 while (($s=$o->get_error()) != 0)
56 @SSLeay::Cipher
::aliases
=qw(des desx des3 idea rc2 bf cast);
60 sub bnfix
{ (ref($_[0]) ne "SSLeay::BN")?SSLeay
::BN
::dec2bn
($_[0]):$_[0]; }
62 "=" => sub { dup
($_[0]); },
63 "+" => sub { add
($_[0],$_[1]); },
64 "-" => sub { ($_[1],$_[0])=($_[0],$_[1]) if $_[2];
65 SSLeay
::BN
::sub($_[0],$_[1]); },
66 "*" => sub { mul
($_[0],$_[1]); },
67 "/" => sub { ($_[1],$_[0])=($_[0],$_[1]) if $_[2]; (div
($_[0],$_[1]))[0]; },
68 "%" => sub { ($_[1],$_[0])=($_[0],$_[1]) if $_[2]; mod
($_[0],$_[1]); },
69 "**" => sub { ($_[1],$_[0])=($_[0],$_[1]) if $_[2]; exp($_[0],$_[1]); },
70 "<<" => sub { lshift
($_[0],$_[1]); },
71 ">>" => sub { rshift
($_[0],$_[1]); },
72 "<=>" => sub { SSLeay
::BN
::cmp($_[0],$_[1]); },
73 '""' => sub { bn2dec
($_[0]); },
74 '0+' => sub { dec2bn
($_[0]); },
75 "bool" => sub { ref($_[0]) eq "SSLeay::BN"; };
77 sub SSLeay
::BIO
::do_accept
{ SSLeay
::BIO
::do_handshake
(@_); }