HQC-128 decapsulation
Arguments
- sk
Secret key.
- ct
Ciphertext from
morie_crypto_hqc_encaps.
Examples
if (morie_crypto_liboqs_available()) {
kp <- try(morie_crypto_hqc_keygen(), silent = TRUE)
if (!inherits(kp, "try-error")) {
enc <- morie_crypto_hqc_encaps(kp$pk)
ss <- morie_crypto_hqc_decaps(kp$sk, enc$ct)
print(identical(ss, enc$shared_secret))
}
}
