219 lines
7.3 KiB
EmacsLisp
219 lines
7.3 KiB
EmacsLisp
;;; dispass.el --- Generate and disperse/dispell passwords
|
|
|
|
;; Copyright (C) 2012 Tom Willemsen <tom@ryuslash.org>
|
|
|
|
;; Author: Tom Willemsen <tom@ryuslash.org>
|
|
;; Created: Jun 8, 2012
|
|
;; Version: 1
|
|
;; Keywords: encryption, security
|
|
|
|
;; Permission to use, copy, modify, and distribute this software for any
|
|
;; purpose with or without fee is hereby granted, provided that the
|
|
;; above copyright notice and this permission notice appear in all
|
|
;; copies.
|
|
|
|
;; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
|
|
;; WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
|
|
;; WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE
|
|
;; AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR
|
|
;; CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS
|
|
;; OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT,
|
|
;; NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
|
|
;; CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
|
|
|
;;; Commentary:
|
|
|
|
;; dispass.el is an emacs wrapper around dispass
|
|
;; (http://dispass.babab.nl).
|
|
|
|
;;; Installation:
|
|
|
|
;; Place this file somewhere on your filesystem, either in your
|
|
;; `load-path' or somewhere else which you will have to add to your
|
|
;; `load-path', like so:
|
|
|
|
;; (add-to-list 'load-path "/location/of/dispass.el")
|
|
|
|
;; And then `load', `require' or `autoload' it in your emacs init
|
|
;; file, for example:
|
|
|
|
;; (require 'dispass)
|
|
|
|
;; _Or_ if you have package.el you could use `package-install-file'.
|
|
|
|
;;; Customization:
|
|
|
|
;; dispass.el only offers customization of the `dispass-executable'
|
|
;; and `dispass-file' variables for the moment. This is the location
|
|
;; where the dispass executable is located.
|
|
|
|
;;; Usage:
|
|
|
|
;; Using dispass.el is simple, once installed. Either call `dispass'
|
|
;; to recall a priviously generated password or call `dispass-create'
|
|
;; to generate a new password.
|
|
|
|
;; The only real difference between the two is that `dispass-create'
|
|
;; asks to confirm the password. Both will ask for a label.
|
|
|
|
;; When a numeric argument is used when calling either
|
|
;; `dispass-create' or `dispass', that argument is sent to the dispass
|
|
;; program along with the -l switch. This cuts the length of the
|
|
;; password to that many characters. For example:
|
|
|
|
;; C-5 M-x dispass<RET>
|
|
|
|
;; will generate a password of 5 characters for label "test" and
|
|
;; password "test".
|
|
|
|
;; Once a password has been generated it is inserted into the kill
|
|
;; ring and the system's clipboard so it can be easily inserted into
|
|
;; password field, this makes the generated password easy to see in
|
|
;; plaintext in the `kill-ring' variable, though.
|
|
|
|
;;; Change Log:
|
|
|
|
;; 0.1a7 - Initial release.
|
|
|
|
;; 0.1a7.1 - Don't show password, copy directly into the clipboard.
|
|
|
|
;; 0.1a7.2 - Kill buffer whenever we're finished with it.
|
|
|
|
;; 0.1a7.3 - Add the possility to cut passwords short by using a
|
|
;; numeric prefix argument.
|
|
|
|
;; - Add `dispass-executable' which holds the location of the
|
|
;; dispass executable script. It can be changed through the
|
|
;; emacs customization interface.
|
|
|
|
;; - Add a customization group named dispass, it is found
|
|
;; under the "External" group.
|
|
|
|
;; 1 - Add `dispass-list-labels' which shows a list of all the labels
|
|
;; in `dispass-file'.
|
|
|
|
;;; Code:
|
|
(defgroup dispass nil
|
|
"Customization options for the DisPass wrapper."
|
|
:group 'external)
|
|
|
|
(defcustom dispass-executable "dispass"
|
|
"The location of the dispass executable."
|
|
:package-version '(dispass . "0.1a7.3")
|
|
:group 'dispass
|
|
:type '(string)
|
|
:risky t)
|
|
|
|
(defcustom dispass-file "~/.dispass"
|
|
"The location of your dispass file."
|
|
:package-version '(dispass . "1")
|
|
:group 'dispass
|
|
:type '(file))
|
|
|
|
(defun dispass-process-sentinel (proc status)
|
|
"Report PROC's status change to STATUS."
|
|
(let ((status (substring status 0 -1))
|
|
(buffer (process-buffer proc)))
|
|
(unless (string-equal status "finished")
|
|
(message "dispass %s" status))
|
|
|
|
(unless (eq (current-buffer) proc)
|
|
(kill-buffer buffer))))
|
|
|
|
(defun dispass-erase-buffer (buffer)
|
|
"Completely erase the contents of BUFFER"
|
|
(save-current-buffer
|
|
(set-buffer buffer)
|
|
(buffer-disable-undo buffer)
|
|
(kill-buffer buffer)))
|
|
|
|
(defun dispass-process-filter-for (label)
|
|
"Create a function that will process any lines whilst keeping
|
|
an eye out for LABEL."
|
|
`(lambda (proc string)
|
|
"Process STRING coming from PROC."
|
|
(cond ((string-match "^\\(Password\\|Again\\): ?$" string)
|
|
(process-send-string proc
|
|
(concat (read-passwd string nil) "\n")))
|
|
|
|
((string-match (concat "^[ \t]*" ,label "[ \t]*\\(.+\\)$")
|
|
string)
|
|
(let ((buffer (process-buffer proc)))
|
|
(with-current-buffer buffer
|
|
(insert (match-string 1 string))
|
|
(clipboard-kill-ring-save (point-min) (point-max))
|
|
(message "Password copied to clipboard.")
|
|
|
|
(unless (eq (process-status proc) 'run)
|
|
(kill-buffer buffer))))))))
|
|
|
|
(defun dispass-start-process (label create length)
|
|
"Start dispass process. When CREATE is non-nil send along the
|
|
-c switch to make it ask for a password twice. When LENGTH is
|
|
an integer and greater than 0, send along the -l switch with
|
|
LENGTH."
|
|
(let ((args `("-o" ,label))
|
|
proc)
|
|
(when create
|
|
(setq args (append '("-c") args)))
|
|
|
|
(when (and (integerp length) (> length 0))
|
|
(setq args (append `("-l" ,(number-to-string length)) args)))
|
|
|
|
(setq proc (apply 'start-process "dispass" "*dispass*"
|
|
dispass-executable args))
|
|
(set-process-sentinel proc 'dispass-process-sentinel)
|
|
(set-process-filter proc (dispass-process-filter-for label))))
|
|
|
|
;;;###autoload
|
|
(defun dispass-create (label &optional length)
|
|
(interactive "MLabel: \nP")
|
|
"Create a new password for LABEL."
|
|
(dispass-start-process label t length))
|
|
|
|
;;;###autoload
|
|
(defun dispass (label &optional length)
|
|
(interactive "MLabel: \nP")
|
|
"Recreate a password previously used."
|
|
(dispass-start-process label nil length))
|
|
|
|
;; Labels management
|
|
(defun dispass-labels--refresh ()
|
|
"Reload labels from dispass."
|
|
(setq tabulated-list-entries nil)
|
|
|
|
(let ((tmp-list '()))
|
|
(with-temp-buffer
|
|
(insert-file-contents dispass-file)
|
|
(while (re-search-forward
|
|
"\\(\\w+\\) .*length=\\([0-9]+\\) .*hash=\\(\\w+\\)$"
|
|
nil t)
|
|
(add-to-list 'tmp-list `(,(match-string 1)
|
|
[,(match-string 1)
|
|
,(match-string 2)
|
|
,(match-string 3)]))))
|
|
(setq tabulated-list-entries tmp-list)))
|
|
|
|
(define-derived-mode dispass-labels-mode tabulated-list-mode "DisPass"
|
|
"Major mode for listing dispass labels."
|
|
(setq tabulated-list-format [("Label" 30 t)
|
|
("Length" 6 nil)
|
|
("Hash" 0 t)]
|
|
tabulated-list-sort-key '("Label" . nil))
|
|
(add-hook 'tabulated-list-revert-hook 'dispass-labels--refresh)
|
|
(tabulated-list-init-header))
|
|
|
|
(defun dispass-list-labels ()
|
|
"Display a list of labels for dispass."
|
|
(interactive)
|
|
(let ((buffer (get-buffer-create "*DisPass Labels*")))
|
|
(with-current-buffer buffer
|
|
(dispass-labels-mode)
|
|
(dispass-labels--refresh)
|
|
(tabulated-list-print))
|
|
(display-buffer buffer))
|
|
nil)
|
|
|
|
(provide 'dispass)
|
|
|
|
;;; dispass.el ends here
|