## encrypt and decrypt from file
if (FALSE) {
data <- 'abc' |> charToRaw()
keypair <- sm2_gen_keypair()
private_key <- keypair$private_key
public_key <- keypair$public_key
sm2_encrypt_to_file(data, 'data.enc', public_key)
sm2_decrypt_from_file('data.enc', private_key)
}
Run the code above in your browser using DataLab