# Create a new key
key <- cyphr::key_openssl(openssl::aes_keygen())
key
# With this key encrypt a string
secret <- cyphr::encrypt_string("my secret string", key)
# And decrypt it again:
cyphr::decrypt_string(secret, key)
Run the code above in your browser using DataLab