Расшифровываем ИНН.

[exn]

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

Например 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

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

 

[Rumlin]

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

 

[MedicusAmicus]

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

 

[alexk]

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

 

[<KiR>]

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

 

[exn]

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

 

[drood]

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


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