## sign and verify
id <- charToRaw('yumeng@company.com')
data <- charToRaw('abc')
keypair <- sm2_gen_keypair()
private_key <- keypair$private_key
public_key <- keypair$public_key
sign_data <- sm2_sign(id, data, private_key)
verify_result <- sm2_verify(id, data, sign_data, public_key)
if (FALSE) {
sm2_sign_to_file(id, data, 'sign_data.sig', private_key)
sm2_verify_from_file(id, data, 'sign_data.sig', public_key)
}
Run the code above in your browser using DataLab