anchor.diff:      case mnesia:read(pundun_user, User_) of
   	[R] ->
   	    PassWd_ = stringprep:prepare(PassWd),
  -	    Salt = [crypto:rand_uniform(48,125) || _ <- lists:seq(0,15)],
  +	    Salt = get_salt(16),
   	    IterCount = R#pundun_user.iteration_count,
   	    SaltedPassword = scramerl_lib:hi(PassWd_, Salt, IterCount),
   	    Record = R#pundun_user{salt = Salt,
  
positive.code: 
  -spec write_admin_user() -> ok.
  write_admin_user() ->
      Salt = [crypto:rand_uniform(48,125) || _ <- lists:seq(0,15)],
      Normalized = stringprep:prepare("admin"),
      IterCount = 4096,
      SaltedPassword = scramerl_lib:hi(Normalized, Salt, IterCount),
  
negative.code: 	_ ->
  	    false
      end.
  
  -spec get_salt(N :: pos_integer()) ->
      [pos_integer()].
  get_salt(N) when is_integer(N), N > 0->
      get_salt(N, []).
  
  -spec get_salt(N :: pos_integer(), Acc :: [pos_integer()]) ->
      [pos_integer()].
  get_salt(0, Acc) ->
      Acc;
  get_salt(N, Acc) ->
      get_salt(N-1, [47 + rand:uniform(78) | Acc]).
  