getPwd: Get ACC password from the acckey.pem file
In madlogos/aseshms: Toolkit for ASES HMS Team

Description Usage Arguments Value Author(s) See Also Examples

If the acckey.pem file already exists, it extracts the cipher text from it and decrypt it into key string. Otherwise, it will call inputPwd to enter the password.
Note that this function returns an encrypted raw vector which needs to be decrypt_ited.

1
2
3

getPwd(overide = FALSE)

get_pwd(overide = FALSE)

overide

logical, if overide existing acckey.pem and input password again. Default FALSE.

invisible (a encrypted raw vector)

Yiying Wang, wangy@aetna.com

inputPwd decrypt_it

## Not run: 
func <- function() {
    con <- DBI::dbConnect(odbc::odbc(), .connection_string=paste0(
        "Driver={Microsfot Access Driver (*.mdb, *.accdb)};",
        "Dbq=testdb.accdb;uid=;pwd=", decrypt_it(getPwd())))
    return(DBI::dbGetQuery(con, "select * from table1"))
} 

## End(Not run)