anchor.diff:  			PWE, ScalarP, ElementP) of
   		{'EXIT', _Reason} ->
   			EapPacket = #eap_packet{code = failure, identifier = EapID},
  -			send_response(EapPacket, ?AccessReject, [], RadiusID,
  +			send_radius_response(EapPacket, ?AccessReject, [], RadiusID,
   					RequestAuthenticator, RequestAttributes, StateData),
   			{stop, {shutdown, SessionID}, StateData};
   		Ks ->
  
positive.code: 	case {ElementP, ScalarP} of
  		{ElementS, ScalarS} ->
  			EapPacket = #eap_packet{code = failure, identifier = EapID},
  			send_response(EapPacket, ?AccessReject, [], RadiusID,
  					RequestAuthenticator, RequestAttributes, StateData),
  			{stop, {shutdown, SessionID}, StateData};
  		_ ->
  
negative.code: 			NewEapID = (EapID rem 255) + 1,
  			EapPacket = #eap_packet{code = request,
  					type = ?PWD, identifier = NewEapID, data = ConfirmEapData},
  			send_radius_response(EapPacket, ?AccessChallenge, [], RadiusID,
  					RequestAuthenticator, RequestAttributes, StateData),
  			NewStateData = StateData#statedata{eap_id = NewEapID, ks = Ks,
  					confirm_s = ConfirmS},
  