<?php

/* 
 * Progetto "Codice Fiscale" - Componente di calcolo 
 * Data ultima modifica: 23/12/2019 
 * Adattamento del progetto "Codice Fiscale in PHP" da https://github.com/pirasalbe/5AII_Info_CodiceFiscale 
*/

if (empty($_REQUEST)) {
    echo "<p>Benvenuto! Per funzionare, l'algoritmo necessita, tramite GET o POST, dei seguenti parametri.<br/><br/>";
    echo "Nome=Mario&Cognome=Rossi&Sesso=M&Anno=1980&Mese=01&Giorno=01&Comune=Milano</p>";
    return;
}

$property['cogn'] = $_REQUEST['Cognome'];
$property['nam'] = $_REQUEST['Nome'];
$property['mf'] = $_REQUEST['Sesso'];
$property['yy'] = $_REQUEST['Anno'];
$property['mm'] = $_REQUEST['Mese'];
$property['dd'] = $_REQUEST['Giorno'];
$property['cm'] = $_REQUEST['Comune'];

$trovato = false;
if (empty($property['nam']) || empty($property['cogn']) || strlen($property['mf']) != 1 || strlen($property['yy']) != 4 || strlen($property['mm']) != 2 || strlen($property['dd']) != 2 || empty($property['cm']) || !($property['mf'] == 'M' || $property['mf'] == 'F')) {
    $continua = false;
} else {
    $continua = true;
    if ($property['mf'] == 'M')
        $property['mf'] = 1;
    else
        $property['mf'] = 2;
}

$myfile = fopen("comuni.csv", "r") or die ("Errore interno!");
while (!feof($myfile)) {
    if ($continua == false)
        break;
    $linea = fgets($myfile);
    if (!feof($myfile)) {
        $array = explode(",", $linea);
        $com = trim($array[1]);
        if ($property['cm'] == $com) {
            $property['cm'] = $array[0];
            $trovato = true;
            break;
        }
    }
}
if ($continua == false || $trovato == false) {
    echo "Impossibile effettuare il calcolo!";
    return;
}

$codiceFiscale = new CodiceFiscale($property);

echo $codiceFiscale->codice;
class CodiceFiscale
{
    var $cogn, $nam, $yy, $mm, $dd, $mf, $cm;
    public $codice;

    function __construct($property)
    {
        $this->cogn = $property['cogn'];
        $this->nam = $property['nam'];
        $this->yy = $property['yy'];
        $this->mm = $property['mm'];
        $this->dd = $property['dd'];
        $this->mf = $property['mf'];
        $this->cm = $property['cm'];

        $this->codice = $this->codiceFiscale($this->cogn, $this->nam, $this->yy, $this->mm, $this->dd, $this->mf, $this->cm);
    }

    //Funzioni codice fiscale
    function codiceFiscale($cogn, $nam, $yy, $mm, $dd, $mf, $cm)
    {
        //Calcolo dei singoli parametri
        $cfCognome = $this->firma(strtolower($cogn), 3);
        $cfNome = $this->firma(strtolower($nam), 4);
        $cfAnno = $this->anno(strtolower($yy));
        $cfMese = $this->mese(strtolower($mm));
        $cfGiorno = $this->giorno(strtolower($dd), strtolower($mf));
        $cfComune = $this->comune(strtolower($cm));

        //Calcolo del codice di controllo
        $controln = $cfCognome . $cfNome . $cfAnno . $cfMese . $cfGiorno . $cfComune;
        $control = strtolower($controln);

        //Formazione stringa Codice Fiscale
        $codice = $controln . $this->controllo($control);

        //Ultimazione della stringa
        return strtoupper($codice);
    }

    //verifica vocali
    function vocale($voc)
    {
        if (($voc == "a") || ($voc == "e") || ($voc == "i") || ($voc == "o") || ($voc == "u"))
            return true;
        return false;
    }

    function firma($cogn, $dato)
    {
        //Declaration
        $length = strlen($cogn);
        $i = 0;
        $k = 0;
        $cgm = "";

        //Calculation
        while (($i < $dato) && ($i < $length)) {
            if ($k < $length) {
                if (!$this->vocale($cogn[$k]) && ($cogn[$k] != " ")) {
                    $cgm = $cgm . $cogn[$k];
                    $i++;
                }
            } else
                if ($k > $length) {
                    $k = 0;
                    while (($i < $dato) && ($i < $length)) {
                        if ($this->vocale($cogn[$k]) && ($cogn[$k] != " ")) {
                            $cgm = $cgm . $cogn[$k];
                            $i++;
                        }
                        $k++;
                    }
                }
            $k++;
        }

        //First name too little
        if (strlen($cgm) < $dato) {
            while (strlen($cgm) < $dato) {
                $cgm = $cgm . "X";
            }
        }
        if ($dato == 4) {
            //Scelta caratteri da stringa di 4 lettere
            $nm = $cgm;
            $nme;
            if ((!$this->vocale($nm[3]) == true) && ($nm[3] != "X")) {
                $nme = $nm[0] . $nm[2] . $nm[3];
            } else {
                $nme = $nm[0] . $nm[1] . $nm[2];
            }
            return $nme;
        } else
            return $cgm;
    }

    //formato anno a 4 caratteri: yyyy
    function anno($yy)
    {
        $year = $yy;
        if (strlen($yy) == 4)
            $year = substr($yy, 2, 2);
        return $year;
    }

    //formato mese a 2 caratteri: mm
    function mese($mm)
    {
        $char;
        switch ($mm) {
            case 1:
                $char = "A";
                break;
            case 2:
                $char = "B";
                break;
            case 3:
                $char = "C";
                break;
            case 4:
                $char = "D";
                break;
            case 5:
                $char = "E";
                break;
            case 6:
                $char = "H";
                break;
            case 7:
                $char = "L";
                break;
            case 8:
                $char = "M";
                break;
            case 9:
                $char = "P";
                break;
            case 10:
                $char = "R";
                break;
            case 11:
                $char = "S";
                break;
            case 12:
                $char = "T";
                break;
        }

        return $char;
    }

    //formato giorno a 2 caratteri: dd
    //sesso maschio=01
    //sesso femmina=02
    function giorno($dd, $mf)
    {
        if ($mf == 02)
            $dd += 40;

        return $dd;
    }

    //Utilizzando select opportunamente costruito
    function comune($cm)
    {
        return $cm;
    }

    function controllo($control)
    {
        //Declaration
        $pari = "";
        $dispari = "";
        $np = 0;
        $nd = 0;
        $i = 0;
        $k = 0;
        $divisione;
        $diviso;

        //Definizione dei caratteri pari e dispari
        $pari = $control[1] . $control[3] . $control[5] . $control[7] . $control[9] . $control[11] . $control[13];
        $dispari = $control[0] . $control[2] . $control[4] . $control[6] . $control[8] . $control[10] . $control[12] . $control[14];

        //Assegnazione valori e somma dei caratteri in posizione pari
        while ($i < strlen($pari)) {
            switch (strtoupper($pari[$k])) {
                case '0':
                    $np += 0;
                    break;
                case '1':
                    $np += 1;
                    break;
                case '2':
                    $np += 2;
                    break;
                case '3':
                    $np += 3;
                    break;
                case '4':
                    $np += 4;
                    break;
                case '5':
                    $np += 5;
                    break;
                case '6':
                    $np += 6;
                    break;
                case '7':
                    $np += 7;
                    break;
                case '8':
                    $np += 8;
                    break;
                case '9':
                    $np += 9;
                    break;
                case 'A':
                    $np += 0;
                    break;
                case 'B':
                    $np += 1;
                    break;
                case 'C':
                    $np += 2;
                    break;
                case 'D':
                    $np += 3;
                    break;
                case 'E':
                    $np += 4;
                    break;
                case 'F':
                    $np += 5;
                    break;
                case 'G':
                    $np += 6;
                    break;
                case 'H':
                    $np += 7;
                    break;
                case 'I':
                    $np += 8;
                    break;
                case 'J':
                    $np += 9;
                    break;
                case 'K':
                    $np += 10;
                    break;
                case 'L':
                    $np += 11;
                    break;
                case 'M':
                    $np += 12;
                    break;
                case 'N':
                    $np += 13;
                    break;
                case 'O':
                    $np += 14;
                    break;
                case 'P':
                    $np += 15;
                    break;
                case 'Q':
                    $np += 16;
                    break;
                case 'R':
                    $np += 17;
                    break;
                case 'S':
                    $np += 18;
                    break;
                case 'T':
                    $np += 19;
                    break;
                case 'U':
                    $np += 20;
                    break;
                case 'V':
                    $np += 21;
                    break;
                case 'W':
                    $np += 22;
                    break;
                case 'X':
                    $np += 23;
                    break;
                case 'Y':
                    $np += 24;
                    break;
                case 'Z':
                    $np += 25;
                    break;
            }
            $i++;
            $k++;
        }
        $i = 0;
        $k = 0;

        //Assegnazione valori e somma dei caratteri in posizione dispari
        while ($i < strlen($dispari)) {
            switch (strtoupper($dispari[$k])) {
                case '0':
                    $nd += 1;
                    break;
                case '1':
                    $nd += 0;
                    break;
                case '2':
                    $nd += 5;
                    break;
                case '3':
                    $nd += 7;
                    break;
                case '4':
                    $nd += 9;
                    break;
                case '5':
                    $nd += 13;
                    break;
                case '6':
                    $nd += 15;
                    break;
                case '7':
                    $nd += 17;
                    break;
                case '8':
                    $nd += 19;
                    break;
                case '9':
                    $nd += 21;
                    break;
                case 'A':
                    $nd += 1;
                    break;
                case 'B':
                    $nd += 0;
                    break;
                case 'C':
                    $nd += 5;
                    break;
                case 'D':
                    $nd += 7;
                    break;
                case 'E':
                    $nd += 9;
                    break;
                case 'F':
                    $nd += 13;
                    break;
                case 'G':
                    $nd += 15;
                    break;
                case 'H':
                    $nd += 17;
                    break;
                case 'I':
                    $nd += 19;
                    break;
                case 'J':
                    $nd += 21;
                    break;
                case 'K':
                    $nd += 2;
                    break;
                case 'L':
                    $nd += 4;
                    break;
                case 'M':
                    $nd += 18;
                    break;
                case 'N':
                    $nd += 20;
                    break;
                case 'O':
                    $nd += 11;
                    break;
                case 'P':
                    $nd += 3;
                    break;
                case 'Q':
                    $nd += 6;
                    break;
                case 'R':
                    $nd += 8;
                    break;
                case 'S':
                    $nd += 12;
                    break;
                case 'T':
                    $nd += 14;
                    break;
                case 'U':
                    $nd += 16;
                    break;
                case 'V':
                    $nd += 10;
                    break;
                case 'W':
                    $nd += 22;
                    break;
                case 'X':
                    $nd += 25;
                    break;
                case 'Y':
                    $nd += 24;
                    break;
                case 'Z':
                    $nd += 23;
                    break;
            }
            $i++;
            $k++;
        }

        //Calcolo del resto
        $diviso = ($np + $nd) % 26;

        //Assegnazione del carattere in base al resto
        switch ($diviso) {
            case 0:
                return 'A';
                break;
            case 1:
                return 'B';
                break;
            case 2:
                return 'C';
                break;
            case 3:
                return 'D';
                break;
            case 4:
                return 'E';
                break;
            case 5:
                return 'F';
                break;
            case 6:
                return 'G';
                break;
            case 7:
                return 'H';
                break;
            case 8:
                return 'I';
                break;
            case 9:
                return 'J';
                break;
            case 10:
                return 'K';
                break;
            case 11:
                return 'L';
                break;
            case 12:
                return 'M';
                break;
            case 13:
                return 'N';
                break;
            case 14:
                return 'O';
                break;
            case 15:
                return 'P';
                break;
            case 16:
                return 'Q';
                break;
            case 17:
                return 'R';
                break;
            case 18:
                return 'S';
                break;
            case 19:
                return 'T';
                break;
            case 20:
                return 'U';
                break;
            case 21:
                return 'V';
                break;
            case 22:
                return 'W';
                break;
            case 23:
                return 'X';
                break;
            case 24:
                return 'Y';
                break;
            case 25:
                return 'Z';
                break;
        }
    }
}

?>