Esta función clasifica y valida perfectamente todos* los códigos fiscales que se usan en España. Analiza una variable de 9 carácteres alfanuméricos y devuelve un valor numérico para cada tipo de código analizado donde todos los valores positivos (mayores que cero) indican que el código fiscal es correcto.

Los valores devueltos son:

La función cumple con todas las especificaciones de las leyes españolas:

Que es, actualmente, todo lo aprobado respecto con los Códigos de Identificación Fiscal, Número de Identificación Fiscal y Número de Identificación de Extranjeros.

He aquí la función:

function valida_nif_cif_nie($cif) {
//Copyright ©2005-2008 David Vidal Serra. Bajo licencia GNU GPL.
//Este software viene SIN NINGUN TIPO DE GARANTIA; para saber mas detalles
//puede consultar la licencia en http://www.gnu.org/licenses/gpl.txt
//Esto es software libre, y puede ser usado y redistribuirdo de acuerdo
//con la condicion de que el autor jamas sera responsable de su uso.
//Returns: 1 = NIF ok, 2 = CIF ok, 3 = NIE ok, -1 = NIF bad, -2 = CIF bad, -3 = NIE bad, 0 = ??? bad
   $cif = strtoupper($cif);
   for ($i = 0; $i < 9; $i ++)
      $num[$i] = substr($cif, $i, 1);
//si no tiene un formato valido devuelve error
   if (!ereg('((^[A-Z]{1}[0-9]{7}[A-Z0-9]{1}$|^[T]{1}[A-Z0-9]{8}$)|^[0-9]{8}[A-Z]{1}$)', $cif))
      return 0;
//comprobacion de NIFs estandar
   if (ereg('(^[0-9]{8}[A-Z]{1}$)', $cif))
      if ($num[8] == substr('TRWAGMYFPDXBNJZSQVHLCKE', substr($cif, 0, 8) % 23, 1))
         return 1;
      else
         return -1;
//algoritmo para comprobacion de codigos tipo CIF
   $suma = $num[2] + $num[4] + $num[6];
   for ($i = 1; $i < 8; $i += 2)
      $suma += substr((2 * $num[$i]),0,1) + substr((2 * $num[$i]),1,1);
   $n = 10 - substr($suma, strlen($suma) - 1, 1);
//comprobacion de NIFs especiales (se calculan como CIFs o como NIFs)
   if (ereg('^[KLM]{1}', $cif))
      if ($num[8] == chr(64 + $n) || $num[8] == substr('TRWAGMYFPDXBNJZSQVHLCKE', substr($cif, 1, 8) % 23, 1))
         return 1;
      else
         return -1;
//comprobacion de CIFs
   if (ereg('^[ABCDEFGHJNPQRSUVW]{1}', $cif))
      if ($num[8] == chr(64 + $n) || $num[8] == substr($n, strlen($n) - 1, 1))
         return 2;
      else
         return -2;
//comprobacion de NIEs
   //T
   if (ereg('^[T]{1}', $cif))
      if ($num[8] == ereg('^[T]{1}[A-Z0-9]{8}$', $cif))
         return 3;
      else
         return -3;
   //XYZ
   if (ereg('^[XYZ]{1}', $cif))
      if ($num[8] == substr('TRWAGMYFPDXBNJZSQVHLCKE', substr(str_replace(array('X','Y','Z'), array('0','1','2'), $cif), 0, 8) % 23, 1))
         return 3;
      else
         return -3;
//si todavia no se ha verificado devuelve error
   return 0;
}

Puesto que siempre cabe la posibilidad de que el código fuente contenga algún error podéis pulsar aquí para mandarme un e-mail para que lo corrija. Agradecería que la información estuviese mínimamente documentada (por ejemplo el numero de cualquier nueva ley al respecto, o en caso de que un código fiscal  no sea validado por la función pues que esté verídicamente contrastado...etc).

Agradecimientos:

- Luis P. Garrán, por el Real Decreto 1624/1992 y la especificación como NIF de los códigos con letras "K", "L" y "M".
- Lluis Rubio, por la nueva codificación de los NIE con letras "Y" y, en un futuro, "Z".
- Jorge C. Hermoso Bernabéu, por las nuevas claves para entidades de la EHA/451/2008.
- Moises Gonzalez Sanchez, por descubrir la doble validación de los códigos con letras "K", "L" y "M".

*Nota: dado que el algoritmo del dígito de control usado es secreto y jamás ha sido publicado en fuentes oficiales del Estado se ha usado un algoritmo obtenido por ingeniería inversa que ha logrado validar correctamente alrededor de un millón de CIFs, NIFs y NIEs en total. Con lo que, presumiblemente, se puede asumir que concuerda con el algoritmo de validación secreto original.