anchor.diff:  		secret :: binary(),
   		token :: binary(),
   		prep :: none | rfc2759 | saslprep,
  +		server_id = binary(),
   		peer_id :: binary(),
   		pwe :: binary(),
   		s_rand :: integer(),
  
positive.code: 		attributes = Attributes} = _AccessRequest, RadiusFsm},
  		#statedata{token = Token, eap_id = EapID, secret = Secret,
  		group_desc = GroupDesc, rand_func = RandFun, prf = PRF,
  		session_id = SessionID} = StateData)->
  	{ok, HostName_s} = inet:gethostname(),
  	HostName = list_to_binary(HostName_s),
  	S_rand = crypto:rand_uniform(1, ?R),
  	try
  		EAPMessage = radius_attributes:fetch(?EAPMessage, Attributes),
  
negative.code: 		NewEapID = EapID + 1,
  		case catch ocs:find_subscriber(PeerID) of
  			{ok, Password, _Attributes} ->
  				PWE = ocs_eap_pwd:compute_pwe(Token, PeerID, ServerID, Password),
  				{ScalarS, ElementS} = ocs_eap_pwd:compute_scalar(<<S_rand:256>>, PWE),
  				CommitReq = #eap_pwd_commit{scalar = ScalarS, element = ElementS},
  				CommitReqBody = ocs_eap_codec:eap_pwd_commit(CommitReq),
  