Reimplement obscureCert() as a R native method, no java.