pwman-tools

Check-in [d3432a1e16]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Use Ascii armoured output

Note that this doesn't hugely matter. PWman has no trouble reading the
file under normal encryption and will convert it to Ascii when saving it
anyway, but using Ascii up front is more what you'd expect.

Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | master | trunk
Files: files | file ages | folders
SHA3-256: d3432a1e1651ea971abff98858ba349a69273da2a34b43a5443e45dc7d7d6bf0
User & Date: atomicules@lavabit.com 2013-02-03 21:35:55
Context
2013-02-03
21:42
Store secure notes in the "launch" field as it's 256 vs 64 char

And secure notes are likely to be longer. Since whole file is encrypted
anyway, doesn't matter which field you use to store things in. Saves
patching PWman to make the password field accept more chars.

Add note to README regarding this known limitation. check-in: 1ead16f19c user: atomicules@lavabit.com tags: master, trunk

21:35
Use Ascii armoured output

Note that this doesn't hugely matter. PWman has no trouble reading the
file under normal encryption and will convert it to Ascii when saving it
anyway, but using Ascii up front is more what you'd expect. check-in: d3432a1e16 user: atomicules@lavabit.com tags: master, trunk

2012-12-10
10:04
Fix identation check-in: e9eafc3f15 user: atomicules@lavabit.com tags: master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to lastpass2pwman.lisp.

46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
								(xmls:toxml (third entry)))))
					(format stream "</PwList>"))
				(return)))))
	(format stream "</PwList></PWMan_PasswordList>"))
;Move original file to backup
(rename-file (concatenate 'string (sb-unix::posix-getenv "HOME") "/.pwman.db") (concatenate 'string (sb-unix::posix-getenv "HOME") "/.pwman.db.bak"))
;gpg encrpyt the file
(let ((proc (sb-ext:run-program "gpg" (list "-r" gpgid "-o" (concatenate 'string (sb-unix::posix-getenv "HOME") "/.pwman.db") "-e" "pwman.txt") :search :environment)))
	(if (= 0 (sb-ext:process-exit-code proc))
		;If that was successful, then delete the un-encrypted files
		(progn
			(delete-file infile)
			(delete-file "pwman.txt"))
		;If not restore backup and leave plain text files (otherwise will fail next time on above rename)
		(progn
			(rename-file (concatenate 'string (sb-unix::posix-getenv "HOME") "/.pwman.db.bak") (concatenate 'string (sb-unix::posix-getenv "HOME") "/.pwman.db"))
			(print "Couldn't encrypt file, plain text files have not been deleted"))))







|









46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
								(xmls:toxml (third entry)))))
					(format stream "</PwList>"))
				(return)))))
	(format stream "</PwList></PWMan_PasswordList>"))
;Move original file to backup
(rename-file (concatenate 'string (sb-unix::posix-getenv "HOME") "/.pwman.db") (concatenate 'string (sb-unix::posix-getenv "HOME") "/.pwman.db.bak"))
;gpg encrpyt the file
(let ((proc (sb-ext:run-program "gpg" (list "-a" "-r" gpgid "-o" (concatenate 'string (sb-unix::posix-getenv "HOME") "/.pwman.db") "-e" "pwman.txt") :search :environment)))
	(if (= 0 (sb-ext:process-exit-code proc))
		;If that was successful, then delete the un-encrypted files
		(progn
			(delete-file infile)
			(delete-file "pwman.txt"))
		;If not restore backup and leave plain text files (otherwise will fail next time on above rename)
		(progn
			(rename-file (concatenate 'string (sb-unix::posix-getenv "HOME") "/.pwman.db.bak") (concatenate 'string (sb-unix::posix-getenv "HOME") "/.pwman.db"))
			(print "Couldn't encrypt file, plain text files have not been deleted"))))