Encrypt with github key

encrypt.R

# Send Gabor an encrypted message
library(openssl)
library(jsonlite)

# Get Gabor's pubkey
keydata <- fromJSON("https://api.github.com/users/gaborcsardi/keys")
cat("Number of keys:", nrow(keydata), "\n")
pubkey <- read_pubkey(textConnection(keydata$key[1]))
print(pubkey)

# Encrypt a short secret
mysecret <- charToRaw("This is a secret")
msg <- base64_encode(rsa_encrypt(mysecret, pubkey))

# Gabor has the corresponding private key:
key <- read_key("~/.ssh/id_rsa") 
rawToChar(rsa_decrypt(base64_decode(msg), key))