File: build.R

package info (click to toggle)
r-cran-openssl 1.4.3%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 1,288 kB
  • sloc: ansic: 3,021; sh: 97; makefile: 5
file content (29 lines) | stat: -rw-r--r-- 862 bytes parent folder | download | duplicates (4)
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
#' @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_dsa_key_build
dsa_key_build <- function(p, q, g, y, x){
  .Call(R_dsa_key_build, p, q, g, y, x)
}

#' @useDynLib openssl R_rsa_pubkey_build
rsa_pubkey_build <- function(exp, mod){
  .Call(R_rsa_pubkey_build, exp, mod)
}

#' @useDynLib openssl R_rsa_key_build
rsa_key_build <- function(e, n, p, q, d, qi = bignum_mod_inv(q, p), dp = (d %% (p-1)), dq = (d %% (q-1))){
  .Call(R_rsa_key_build, n, e, d, qi, p, q, dp, dq)
}

#' @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_ecdsa_key_build
ecdsa_key_build <- function(x, y, secret, nist_name){
  .Call(R_ecdsa_key_build, x, y, secret, nist_name)
}