Рекламный блок.

Девушка, подскажите пожалуйста первые цифры вашего инн ?
Узнать пол и дату рождения из инн(индивидуальный налоговый номер) просто.

Например 5555544491 где первые xxxxx44491 дни от 1900 01 01, а 55555444x1 пол.
Мне известно значение только этих цифр, что значат остальные - загадка.

Пример скрипта.

Код

use Date::Calc qw(Add_Delta_Days);

$id =~ /^(\d{5})(\d{3})(\d{1})(\d{1})$/;

print join ' ', Add_Delta_Days(1900,1,1,($1 - 1)), "\n";
$3 % 2 ? print "Male\n" : print "Female\n";

вывод
2052 2 7
Male

lol

Вот такая вот ерундовина

Отредактировал exn - 19 Ноября, 2008, 16:49

помню какаято бухалтерская прога на foxpro такие данные выдавала по индефикационому коду.

вот такая, наверное

Присоединённые файлы
 Ik.zip ( 187.89к ) Кол-во скачиваний: 19

Данный код должен быть уникальным для каждого человека, а следовательно содержать или порядковый номер или-что либо другое, что не может повторяться при остальных одинаковых параметрах (например у людей, которые родились в один день).

alexk
а там еще хэш контрольный присутствует

Вот те 3 цифры какраз и отвечают за уникальность. Т.Е возможна комбинация 5000 мальчиков и 5000 девочек в день. Т.е достаточно всеголиш родить 5001 ребенка одного пола в один день для полного выпада. Покрайней мере дату и пол точно можно узнать, что еще ?

exn
Вроде бы всё:

с 1 по 5 - сколько прошло дней с 01.01.1900 года. (Проще всего в EXCELе считать)
с 6 по 9 - порядковый номер человека, родившегося в этот день. При этом 9 цифра - обозначает пол (чёт/нечет).
10 - контрольная цифра.

В России и то информативнее выходит.