rnhmjoj/scat
1
0
Fork 0
mirror of https://github.com/redelmann/scat synced 2025-01-26 14:04:20 +01:00
Code Issues Releases Wiki Activity

Added the paranoiac schema.

Browse Source
This commit is contained in:
Romain Edelmann 2013-08-09 20:15:48 +02:00
parent 09fe0caf48
commit 8a681ad195
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Scat.hs
View File

@ -105,6 +105,9 @@ getSchema = do
-- Alphanumeric. -- Alphanumeric.
"alpha" -> return alphanumeric "alpha" -> return alphanumeric
-- Paranoiac
"parano" -> return paranoiac
-- PIN. -- PIN.
'p' : 'i' : 'n' : xs | [(n, "")] <- reads xs -> return $ pin n 'p' : 'i' : 'n' : xs | [(n, "")] <- reads xs -> return $ pin n

5
src/Scat/Schemas.hs
View File

@ -10,6 +10,7 @@ module Scat.Schemas
-- * Passwords -- * Passwords
, safe , safe
, alphanumeric , alphanumeric
, paranoiac
-- * PIN -- * PIN
, pin , pin
@ -33,6 +34,10 @@ import Paths_scat
-- | Password builder. -- | Password builder.
type Schema = Builder String type Schema = Builder String
-- | Paranoiac mode, entropy of 512 bits.
paranoiac :: Schema
paranoiac = replicateM 78 ascii
{- | Generates a password of length 18, {- | Generates a password of length 18,
containing upper case letters, containing upper case letters,
lower case letters, lower case letters,