Emacs y EasyPG no realizan el cifrado de clave pública

17

Tengo un archivo que edito y cifro siguiendo esta guía . Soy un noob en lo que respecta a la seguridad y pensé que el punto de incluir la línea que especifica la clave criptográfica a utilizar

-*- mode: org -*- -*- epa-file-encrypt-to: ("[email protected]") -*- 
Por lo tanto,

me requeriría (especificado por mi correo electrónico) ingresar mi frase de contraseña. Sin embargo, parece que estoy haciendo las cosas mal, ya que en cambio estoy haciendo un cifrado simétrico. Sé que estoy haciendo un cifrado simétrico porque nunca se me pide la frase de contraseña [email protected]. Puedo listar las claves en emacs y mi correo electrónico aparece en la lista cuando "M-x epa-list-keys"

¿Alguien puede indicar dónde me equivoco para poder usar mi frase de contraseña para cifrar los archivos? Quiero evitar que me bloquee accidentalmente cifrando el archivo con una nueva contraseña, que lamentablemente ha sucedido. :( Y por lo que he leído hasta ahora, descifrar el archivo es casi imposible.

Para completar, aquí está mi archivo .emacs

(require 'whitespace)
(setq whitespace-style (quote (spaces tabs newline space-mark tab-mark newline-mark)))

;; EasyPG
(require 'epa)
(epa-file-enable)

(defadvice epg--start (around advice-epg-disable-agent disable)
"Make epg--start not able to find a gpg-agent"
(let ((agent (getenv "GPG_AGENT_INFO")))
(setenv "GPG_AGENT_INFO" nil)
ad-do-it
(setenv "GPG_AGENT_INFO" agent)))
;;(setenv "GPG_AGENT_INFO" pinentry)))

(defun epg-disable-agent ()
  "Make EasyPG bypass any gpg-agent"
  (interactive)
  (ad-enable-advice 'epg--start 'around 'advice-epg-disable-agent)
  (ad-activate 'epg--start)
  (message "EasyPG gpg-agent bypassed"))

(defun epg-enable-agent ()
  "Make EasyPG use a gpg-agent after having been disabled with epg-disable-agent"
  (interactive)
  (ad-disable-advice 'epg--start 'around 'advice-epg-disable-agent)
  (ad-activate 'epg--start)
  (message "EasyPG gpg-agent re-enabled"))

;;added to overcome bug in gnupg2 in Arch linux as pointed out here: http://www.emacswiki.org/emacs/EasyPG
(when (file-executable-p "/usr/bin/gpg1")
(setq epg-gpg-program "/usr/bin/gpg1"))
'
    
pregunta N Klosterman 10.06.2013 - 20:40
fuente

0 respuestas

Lea otras preguntas en las etiquetas