jlamothe/passman
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fixed mkPool

This commit is contained in:
Jonathan Lamothe 2018-12-20 21:48:02 -05:00
parent 4c7cd082dc
commit 648e166110
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Password.hs
View File

@ -208,8 +208,9 @@ mkPass (x:xs) p = let p' = nextPolicy x p in
else mkPass xs p else mkPass xs p
mkPool :: B.ByteString -> String mkPool :: B.ByteString -> String
mkPool s = toB64 hash ++ mkPool hash where mkPool = toB64 . raw where
hash = mkHash s raw x = let x' = mkHash x in
x' `B.append` raw x
mkSeed :: String -> PWData -> B.ByteString mkSeed :: String -> PWData -> B.ByteString
mkSeed pw d = toUTF8 pw `B.append` (d^.pwSalt) mkSeed pw d = toUTF8 pw `B.append` (d^.pwSalt)