1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#' @useDynLib openssl R_ecdsa_pubkey_build
ecdsa_pubkey_build <- function(x, y, nist_name){
.Call(R_ecdsa_pubkey_build, x, y, nist_name);
}
#' @useDynLib openssl R_dsa_pubkey_build
dsa_pubkey_build <- function(p,q,g,y){
.Call(R_dsa_pubkey_build, p, q, g, y)
}
#' @useDynLib openssl R_rsa_pubkey_build
rsa_pubkey_build <- function(exp, mod){
.Call(R_rsa_pubkey_build, exp, mod)
}
#' @useDynLib openssl R_ecdsa_key_build
ecdsa_key_build <- function(x, y, d, nist_name){
.Call(R_ecdsa_key_build, x, y, d, nist_name)
}
#' @useDynLib openssl R_rsa_key_build
rsa_key_build <- function(e, n, p, q, d, dp = (d %% (p-1)), dq = (d %% (q-1)), qi = bignum_mod_inv(q, p)){
.Call(R_rsa_key_build, e, n, p, q, d, dp, dq, qi)
}
|
