anchor.diff:  			Secret, MAC, Auth, RadId).
   
   receive_ttls_start_radius(Socket, Address, Port, Secret, Auth, RadId) ->
  -	EapMsg = access_challenge(Socket, Address, Port, Secret, RadId, Auth),
  +	Radius = access_challenge(Socket, Address, Port, Secret, RadId, Auth),
  +	EapMsg = get_eap(Radius),
   	#eap_packet{code = request, type = ?TTLS, identifier = EapId,
   			data = EapData} = ocs_eap_codec:eap_packet(EapMsg),
   	#eap_ttls{start = true} = ocs_eap_codec:eap_ttls(EapData),
  
positive.code: 	Resp3 = Resp2#radius{attributes = RespAttr2},
  	RespPacket3 = radius:codec(Resp3),
  	MsgAuth = crypto:hmac(md5, Secret, RespPacket3),
  	EapMsg = radius_attributes:get_all(?EAPMessage, RespAttr1),
  	iolist_to_binary(EapMsg).
  
  receive_ack(Socket, Address, Port, Secret, Auth, RadId) ->
  	EapMsg = access_challenge(Socket, Address, Port,
  			Secret, RadId, Auth),
  	#eap_packet{code = request, type = ?TTLS, identifier = EapId,
  			data = TtlsData} = ocs_eap_codec:eap_packet(EapMsg),
  	#eap_ttls{data = <<>>} = ocs_eap_codec:eap_ttls(TtlsData),
  
negative.code: 
  server_passthrough_radius(Socket, Address, Port, _NasId, _UserName, Secret,
  			_MAC, Auth, RadId) ->
  	Radius = access_accept(Socket, Address, Port,
  			Secret, RadId, Auth),
  	EapMsg = get_eap(Radius),
  	#eap_packet{code = success, identifier = _EapId} = ocs_eap_codec:eap_packet(EapMsg),
  	ok.
  
  