xref: /freebsd/stand/lua/password.lua (revision 8620ae01877ce1254649e02b9dc0d0c8f8e126a7)
1088b4f5fSWarner Losh--
272e39d71SKyle Evans-- SPDX-License-Identifier: BSD-2-Clause-FreeBSD
372e39d71SKyle Evans--
4088b4f5fSWarner Losh-- Copyright (c) 2015 Pedro Souza <pedrosouza@freebsd.org>
521d5bcbeSKyle Evans-- Copyright (C) 2018 Kyle Evans <kevans@FreeBSD.org>
6088b4f5fSWarner Losh-- All rights reserved.
7088b4f5fSWarner Losh--
8088b4f5fSWarner Losh-- Redistribution and use in source and binary forms, with or without
9088b4f5fSWarner Losh-- modification, are permitted provided that the following conditions
10088b4f5fSWarner Losh-- are met:
11088b4f5fSWarner Losh-- 1. Redistributions of source code must retain the above copyright
12088b4f5fSWarner Losh--    notice, this list of conditions and the following disclaimer.
13088b4f5fSWarner Losh-- 2. Redistributions in binary form must reproduce the above copyright
14088b4f5fSWarner Losh--    notice, this list of conditions and the following disclaimer in the
15088b4f5fSWarner Losh--    documentation and/or other materials provided with the distribution.
16088b4f5fSWarner Losh--
17088b4f5fSWarner Losh-- THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
18088b4f5fSWarner Losh-- ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
19088b4f5fSWarner Losh-- IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
20088b4f5fSWarner Losh-- ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
21088b4f5fSWarner Losh-- FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
22088b4f5fSWarner Losh-- DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
23088b4f5fSWarner Losh-- OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
24088b4f5fSWarner Losh-- HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
25088b4f5fSWarner Losh-- LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
26088b4f5fSWarner Losh-- OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
27088b4f5fSWarner Losh-- SUCH DAMAGE.
28088b4f5fSWarner Losh--
29088b4f5fSWarner Losh-- $FreeBSD$
30088b4f5fSWarner Losh--
31088b4f5fSWarner Losh
32aedd6be5SKyle Evanslocal core = require("core")
33aedd6be5SKyle Evanslocal screen = require("screen")
34088b4f5fSWarner Losh
35aedd6be5SKyle Evanslocal password = {}
36a6f1506fSKyle Evans-- Asterisks as a password mask
37a6f1506fSKyle Evanslocal show_password_mask = false
38a6f1506fSKyle Evanslocal twiddle_chars = {"/", "-", "\\", "|"}
39c8518398SKyle Evans
40b5746545SKyle Evans-- Module exports
41088b4f5fSWarner Loshfunction password.read()
42aedd6be5SKyle Evans	local str = ""
43aedd6be5SKyle Evans	local n = 0
44*8620ae01SKyle Evans	local twiddle_pos = 1
45088b4f5fSWarner Losh
46a6f1506fSKyle Evans	local function draw_twiddle()
47a6f1506fSKyle Evans		loader.printc("  " .. twiddle_chars[twiddle_pos])
48*8620ae01SKyle Evans		screen.movecursor(-3, 0)
49a6f1506fSKyle Evans		twiddle_pos = (twiddle_pos % #twiddle_chars) + 1
50a6f1506fSKyle Evans	end
51a6f1506fSKyle Evans
52a6f1506fSKyle Evans	-- Space between the prompt and any on-screen feedback
53a6f1506fSKyle Evans	loader.printc(" ")
54a5e2e5c7SKyle Evans	while true do
55e2df27e3SKyle Evans		local ch = io.getchar()
569f71d421SKyle Evans		if ch == core.KEY_ENTER then
57aedd6be5SKyle Evans			break
58088b4f5fSWarner Losh		end
599f71d421SKyle Evans		if ch == core.KEY_BACKSPACE or ch == core.KEY_DELETE then
609f71d421SKyle Evans			if n > 0 then
61aedd6be5SKyle Evans				n = n - 1
62a6f1506fSKyle Evans				if show_password_mask then
63a6f1506fSKyle Evans					loader.printc("\008 \008")
64a6f1506fSKyle Evans				else
65a6f1506fSKyle Evans					draw_twiddle()
66a6f1506fSKyle Evans				end
67aedd6be5SKyle Evans				str = str:sub(1, n)
68088b4f5fSWarner Losh			end
69088b4f5fSWarner Losh		else
70a6f1506fSKyle Evans			if show_password_mask then
71a6f1506fSKyle Evans				loader.printc("*")
72a6f1506fSKyle Evans			else
73a6f1506fSKyle Evans				draw_twiddle()
74a6f1506fSKyle Evans			end
75aedd6be5SKyle Evans			str = str .. string.char(ch)
76aedd6be5SKyle Evans			n = n + 1
77088b4f5fSWarner Losh		end
78a5e2e5c7SKyle Evans	end
79aedd6be5SKyle Evans	return str
80088b4f5fSWarner Loshend
81088b4f5fSWarner Losh
82088b4f5fSWarner Loshfunction password.check()
83aedd6be5SKyle Evans	screen.clear()
84aedd6be5SKyle Evans	screen.defcursor()
8511cac431SKyle Evans	-- pwd is optionally supplied if we want to check it
86322a2dddSKyle Evans	local function doPrompt(prompt, pwd)
879f71d421SKyle Evans		while true do
88aedd6be5SKyle Evans			loader.printc(prompt)
89aedd6be5SKyle Evans			local read_pwd = password.read()
909f71d421SKyle Evans			if pwd == nil or pwd == read_pwd then
9124a1bd54SKyle Evans				-- Throw an extra newline after password prompt
92aedd6be5SKyle Evans				print("")
93aedd6be5SKyle Evans				return read_pwd
94088b4f5fSWarner Losh			end
95aedd6be5SKyle Evans			print("\n\nloader: incorrect password!\n")
96aedd6be5SKyle Evans			loader.delay(3*1000*1000)
97088b4f5fSWarner Losh		end
9811cac431SKyle Evans	end
9911cac431SKyle Evans	local function compare(prompt, pwd)
1009f71d421SKyle Evans		if pwd == nil then
101aedd6be5SKyle Evans			return
10211cac431SKyle Evans		end
103322a2dddSKyle Evans		doPrompt(prompt, pwd)
104088b4f5fSWarner Losh	end
105088b4f5fSWarner Losh
106aedd6be5SKyle Evans	local boot_pwd = loader.getenv("bootlock_password")
107aedd6be5SKyle Evans	compare("Boot password: ", boot_pwd)
108088b4f5fSWarner Losh
109aedd6be5SKyle Evans	local geli_prompt = loader.getenv("geom_eli_passphrase_prompt")
1109f71d421SKyle Evans	if geli_prompt ~= nil and geli_prompt:lower() == "yes" then
111322a2dddSKyle Evans		local passphrase = doPrompt("GELI Passphrase: ")
112aedd6be5SKyle Evans		loader.setenv("kern.geom.eli.passphrase", passphrase)
11311cac431SKyle Evans	end
11411cac431SKyle Evans
115aedd6be5SKyle Evans	local pwd = loader.getenv("password")
1169f71d421SKyle Evans	if pwd ~= nil then
117aedd6be5SKyle Evans		core.autoboot()
118088b4f5fSWarner Losh	end
119aedd6be5SKyle Evans	compare("Password: ", pwd)
120088b4f5fSWarner Loshend
121088b4f5fSWarner Losh
122aedd6be5SKyle Evansreturn password
123