blob: 8bf3b1eeee1f24b5fc86e940589d9089edf9dbcd (
plain)
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
|
/*************************************************
* OpenSSL Modular Exponentiation Source File *
* (C) 1999-2007 The Botan Project *
*************************************************/
#include <botan/eng_ossl.h>
#include <botan/bn_wrap.h>
namespace Botan {
namespace {
/*************************************************
* OpenSSL Modular Exponentiator *
*************************************************/
class OpenSSL_Modular_Exponentiator : public Modular_Exponentiator
{
public:
void set_base(const BigInt& b) { base = b; }
void set_exponent(const BigInt& e) { exp = e; }
BigInt execute() const;
Modular_Exponentiator* copy() const
{ return new OpenSSL_Modular_Exponentiator(*this); }
OpenSSL_Modular_Exponentiator(const BigInt& n) : mod(n) {}
private:
OSSL_BN base, exp, mod;
OSSL_BN_CTX ctx;
};
/*************************************************
* Compute the result *
*************************************************/
BigInt OpenSSL_Modular_Exponentiator::execute() const
{
OSSL_BN r;
BN_mod_exp(r.value, base.value, exp.value, mod.value, ctx.value);
return r.to_bigint();
}
}
/*************************************************
* Return the OpenSSL-based modular exponentiator *
*************************************************/
Modular_Exponentiator* OpenSSL_Engine::mod_exp(const BigInt& n,
Power_Mod::Usage_Hints) const
{
return new OpenSSL_Modular_Exponentiator(n);
}
}
|
