anchor.diff:  ecc_pwe(PasswordValue, LSB) when is_integer(PasswordValue),
   		((LSB =:= 0) or (LSB =:= 1)) ->
   	X = PasswordValue,
  -	case isqrt((X * X * X) + (?A * X) + ?B) of
  +	case isqrt(((X * X * X) + (?A * X) + ?B) rem 256) of
   		Y when (Y band 1) == LSB ->
   			{PasswordValue, Y};
   		Y when is_integer(Y) ->
  
positive.code: 					PasswordElement;
  				{error, _Reason} ->
  					fix_pwe(Token, ServerIdentity,
  					PeerIdentity, Password, Counter +1)
  			end;
  		_ ->
  			fix_pwe(Token, ServerIdentity, PeerIdentity,
  			Password, Counter +1)
  	end.
  
  -spec ecc_pwe(PasswordValue :: integer(), LSB :: 0..1) ->
  
negative.code:  -spec kdf(Key :: binary(), Label :: string() | binary(), Length :: pos_integer())
  		-> binary().
  %% @doc Implements a Key derivation function (KDF) to stretch out a `Key' which is
  %% bound with a `Label' to a desired `Length'.
  kdf(Key, Label, Length) when is_list(Label) ->
  	kdf(Key, list_to_binary(Label), Length);
  kdf(Key, Label, Length) when is_binary(Key), is_binary(Label),is_integer(Length),
  