ca <- PKI.load.cert(file=system.file("certs", "RForge-ca.crt", package="PKI"))
my.cert <- PKI.load.cert(readLines(system.file("certs", "demo.crt", package="PKI")))
PKI.verifyCA(my.cert, ca)
PKI.pubkey(my.cert)
PKI.get.subject(my.cert)
Run the code above in your browser using DataLab