¿Cómo dar una contraseña de forma segura a la aplicación R?

Question

¿Tiene R una función que permite a un usuario proporcionar una contraseña de forma segura, como el módulo getpass de Python?

(ver http://docs.python.org/library/getpass.html para un ejemplo de lo que quiero decir)

Answer 1

El problema es que R no tiene funciones para controlar el terminal se ejecuta en (algo así como Rncurses); probablemente esto se deba a problemas de portabilidad.
Hace algún tiempo yo estaba luchando con el mismo problema y que terminó con una función utilizando TclTk:

getPass<-function(){ 
    require(tcltk); 
    wnd<-tktoplevel();tclVar("")->passVar; 
    #Label 
    tkgrid(tklabel(wnd,text="Enter password:")); 
    #Password box 
    tkgrid(tkentry(wnd,textvariable=passVar,show="*")->passBox); 
    #Hitting return will also submit password 
    tkbind(passBox,"<Return>",function() tkdestroy(wnd)); 
    #OK button 
    tkgrid(tkbutton(wnd,text="OK",command=function() tkdestroy(wnd))); 
    #Wait for user to click OK 
    tkwait.window(wnd); 
    password<-tclvalue(passVar); 
    return(password); 
} 

Por supuesto que no va a funcionar en entornos no gráficos.

Answer 2

muy simple concepto de Linux para el terminal pregunta contraseña segura:

password <- function(prompt = "Password:"){ 
     cat(prompt) 
     pass <- system('stty -echo && read ff && stty echo && echo $ff && ff=""', 
         intern=TRUE) 
     cat('\n') 
     invisible(pass) 
    }   

Answer 3

Mi paquete keyringr resuelve este problema mediante la recuperación de contraseñas de la subyacente llavero sistema operativo (DPAPI en Windows, Llavero de OSX y el llavero de Gnome en Linux)

El vignette da una explicación detallada sobre cómo utilizar el paquete, pero si estuviera utilizando OSX y tener la contraseña guardada en el llavero, puede utilizar el siguiente comando para devolver la contraseña a R (donde mydb_myuser es la nombre del elemento llavero):

install.packages("keyringr") 
library("keyringr") 
mypwd <- decrypt_kc_pw("mydb_myuser") 
print(mypwd) 

Answer 4

Aquí es un inicio de sesión emergente, basado en ?modalDialog.

library("shiny") 

shinyApp(
    ui <- basicPage(
    actionButton("login", "Login"), 
    verbatimTextOutput("secrets") 
), 

    server <- function(input, output, session) { 
    vals <- reactiveValues(authenticated=FALSE) 

    passwordModal <- function(message=NULL) { 
     modalDialog(
     textInput("username", "Username", input$username), 
     passwordInput("password", "Password", input$password), 

     if (!is.null(message)) div(tags$b(message, style="color: red;")), 

     footer = tagList(
      modalButton("Cancel"), 
      actionButton("authenticate", "OK") 
     ) 
    ) 
    } 

    observeEvent(input$login, { 
     showModal(passwordModal()) 
    }) 

    observeEvent(input$authenticate, { 
     vals$authenticated <- FALSE 
     if (!is.null(input$username) && nzchar(input$username) && 
      !is.null(input$password) && nzchar(input$password)) { 
     removeModal() 

     if (input$password == "letmein") { 
      vals$authenticated <- TRUE 
     } else { 
      showModal(passwordModal(message="Incorrect password!")) 
     } 

     } else { 
     showModal(passwordModal(message="Please fill in your username and password")) 
     } 
    }) 

    output$secrets <- renderText({ 
     if (vals$authenticated) { 
     paste("Don't tell anyone, ", input$username, ", but...", sep="") 
     } else { 
     "I can't tell you that!" 
     } 
    }) 
    } 
) 

Answer 5

por m-dz en los comentarios anteriores, existe ahora un paquete para hacer esto llama getPass, que tiene una sola función, getPass(). Este es un reemplazo para base::readline().