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