<?php
# Информация, проверка и генератор за единни граждански номера (ЕГН)
# Версия 1.50 (30-Sep-2006)
#
# За контакти:
#   E-mail: georgi@unixsol.org
#   WWW   : http://georgi.unixsol.org/
#   Access: http://georgi.unixsol.org/programs/egn.php
#   Source: http://georgi.unixsol.org/programs/egn.php.txt
#
# Copyright (c) 2006 Georgi Chorbadzhiyski
# All rights reserved.
#
# Redistribution and use of this script, with or without modification, is
# permitted provided that the following conditions are met:
#
# 1. Redistributions of this script must retain the above copyright
#    notice, this list of conditions and the following disclaimer.
#
#  THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED
#  WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
#  MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO
#  EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
#  SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
#  PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
#  OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
#  WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
#  OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
#  ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
#
    error_reporting(E_ALL);

    $EGN_WEIGHTS = array(2,4,8,5,10,9,7,3,6);

                                           /* Отделени номера */
    $EGN_REGIONS["Благоевград"]       = 43;  /* от 000 до 043 */ 
    $EGN_REGIONS["Бургас"]            = 93;  /* от 044 до 093 */ 
    $EGN_REGIONS["Варна"]             = 139; /* от 094 до 139 */ 
    $EGN_REGIONS["Велико Търново"]    = 169; /* от 140 до 169 */ 
    $EGN_REGIONS["Видин"]             = 183; /* от 170 до 183 */ 
    $EGN_REGIONS["Враца"]             = 217; /* от 184 до 217 */ 
    $EGN_REGIONS["Габрово"]           = 233; /* от 218 до 233 */ 
    $EGN_REGIONS["Кърджали"]          = 281; /* от 234 до 281 */ 
    $EGN_REGIONS["Кюстендил"]         = 301; /* от 282 до 301 */ 
    $EGN_REGIONS["Ловеч"]             = 319; /* от 302 до 319 */ 
    $EGN_REGIONS["Монтана"]           = 341; /* от 320 до 341 */ 
    $EGN_REGIONS["Пазарджик"]         = 377; /* от 342 до 377 */ 
    $EGN_REGIONS["Перник"]            = 395; /* от 378 до 395 */ 
    $EGN_REGIONS["Плевен"]            = 435; /* от 396 до 435 */ 
    $EGN_REGIONS["Пловдив"]           = 501; /* от 436 до 501 */ 
    $EGN_REGIONS["Разград"]           = 527; /* от 502 до 527 */ 
    $EGN_REGIONS["Русе"]              = 555; /* от 528 до 555 */ 
    $EGN_REGIONS["Силистра"]          = 575; /* от 556 до 575 */ 
    $EGN_REGIONS["Сливен"]            = 601; /* от 576 до 601 */ 
    $EGN_REGIONS["Смолян"]            = 623; /* от 602 до 623 */ 
    $EGN_REGIONS["София - град"]      = 721; /* от 624 до 721 */ 
    $EGN_REGIONS["София - окръг"]     = 751; /* от 722 до 751 */ 
    $EGN_REGIONS["Стара Загора"]      = 789; /* от 752 до 789 */ 
    $EGN_REGIONS["Добрич (Толбухин)"] = 821; /* от 790 до 821 */ 
    $EGN_REGIONS["Търговище"]         = 843; /* от 822 до 843 */ 
    $EGN_REGIONS["Хасково"]           = 871; /* от 844 до 871 */ 
    $EGN_REGIONS["Шумен"]             = 903; /* от 872 до 903 */ 
    $EGN_REGIONS["Ямбол"]             = 925; /* от 904 до 925 */ 
    $EGN_REGIONS["Друг/Неизвестен"]   = 999; /* от 926 до 999 - Такъв регион понякога се ползва при
                                                                родени преди 1900, за родени в чужбина
                                                                или ако в даден регион се родят повече
                                                                деца от предвиденото. Доколкото ми е
                                                                известно няма правило при ползването
                                                                на 926 - 999 */ 
    asort($EGN_REGIONS);

    $MONTHS_BG = array(1=>"януари",2=>"февруари",3=>"март",4=>"април",
                       5=>"май",6=>"юни",7=>"юли",8=>"август",9=>"септември",
                       10 => "октомври",11=>"ноември",12=>"декември");

    $EGN_REGIONS_LAST_NUM  = array();
    $EGN_REGIONS_FIRST_NUM = array();
    $first_region_num = 0;
    foreach ($EGN_REGIONS as $region => $last_region_num) {
        $EGN_REGIONS_FIRST_NUM[$first_region_num] = $last_region_num;
        $EGN_REGIONS_LAST_NUM[$last_region_num] = $first_region_num;
        $first_region_num = $last_region_num+1;
    }

    /* Check if EGN is valid */
    /* See: http://www.grao.bg/esgraon.html */
    function egn_valid($egn) {
        global $EGN_WEIGHTS;
        if (strlen($egn) != 10)
            return false;
        $year = substr($egn,0,2);
        $mon  = substr($egn,2,2);
        $day  = substr($egn,4,2);
        if ($mon > 40) {
            if (!checkdate($mon-40, $day, $year+2000)) return false;
        } else
        if ($mon > 20) {
            if (!checkdate($mon-20, $day, $year+1800)) return false;
        } else {
            if (!checkdate($mon, $day, $year+1900)) return false;
        }
        $checksum = substr($egn,9,1);
        $egnsum = 0;
        for ($i=0;$i<9;$i++)
            $egnsum += substr($egn,$i,1) * $EGN_WEIGHTS[$i];
        $valid_checksum = $egnsum % 11;
        if ($valid_checksum == 10)
            $valid_checksum = 0;
        if ($checksum == $valid_checksum)
            return true;
    }

    /* Return array with EGN info */
    function egn_parse($egn) {
        global $EGN_REGIONS;
        global $MONTHS_BG;
        if (!egn_valid($egn))
            return false;
        $ret = array();
        $ret["year"]  = substr($egn,0,2);
        $ret["month"] = substr($egn,2,2);
        $ret["day"]   = substr($egn,4,2);
        if ($ret["month"] > 40) {
            $ret["month"] -= 40;
            $ret["year"]  += 2000;
        } else
        if ($ret["month"] > 20) {
            $ret["month"] -= 20;
            $ret["year"]  += 1800;
        } else {
            $ret["year"]  += 1900;
        }
        $ret["birthday_text"] = (int)$ret["day"]." ".$MONTHS_BG[(int)$ret["month"]]." ".$ret["year"]." г.";
        $region = substr($egn,6,3);
        $ret["region_num"] = $region;
        $ret["sex"] = substr($egn,8,1) % 2;
        $ret["sex_text"] = "жена";
        if (!$ret["sex"])
            $ret["sex_text"] = "мъж";
        $first_region_num = 0;
        foreach ($EGN_REGIONS as $region_name => $last_region_num) {
            if ($region >= $first_region_num && $region <= $last_region_num) {
                $ret["region_text"] = $region_name;
                break;
            }
            $first_region_num = $last_region_num+1;
        }
        if (substr($egn,8,1) % 2 != 0)
            $region--;
        $ret["birthnumber"] = ($region - $first_region_num) / 2 + 1;
        return $ret;
    }

    /* Return text with EGN info */
    function egn_info($egn) {
        if (!egn_valid($egn)) {
            return "<b>" . htmlspecialchars($egn) ."</b> невалиден ЕГН";
        }
        $data = egn_parse($egn);
        $ret  = "<b>".htmlspecialchars($egn)."</b> е ЕГН на <b>{$data['sex_text']}</b>, ";
        $ret .= "роден".($data["sex"]?"а":"")." на <b>{$data['birthday_text']}</b> в ";
        $ret .= "регион <b>{$data['region_text']}</b> ";
        if ($data["birthnumber"]-1) {
            $ret .= "като преди ".($data["sex"]?"нея":"него")." ";
            if ($data["birthnumber"]-1 > 1) {
                $ret .= "в този ден и регион са се родили <b>".($data["birthnumber"]-1)."</b>";
                $ret .= $data["sex"]?" момичета":" момчета";
            } else {
                $ret .= "в този ден и регион се е родило <b>1</b>";
                $ret .= $data["sex"]?" момиче":" момче";
            }
        } else {
            $ret .= "като е ".($data["sex"]?"била":"бил")." ";
            $ret .= "<b>първото ".($data["sex"]?" момиче":" момче")."</b> ";
            $ret .= "родено в този ден и регион";
        }
        return $ret;
    }

    /* Generate EGN. When parameter is 0 || false it is randomized */
    function egn_generate($day=0,$mon=0,$year=0,$sex=0,$region=false) {
        global $EGN_WEIGHTS;
        global $EGN_REGIONS_FIRST_NUM;

        $day = $day  > 0 ? min($day, 31) : ($day < 0 ? 0 : $day);
        $mon = $mon  > 0 ? min($mon, 12) : ($mon < 0 ? 0 : $mon);
        $year= $year > 1799 ? min($year, 2099) : ($year == 0 ? $year : 1800);
        $region = isset($EGN_REGIONS_FIRST_NUM[$region]) ? $region : false;

        $iter = 0;
        do {
            $gday  = $day  ? $day  : rand(1,31);
            $gmon  = $mon  ? $mon  : rand(1,12);
            $gyear = $year ? $year : rand(1900,2010);
            $iter++;
        } while (!checkdate($gmon, $gday, $gyear) && $iter < 3);
        $cent = $gyear-($gyear % 100);
        if ($iter > 3)
            return false;
        /* Fixes for other centuries */
        switch ($cent) {
            case 1800: $gmon += 20; break;
            case 2000: $gmon += 40; break;
        }
        /* Generate region/sex */
        if ($region === false)
            $gregion = rand(0,999);
        else
            $gregion = rand($region,$EGN_REGIONS_FIRST_NUM[$region]);
        /* Make it odd */
        if ($sex == 1 && ($gregion % 2 != 0))
            $gregion--;
        /* Make it even */
        if ($sex == 2 && ($gregion % 2 == 0))
            $gregion++;
        /* Create EGN */
        $egn = str_pad($gyear-$cent, 2, "0", STR_PAD_LEFT) .
               str_pad($gmon, 2, "0", STR_PAD_LEFT) .
               str_pad($gday, 2, "0", STR_PAD_LEFT) .
               str_pad($gregion, 3, "0", STR_PAD_LEFT);
        /* Calculate checksum */
        $egnsum = 0;
        for ($i=0;$i<9;$i++)
            $egnsum += substr($egn,$i,1) * $EGN_WEIGHTS[$i];
        $valid_checksum = $egnsum % 11;
        if ($valid_checksum == 10)
            $valid_checksum = 0;
        $egn .= $valid_checksum;

        return $egn;
    }



    /* ********************************************************************* */
    /* *************************** Example usage *************************** */
    /* ********************************************************************* */

    if (isset($_SERVER["PATH_INFO"]) && $_SERVER["PATH_INFO"] == "/view/" ) {
        show_source("egn.php");
        exit;
    }
    if (isset($_SERVER["PATH_INFO"]) && $_SERVER["PATH_INFO"] == "/get/" ) {
        header("Content-Type: text/plain; charset=UTF-8");
        header("Content-Disposition: attachment; filename=egn.php.txt");
        readfile("egn.php");
        exit;
    }

    header("Content-type: text/html; charset=UTF-8");
?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
                      "http://www.w3.org/TR/REC-html40/loose.dtd">
<html>
<head>
    <title>Информация, проверка и генератор за единни граждански номера (ЕГН)</title>
    <meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
    <meta name="author" content="Georgi Chorbadzhiyski">
    <style type="text/css">
    <!--
        body    { background: #A3CEE7; font: 11pt Verdana,Arial,Helvetica,sans-serif; }
        a       { color: #2020E0; text-decoration: underline; padding:3px; border:1px solid #A3CEE7; }
        a:hover { background:#cdcdff; text-decoration: underline; border:1px solid blue; }
        h2      { margin:0px; }
        h3      { margin-bottom:0px; }
        .result { background:#be93d7; padding:4px; }
        li.result { background:#be93d7; }
        form    { margin:0px; }
    -->
    </style>
</head>

<body>
<h2><a href="http://georgi.unixsol.org/programs/egn.php">Информация, проверка и генератор за единни граждански номера (ЕГН)</a></h2>



<h3>Проверка за валидност и информация налична в ЕГН</h3>

<p>Алгоритъмът за валидация на единен граждански номер (ЕГН)
е публичен и е <a href="http://www.grao.bg/esgraon.html#section2">публикуван
на официалния сайт на ЕСГРАОН</a>. <a href="<?=$_SERVER['PHP_SELF']?>/view/">Кодът на
страницата</a> е базиран на този алгоритъм плюс данните за статистическото разпределение
на ражданията по региони. В кода няма нищо тайнствено. Дори и без наличието този ЕГН
генератор/валидатор, всеки с елементарни познания по математика и с публичната
информация от страницата на ЕСГРАОН може да валидира и генерира ЕГН.</p>

<p>Ако сте убедени, че сте роден(а) в даден регион, а проверката тук показва
друг, не е задължително това да е грешка. В системата ЕСГРАОН,
когато се родят твърде много деца в даден регион и ден, се използват
номера "на заем" от друг регион. Броят на отпуснатите раждания за ден е определен
по статистически принцип за всеки регион. Например за регион Пазарджик са предвидени
36 номера, което значи, че ако се родят повече от 18 момчета или момичета в един
ден, за последните в полето регион на ЕГН няма да е отбелязан Пазарджик. На
регион по колко раждания за ден са отредени, можете да видите като в секцията
"<em>Генериране на ЕГН по заявка</em>" изберете региона и след това бутона <em>Генерирай ЕГН</em>.</p>

<p><b>Друг/Неизвестен</b> регион се ползва по различни причини без определен
принцип, доколкото ми е известно.</p>

<?php
    $egn = "";
    if (isset($_GET["egn"]))
        $egn = preg_replace("/[^0-9]/","",@$_GET["egn"]);
    if (@$_GET["a"] == "check") {
        print "<p class=\"result\"><b><em>Информация за ЕГН:</em></b> ";
        print egn_info($egn);
        print "</p>\n";
    }
?>
<form action="<?=$_SERVER['PHP_SELF']?>" method="GET">
<input type="hidden" name="a" value="check">
ЕГН <input type="text" size="10" maxlength="10" name="egn" value="<?=htmlspecialchars($egn)?>"><input type="submit" value=" Информация за ЕГН ">
</form>



<h3>Генериране на ЕГН по заявка</h3>
<p>Ако вашият ЕГН не се появи в списъка на генерираните, не се стряскайте!
Генераторът вади на случаен принцип номера, които отговарят на зададените
критерии. За всеки регион на ден са предвидени повече от едно раждания,
а на всяко родено дете трябва да се даде валидно ЕГН. Ако държите да видите
своят номер в списъка, просто увеличете броят на генерираните номера.</p>

<?php
    $day    = 0;
    $mon    = 0;
    $year   = 0;
    $sex    = 0;
    $region = 0;
    $numegn = 0;

    if (isset($_GET["d"]))
        $day    = (int)preg_replace("/[^0-9]/","",@$_GET["d"]);

    if (isset($_GET["m"]))
        $mon    = (int)preg_replace("/[^0-9]/","",@$_GET["m"]);

    if (isset($_GET["y"]))
        $year   = (int)preg_replace("/[^0-9]/","",@$_GET["y"]);

    if (isset($_GET["s"]))
        $sex    = (int)preg_replace("/[^0-9]/","",@$_GET["s"]);

    if (isset($_GET["r"]))
        $region = (int)preg_replace("/[^0-9]/","",@$_GET["r"]);

    if (isset($_GET["n"]))
        $numegn = (int)preg_replace("/[^0-9]/","",@$_GET["n"]);

    $numegn = min(max(1,$numegn),99);
    if (!isset($_GET["n"]))
        $numegn = 5;
    $day = $day  > 0 ? min($day, 31) : ($day < 0 ? 0 : $day);
    $mon = $mon  > 0 ? min($mon, 12) : ($mon < 0 ? 0 : $mon);
    $year= $year > 1799 ? min($year, 2099) : ($year == 0 ? $year : 1800);
    $use_region = !isset($EGN_REGIONS_LAST_NUM[$region]) ? false : $EGN_REGIONS_LAST_NUM[$region];

    if (@$_GET["a"] == "gen") {
        print "<p class=\"result\">";
        if (!($use_region === false)) {
            $max = $region-$EGN_REGIONS_LAST_NUM[$region]+1;
            $max2 = $max / 2;
            print "В регион <b>".array_search($region, $EGN_REGIONS)."</b> са предвидени номера за ";
            print "<b>{$max}</b> раждания в един ден (<b>{$max2}</b> момчета и <b>{$max2}</b> момичета).<br />";
        } else {
            print "Изберете регион, за да видите колко раждания са предвидени за него.<br />";
        }
        print "<b><em>Генерирани ЕГН:</em></b></p>\n";
        print "</p>\n";
        print "<ol>\n";
        $results = array();
        for ($i=0;$i<$numegn;$i++) {
            $iter = 0;
            do {
                $result = egn_generate($day,$mon,$year,$sex,$use_region);
            } while ($iter++ < 10 && isset($results[$result]));
            $results[$result] = 1;
        }
        ksort($results);
        foreach ($results as $result => $tmp) {
            print "<li class=\"result\">" . egn_info($result) . "</li>\n";
        }
        print "</ol>\n";
    }
?>
<form action="<?=$_SERVER['PHP_SELF']?>" method="GET">
<input type="hidden" name="a" value="gen">
<table>
<tr>
    <td valign="top" align="right"><b>Пол</b></td>
    <td><label><input type="radio" name="s" value="0"<?=$sex==0?" checked":""?>> Случаен</label>
<label><input type="radio" name="s" value="1"<?=$sex==1?" checked":""?>> Мъж</label>
<label><input type="radio" name="s" value="2"<?=$sex==2?" checked":""?>> Жена</label>
</td>
</tr>
<tr>
    <td valign="top" align="right"><b>Дата на<br />раждане</b></td>
    <td>
<table>
<tr>
    <td align="right"><label for="d">ден</label></td>
    <td><input type="text" size="2" maxlength="2" id="d" name="d" value="<?=htmlspecialchars($day)?>"></td>
    <td><em><label for="d">0 = случаен, валидни стойност 0,1-31</label></em></td>
</tr>
<tr>
    <td align="right"><label for="m">месец</label></td>
    <td><input type="text" size="2" maxlength="2" id="m" name="m" value="<?=htmlspecialchars($mon)?>"></td>
    <td><em><label for="m">0 = случаен, валидни стойност 0,1-12</label></em></td>
</tr>
<tr>
    <td align="right"><label for="y">година</td>
    <td><input type="text" size="4" maxlength="4"id="y"  name="y" value="<?=htmlspecialchars($year)?>"></td>
    <td><em><label for="y">0 = случаен, валидни стойност 0,1800-2099</label></em></td>
</tr>
</table>
    </td>
</tr>
<tr>
    <td valign="top" align="right"><b><label for="n">Генерирай</label></b></td>
    <td><input type="text" size="2" maxlength="2" id="n" name="n" value="<?=htmlspecialchars($numegn)?>"><label for="n"> номера, <em>валидни стойност 1-99</label></em></td>
</tr>
<tr>
    <td valign="top" align="right"><b><label for="r">Регион</label></b></td>
    <td><select id="r" name="r"><option value="0">-- Случаен --</option>
<?php
    foreach ($EGN_REGIONS as $region_name => $region_num) {
        $current = ($region == $region_num?" selected":"");
        print "<option value=\"{$region_num}\"{$current}>{$region_name}</option>\n";
    }
?></select> <input type="submit" value=" Генерирай ЕГН "></td>
</tr>
</table>
</form>



<h3>Пет случайно генерирани ЕГН</h3>
<ul><?php
    $results = array();
    for ($i=0;$i<5;$i++) {
        $iter = 0;
        do {
            $result = egn_generate();
        } while ($iter++ < 10 && isset($results[$result]));
        $results[$result] = 1;
    }
    ksort($results);
    foreach ($results as $result => $tmp) {
        print "<li>" . egn_info($result) . "</li>\n";
    }
?></ul>

<p><a href="<?=$_SERVER['PHP_SELF']?>.txt">Вижте изходния код на програмата</a></p>

<p>Автор <a href="http://georgi.unixsol.org/">Георги Чорбаджийски</a>.
За коментари и предложения пишете в <a href="http://georgi.unixsol.org/diary/archive.php/2006-09-29">Дневника</a>.</p>

<p>&lt;- Към <a href="http://georgi.unixsol.org/">страничката на Георги</a></p>

</body>
</html>