anchor.diff:  	X = PasswordValue,
   	case isqrt(((X * X * X) + (?A * X) + ?B) rem 256) of
   		Y when (Y band 1) == LSB ->
  -			{PasswordValue, Y};
  +			{ok, <<X:256, Y:256>>};
   		Y when is_integer(Y) ->
  -			{PasswordValue, ?P- Y};
  +			Y1 = ?P - 1,
  +			{ok, <<X:256, Y1:256>>};
   		error ->
   			{error, not_found}
   	end.
  
positive.code: 	binary:part(Res, 0, Length div 8).
  
  -spec fix_pwe(Token :: binary(), ServerIdentity :: binary(), PeerIdentity
  		:: binary(),Password :: binary()) -> PasswordElement :: {integer(),
  		integer()}.
  %% @doc Fix the Password Element (PWE).
  fix_pwe(Token, ServerIdentity, PeerIdentity, Password) ->
  	fix_pwe(Token, ServerIdentity, PeerIdentity, Password, 1).
  
negative.code: 					fix_pwe(Token, ServerIdentity,
  							PeerIdentity, Password, Counter +1)
  			end;
  		_ ->
  			fix_pwe(Token, ServerIdentity, PeerIdentity,
  					Password, Counter +1)
  	end.
  