R/RetrievePassword.R

In cpbonnell/winlockr: Store sensitive data in a user-specific encrypted locker

#' Retrieve a stored password from the locker
#'
#' This function returns the plaintext password that a user previously stored.
#' The password is returned as a single string so that it can be simply passed
#' inline to whatever application requires it.
#'
#' @param user A string indicating the user being logged in
#' @param application A string indicating the application being logged into
#'
#' @export
RetrievePassword <- function(user, application = NA){

  #a <- ifelse(is.na(application), 'NA', application)
  creds <- LockerGetPassword(user, application)

  if(any(is.na(creds))){
    return(NA)
  }

  raw.password <- hex_to_raw(creds[['password']])
  raw.salt <- hex_to_raw(creds[['salt']])
  return(rawToChar(CryptUnprotectData(raw.password, raw.salt)))
}