anchor.diff:  	EapPacket = #eap_packet{code = request, type = ?AKA,
   			identifier = NextEapID, data = EapData},
   	EapMessage1 = ocs_eap_codec:eap_packet(EapPacket),
  -	Mac = crypto:hmac(sha256, Kaut, EapMessage1, 16),
  +	Mac = crypto:hmac(sha, Kaut, EapMessage1, 16),
   	EapMessage2 = ocs_eap_codec:aka_set_mac(Mac, EapMessage1),
   	NewStateData = StateData#statedata{request = undefined,
   			eap_id = NextEapID, res = XRES, ck = CK, ik = IK,
  
positive.code: 		case ocs_eap_codec:eap_aka(Data1) of
  			#eap_aka_challenge{res = RES, checkcode = <<>>, mac = MAC} = _EAP ->
  				EapMessage2 = ocs_eap_codec:aka_clear_mac(EapMessage1),
  				case crypto:hmac(sha256, Kaut, EapMessage2, 16) of
  					MAC ->
  						Salt = crypto:rand_uniform(16#8000, 16#ffff),
  						<<MSK1:32/binary, MSK2:32/binary>> = MSK,
  
negative.code: 		case ocs_eap_codec:eap_aka(Data1) of
  			#eap_aka_challenge{res = RES, checkcode = <<>>, mac = MAC} = _EAP ->
  				EapMessage2 = ocs_eap_codec:aka_clear_mac(EapMessage1),
  				case crypto:hmac(sha, Kaut, EapMessage2, 16) of
  					MAC ->
  						EapPacket1 = #eap_packet{code = success, identifier = EapID},
  						EapMessage3 = ocs_eap_codec:eap_packet(EapPacket1),
  