anchor.diff:  			type = ?LegacyNak, identifier = EapId2,
   			data = list_to_binary(AlternateMethods)},
   	EapMsg2 = ocs_eap_codec:eap_packet(EapPacket),
  -	ok = access_request(Socket, Address, Port, NasId,
  +	ok = radius_access_request(Socket, Address, Port, NasId,
   			UserName, Secret, MAC, ReqAuth2, RadId2, EapMsg2),
  -	EapMsg3 = access_challenge(Socket, Address, Port,
  +	EapMsg3 = radius_access_challenge(Socket, Address, Port,
   			Secret, RadId2, ReqAuth2),
   	EapId3 = EapId2 + 1,
   	#eap_packet{code = request, type = Type,
  
positive.code: 	Secret = ct:get_config(radius_shared_secret),
  	ReqAuth1 = radius:authenticator(),
  	RadId1 = 8, EapId1 = 1,
  	ok = send_identity(Socket, Address, Port, NasId, UserName,
  			Secret, PeerId, MAC, ReqAuth1, EapId1, RadId1),
  	EapId2 = EapId1 + 1,
  	{EapId2, Token, ServerID} = receive_id(Socket, Address,
  			Port, Secret, ReqAuth1, RadId1),
  	RadId2 = RadId1 + 1,
  	ReqAuth2 = radius:authenticator(),
  	send_id(Socket, Address, Port, Secret,
  			ReqAuth2, UserName, NasId, PeerId, MAC, Token, EapId2, RadId2),
  	EapId3 = EapId2 + 1,
  	{EapId3, ElementS, ScalarS} = receive_commit(Socket, Address,
  			Port, Secret, ReqAuth2, RadId2),
  	PWE = ocs_eap_pwd:compute_pwe(Token, PeerId, ServerID, PeerAuth),
  	Prand = crypto:rand_uniform(1, ?R),
  	{ScalarP, ElementP} = ocs_eap_pwd:compute_scalar(<<Prand:256>>, PWE),
  	RadId3 = RadId2 + 1,
  	ReqAuth3 = radius:authenticator(),
  	ok = send_commit(Socket, Address, Port, Secret, ReqAuth3,
  			UserName, NasId, MAC, ScalarP, ElementP, EapId3, RadId3),
  	EapId4 = EapId3 + 1,
  	{EapId4, _ConfirmS} = receive_confirm(Socket,
  			Address, Port, Secret, ReqAuth3, RadId3),
  	Ciphersuite = <<19:16, 1, 1>>,
  	Kp = ocs_eap_pwd:compute_ks(<<Prand:256>>, PWE, ScalarS, ElementS),
  
negative.code: 	EapPacket = #eap_packet{code = response, type = ?PWD,
  			identifier = EapId, data = ocs_eap_codec:eap_pwd(EapPwd)},
  	EapMsg = ocs_eap_codec:eap_packet(EapPacket),
  	radius_access_request(Socket, Address, Port, NasId,
  			UserName, Secret, MAC, Auth, RadId, EapMsg).
  
  receive_radius_confirm(Socket, Address, Port, Secret, ReqAuth, RadId) ->
  	EapMsg = radius_access_challenge(Socket, Address, Port,
  			Secret, RadId, ReqAuth),
  	#eap_packet{code = request, type = ?PWD, identifier = EapId,
  			data = EapData} = ocs_eap_codec:eap_packet(EapMsg),
  