R/utils.R

In hadley/secure: Secure R Objects so They Can Only be Read by Specified People.

new_key <- function(n = 40) {
  as.raw(sample(1:255, n, replace = TRUE))
}

#' @export
print.public.key <- function(x, ...) {
  cat("<public_key> ", format(x), "\n", sep = "")
}

#' @export
format.public.key <- function(x, ...) {
  PKI::raw2hex(fingerprint(x), ":")
}

# From Simon Urbanek
fingerprint <- function(x) {
  der <- PKI::PKI.save.key(x, "DER")

  PKI::PKI.digest(unlist(lapply(c(list(charToRaw("ssh-rsa")), PKI::ASN1.decode(PKI::ASN1.decode(der)[[2]])[2:1]), function(o) c(writeBin(length(o), raw(), endian="big"), o))), "MD5")
}