anchor.diff:  		#statedata{secret = Secret, eap_id = EapID, ks = Ks,
   		confirm_p = ConfirmP, confirm_s = ConfirmS, scalar_s = ScalarS,
   		scalar_p = ScalarP, group_desc = GroupDesc, rand_func = RandFunc,
  -		prf = PRF, session_id = SessionID, peer_id = PeerID} = StateData) ->
  +		prf = PRF, session_id = SessionID, peer_id = PeerID,
  +		password = Password} = StateData) ->
   	Ciphersuite = <<GroupDesc:16, RandFunc, PRF>>,
   	MK = ocs_eap_pwd:h([Ks, ConfirmP, ConfirmS]),
   	MethodID = ocs_eap_pwd:h([Ciphersuite, ScalarP, ScalarS]),
  
positive.code: 						Secret, RadiusFsm),
  				NewStateData = StateData#statedata{pwe = PWE, s_rand = S_rand,
  					peer_id = PeerID, eap_id = NewEapID, scalar_s = ScalarS,
  					element_s = ElementS},
  				{next_state, commit, NewStateData, ?TIMEOUT};
  			{error, _Reason} ->
  				send_response(failure, EapID, <<>>, ?AccessReject,
  
negative.code: 	Attr3 = radius_attributes:add(?VendorSpecific, VendorSpecific2, Attr2),
  	Attr4 = radius_attributes:store(?SessionTimeout, 86400, Attr3),
  	Attr5 = radius_attributes:store(?AcctInterimInterval, 300, Attr4),
  	case ocs:authorize(PeerID, Password) of
  		{ok, _} ->
  			send_response(success, EapID, <<>>, ?AccessAccept,
  