blob: 7b836d170a9877fe63cb41e53902053462055e48 (
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
53
54
|
/*
* OpenSSL Modular Exponentiation
* (C) 1999-2007 Jack Lloyd
*
* Distributed under the terms of the Botan license
*/
#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);
}
}
|
