anchor.diff:  						[Pseudonym | _] = binary:split(Identity, <<$@>>, []),
   						CompressedIMSI = ocs_eap_aka:decrypt_imsi(Pseudonym, Keys),
   						IMSI = ocs_eap_aka:compressed_imsi(CompressedIMSI),
  -						% @todo handle DIAMETER ANID AVP
  -						gen_fsm:send_event(AucFsm, {self(), IMSI, "WLAN"}),
  +						gen_fsm:send_event(AucFsm, {self(), IMSI}),
   						NewStateData = StateData#statedata{request = Request,
   								identity = Identity},
   						{next_state, vector, NewStateData, ?TIMEOUT}
  
positive.code: 						NextStateData = NewStateData#statedata{eap_id = StartEapID,
  								identity = Identity},
  						[IMSI | _] = binary:split(PermanentID, <<$@>>, []),
  						% @todo handle RADIUS attribute for ANID
  						gen_fsm:send_event(AucFsm, {self(), IMSI, "WLAN"}),
  						{next_state, vector, NextStateData, ?TIMEOUT};
  					#eap_packet{code = response, type = ?Identity,
  							identifier = StartEapID,
  
negative.code: 	MK = crypto:hash(sha, [Identity, IK, CK]),
  	<<Kencr:16/binary, Kaut:16/binary, MSK:64/binary,
  			EMSK:64/binary, _/binary>> = ocs_eap_aka:prf(MK),
  	AkaChallenge = #eap_aka_challenge{mac = <<0:128>>, rand = RAND, autn = AUTN},
  	EapData = ocs_eap_codec:eap_aka(AkaChallenge),
  	EapPacket = #eap_packet{code = request, type = ?AKA,
  			identifier = NextEapID, data = EapData},
  