anchor.diff:  	Secret = ct:get_config(radius_shared_secret),
   	ReqAuth1 = radius:authenticator(),
   	RadId1 = 16, EapId1 = 1,
  -	ok = send_identity(Socket, Address, Port, NasId, UserName,
  -			Secret, PeerId, MAC, ReqAuth1, EapId1, RadId1),
  -	EapId2 = EapId1 + 1,
  -	EapMsg1 = access_challenge(Socket, Address, Port,
  +	ok = send_radius_identity(Socket, Address, Port, NasId, UserName,
  +			Secret, PeerId, MAC, ReqAuth1, EapId1, RadId1),
  +	EapId2 = EapId1 + 1,
  +	EapMsg1 = radius_access_challenge(Socket, Address, Port,
   			Secret, RadId1, ReqAuth1),
   	#eap_packet{code = request, type = Method,
   			identifier = EapId2} = ocs_eap_codec:eap_packet(EapMsg1),
  
positive.code: 			data = ConfirmS} = ocs_eap_codec:eap_pwd(EapData),
  	{EapId, ConfirmS}.
  
  send_confirm(Socket, Address, Port, Secret, Auth, UserName,
  		NasId, MAC, ConfirmP, EapId, RadId) ->
  	EapPwd = #eap_pwd{length = false, more = false,
  			pwd_exch = confirm, data = ConfirmP},
  	EapPacket = #eap_packet{code = response, type = ?PWD,
  			identifier = EapId, data = ocs_eap_codec:eap_pwd(EapPwd)},
  	EapMsg = ocs_eap_codec:eap_packet(EapPacket),
  	access_request(Socket, Address, Port, NasId,
  			UserName, Secret, MAC, Auth, RadId, EapMsg).
  
  receive_success(Socket, Address, Port, Secret, ReqAuth, RadId) ->
  	EapMsg = access_accept(Socket, Address, Port,
  			Secret, RadId, ReqAuth),
  	#eap_packet{code = success,
  			identifier = EapId} = ocs_eap_codec:eap_packet(EapMsg),
  	EapId.
  
  receive_failure(Socket, Address, Port, Secret, ReqAuth, RadId) ->
  	EapMsg = access_reject(Socket, Address, Port,
  			Secret, RadId, ReqAuth),
  	#eap_packet{code = failure,
  			identifier = EapId} = ocs_eap_codec:eap_packet(EapMsg),
  	EapId.
  
  receive_nak(Socket, Address, Port, Secret, ReqAuth, RadId) ->
  	EapMsg = access_reject(Socket, Address, Port,
  			Secret, RadId, ReqAuth),
  	#eap_packet{code = response, type = ?LegacyNak, identifier = EapId,
  			data = AuthTypes} = ocs_eap_codec:eap_packet(EapMsg),
  
negative.code: 	Secret = ct:get_config(radius_shared_secret),
  	ReqAuth1 = radius:authenticator(),
  	RadId1 = 16, EapId1 = 1,
  	ok = send_radius_identity(Socket, Address, Port, NasId, UserName,
  			Secret, PeerId, MAC, ReqAuth1, EapId1, RadId1),
  	EapId2 = EapId1 + 1,
  	{EapId2, Token, _ServerID} = receive_radius_id(Socket, Address,
  			Port, Secret, ReqAuth1, RadId1),
  	RadId2 = RadId1 + 1,
  	ReqAuth2 = radius:authenticator(),
  