## generate a ramdom keypair
keypair <- sm2_gen_keypair()
keypair$private_key
keypair$public_key
## export public key from private key
sm2_pk_from_sk(keypair$private_key)
## check whether the private key is legal
sm2_privkey_valid(keypair$private_key)
## check whether the public key is legal
sm2_pubkey_valid(keypair$public_key)
if (FALSE) {
sm2_keypair_to_pem_file(keypair, 'keypair.pem')
sm2_keypair_from_pem_file('keypair.pem')
sm2_pubkey_to_pem_file(keypair$public_key, 'pubkey.pem')
sm2_pubkey_from_pem_file('pubkey.pem')
}
Run the code above in your browser using DataLab