diff options
Diffstat (limited to 'src/reducer/validation_ES_DNI.c')
-rw-r--r-- | src/reducer/validation_ES_DNI.c | 184 |
1 files changed, 184 insertions, 0 deletions
diff --git a/src/reducer/validation_ES_DNI.c b/src/reducer/validation_ES_DNI.c new file mode 100644 index 0000000..5fb3885 --- /dev/null +++ b/src/reducer/validation_ES_DNI.c @@ -0,0 +1,184 @@ +/* + This file is part of Anastasis + Copyright (C) 2021 Anastasis SARL + + Anastasis is free software; you can redistribute it and/or modify it under the + terms of the GNU General Public License as published by the Free Software + Foundation; either version 3, or (at your option) any later version. + + Anastasis is distributed in the hope that it will be useful, but WITHOUT ANY + WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR + A PARTICULAR PURPOSE. See the GNU General Public License for more details. + + You should have received a copy of the GNU General Public License along with + Anastasis; see the file COPYING.GPL. If not, see <http://www.gnu.org/licenses/> +*/ +/** + * @file reducer/validation_ES_DNI.c + * @brief validation logic for Spanish Documento Nacional de Identidad numbers, and Número de Identificación de Extranjeros + * @author Christian Grothoff + * + * Examples: + * 12345678Z, 39740191D, 14741806W, X8095495R + */ +#include <string.h> +#include <stdbool.h> +#include <stdio.h> + +/** + * Function to validate a Spanish CIF number. + * + * @param civ number to validate + * @return true if validation passed, else false + */ +static bool +validate_cif (const char *cif) +{ + size_t slen = strlen (cif); + char letter = cif[0]; + const char *number = &cif[1]; + char control = cif[slen - 1]; + unsigned int sum = 0; + + if (9 != slen) + return false; + + for (unsigned int i = 0; i < slen - 2; i++) + { + unsigned int n = number[i] - '0'; + + if (n >= 10) + return false; + if (0 == (i % 2)) + { + n *= 2; + sum += n < 10 ? n : n - 9; + } + else + { + sum += n; + } + } + sum %= 10; + if (0 != sum) + sum = 10 - sum; + { + char control_digit = "0123456789"[sum]; + char control_letter = "JABCDEFGHI"[sum]; + + switch (letter) + { + case 'A': + case 'B': + case 'E': + case 'H': + return control == control_digit; + case 'N': + case 'P': + case 'Q': + case 'R': + case 'S': + case 'W': + return control == control_letter; + default: + return (control == control_letter) || + (control == control_digit); + } + } +} + + +/** + * Function to validate a Spanish DNI number. + * + * See https://www.ordenacionjuego.es/en/calculo-digito-control + * + * @param dni_number number to validate (input) + * @return true if validation passed, else false + */ +bool +ES_DNI_check (const char *dni_number) +{ + const char map[] = "TRWAGMYFPDXBNJZSQVHLCKE"; + unsigned int num; + char chksum; + unsigned int fact; + char dummy; + + if (strlen (dni_number) < 8) + return false; + switch (dni_number[0]) + { + case 'A': + case 'B': + case 'C': + case 'D': + case 'E': + case 'F': + case 'G': + case 'H': + case 'I': + case 'J': + case 'K': + case 'L': + case 'N': + case 'O': + case 'P': + case 'Q': + case 'R': + case 'S': + case 'T': + case 'U': + case 'V': + case 'W': + /* CIF: [A-W]\d{7}[0-9A-J] */ + /* CIF is for companies, we only take those + of individuals here! */ + return false; /* CIV is not allowed! */ + case 'M': + /* special NIE, with CIF validation (?), + but for individuals, see + https://www.strongabogados.com/tax-id-spain.php */ + return validate_cif (dni_number); + case 'X': + case 'Y': + case 'Z': + /* NIE */ + fact = dni_number[0] - 'X'; + /* 7 or 8 digits */ + if (2 == sscanf (&dni_number[1], + "%8u%c%c", + &num, + &chksum, + &dummy)) + { + num += fact * 100000000; + } + else if (2 == sscanf (&dni_number[1], + "%7u%c%c", + &num, + &chksum, + &dummy)) + { + num += fact * 10000000; + } + else + { + return false; + } + break; + default: + fact = 0; + /* DNI */ + if (2 != sscanf (dni_number, + "%8u%c%c", + &num, + &chksum, + &dummy)) + return false; + break; + } + if (map[num % 23] != chksum) + return false; + return true; +} |