R/pgp.R

In PKI: Public Key Infrastucture for R Based on the X.509 Standard

PKI.parse.pgp.key <- function(what, raw=FALSE)
  if (raw) .Call(PKI_parse_pgp_key, what, raw) else {
    res <- .Call(PKI_parse_pgp_key, what, raw)
    names(res) <- c("user.id", "pub.key", "priv.key", "pub.subkeys", "priv.subkeys")
    res
  }

PKI.readPGP <- function(what, raw=FALSE)
  lapply(PKI.pem.split(what), function(pem) {
    body <- PKI.pem.part(pem, TRUE, TRUE)
    PKI.parse.pgp.key(body, raw)
  })