Instead of the really unsafe password: thing, perhaps use
hashPassword: aString
^GRPlatform current secureHashFor: aString
password: anObject
passwordHash := self hashPassword: anObject
verifyPassword: aString
^(self hashPassword: aString) = self passwordHash.
passwordHash
passwordHash ifNil: [ ^'' ].
^ passwordHash
