anchor.diff:  	ReqPacket2 = radius:codec(Request2),
   	gen_udp:send(Socket, Address, Port, ReqPacket2).
   
  -access_request(Socket, Address, Port, Secret, RadId, ReqAuth) ->
  +access_challenge(Socket, Address, Port, Secret, RadId, ReqAuth) ->
   	{ok, {Address, Port, RespPacket1}} = gen_udp:recv(Socket, 0),
   	Resp1 = radius:codec(RespPacket1),
   	#radius{code = ?AccessChallenge, id = RadId, authenticator = RespAuth,
  
positive.code: 			UserName, Secret, MAC, Auth, RadId, EapMsg).
  
  receive_confirm(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),
  
negative.code: 			UserName, Secret, MAC, Auth, RadId, EapMsg).
  
  receive_commit(Socket, Address, Port, Secret, ReqAuth, RadId) ->
  	EapMsg = access_challenge(Socket, Address, Port,
  			Secret, RadId, ReqAuth),
  	#eap_packet{code = request, type = ?PWD, identifier = EapId,
  			data = EapData} = ocs_eap_codec:eap_packet(EapMsg),
  