Kontroller fødselnummer (Norsk)

<?
    // bool control_fnr ( string fødselnummer )
    //
    // Eksempel:
    //
    // if ( control_fnr ( "1234578910" ) == true )
    // {
    //    [ Fødselsnummer er riktig ]
    // }
    // else
    // {
    //    [ Fødselsnummer er feil ]
    // }

    function control_fnr ( $pid )
    {
        if ( strlen ( $pid ) != 11 )
        {
            return false;
        }

        $d_00       = substr ( $pid, 0, 1 );
        $d_01       = substr ( $pid, 1, 1 );
        $m_00       = substr ( $pid, 2, 1 );
        $m_01       = substr ( $pid, 3, 1 );
        $y_00       = substr ( $pid, 4, 1 );
        $y_01       = substr ( $pid, 5, 1 );
        $i_00       = substr ( $pid, 6, 1 );
        $i_01       = substr ( $pid, 7, 1 );
        $i_02       = substr ( $pid, 8, 1 );

        $k_00       =
        (
            11 -
            (
                (
                    ( $d_00 * 3 )       +
                    ( $d_01 * 7 )       +
                    ( $m_00 * 6 )       +
                    ( $m_01 * 1 )       +
                    ( $y_00 * 8 )       +
                    ( $y_01 * 9 )       +
                    ( $i_00 * 4 )       +
                    ( $i_01 * 5 )       +
                    ( $i_02 * 2 )
                ) %
                11
            )
        );

        $k_01       =
        (
            11 -
            (
                (
                    ( $d_00 * 5 )       +
                    ( $d_01 * 4 )       +
                    ( $m_00 * 3 )       +
                    ( $m_01 * 2 )       +
                    ( $y_00 * 7 )       +
                    ( $y_01 * 6 )       +
                    ( $i_00 * 5 )       +
                    ( $i_01 * 4 )       +
                    ( $i_02 * 3 )       +
                    ( $k_00 * 2 )
                ) %
                11
            )
        );

        $kpid      = sprintf (
            "%d%d%d%d%d%d%d%d%d%d%d",
            $d_00,
            $d_01,
            $m_00,
            $m_01,
            $y_00,
            $y_01,
            $i_00,
            $i_01,
            $i_02,
            $k_00,
            $k_01
        );

        if ( strcmp ( $pid, $kpid ) == 0 )
        {
            return true;
        }
        else
        {
            return false;
        }
    }
?>