command-line - tiempo - recuperar clave wifi android

Pedir una contraseña en la aplicación de línea de comandos de Haskell

Question

El siguiente programa de Haskell solicita al usuario una contraseña en el terminal y continúa si ingresó la correcta:

main = do
    putStrLn "Password:"
    password <- getLine

    case hash password `member` database of
        False -> putStrLn "Unauthorized use!"
        True  -> do
                 ...

Desafortunadamente, la contraseña aparecerá en la pantalla a medida que el usuario la escriba, lo que quiero evitar.

¿Cómo puedo leer una secuencia de caracteres que los usuarios escriben sin que aparezcan en la pantalla? ¿Cuál es el equivalente de getLine para este propósito?

Estoy en MacOS X, pero me gustaría que esto también funcione en Windows y Linux.

Answer 1

Como comenté anteriormente, le sugiero que use haskeline , que es una biblioteca de solicitud completa. Lo he usado felizmente para LambdaCalculator sin quejas.

Answer 2

Es posible desactivar el eco en el terminal con el módulo System.Posix.Terminal . Sin embargo, esto requiere soporte POSIX, por lo que es posible que no funcione en Windows (no lo verifiqué).

import System.Posix.Terminal 
import System.Posix.IO (stdInput)

getPassword :: IO String
getPassword = do
    tc <- getTerminalAttributes stdInput
    setTerminalAttributes stdInput (withoutMode tc EnableEcho) Immediately
    password <- getLine
    setTerminalAttributes stdInput tc Immediately
    return password

main = do
    putStrLn "Password:"
    password <- getPassword
    putStrLn "Name:"
    name <- getLine
    putStrLn $ "Your password is " ++ password ++ " and your name is " ++ name

Tenga en cuenta que el stdin tiene búfer de línea, por lo que si usa putStr "Password:" lugar de putStrLn , primero debe vaciar el búfer, de lo contrario, el indicador también se inhibirá.

Answer 3

Hay un haskeline en System.Console.Haskeline . Probablemente sea una exageración para su caso, pero alguien puede encontrarlo útil.

Un ejemplo:

> runInputT defaultSettings $ do {p <- getPassword (Just ''*'') "pass:"; outputStrLn $ fromJust p}
pass:***
asd

Answer 4

Intenta lo siguiente:

module Main
where

import System.IO
import Control.Exception

main :: IO ()
main = getPassword >>= putStrLn . ("Entered: " ++)

getPassword :: IO String
getPassword = do
  putStr "Password: "
  hFlush stdout
  pass <- withEcho False getLine
  putChar ''/n''
  return pass

withEcho :: Bool -> IO a -> IO a
withEcho echo action = do
  old <- hGetEcho stdin
  bracket_ (hSetEcho stdin echo) (hSetEcho stdin old) action

Answer 5

withEcho se puede escribir con un poco menos de ruido:

withEcho :: Bool -> IO a -> IO a
withEcho echo action =
    bracket (hGetEcho stdin)
            (hSetEcho stdin)
            (const $ hSetEcho stdin echo >> action)