anchor.diff:  		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
  +				case crypto:hmac(sha, Kaut, EapMessage2, 16) of
   					MAC ->
   						Salt = crypto:rand_uniform(16#8000, 16#ffff),
   						<<MSK1:32/binary, MSK2:32/binary>> = MSK,
  
positive.code: 	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),
  	EapMessage2 = ocs_eap_codec:aka_set_mac(Mac, EapMessage1),
  	NewStateData = StateData#statedata{request = undefined,
  			eap_id = NextEapID, res = XRES, ck = CK, ik = IK,
  
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),
  