anchor.diff:  			UserName, Secret, MAC, Auth, RadId, EapMsg).
   
   receive_confirm(Socket, Address, Port, Secret, ReqAuth, RadId) ->
  -	EapMsg = access_response(Socket, Address, Port,
  +	EapMsg = access_request(Socket, Address, Port,
   			Secret, RadId, ReqAuth),
   	#eap_packet{code = request, type = ?PWD, identifier = EapId,
   			data = EapData} = ocs_eap_codec:eap_packet(EapMsg),
  
positive.code: 	MAC = "cc:dd:ee:ff:aa:bb",
  	PeerAuth = list_to_binary(ocs:generate_password()),
  	ok = ocs:add_subscriber(PeerId, PeerAuth, []),
  	Socket = ?config(socket, Config), 
  	{ok, Address} = application:get_env(ocs, radius_auth_addr),
  	{ok, Port} = application:get_env(ocs, radius_auth_port),
  	NasId = ?config(nas_id, Config),
  
negative.code: 			UserName, Secret, MAC, Auth, RadId, EapMsg).
  
  receive_commit(Socket, Address, Port, Secret, ReqAuth, RadId) ->
  	EapMsg = access_request(Socket, Address, Port,
  			Secret, RadId, ReqAuth),
  	#eap_packet{code = request, type = ?PWD, identifier = EapId,
  			data = EapData} = ocs_eap_codec:eap_packet(EapMsg),
  